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







Zitieren

Lesezeichen