Bei dir fehlt die Do-Loop Schleife.
Dein Programm wird nur 1x durchlaufen und endet dann.
Versuch es mal so:
Und sollen die LEDs wirklich nach 30ms ausgehen? Weil das siehst du kaum...änder die Zeit einfach mal auf 1 SekundeCode:$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![]()







Zitieren

Lesezeichen