ok, alles klar.
danke für die erklärung!

ich hab jetzt mal ein programm geschrieben dass über zwei tasten einen "leuchtbalken" aus 6 leds ansteuert.
hier der code:
Code:
'###################################################
'Über zwei Taster kann immer eine andere der 6 Leds zum leuchten gebracht werden.
'###################################################


$regfile = "M8def.dat"  
$crystal = 1000000      
$hwstack = 32      
$swstack = 10     
$framesize = 40       

Config Portc.0 = Output      
Config Portc.1 = Output      
Config Portc.2 = Output      
Config Portc.3 = Output      
Config Portc.4 = Output     
Config Portc.5 = Output      
Config Pind.0 = Input
Config Pind.1 = Input      
Led1 Alias Portc.0       
Led2 Alias Portc.1       
Led3 Alias Portc.2       
Led4 Alias Portc.3       
Led5 Alias Portc.4       
Led6 Alias Portc.5       
T1 Alias Pind.0       
T2 Alias Pind.1       

Dim X As Integer

X = 0 

Do
 If T1 = 1 Then
 X = X + 1
 End If

 If T2 = 1 Then
 X = X - 1
 End If

 If X < 0 Then
 X = X + 1
 Elseif X > 5 Then
 X = X - 1
 End If

 If X = 0 Then
 Led1 = 1
 Led2 = 0
 Led3 = 0
 Led4 = 0
 Led5 = 0
 Led6 = 0
 Elseif X = 1 Then
 Led1 = 0
 Led2 = 1
 Led3 = 0
 Led4 = 0
 Led5 = 0
 Led6 = 0
 Elseif X = 2 Then
 Led1 = 0
 Led2 = 0
 Led3 = 1
 Led4 = 0
 Led5 = 0
 Led6 = 0
 Elseif X = 3 Then
 Led1 = 0
 Led2 = 0
 Led3 = 0
 Led4 = 1
 Led5 = 0
 Led6 = 0
 Elseif X = 4 Then
 Led1 = 0
 Led2 = 0
 Led3 = 0
 Led4 = 0
 Led5 = 1
 Led6 = 0
 Elseif X = 5 Then
 Led1 = 0
 Led2 = 0
 Led3 = 0
 Led4 = 0
 Led5 = 0
 Led6 = 1
 End If


Loop

End
geht das so?