| Weitere Artikel aus dem Elo-Magazin |
LED-Kerze mit Tiny13
von B. Kainka
Literatur: Lernpaket Mikrocontroller
Solche LED-Kerzen bekommt man manchmal sehr preiswert. Im Inneren befindet sich ein kleiner Soundchip, der als Helligkeitsmodulator missbraucht wird.
Aber auf die Dauer gefällt mir das Programm nicht. Deshalb habe ich nun einen Tiny13 eingesetzt. Immerhin läuft das LED-Licht original mit 3 V. Damit arbeitet auch der Tiny13 prima.
Das Steuerprogramm für den Tiny13 wurde mit BASCOM geschrieben. Die Software soll ein langsames An- und Abschwellen der Helligkeit erzeugen. Damit der Verlauf subjektiv als gleichförmig erscheint, muss die linear ansteigende Kurve quadriert werden. Außerdem sind die Randbedingungen der Schleife so festgelegt, dass eine Mindesthelligkeit nicht unterschritten wird.
$regfile
="attiny13.dat"
$crystal=1200000
DimIAsByte
DimDAsInteger
ConfigPortb=Output
ConfigTimer0=Pwm,Prescale=1,CompareAPwm=ClearDown
Do
ForI=40To215
IfI<<img class="b1" src="/d.gif"/>128Then
D=I
D=D*D
EndIf
IfI>127Then
D=255-I
D=D*D
EndIf
D=D/64
'IfD<<img class="b1" src="/d.gif"/>10ThenD=10
Pwm0a=D
Waitms60
NextI
Waitms800
Loop
End
="attiny13.dat"$crystal
=1200000Dim
IAsByteDim
DAsIntegerConfig
Portb=OutputConfig
Timer0=Pwm,Prescale=1,CompareAPwm=ClearDownDo
ForI=40To215IfI<<img class="b1" src="/d.gif"/>128ThenD=ID=D*DEndIfIfI>127ThenD=255-ID=D*DEndIfD=D/64'IfD<<img class="b1" src="/d.gif"/>10ThenD=10Pwm0a=DWaitms60NextIWaitms800Loop
End
Download: Softblink.zip (7 KB)
Ganzen Artikel lesen...
Lernen Sie die ganze Vielfalt vom Franzis Buch- und Softwareverlag kennen
