Hallo Jul-Ian
Für eine Laufschrift verwendest du einfach den Befehl [glow=red:afd835059d] shiftlcd [/glow:afd835059d]
Schau mal in die Bascom Hilfe.
Hier hab ich das mal schnell bei meinem LCD ausprobiert:
Code:
'Laufschrift auf LCD
'Quick and Dirty from Gandalf
'LCD mit HD44780 kompatiblem Controller 4 Zeilen a 20 Zeichen
'Anschluß
'LCD Pin 1 = 0Volt (GND)
'LCD Pin 2 = +5 Volt (VDD)
'LCD Pin 3 = 0-5 Volt Kontrast (V0): Poti 10k zwischen 0V und 5V Schleifer an LCD3
'LCD Pin 4 = RS an PortA.2
'LCD Pin 5 = R/W an +5V
'LCD Pin 6 = E an Porta.3
'LCD Pin 7 = DB0 'frei
'LCD Pin 8 = DB1 'frei
'LCD Pin 9 = DB2 'frei
'LCD Pin 10 = DB3 'frei
'LCD Pin 11 = DB4 an Porta.4
'LCD Pin 12 = DB5 an Porta.5
'LCD Pin 13 = DB6 an Porta.6
'LCD Pin 14 = DB7 an Porta.7
'_____________________________________________________________
$crystal = 16000000
$regfile = "m16def.dat" ' Ich verwende AT Mega 16
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Porta.3 , Db5 = Porta.2 , Db6 = Porta.1 , Db7 = Porta.0 , E = Porta.4 , Rs = Porta.5
Cls
Initlcd 'initialisiert das LCD
'--------------------------------------------------------------
Do 'Begin Hauptschleife
Cursor Off
Upperline 'setzt Cursor in die obere Zeile
Lcd "Schiebe Text"
Shiftlcd Left ' schiebt Text nach links
'Shiftlcd Right ' schiebt Text nach rechts
Waitms 300
Lowerline
Lcd "Gandalf made it!"
Waitms 300 'wartet 0,4 Sekunden
Loop 'erneut aufrufen
End
Lesezeichen