Und nochwas. Probier mal die anderen LED's aus
Code:
$crystal = 8000000                                          'Quarzfrequenz 
Config Scl = Portc.0                                        'Ports fuer IIC-Bus 
Config Sda = Portc.1 
I2cinit 

 I2cstart 

DO 
 I2cwbyte &H72  
 I2cwbyte &B00001110   ' jetzt leuchten drei
 I2cstop 
 wait 1    ' pause 
 I2cwbyte &H72  
 I2cwbyte &B00000001   ' jetzt leucht' nur die eine 
 I2cstop 
 wait 1   ' pause 
 LOOP   ' alles nochmal 
END