LCD-Hintergrundbeleuchtung funktioniert nicht

[dariegel]

Hallo zusammen,

habe ein ANAG VISION AV1640 16x4 LCD-Modul per I2C-Port-Expander PCF8574P im 4-Bit-Modus an eine C-Control Pro 128 angeschlossen - gemäß angehängtem Schaltplan.
Funktioniert alles wunderbar, nach 3 Tagen Kopfarbeit weiß ich nun auch, wie die Kommunikation abläuft und wie das LCD Befehle und Daten entgegen nimmt.

Eines will aber einfach nicht laufen: die LCD-Hintergrundbeleuchtung. Wenn ich Pin 15 mittels der Funktion LCD_EnableBL() auf high (0b10000000) schalte, sollte der BC557B doch von Emitter auf Kollektor durchschalten. Das Display bleibt jedoch dunkel, auch ein Ersetzen des Transistors durch eine Brücke hilft nicht.

Das Display sollte auf jeden Fall eine Beleuchtung besitzen, es hat ja auch 16 Pins.

Was mache ich falsch?

Wenn es hilft, hier noch mein Code:

#define I2C_PCF_ADDR	0x40		'Slave-Adresse des PCF8574P
#define LCD_BL			0b10000000	'Backlight high
#define LCD_ENABLE		0b01000000	'Enable high
#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_EnableBL_I2C()  '<-- Funktioniert nicht!
End Sub


Sub LCD_Init_I2C()
    'Initialisierungssequenz für 4-Bit-Modus.
    I2C_Out(0x3)
    AbsDelay(1)
    I2C_Out(0x3 + LCD_ENABLE)
    AbsDelay(1)
    I2C_Out(0x3)

    I2C_Out(0x2 + LCD_ENABLE)
    I2C_Out(0x2)

    '*** 4-Bit-Modus ***

	'DISPLAY ON/OFF CONTROL
    'Display ein, Cursor aus, Blinken aus
    LCD_Write_I2C(0, 0b00001100)

	'FUNCTION SET
    '4-Bit-Modus, 5x7 dots?, F=0?
    LCD_Write_I2C(0, 0b00101000)
End Sub

Sub LCD_Clear_I2C()
	'Display löschen und Cursor zurücksetzen.
    LCD_Write_I2C(0, 0b00000001)
    LCD_Write_I2C(0, 0b00000010)
End Sub

Sub LCD_EnableBL_I2C()  '<-- Funktioniert nicht!
	LCD_Write_I2C(0, LCD_BL)
End Sub

Sub LCD_Write_I2C(bRS As Byte, bData As Byte)
	'RS high (bRS = 0x20) für Datenausgabe
    'RS low (bRS = 0x00) für Befehlsübergabe
    'bData enthält Befehle u./o. Daten

    Dim bDataOut As Byte

    '*** High Nibble ***
    bDataOut = bRS Or (bData >> 4)
    I2C_Out(bDataOut)
    bDataOut = bDataOut + LCD_ENABLE
    I2C_Out(bDataOut)
    AbsDelay(1)
    bDataOut = bDataOut - LCD_ENABLE
    I2C_Out(bDataOut)
    AbsDelay(1)

    '*** Low Nibble ***
    bDataOut = bRS Or (bData And 0b00001111)
    I2C_Out(bDataOut)
    bDataOut = bDataOut + LCD_ENABLE
    I2C_Out(bDataOut)
    AbsDelay(1)
    bDataOut = bDataOut - LCD_ENABLE
    I2C_Out(bDataOut)
    AbsDelay(1)
End Sub

Sub I2C_Out(bData As Byte)
    I2C_Start()
    I2C_Write(I2C_PCF_ADDR)
    I2C_Write(bData)
    I2C_Stop()
End Sub

Danke für's Lesen.