Hallo Linux_80,
leider funktioniert das nicht. Das habe ich schon versucht.
Ich habe trotz alledem noch mal ein Versuch gestartet und folgendes "Fehlerbild" erhalten.
Die LED (Hintergrundbeleuchtung) blinkt kurz auf, wenn der Displayinhalt aktualisiert wird. Also jedes mal bei LCD "xxx".
Hier mal der Code.
Code:
$regfile "m8def.dat"
$crystal = 16000000
$baud = 9600
$lib "i2c_twi.lbx" 'Für Hardware TWI
$lib "lcd_i2c.lib" 'ersetzt die Standard LCD Library
' ---------------- I2C Bus ----------------------
Config Scl = Portc.5 'I2C SCL Pin
Config Sda = Portc.4 'I2C SDA Pin
Config Twi = 400000 ' Init TWBR und TWSR
' TWI gleich einschalten, das macht Bascom ansonsten erst beim I2CStart !
Twcr = &B00000100 ' nur TWEN setzen
Waitms 300
' --------------- I2C Display -------------------
Const Pcf8574_lcd = &H40 'I2C Adresse
Dim _lcd_e As Byte
'_lcd_e = 128 'LCD im 4-Bit Mode betreiben
_lcd_e = 192
Waitms 300 'wichtig! Ggf. Erhöhen
Config Lcd = 16 * 2
Wait 1
Initlcd
Wait 1
----- Haupt ----
Do
Cls 'loesche das LCD Display
' Display On 'schaltet das Display (Text) ein
Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
Lcd "Hello world."
Wait 1
Locate 2 , 1
Lcd "************" 'String auf Display anzeigen
Wait 5
'Display Off 'schaltet das Display (Text) aus
'Wait 2
Loop
End
Lesezeichen