AVR c Programm Snowfall

Lötmeister · 4. Dezember 2012

Zitat von wallace

Nur mal als Beispiel:

Dies ist aber eben leider nur eine 110-Volt-Variante ...

2BigUS · 5. Dezember 2012

Sorry das ich mich so kurz gehalten habe. Ich dachte Du kennst einen Versand wo man die Teile einzeln kaufen kann. Weil Du den Preis per Stück in Deinem Beitrag gepostet hast. Somit dachte ich Du kennst eine Chinaschleuder oder eben einen Versand irgendwo. Und 110V sind für mich kein Problem
hab einige 110V Trafos zu Hause.

Danke nochmals für Deine Hilfe

Gruß Uwe

[ModEdit: nutzlosen Fullquote entfernt ...]

wallace · 5. Dezember 2012

Zitat von Lötmeister

Dies ist aber eben leider nur eine 110-Volt-Variante ...

Da hast du allerdings Recht, aber da wir ja im Bastlerforum sind sollte es wohl kein Problem sein ein passendes Netzteil anzuschließen. Desweiteren wird es vermutlich eh ein normales Weitbereichsnetzteil sein, die ja bekanntlich von 100-240V AC funktionieren.

Wenn das zu schwierig ist kannst du natürlcih auch die 100-240V Variante nehmen:

http://www.ebay.de/itm/30CM-8-…196?pt=LH_DefaultDomain_0

paralux · 5. Dezember 2012

weiß einer wie diese Zapfen funktionieren? hat die mal einer auseinander genommen? ich habe gesehen das da ein 8pin IC, 1Diode und die LEDs drin sind aber viel mehr ist da auch nicht.

Stachel · 5. Dezember 2012

In diesen Teilen sind nur jeweils 30 LEDs und ein IC mit 14 Pins verbaut, weitere Bauteile gibt es nicht.
Das etwas längere Nachleuchten am Ende gefällt mir sehr gut.

Pesi · 5. Dezember 2012

Paralux: Schau' mal den von mir verlinkten Post an - der 8-Pin-IC ist ein kleiner µC mit dem Programm drauf, die LEDs werden dann wohl per Charlieplexing angesteuert, bei nem µC mit 8 Pins bleiben noch 6 für die LEDs über, damit kann man genau 30 LEDs ansteuern...

und wenn's ein IC mit 14 Pins ist, dann geht das auch als normale Matrix (6 x 5 = 11 Leitungen)

paralux · 5. Dezember 2012

ja hab ich gefunden Pesi, danke. ich habe mir auf die schnelle auch ein Eiszapfen gebaut. Der hat 15 LEDs und wird mit einem ATmega48 betrieben.

Code

'##################
'# EISZAPFEN 1.01 #
'#            	#
'#  paralux 2012  #
'##################


$regfile = "m48def.dat"
$crystal = 8000000




 'PWM
Config Timer0 = Pwm , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Config Timer2 = Pwm , Compare B Pwm = Clear Down , Prescale = 1


'C5-0 als Ausgang
Config Portc.5 = Output                                 	'LED 15
Config Portc.4 = Output                                 	'LED 14
Config Portc.3 = Output                                 	'LED 13
Config Portc.2 = Output                                 	'LED 12
Config Portc.1 = Output                                 	'LED 11
Config Portc.0 = Output                                 	'LED 10


'B5-0 als Ausgang
Config Portb.5 = Output                                 	'LED 09
Config Portb.4 = Output                                 	'LED 08
Config Portb.3 = Output                                 	'LED 07
Config Portb.2 = Output                                 	'LED 06
Config Portb.1 = Output                                 	'LED 05
Config Portc.0 = Output                                 	'LED 04


                                                   	'OCR0A   LED 03
                                                   	'OCR0B   LED 02
                                                   	'OCR2B   LED 01
Dim A As Integer
Dim B As Byte
Dim W1 As Byte
Dim W2 As Byte
Dim W3 As Byte
Dim W4 As Byte


Dim Pause As Word


'tropfen abfall geschwindigkeit
'Version 1
W1 = 30
W2 = 30
W3 = 30
W4 = 30


'Version 2
'W1 = 50
'W2 = 30
'W3 = 20
'W4 = 5




Do


B = Rnd(3)


Select Case B
   Case 0 :
  	Pause = 250
   Case 1 :
  	Pause = 400
   Case 2 :
  	Pause = 600
End Select


'   	PIN:
'       	543210
Portc = &B00100000
'       	543210
Portb = &B00000000


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W1


'       	543210
Portc = &B00110000
'       	543210
Portb = &B00000000


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W1


'       	543210
Portc = &B00111000
'       	543210
Portb = &B00000000


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W1


'       	543210
Portc = &B00011100
'       	543210
Portb = &B00000000


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W1


'       	543210
Portc = &B00001110
'       	543210
Portb = &B00000000


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W1


'       	543210
Portc = &B00000111
'       	543210
Portb = &B00000000


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W1


'       	543210
Portc = &B00000011
'       	543210
Portb = &B00100000


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W2


'       	543210
Portc = &B00000001
'       	543210
Portb = &B00110000


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W2


'       	543210
Portc = &B00000000
'       	543210
Portb = &B00111000


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W2


'       	543210
Portc = &B00000000
'       	543210
Portb = &B00011100


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W3


