BASCOM LEDs an und aus Beispielcodes

LED an/aus am ATtiny13

' LED an/aus ' LED wird bei Tastendruck abwechselnd an- bzw. ausgeschaltet ' ' In: Portb.3 Taste ' Out: Portb.0 LED ' $regfile = "attiny13.dat" $crystal = 1200000 $swstack = 10 Config Portb.3 = Input Taste Alias Pinb.3 'WICHTIG: PIN... nicht port... fuer EINGABE Portb.3 = 1 'Pullup-Widerstand Config Portb.0 = Output 'Portb.0 als Ausgabe Led Alias Portb.0 'Definition von Aliasnamen Do If Taste = 0 Then 'Wenn Taste gedrueckt Toggle Led 'Zustand an/aus wechseln Wait 1 'damit nicht sofort wieder umgeschaltet wird End If Loop ' End

LED an/aus am ATtiny13 Version 2

' LED an/aus ' LED wird bei Tastendruck abwechselnd an- bzw. ausgeschaltet ' ' In: Portb.3 Taste ' Out: Portb.0 LED ' $regfile = "attiny13.dat" $crystal = 1200000 $swstack = 10 Config Portb.3 = Input Taste Alias Pinb.3 'WICHTIG: PIN... nicht port... fuer EINGABE Portb.3 = 1 'Pullup-Widerstand Config Portb.0 = Output 'Portb.0 als Ausgabe Led Alias Portb.0 'Definition von Aliasnamen Do If Taste = 0 Then 'Wenn Taste gedrueckt Toggle Led 'Zustand an/aus wechseln Waitms 50 'wartet wegen Tastenprellen bei Druecken Do : Loop Until Taste = 1 'warten bis Taste nicht mehr gedrueckt Waitms 50 'wartet wegen Tastenprellen bei Loslassen End If Loop ' End

LED an/aus am ATtiny13 Version 3

' LED an/aus ' LED wird bei Tastendruck abwechselnd an- bzw. ausgeschaltet ' ' In: Portb.3 Taste ' Out: Portb.0 LED ' $regfile = "attiny13.dat" $crystal = 1200000 $swstack = 10 Config Pinb.3 = Input Taste Alias Pinb.3 'WICHTIG: PIN... nicht port... fuer EINGABE Portb.3 = 1 'Pullup-Widerstand Config Portb.0 = Output 'Portb.0 als Ausgabe Led Alias Portb.0 'Definition von Aliasnamen Do Debounce Taste , 0 , Umschalten , Sub 'Abfragen, ob Taste neu gedrueckt wurde und entprellen Loop ' End Umschalten: Toggle Led Return