ZitierenWenn das LCD genauso angeschlossen wird wie auf der CC1 dann Hab ich hier einen Zähler der M XXXXXXX schreibt (XXXXXXX soll ne Zahl sein)Code:define lcd byteport[2] define rw port[13] define rs port[14] define e port[15] define buffer byte define parameter byte define zahl word define ziffer byte define x word define ein port[1] gosub initialisierung pause 10 x=0 #loop pause 2 x=x+1 gosub lcd_out goto loop #lcd_out zahl=x parameter=1 gosub whichline parameter=77 gosub writeletter ziffer=zahl/100 parameter=ziffer+48 gosub writeletter zahl=zahl-ziffer*100 ziffer=zahl/10 parameter=ziffer+48 gosub writeletter zahl=zahl-ziffer*10 ziffer=zahl parameter=ziffer+48 gosub writeletter parameter=32 gosub writeletter parameter=x gosub writeletter gosub clear return #initialisierung lcd=off parameter=&h38:gosub command lcd=&b00000010 tog e tog e parameter=&h28:gosub command parameter=&h0c:gosub command #clear parameter=&h02:gosub command parameter=&h02:gosub command return #whichline if parameter=1 then parameter=&h80 if parameter=2 then parameter=&hc0 goto command #command buffer=off goto write_ #writeletter buffer=&b00100000 #write_ lcd=buffer or (parameter shr 4) tog e tog e lcd=buffer or (parameter and &h0f) tog e tog e return
Zitat von Matthias
Lesezeichen