easy-Moodlamp
Hallo Leute,
nachdem die Dateien etwas auf meiner Festplatte gereift sind, veröffentliche ich heute das OpenSource-Projekt easy-Moodlamp, welches der Creative Commons Licence unterliegt. Nachbau erfolgt auf eigene Gefahr.
Die Idee ist nicht neu, aber ich wollte eine Plattform bieten, wo jeder das Projekt beliebig erweitern kann z.B. um eine ISP-Schnittstelle, Funktionsschalter usw…
Das Grundkonzept ist recht simpel. Wenn ihr also etwas verbessert oder verändert habt, teilt es mir einfach mit. Ich freue mich über jeden Vorschlag und jede Idee die den Weg zu mir findet 
Hier der Schaltplan:
Auf Anfrage könnt ihr den Schaltplan für Eagle oder als PDF bekommen. Die Widerstände R7, R9, R11 sollten nach LED angepasst werden. Empfehlen kann ich eine Seoul Z-LED P5.
Den Quellcode für den μC find ihr im folgenden Text.
Dieser wurde in Bascom geschrieben:
$regfile = “attiny2313.dat”
$crystal = 8000000Ausgabepins definieren
Config Pinb.2 = Output
Config Pinb.3 = Output
Config Pinb.4 = Output‘Die Timer auf PWM stellen
Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm
= Clear Down
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down ,
Compare B Pwm = Clear Down‘Ein paar Variablen deklarieren
Dim Color_delay As Byte
Dim Color_stop As Byte
Dim Rgb As Byte‘Die PWM-Register zuweisen
Led1 Alias Ocr1bl ‘PWM-Pin 1 – Rot
Led2 Alias Ocr1al ‘PWM-Pin 2 – Grün
Led3 Alias Ocr0a ‘PWM-Pin 3 – Blau‘Startwert für die Schleife
Rgb = 0
‘Farbwechsel Geschwindigkeit pro Schritt (empfohlen 1-15)
Color_delay = 4
‘Dauer der Pause bei der Grundfarbe (empfohlen 1-10)
Color_stop = 4‘Mal die Farben nacheinander schalten,
‘kann gelöscht werden!Led1 = 200
Waitms 200
Led1 = 0
Led2 = 200
Waitms 200
Led2 = 0
Led3 = 200
Waitms 200‘Jetzt kommt der Spaß, aber es funzt!
DoIf Rgb = 0 Then
Incr Led1
Decr Led3
Waitms Color_delay
End IfIf Led1 = 255 Then
Rgb = 1
Led3 = 0
Wait Color_stop
End IfIf Rgb = 1 Then
Decr Led1
Incr Led2
Waitms Color_delay
End IfIf Led2 = 255 Then
Rgb = 2
Led1 = 0
Wait Color_stop
End IfIf Rgb = 2 Then
Decr Led2
Incr Led3
Waitms Color_delay
End IfIf Led3 = 255 Then
Rgb = 0
Led2 = 0
Wait Color_stop
End IfLoop
End
Ich wünsche euch viel Spaß beim basteln 
Loading ...Sie können einen Kommentar hinterlassen, oder den Feed abonnieren, um in Zukunft über neue Artikel informiert zu werden.
[...] aufmerksam auf das Projekt, als ich bemerkte, dass der Sourcecode dieses Faders auf der Basis der easy-Moodlamp arbeitet. Daher stelle ich diesen Projekt heute auch hier [...]