Ok habs gefunden war Pin 7 Jumper hat jetzt auch 3 Pins und nicht nur 2 einmal auf masse und einmal auf portb.0
Danke an allen die mir geholfen haben...mit tips
Code:
'--------------------------------------------------------------
' (c) 2006-2040 FHS Electronic
'--------------------------------------------------------------
' datei: lcd4_16.BAS
' versuch: Textausgabe auf 4 Zeilen
'--------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 19200
Dim R As Word
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2 ,
Config Lcd = 16 * 4
Config Portd = Output
Initlcd
Do
Cls ' display löschen
Cursor Off 'cursor aus
Locate 1 , 1 'koordinaten text
Lcd "Danke" 'ausgabe lcd
Waitms 500 'warte ms
Locate 2 , 1
Lcd "funktioniert"
Waitms 500
Locate 3 , 1
Lcd "jetzt"
Locate 4 , 1
Lcd "Verleihnix :)"
Waitms 1000
Loop 'schleife endlos
End 'end program
[/code]
Lesezeichen