Knight Rider Lauflicht mit Dimm-Effekt [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.

====== Knight Rider Lauflicht mit Dimm-Effekt ======

<code freebasic>
'Lauflicht mit Knight-Rider-Effekt.
'LEDs werden per Software-PWM über Timer1 ausgedimmt.
'http://www.youtube.com/watch?v=yFvASu5q8dU
'für STK500
'Dieser Quelltext steht unter der CC-Lizenz
'http://creativecommons.org/licenses/by-nc-sa/3.0/de/
'Namensnennung-Keine kommerzielle Nutzung-Weitergabe unter gleichen Bedingungen
'Michael Kinz
$regfile = "m16def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 24
$framesize = 16
Ddrc = 255
Portc = 255
Dim A As Byte
Dim B As Byte
Dim Z As Byte
Dim X As Byte
Dim Zeit As Word
Dim Richtung As Bit
Dim Led(8) As Byte
Config Timer0 = Timer , Prescale = 64
Enable Timer0
Enable Interrupts
On Timer0 Timer0_interrupt
A = 1
Portc = 0
Waitms 200
Do
'nächste LED alle 0,1 sec
If Zeit > 50 Then
 Led(a) = 255                                               'LED "aufladen"
 If Richtung = 0 Then
  A = A + 1
  If A = 8 Then
   Richtung = 1
  End If
 Else
  A = A - 1
  If A = 1 Then
   Richtung = 0
  End If
 End If
 Zeit = 1
End If
Z = Z + 1
'Soft PWM
'Vergleich zwischen frei laufendem Zähler Z und LED()-Wert
For B = 1 To 8
 If Led(b) > Z Then
  B = B - 1
  Portc.b = 0
 Else
  B = B - 1
  Portc.b = 1
 End If
 B = B + 1
Next
Loop
End
'----------------
Timer0_interrupt:
Timer0 = 6
' Prescale = 64 + Timer0 = 6 = 500Hz
' Bei LED-Startwert von 255 ist nach 0,51 Sekunden ausgedimmt
Zeit = Zeit + 1
For X = 1 To 8
 If Led(x) > 0 Then
  Led(x) = Led(x) - 1                                       'LEDs "entladen"
 End If
Next
Return
</code>


{{tag>BASCOM}}