Hallo,

es klappt, bin aber noch nicht zufrieden. Zeile 2 und 4 flackert.

VEE habe ich jetzt mit Poti eingestellt.
VCC -> [1 KOhm] -> Led+
GND -> Led-
VCC -> [1KOhm] -> Anode
GND -> Kathode

Ich habe folgende Zeile ergänzt:

Code:
'LCD 4x40 testen

$lib "Lcd_i2c.lib"
$regfile="m8def.dat"
$crystal=16000000
Const Pcf8574_lcd = &H40
Config Scl = Portc.5
Config Sda = Portc.4
Dim _lcd_e As Byte
_lcd_e = 192


I2cstart
I2cwbyte &H40
I2cwbyte 1
Waitms 1.64
i2cstop

Cls
Locate 1,1
Lcd "Hallo roboternetz!" 
Locate 3,1
Lcd "Meine LCD 4x40 klappt, bin aber nicht zufrieden :)"
Bild hier