Hallo zusammen,

für ein RKL würde ich gerne einen LED auf- und abdimmen. Als µC möchte ich einen Tiny25 nutzen. Ein Tiny13 wäre auch machbar.

Hat von Euch jemand mal ein kleines Beispielprogramm für sowas ?

Hi Sven,

welche Programmiersprache willst Du haben? In Bascom könnt ich Dir schon was anbieten...


Gruß
Gerhard

Hi Gerhard,

da ich diesen Beitrag im Forum Bascom erstellt habe, hätte ich es gerne in Bascom. Aber du hast Recht, ich hätte es auch nochmal dazu schreiben können.

ahhh, jetzt seh ich es auch :-)

Wenn´s ganz einfach werden soll, würd ich einfach die Hardware-PWM des Timer0 verwenden. Dann in der Hauptschleife den PWM-Wert rauf und wieder runter zählen.

Oder hast Du noch andere Vorstellungen bzw. Vorgaben?

Das ich es verstehen soll, muss es GANZ EINFACH sein.

Habe keine besonderen Vorgaben. Möchte einfach nur einen Rundumleuchte ( für den Liebherr ) simulieren. Ich denke nur wenn man sie ein wenig auf und abdimmt sieht es originalgetreuer aus, als nur an / aus. Oder was meinst du ?

so jetzt aber gaaaanz einfach:

$regfile = "attiny25.dat"
$crystal = 8000000
$hwstack = 50
$swstack = 10
$framesize = 40
 
'Timer0 als PWM konfigurieren
Config Timer0 = Pwm , Compare A Pwm = Clear Up , Prescale = 256
Pwm0a = 0
Enable Timer0
Start Timer0
Enable Interrupts
 
'Variablen definieren
Dim I As Byte
 

Do
'rauf
For I = 0 To 255
    Pwm0a = I
    Waitms 2
Next I
 
'kurz halten
Waitms 200
 
'runter
For I = 255 To 0 Step -1
   Pwm0a = I
   Waitms 2
Next I
 
'kurz halten
Waitms 200
 
'und wieder von vorne
Loop
 
End
 

Erklärung der PWM z.B. hier:
http://www.bunbury.de/Technik/avr/bascom.htm#PWM

Welche Bascom-Versin nutzt Du? Bei alten Versionen unter V2 gibt´s einen Bug bzgl. Tiny25 und Timer-Configuration.
Und vergiß nicht die richtige Oszillator-Frequenz einzustellen -> $Crystal
dann noch bischen mit den Wait´s spielen und fertig.

Vielen Dank Gerhard !

Da werde ich doch mal ein bißchen mit Spielen. Ich persönlich lerne irgendwie am besten, wenn ich ein fertiges Programm habe. So lerne ich die Zusammenhänge besser und kann sie dann später selber anwenden.

Ich nutze übrigens die Version 2.0.5.0

Nun werde ich mal schauen, was dabei raus kommt.

Mal eine blöde Frage ... Ich muss doch noch den Ausgangspin festlegen und die LED ein bzw. ausschalten, oder ?

Moment, ich glaube das war doof was ich da eben geschrieben habe. Wenn ich das richtig sehe, kommt die LED an PB0 ( Oc0A ), oder ?

Nagel mich jetzt nicht fest, aber meiner Meinung nach ist das Konfigurieren des Pins auf Ausgang nicht nötig, macht Bascom selbst. Kannst aber zur Sicherheit noch das vor der Do-Loop Einfügen:
Config Portb.0 = Output

Das Ein- und Ausschalten der LED macht die PWM. Da kannst Du gar nix machen. Einfach den PWM-Wert ändern und gut ist´s.

Edit: Ich war wohl zu langsam...
LED an PB.0 -> Richtig

Hmmm, ich habe es nun mal versucht. Bisher leuchtet die LED nur. Habe verschiedene Werte versucht. Die LED ist mit GND an PB0. Den Ausgang habe ich nochmal definiert.

EDIT Ich nehme alles zurück !!! Es war mein Fehler ! Nun funktioniert es !

hab grad mein Eval-Board rausgekramt, hätte mich doch stark gewundert, wenn´s nicht geklappt hätte...

Gefühlt würd ich´s noch schneller auf und abblinken lassen. Entweder die Wait´s in den For-Next-Schleifen verkleinern oder mit grösserer Schrittweite zählen:
For I = 0 To 255 Step 2

Hi Sven,

das Blinken ist richtig gut geworden. Für später mal, hier hat Sven das Ergebnis gepostet:
Liebherr 954 MAX Wild "Abbruch" (4)

Wie rum hast Du die LED angeschlossen? Im fertigen Code schreibst Du:

Zitat

---

LED kommt an PB0 ( Pin 5 ). Geschaltet wird über GND.

---

Versteh ich es richtig, daß Du den Plus-Pol der LED mit dem Attiny verbunden hast?
Das macht bei der einen LED noch nichts aus, jedoch wenn Du mal mehr Strom verbauchst, wäre es besser, wenn Du die LED nicht mit dem Tiny versorgen würdest. Also Attiny - LED - Plus.


Gruß
Gerhard

Hi Gerhard,

ich schalte über GND. Damit meine ich, dass der VCC der LED am VCC hängt. GND der LED hängt am Tiny. :) Das mache ich eigentlich immer so.

na dann ist´s ja gut