elektronik:drehlicht-mit-dimm-effekt-soft-pwm

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

elektronik:drehlicht-mit-dimm-effekt-soft-pwm [22.07.2025 12:09] – angelegt Martin Fitzelelektronik:drehlicht-mit-dimm-effekt-soft-pwm [Unbekanntes Datum] (aktuell) – Externe Bearbeitung (Unbekanntes Datum) 127.0.0.1
Zeile 1: Zeile 1:
  
 +<code bascomavr [enable_line_numbers="true"]>
 +'============================================================
 +'
 +' ************************************
 +' ***                              ***
 +' *** Drehlicht    18.05.2014      ***
 +' ***                              ***
 +' ************************************
 +'
 +'name                      : Drehlicht.bas
 +'purpose                   : Drehlicht mit 4 LEDs
 +'µC                        : ATtiny13
 +'
 +'============================================================
 +'
 +
 +$regfile = "attiny13.dat"
 +$crystal = 300000
 +$hwstack = 20
 +$swstack = 20
 +$framesize = 12
 +
 +
 +Config Portb.0 = Output
 +Config Portb.1 = Output
 +Config Portb.2 = Output
 +Config Portb.3 = Output
 +
 +Led1_pin Alias Portb.0
 +Led2_pin Alias Portb.1
 +Led3_pin Alias Portb.2
 +Led4_pin Alias Portb.3
 +
 +Const Fade_up = 3
 +Const Fade_down = 3
 +Const Hold = 3
 +Const Pause = 3
 +
 +Dim Led1 As Byte
 +Dim Led2 As Byte
 +Dim Led3 As Byte
 +Dim Led4 As Byte
 +                                                               'Auflösung 0 - 49
 +Dim Timerzaehler As Byte                                    'Maximalwerte wie LED1
 +
 +
 +Config Timer0 = Timer , Prescale = 8                        'Timer konfigurieren
 +On Timer0 Timerroutine                                      'Timerinterrupt Subroutine zuweisen
 +Enable Timer0                                               'Timer aktivieren
 +Start Timer0                                                'Timer starten
 +Timer0 = 205                                                'Timer vorladen
 +
 +Enable Interrupts                                           'Interrupt aktivieren
 +Portb = 0
 +
 +'*** Hauptschleife *************************************************************
 +
 +Do
 +
 +
 +   For Led1 = 0 To 49
 +      If Led4 < 21 Then                                     'Werte begrenzen um Timerüberläufe abzufangen
 +         If Led4 > 0 Then Decr Led4.                        'Werte begrenzen um Timerüberläufe abzufangen, DED4 weiter abdimmen
 +      End If
 +      Waitms Fade_up                                        'aufdimmen
 +   Next Led1
 +
 +   Waitms Hold                                              'halten
 +
 +   For Led1 = 49 To 20 Step -1                              'abdimmen
 +      Waitms Fade_down
 +   Next Led1
 +   Waitms Pause                                             'Pause
 +'======================================
 +   For Led2 = 0 To 49
 +      If Led1 < 21 Then
 +         If Led1 > 0 Then Decr Led1.
 +      End If
 +      Waitms Fade_up
 +   Next Led2
 +
 +   Waitms Hold
 +
 +   For Led2 = 49 To 20 Step -1
 +      Waitms Fade_down
 +   Next Led2
 +   Waitms Pause
 +'======================================
 +   For Led3 = 0 To 49
 +      If Led2 < 21 Then
 +         If Led2 > 0 Then Decr Led2.
 +      End If
 +      Waitms Fade_up
 +   Next Led3
 +
 +   Waitms Hold
 +
 +   For Led3 = 49 To 20 Step -1
 +      Waitms Fade_down
 +   Next Led3
 +   Waitms Pause
 +'======================================
 +   For Led4 = 0 To 49
 +      If Led3 < 21 Then
 +         If Led3 > 0 Then Decr Led3.
 +      End If
 +      Waitms Fade_up
 +   Next Led4
 +
 +   Waitms Hold
 +
 +   For Led4 = 49 To 20 Step -1
 +      Waitms Fade_down
 +   Next Led4
 +   Waitms Pause
 +
 +
 +
 +Loop
 +
 +                                               'Ende Hauptschleife
 +End
 +
 +
 +'*** Subs **********************************************************************
 +Timerroutine:                                               'Beginn Subroutine
 +   Timer0 = 205
 +   Incr Timerzaehler
 +   If Timerzaehler = 49 Then Timerzaehler = 0               'Timerzaehler auf LED-Auflösung begrenzen
 +   If Timerzaehler < Led1 Then Led1_pin = 1 Else Led1_pin = 0       'Vergleich Timerzähler mit LED-Wert -> LED Ein- od. Ausschalten
 +   If Timerzaehler < Led2 Then Led2_pin = 1 Else Led2_pin = 0
 +   If Timerzaehler < Led3 Then Led3_pin = 1 Else Led3_pin = 0
 +   If Timerzaehler < Led4 Then Led4_pin = 1 Else Led4_pin = 0
 +Return
 +
 +</code>