Hallo Apollo
ich hab dein prog mal getestet Es funktionirert bei mir mit einem 2*20
und mit einem 4*20 LCd
Du solltest allerdings die "lcd.lib" auskommentieren.
Die LCD Konfiguration dagegen nicht ! (Hab ich für meinen Programmer geändet und hier wieder auskommentiert)
Code:
'lcdtest.bas fuer apollo aus Roboternetz 9.4.5
'$regfile = "m16def.dat" 'ATMega 16-Deklarationen
$regfile = "2313def.dat" '2313-Deklarationen
'$crystal = 16000000 'geändert auf 16MHz
$crystal = 3686400 'Quarz: 3.6864 MHz
'$lib "lcd.lib" 'nicht notwendig ! weg damit !
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portd.4 , Rs = Portd.5
'Anschluß von meinem LCD
' Config Lcdpin = Pin , Db4 = Porta.3 , Db5 = Porta.2 , Db6 = Porta.1 , Db7 = Porta.0 , E = Porta.4 , Rs = Porta.5
Config Lcd = 16 * 2 ' "a" für spezielles Display
Initlcd
Do
Cls
Wait 1
Locate 1 , 1 ' upperline ist einfacher
Lcd "test"
Wait 1
Locate 2 , 1 'lowerline ist einfacher
Lcd "123"
Wait 1
Loop
End
Gruß Bernd (Gandalf)
Lesezeichen