Ich hab schonmal rausgefunden dass

Call Twi_send_byte(&H40 , x)
&H40 die Slaveadresse ist

für den pcf müsste diese &H74 sein.

jetzt fehlt mir noch dieser teil

Sub Rnb_relaisschalten(byval Relaisnr As Byte , Byval Status As Byte)

Relaisstatus.relaisnr = Status
I2cstart
I2cwbyte Relaisport_adr 'Schreibbefehl an PCF schicken
I2cwbyte Relaisstatus 'Datenbyte an PCF
I2cstop

Relaisstatus ist entweder 0 (aus) oder 1 (ein)
Relaisport_adr sagt mir so nix
Relaisstatus.relaisnr = status auch nicht.

Ich habe mal mit
Print Relaisport_adr
Print Relaisstatus
die werte auf dem Terminal ausgeben lassen, allerdings erhalte ich da komische Werte.
118,1,118,1,118,3,118,3,118,7,118,7,118,15,118,15, 118,31,118,31,118,63,118
,63,118,127,118,127,118,255,118,254,118,255,118,25 3,118,255,118,251,118
255,118,247,118,255,118

bei 8 relais und status 0 oder 1


Ich hab mal einfach auf doof
For I = 1 To 7
Wait 1
' Den Wert zum Slave senden

Call Twi_send_byte(&H74 , I)
Call Twi_send_byte(&H74 , Status)
Status = 0

wie zu erwarten erfolglos