Hallo hier ein Beispiel das dir sicherlich weiterhilft:

'-------------------------------------------------------------------------------
'Tasterzähler


$regfile "m8def.dat"


'-------------------------------------------------------------------------------
'Eingänge

Config Pinc.1 = Input 'um 1 runterzählen
Config Pinc.0 = Input 'um eins hochzählen

'Ausgänge

Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Portd.4 = Output
Config Portd.5 = Output
Config Portd.6 = Output
Config Portd.7 = Output


'Alle Ports auf "1"

Portd.0 = 1
Portd.1 = 1
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.5 = 1
Portd.6 = 1
Portd.7 = 1
Portc.0 = 1
Portc.1 = 1
'-------------------------------------------------------------------------------
'Variable setzen

Dim A As Byte
A = 0 'Startwert

'-------------------------------------------------------------------------------
'Hauptprogramm

Do

If Pinc.0 = 0 Then 'Zähler hochzählen
Incr A
Waitms 50
End If

If Pinc.1 = 0 Then 'Zähler runterzählen
Decr A
Waitms 50
End If

If A > 10 Then '10 als Maximalwert
A = 0
Else
End If

If A = 1 Then
Portd.0 = 0 'hier hätte man auch case verwenden können
Else
Portd.0 = 1
End If

If A = 2 Then
Portd.1 = 0
Else
Portd.1 = 1
End If

If A = 3 Then
Portd.2 = 0
Else
Portd.2 = 1
End If

If A = 4 Then
Portd.3 = 0
Else
Portd.3 = 1
End If

If A = 5 Then
Portd.4 = 0
Else
Portd.4 = 1
End If

If A = 6 Then
Portd.5 = 0
Else
Portd.5 = 1
End If

If A = 7 Then
Portd.6 = 0
Else
Portd.6 = 1
End If

If A = 8 Then
Portd.7 = 0
Else
Portd.7 = 1
End If

If A = 9 Then 'beim Zählerstand von 9 zurücksetzen
A = 0
End If


Loop

MfG

Neutro

PS: wie funktioniert der Code Tag eigentlich?[/code]