Hier noch der verwendete Code
Gruß / RiciCode:$regfile = "m16def.dat" $framesize = 64 $swstack = 50 $hwstack = 50 $crystal = 7372800 $baud = 9600 Const Relaisport_adr = &B1001110 Dim Relaisstatus As Byte 'I2C Adresse. Dim I As Byte Config Scl = Portc.0 'Ports fuer IIC-Bus Config Sda = Portc.1 I2cinit I2cstart I2cwbyte Relaisport_adr 'Schreibbefehl an PCF schicken I2cwbyte &B11111111 'Datenbyte an PCF I2cstop End
Lesezeichen