LCD über Pcf8574P an Rn mega128funk
Hallo
Ich möchte eine LCD Anzeige über I2C an das RN mega128funk anschließen.
Dazu habe ich das Display wie hier beschrieben an den PCF8574P angeschlossen.
Die Scl Leitung habe ich an Portd.0 und die Sda an Portd.1 angeschlossen.
Die Brücke auf der Rückseite des mega 128 ist geschlossen. (Pullup Widerstände)
Hier mein aktuelles Programm:
Code:
$regfile = "m128def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$lib "Lcd_i2c.lib"
Config I2cdelay = 1
Const Pcf8574_lcd = &H40
Config Scl = Portd.0
Config Sda = Portd.1
Dim _lcd_e As Byte
_lcd_e = 128
Config Lcd = 16 * 2
I2cstart
Cls
Wait 2
Cursor On Blink
Wait 10
Shiftcursor Right
Shiftcursor Right
Shiftcursor Right
Wait 2
Cls
Locate 1 , 1
Lcd "Hello world."
Wait 5
Do
Wait 5
Locate 1 , 1
Lcd "es geht"
Loop
End
Nach dem Einschalten blinkt in beiden Zeilen das erste Kästchen. Dann springt der Curser in beiden Zeilen um 3 Kästchen nach rechts.
Text wird keiner angezeigt. Die erste Zeile bleibt schwarz.
Also funktioniert doch das Programm bis zum Anzeigen des Textes.
Ich weiß nicht was da falsch sein soll. Hat jemand eine Idee?
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo Kalli01,
dein Programm funktioniert prima, der Link von dir ist super.
Habe dein Programm nur etwas an meine Umgebung angepasst.
Versuche das mal anzuhängen.
Freundliche Grüße
vistauser
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo Kalli01,
jammerschade, dass es bei dir erstmal nicht flutscht. Dass du nicht PD6 und PD7 verwendest wie ich kann wohl der Grund sein. PD0 und PD1 sind ja RXD u. TXD. Die Fuses hängen hier dran.
Viel Erfolg
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo Kalli01,
kriegste beide, da ich es für ein 20 * 4 Display compiliert habe.
mfg
P.S.: hast du wirklich ein 27 * 4 Display? Dann geht das deswegen nicht?
Kuck dir mal das Basic-Demo Programm von dem Erzeuger der Lib an.
Da ist nur von 16 und 20 Char. / Zeile die Rede.