BASCOM LEDs an und aus Beispielcodes

' 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
' 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
  ' 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