Hallo Forum
Ich brauche Rat ich hänge bei den 2x8 LCD in 4Bit Modus
Ich habe einen Code Jedes Lcd Läuft damit, nur nicht das 2x8 LCD?
Bitte Um Rat und Tipps wo ich den fehler habe.....
Hatte es mal in betrieb, nur code ist weg...
Danke Danke
Gruß Thorsten
Code:
'LCD Port Test
'In: -
'Out: PORTB-2 bis 7 : LCD
$regfile = "ATtiny2313.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 , _
E = Portb.6 , Rs = Portb.7
Config Lcd = 16 * 2 'Einstellen des LCD 16x2 oder 20x4
Cls 'LCD Leeren
Cursor Off 'Curser Aus
Initlcd
Config Portd.6 = Output
Locate 1 , 1
Lcd "2x8TEST"
Wait 3
Do
Cls 'löschen des LCD '
Locate 1 , 1
Lcd "Reihe1"
Wait 3
Cls 'Löschen des LCD
Locate 2 , 1
Lcd "Reihe2"
Wait 3
Cls
Locate 1 , 1
Lcd "ES Geht"
Locate 2 , 1
Lcd "Wunder"
Wait 2
Loop
Lesezeichen