16*4 LCD

[Verleihnix]

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

'--------------------------------------------------------------
'                 (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]