BASCOM LEDs an und aus Beispielcodes [Dokumentation und Wiki der Modellbahn-Anlage.de]

Diese Seite ist nicht editierbar. Sie können den Quelltext sehen, jedoch nicht verändern. Kontaktieren Sie den Administrator, wenn Sie glauben, dass hier ein Fehler vorliegt.
====== BASCOM LEDs an und aus Beispielcodes ======

===== LED an/aus am ATtiny13 =====
<code freebasic>
' 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
</code>
===== LED an/aus am ATtiny13 Version 2 =====
<code freebasic>
' 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
</code>
===== LED an/aus am ATtiny13 Version 3 =====
<code freebasic>
  ' 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  
  </code>
  
{{tag>BASCOM Elektronik Mikrocontroller Programmierung }}