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 Bild