$regfile = "M8def.dat" $crystal = 1000000 $hwstack = 100 $swstack = 100 $framesize = 100 'LED1 an PD7 Led1 Alias Portd.7 Config Led1 = Output 'LED2 an PD6 Led2 Alias Portd.6 Config Led2 = Output 'LED2 an PD5 Led3 Alias Portd.5 Config Led3 = Output 'TASTER1 an PD2 Taster1 Alias Pind.2 Config Taster1 = Input Portd.2 = 1 'PullUp-Widerstand einschalten Dim Status As Byte Do Bitwait Taster1 , Reset Bitwait Taster1 , Set If Status = 0 Then Led1 = 1 Led2 = 0 Led3 = 0 Status = 1 Elseif Status = 1 Then Led1 = 0 Led2 = 1 Led3 = 0 Status = 2 Else Led1 = 0 Led2 = 0 Led3 = 1 Status = 0 End If Loop End
Was macht dieses Programm?
mfg Gerold :-)
Den zugehörigen Original-Beitrag findest du im Loetstelle-Forum.
Mein neues Zeiterfassungsprogramm kann jetzt kostenlos verwendet werden!
Bitte ausprobieren und weitererzählen. :-)
Seit mehr als 20 Jahren bin ich in den Bereichen Informationstechnologie, EDV-Schulung und Programmierung tätig. Und jetzt kann man mich auch als selbständigen Softwaretechniker und IT-Berater buchen.
Ich mag es gerne unkompliziert. Schreiben Sie mir einfach ein E-Mail. :-)
gerold@gp-softwaretechnik.at