'       	543210
Portc = &B00000000
'       	543210
Portb = &B00001110


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W3


'       	543210
Portc = &B00000000
'       	543210
Portb = &B00000111


Ocr0a = 0
Ocr0b = 0
Ocr2b = 0


Waitms W3


'       	543210
Portc = &B00000000
'       	543210
Portb = &B00000011


Ocr0a = 255
Ocr0b = 0
Ocr2b = 0


Waitms W4


'       	543210
Portc = &B00000000
'       	543210
Portb = &B00000001


Ocr0a = 255
Ocr0b = 255
Ocr2b = 0


Waitms W4


'       	543210
Portc = &B00000000
'       	543210
Portb = &B00000000


Ocr0a = 250
Ocr0b = 250
Ocr2b = 255


Waitms W4


'Die letzten 3 LEDs über PWM runter dimmen


'LED 03 dimm dauer 124 ms
A = 248
Eins:
If A = 0 Then
   A = 245
   Goto Zwei:
Else
   A = A - 2
   Ocr0a = A                                            	'3t letzte LED
   Waitms 1
   Goto Eins:
End If


'LED 02 dimm dauer 250 ms
Zwei:
If A = 0 Then
   A = 250
   Goto Drei:
Else
   A = A - 1
   Ocr0b = A                                            	'2t letzte LED
   Waitms 1
   Goto Zwei:
End If


'LED 01 dimm dauer 500 ms
Drei:
If A = 0 Then
   Goto Ende:
Else
   A = A - 1
   Ocr2b = A                                            	'letzte LED
   Waitms 2
   Goto Drei:
End If


Ende:


Waitms Pause


Loop




End

Alles anzeigen

Hier die HEX-Datei der Version 1 & 2
Eiszapfen.zip

Und den Schaltplan für die Anfänger.

Das Programm ist in BASCOM und recht simple gemacht. die letzten 3 LEDs werden über PWM gedimmt. Das ganze sieht dann so aus.

Externer Inhalt www.youtube.com

Inhalte von externen Seiten werden ohne Ihre Zustimmung nicht automatisch geladen und angezeigt.

Durch die Aktivierung der externen Inhalte erklären Sie sich damit einverstanden, dass personenbezogene Daten an Drittplattformen übermittelt werden. Mehr Informationen dazu haben wir in unserer Datenschutzerklärung zur Verfügung gestellt.

grüße
paralux

Pesi · 5. Dezember 2012

Na, das ist doch echt gut geworden!

"Feinschliff" (nur als Tipp zu verstehen!):

- man könnte die Pausen nach unten hin immer etwas kürzer machen, dann wird der "fallende Tropfen" immer schneller, so wie in echt ja auch.

- das Nachleuchten finde ich ein bisschen zu lang im Vergleich zur Falldauer, aber das ist ja auch Geschmackssache...

cool wäre nun noch ne .hex-Datei zum direkt flashen, dann würden wohl ein paar mehr Leute das noch vor Weihnachten nachbauen...

paralux · 6. Dezember 2012

habe jetzt mein vorherigen Beitrag editiert und die HEX-Dateien und ein Schaltplan hinzugefügt. Den Programm-Code habe ich auch aktualisiert. Vielleicht gibt es jemanden der den BASCOM-Code in C übersetzten will. Ansonsten viel Spaß beim nachbauen.

grüße
paralux

Phillux · 6. Dezember 2012

Sauber Paralux, einfach schnell mal einen funktionierenden Code aus der Tasche zu zaubern Werde ich auch mal antesten und auf die lange ToDo-Liste nehmen. Sollte wohl auch mit einem Mega88 gehen, oder? Habe momentan keinen Mega48 hier. Doch bevor ich Bascom-Demo installiere, ist der Code noch innerhalb der 2k - Grenze?

Gruss Phillux

paralux · 6. Dezember 2012

ja die HEX Datei kann sogar noch auf ein 328 laufen habs ausprobiert und der BASCOM-Code liegt weit unter 2K benutze auch die DEMO

grüße
paralux

Playfield · 20. Dezember 2012

Mein Paket aus China ist eben angekommen..

Die Verarbeitung von den Lichtern ist ziemlich schlecht, aber zu dem Preis habe ich nichts erwartet. Das Netzteil habe ich direkt ausgetauscht, es ist zwar ein universal 110V-230V Netzteil, jedoch billigster Bauweise.

Das Netzteil gibt ne Spannung von 5 Volt raus, Imax 1000mA. Leider haben unsere chinesischen Freunde absolut alle Widerstände vergessen... Auf der Platine ist noch ein IC der aussieht wie ein NE555. Leider ist der nicht beschriftet, aber ich gehe mal nicht davon aus, dass der außer sein Lauflicht-Programm noch andere Aufgaben hat, oder?

Da die Platinen lackiert sind, kann ich nicht sagen wie die Schaltung aufgebaut ist. Bei einer Betriebsspannung von 5V ist davon auszugehen, dass einfach jede LED parallel dran hängt, oder ? Wenn jetzt nun der IC seine 5 V gerne hätte, kann ich da ja groß nichts mit Vorwiderständen erreiche. Was würdet Ihr machen?

http://www.youtube.com/watch?f…er_embedded&v=sOVyM4jZYIg