So, hier bin ich wieder. Tut mir leid, dass es eine Weile gedauert hat.
Aktueller Stand: habe leider das grüne Display mechanisch... ähm ja, ins Jenseits befördert. 
Das habe ich zum Anlass genommen, mir ein LCD mit LED-Hintergrundbeleuchtung zu besorgen - gleiches Modell, gleiche Größe - nur diesmal eben nicht das 18334, sondern das blau-weiße 181656 (Danke an Searcher!)
Zudem habe ich in der Zwischenzeit eine Unterbauplatine für das neue LCD gelötet und in Sandwichbauweise damit verschraubt. Schaut lecker aus und funktioniert hervorragend. 
Der Schaltplan (angehängt) ist der gleiche wie in meinem ersten Posting, nur diesmal passt R3 mit 33 Ohm auch zum Bedarf der LCD-Beleuchtung. Diese braucht 3,5 V und 60 mA. Somit sollte auch der verbaute Transistor zum Schalten der LED-Last ausreichen.
Lange Rede, kurzer Sinn: LCD funktioniert, Beleuchtung funktioniert, allerdings kann ich sie nicht per I2C steuern. Nach dem Programmstart (C-Control Pro) geht die Beleuchtung an, d.h. wohl, dass der Startzustand des Pins P7 vom PCF8574P den Transistor durchschalten lässt. Offenbar ist also der Aufbau richtig.
Nur was muss ich tun, um ihn wieder aus- und einzuschalten?
Mein Code bewirkt gar nichts, die Beleuchtung bleibt einfach an.
Code:
#define I2C_PCF_ADDR 0x40 'Slave-Adresse des PCF8574P
#define LCD_E 0b01000000 'Enable high = Befehl/Daten übernehmen
#define LCD_RS 0b00100000 'RS high = Datenausgabe
#define LCD_RW 0b00010000 'R/W high = Lesemodus
Sub main()
I2C_Init(I2C_100kHz)
LCD_Init_I2C()
LCD_Clear_I2C()
LCD_Write_I2C(0, 0b10000000) '<-- Hier passiert leider gar nichts!
AbsDelay(2000)
End Sub
Sub LCD_Write_I2C(bIsData As Byte, bData As Byte)
Dim bDataOut As Byte
'RS high setzen falls Datenausgabe gewünscht (bRS = 1).
If bIsData > 0 Then : bIsData = LCD_RS : End If
'*** High Nibble ***
bDataOut = bIsData Or (bData >> 4)
I2C_Out(bDataOut, 1)
'*** Low Nibble ***
bDataOut = bIsData Or (bData And 0b00001111)
I2C_Out(bDataOut, 1)
End Sub
Sub I2C_Out(bData As Byte, bPulseE As Byte)
If bPulseE > 0 Then
I2C_Start()
I2C_Write(I2C_PCF_ADDR)
I2C_Write(bData + LCD_E)
I2C_Stop()
AbsDelay(1)
End If
I2C_Start()
I2C_Write(I2C_PCF_ADDR)
I2C_Write(bData)
I2C_Stop()
End Sub
Wäre toll, wenn sich das mal jemand anschauen könnte. Vielen Dank.
Lesezeichen