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?
Lesezeichen