Bei dir fehlt die Do-Loop Schleife.
Dein Programm wird nur 1x durchlaufen und endet dann.
Versuch es mal so:
Code:
$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Pinb.2 = Input 'Taster 2 (-)'
Config Pinb.3 = Input 'Taster 1 (+)'
Config Portd.7 = Output 'LED rot'
Config Portd.6 = Output 'LED grün'
Config Pinb.4 = Input 'Taster 3 (Enter)'
Config Pinb.5 = Input 'Taster 4 (Clear)'
Do
If Pinb.3 = 1 Then
Portd.6 = 1
Waitms 30
Portd.6 = 0
End If
If Pinb.2 = 1 Then
Portd.7 = 1
Waitms 30
Portd.7 = 0
End If
If Pinb.4 = 1 Then
Portd.6 = 1
Waitms 30
Portd.6 = 0
End If
If Pinb.5 = 1 Then
Portd.7 = 1
Waitms 30
Portd.7 = 0
End If
Loop
End
Und sollen die LEDs wirklich nach 30ms ausgehen? Weil das siehst du kaum...änder die Zeit einfach mal auf 1 Sekunde
Lesezeichen