Dim bus As JavaObject = GetBus(1)
Dim device As JavaObject = GetDevice(bus, 0x24)
'-------pcf8574-------schreiben/lesen-----
Dim buffer(1) As Byte
Dim Int_Byte As Int
Write(device, 203)
Read2(device,buffer,0,1)
Int_Byte = Bit.AND(0xff, buffer(0))
Log (Bit.ToBinaryString(Int_Byte))