INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Hallo! Ich versuche nun schon ne halbe ewigkeit folgenden code nach BASIC++ zu übersetzen, aber es funzt absolut nicht.. jemand nen tip? Also der Code läuft einwandfrei in CCBASIC... bloß in BASIC++ tutet sich da gar nix, wenn ich den übersetze.... HILFEEEEE, ich dreh noch durch ;-) '------ I/O PORTS --------- '-------------------------- define LCDPORT byteport[2] '-------------------------- '---- SYSTEM MEMORY ------- '-------------------------- define OUTBYTE byte[1] define LCDDATA byte[2] print "#ON_LCD#";"#INIT#"; LCDDATA=&h24:gosub LCD_WRITECMD:pause 2 LCDDATA=&h09:gosub LCD_WRITECMD:pause 2 LCDDATA=&h20:gosub LCD_WRITECMD:pause 2 print "#ON_LCD#";"#INIT#"; LCDDATA=&h24:gosub LCD_WRITECMD:pause 2 LCDDATA=&h09:gosub LCD_WRITECMD:pause 2 LCDDATA=&h20:gosub LCD_WRITECMD:pause 2 print"#L101#";"Z123456789abcdefghij"; print"#L133#";"Z223456789abcdefghij"; print"#L165#";"Z323456789abcdefghij"; print"#L197#";"Z423456789abcdefghij"; '--------- ------WRITE HI NIBBLE LCD COMMAND ------------ #LCD_WRITECMD OUTBYTE=(LCDDATA shr 4) LCDPORT=OUTBYTE or &B01000000:LCDPORT=OUTBYTE and &B10111111 '--------------- WRITE LO NIBBLE ------------------------ OUTBYTE=(LCDDATA and &H0F) LCDPORT=OUTBYTE or &B01000000:LCDPORT=OUTBYTE and &B10111111 return '------------------------------------------------------- |
Antwort schreiben |