Hallo,
ich habe ein LCD mit 2 Controllern.
Wie bekomme ich das LCD angesteuert? Im Netz habe ich einen Code gefunden, aber ich weiß nicht, wie ich den als Schleife einbinden kann:
Der Code läuft einmal durch und das Ergebnis ist auf dem LCD.
Was muss ich machen damit die Variable auf dem LCD hochgezählt wird?
mit einem "GoTo" Verweis hab ich es noch nicht geschafft...
Vielen Dank, Tobias
Code:
$regfile = "m32def.dat" 'AT-Mega32
$crystal = 1000000 'Quarz: 1 MHz
Dim X As Single 'Variable zum hochzählen
Dim ___lcdno As Bit
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4 , E2 = Portb.6
Config Lcd = 40 * 4
___lcdno = 0 'Ober Displayhälfte initialisieren, wenn das Display zwei LCD-Controller besitzt
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "1estesttesttesttesttesttest"
Locate 2 , 1
Lcd "2estesttesttesttesttesttest"
___lcdno = 1 'Dies ist nur notwendig wenn das Display zwei LCD-Controller besitzt
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "3estesttesttesttesttesttest"
Locate 2 , 1
Lcd X '"4estesttesttesttesttesttest"
Do
Incr X
wait 1
'goto Anzeige 'funktioniert aber bei mir nicht....
Loop
End
Lesezeichen