Kalli01
15.08.2010, 20:01
Hallo
Ich möchte eine LCD Anzeige über I2C an das RN mega128funk anschließen.
Dazu habe ich das Display wie hier (http://www.mcselec.com/index.php?option=com_content&task=view&id=82&Itemid=57) 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:
$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?
Ich möchte eine LCD Anzeige über I2C an das RN mega128funk anschließen.
Dazu habe ich das Display wie hier (http://www.mcselec.com/index.php?option=com_content&task=view&id=82&Itemid=57) 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:
$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?