Hallo,
Versuche mal den folgenden Code, ist allerdings für einen Mega8
der mit 4MHz läuft:
$regfile = "m8def.dat"
$crystal = 4000000
Config Sda = Portc.4
Config Scl = Portc.5
Config I2cdelay = 10
'Config Pind.6 = Output
Const Pcf8574write = &H4E
Const Pcf8574read = &H4F
'Set Portd.6
'Waitms 1000
'Reset Portd.6
'Waitms 1000
Do
I2cstart
I2cwbyte Pcf8574write
I2cwbyte &B00000001
I2cstop
Waitms 250
I2cstart
I2cwbyte Pcf8574write
I2cwbyte &B00000010
I2cstop
Waitms 250
loop
end
Ich hoffe das dir das etwa weiterhilft....
Gruß
Neutro
Lesezeichen