Uiii, bei beiden Programmen ist ein Fehler drin
PROG I
Code:
$crystal = 8000000 'Quarzfrequenz
Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1
I2cinit
DO
I2cstart
I2cwbyte &H74
I2cwbyte &B01000010 ' jetzt wär die mittlere LED aus
I2cstop
wait 1 ' pause
I2cstart
I2cwbyte &H74
I2cwbyte &B10100010 ' jetzt leucht' nur die mittlere LED
I2cstop
wait 1 ' pause
LOOP ' alles nochmal
END
PROG II
Code:
$crystal = 8000000 'Quarzfrequenz
Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1
I2cinit
DO
I2cstart
I2cwbyte &H72
I2cwbyte &B00001110 ' jetzt leuchten drei
I2cstop
wait 1 ' pause
I2cstart
I2cwbyte &H72
I2cwbyte &B00000001 ' jetzt leucht' nur die eine
I2cstop
wait 1 ' pause
LOOP ' alles nochmal
END
Tut mir leid
Lesezeichen