Hallo
Ich bin einsteiger im thema mikrocontroller und habe hier etwas
schwierigkeiten. Ich möchte eine Led langsamm zum Leuchten bringen.
Habe folgendes Programm:
$regfile = "attiny13.dat"
$crystal = 120000
$hwstack = 10
$swstack = 10
$framesize = 24
Config Portb = Output
Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Down
Dim A As Integer
Dim B As Integer
B = 0
A = 0
Do
Portb = A
B = B + 1
If B = 500 Then
A = A + 0.6
B = 0
End If
Loop
End
Aber irgendwie blinkt die LED immer nur. Sollte der Ausgang PortB nicht
immer +0.6 sein, also die LED leuchtet immer Heller? Oder ist das voll
Falsch?
Habe die Led am Ausgang PB4 mit einem Vorwiederstand.
Danke für die antwort
Grus
Marcelo
Siehe LED-Fading. Und auf einen Port eine Zahl zu schreiben ist reichlich sinnlos in diesem Fall. Versuch mal die Zahl in OCRA0 zu schreiben. Stichwort PWM. Und 0,6 auf eine Integer addieren ist auch nicht so ganz erfolgreich. MfG Falk
Antwort schreiben
Bitte melde dich an, um einen Beitrag zu schreiben.