Hier noch der verwendete Code

Code:
 $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
Gruß / Rici