Hi,
meine Taster liegen auf Portb, die Leds auf PortC, als Controller werkelt ein AT90CAN128.
Kannst du ja bei dir entsprechend anpassen.
Ist das in etwa das, was du machen möchtest ?
Code:
$regfile = "m128can.dat"
$crystal = 16000000
Config Portc = Output
Config Portb = Input
Portb = &HFF
Taste_1 Alias Pinb.0
Taste_2 Alias Pinb.1
Taste_3 Alias Pinb.2
Taste_4 Alias Pinb.3
Taste_5 Alias Pinb.4
Taste_6 Alias Pinb.5
Taste_7 Alias Pinb.6
Taste_8 Alias Pinb.7
Led_1 Alias Portc.0
Led_2 Alias Portc.1
Led_3 Alias Portc.2
Led_4 Alias Portc.3
Led_5 Alias Portc.4
Led_6 Alias Portc.5
Led_7 Alias Portc.6
Led_8 Alias Portc.7
Dim N As Byte
Portc = 0
Do
Led_1 = Taste_1
Led_2 = Not Taste_2
While Taste_3 = 0
For N = 0 To 7
Portc = 2 ^ N
Waitms 100
If Taste_3 = 1 Then
Portc = 0
Exit For
End If
Next N
Wend
If Taste_4 = 0 Then
Toggle Led_5
While Taste_4 = 0 : Wend
End If
Loop
End
Gruß
Christopher
Zitieren
Zitat von Che Guevara
Lesezeichen