Video vom ersten Testflug mit WS2812B

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • Video vom ersten Testflug mit WS2812B

      Hi zusammen,

      ein kleines Video von einigen WS2812B Effekten. Leider hat meine Kamera Probleme beim Zusammentreffen von schlechten Lichtverhältnissen, Autofokus und Zoom, daher kommen die Effekte in der Luft nicht so gut rüber wie in der Realität.
      Noch werden keine Effekte über die Fernsteuerung geschaltet, kommt noch, sobald ich genau weiß, was ich will. :rolleyes:

      Die Flüge dienten zum Testen der Effekte auf Ihre "Flugtauglichkeit".
      Während einer Wende hätt's beim Knight Rider Effekt bald gekracht, war keine Fluglage mehr erkennbar a_28_2c02f089

      Bester Effekt ist immer noch tschoeatsch's Plastikfeuer-Laterne.
      Weitere Effekte folgen (sobald ich weiß, wie man sie programmiert :whistling: )

      An dieser Stelle nochmals vielen Dank an alle Beteiligten, Ihr seit für mich die Größten :thumbsup:

      Gruß
      Robert

    • Hallo Robert, a_263_6156a488
      freu mich dass du auch hier bist
      hier mal ein Test Code von mir, du suchst doch bestimmt noch Effekte,
      Modus kann man umstellen 1(Weis) oder 2(Farbe)
      Ist sozusagen "Feuerwerk" für arme
      Viel Spaß damit

      Quellcode

      1. '*************************
      2. '------< AVR >------------
      3. '*************************
      4. $regfile = "m8adef.dat"
      5. $crystal = 16000000
      6. $hwstack = 40
      7. $swstack = 16
      8. $framesize = 64
      9. '**************************
      10. '---------< E/A >----------
      11. '**************************
      12. Ddrb = &B11111111 'port c 1 Ausgänge / 0 Eingänge
      13. Ddrc = &B11110011 'port c 1 Ausgänge / 0 Eingänge
      14. Ddrd = &B11111111 'port d 1 Ausgänge / 0 Eingänge
      15. '**************************
      16. '--------< Const >---------
      17. '**************************
      18. Const Modus = 1 '1-3
      19. Const Gesch = 2
      20. Const Num_leds = 60
      21. Const Leds = 12
      22. Const Num_leds_1 = Num_leds - 1
      23. Const Num_leds_x = Num_leds - Leds
      24. Const Start_timer0 = 241
      25. '*****************************
      26. '----------< Dim >-----------
      27. '*****************************
      28. Dim Farbe(3) As Byte
      29. Dim Farb(3) As Byte
      30. Dim Zaehler_uhr As Word
      31. Dim Richtung As Byte
      32. Dim Pos As Byte
      33. Dim Zaehler As Byte
      34. Dim Adc0 As Integer
      35. Dim Farb_wert As Word
      36. Dim Dimmen As Byte
      37. Dim Merker As Byte
      38. Dim Z As Byte
      39. Dim Pos_z As Byte
      40. '*****************************
      41. '--------< Config >-----------
      42. '*****************************
      43. Config Rainbow = 1 , Rb0_len = Num_leds , Rb0_port = Portc , Rb0_pin = 3
      44. Config Timer0 = Timer , Prescale = 1024
      45. Config Adc = Single , Prescaler = Auto , Reference = Avcc
      46. '*****************************
      47. '--------< Alias >------------
      48. '*****************************
      49. Rot Alias Farbe(_base)
      50. Gruen Alias Farbe(_base + 1)
      51. Blau Alias Farbe(_base + 2)
      52. R Alias Farb(_base)
      53. G Alias Farb(_base + 1)
      54. B Alias Farb(_base + 2)
      55. Led_1 Alias Portd.5 'run LED
      56. Led_2 Alias Portd.6
      57. Led_3 Alias Portd.7
      58. '*****************************
      59. '------< funktion >-----------
      60. '*****************************
      61. Declare Function Rb_getcolor_wa(byval Lednr As Word)as Byte 'nötig wegen noch nicht richtig funktionierendem Rb_getcolor
      62. '*****************************
      63. '----< Timer/Interrupt>-------
      64. '*****************************
      65. Timer0 = Start_timer0
      66. On Timer0 Timer_0 'timer 0 überlauf --> unterprogramm timer_0
      67. Enable Timer0
      68. Enable Interrupts
      69. Rb_selectchannel 1
      70. #if Modus = 1
      71. Do
      72. Pos_z = Rnd(num_leds)
      73. Rot = 200
      74. Gruen = 200
      75. Blau = 200
      76. For Dimmen = 200 To 0 Step -20
      77. Rot = Dimmen
      78. Gruen = Dimmen
      79. Blau = Dimmen
      80. Rb_setcolor Pos_z , Farbe() ' Farbe in den Farbspeicher schreiben
      81. Rb_send
      82. Next
      83. Toggle Led_1
      84. Loop
      85. End
      86. #endif
      87. #if Modus = 2
      88. Do
      89. Pos_z = Rnd(num_leds)
      90. Rot = 200
      91. Gruen = 200
      92. Blau = 200
      93. While Merker < 7
      94. If Rot > 10 Then
      95. Rot = Dimmen - Rnd(10)
      96. Else
      97. Merker.0 = 1
      98. Rot = 0
      99. End If
      100. If Gruen > 10 Then
      101. Gruen = Dimmen - Rnd(10)
      102. Else
      103. Merker.1 = 1
      104. Gruen = 0
      105. End If
      106. If Blau > 10 Then
      107. Blau = Dimmen - Rnd(10)
      108. Else
      109. Merker.2 = 1
      110. Blau = 0
      111. End If
      112. Rb_setcolor Pos_z , Farbe() ' Farbe in den Farbspeicher schreiben
      113. Rb_send
      114. Dimmen = Dimmen - 5
      115. Wend
      116. For Z = 0 To 2
      117. Merker.z = 0
      118. Next
      119. Toggle Led_1
      120. Loop
      121. End
      122. #endif
      123. #if Modus = 3
      124. Farb_wert = 20
      125. For Pos = 1 To Leds
      126. If Pos < 5 Then
      127. Farb_wert = Farb_wert * 2
      128. Rot = Farb_wert
      129. End If
      130. If Pos = 5 Or Pos = 6 Or Pos = 7 Then Rot = 255
      131. If Pos > 7 Then
      132. Farb_wert = Farb_wert / 2
      133. Rot = Farb_wert
      134. End If
      135. Gruen = 0
      136. Blau = 0
      137. Rb_setcolor Pos , Farbe() ' Farbe in den Farbspeicher schreiben
      138. Rb_send
      139. Next
      140. Start Adc
      141. Do
      142. 'Adc0 = Getadc(0) * 10.0048828125 'poti
      143. Adc0 = 50 'kein poti
      144. If Zaehler_uhr > Adc0 Then
      145. Zaehler_uhr = 0
      146. Toggle Led_1
      147. If Richtung = 0 Then
      148. Incr Zaehler
      149. Rb_shiftright 0 , Num_leds 'shift to the right all leds except the last one
      150. If Zaehler = Num_leds_x Then Richtung = 1
      151. End If
      152. If Richtung = 1 Then
      153. Decr Zaehler
      154. Rb_shiftleft 0 , Num_leds 'shift to the right all leds except the last one
      155. If Zaehler = 0 Then Richtung = 0
      156. End If
      157. Rb_send
      158. End If
      159. Loop
      160. End
      161. Hintergrundfarbe:
      162. Rot = 0 '200
      163. Gruen = 0 ' 200
      164. Blau = 0 '200
      165. Return
      166. Sollfarbe:
      167. Rot = 255
      168. Gruen = 0
      169. Blau = 0
      170. Return
      171. #endif
      172. '**************************
      173. '-------< Timer >----------
      174. '**************************
      175. Timer_0: '1 ms
      176. Timer0 = Start_timer0
      177. Incr Zaehler_uhr
      178. Return
      179. Function Rb_getcolor_wa(byval Lednr As Word)as Byte 'nötig wegen noch nicht richtig funktionierendem Rb_getcolor
      180. $external Rb_getcolor
      181. LDD ZL , Y+0
      182. LDD ZH , Y+1
      183. LD R24 , Z+
      184. LD R25 , Z
      185. LDD XL , Y+2
      186. LDD XH , Y+3
      187. RCall RB_GetColor
      188. End Function
      Alles anzeigen

      Gruß
      businski
    • businski schrieb:

      Hallo Robert,
      freu mich dass du auch hier bist
      Hallo businski,
      na, den Spaß hier lass ich mir doch nicht entgehen a_170_58e0202d

      Modus kann man umstellen 1(Weis) oder 2(Farbe)
      ... und den Modus 3 (offensichtlich auch ein Zylonen Scanner) wolltest Du mir wohl verschweigen a_481_60a3be70

      Schön wieder bei Euch zu sein :D

      Gruß
      Robert

      PS: Bezüglich WS2812B Effekte hoffe ich, dass wir bald wieder eine größerer Sammlung (ähnlich wie bei den Ardurianern) aufbauen werden. Ich denk mal, tschoeatsch wird hier seine Plastikflammen-Laterne (und vieles mehr) auch wieder einstellen.
    • Hallo Robert,

      a_57_04ef5ee8

      Sehe ich das richtig, dass Du EPP als Diffusor benutzt?
      Ich möchte in einem Modell der Enterprise aus dem Film "Into Darkness" (Gesamtlänge ca. 58cm)
      den Warpgondeln einen entsprechenden Effekt verpassen. Es sollen keine Einzel-LEDs sichtbar sein.

      Viele Grüße
      Mathias
      Heisenberg bei einer Radarkontrolle:
      Polizist: "Wissen Sie, wie schnell Sie waren?"
      Heisenberg: "Nein. Aber ich weiß genau, wo ich jetzt bin!"

    • mac5150 schrieb:

      Modell der Enterprise aus dem Film "Into Darkness"
      Ich hab grad mal gegoogelt (ääh, ge-startpaged)
      cygnus-x1.net/links/lcars/blue…e-ncc-1701-b-sheet-12.jpg
      Da gibt es ja eine Menge unterschiedliche Versionen. Die aus into darkness ist nicht dabei...



      mac5150 schrieb:

      den Warpgondeln einen entsprechenden Effekt verpassen.
      mit WS2812B? Sind die nicht viel zu groß dafür?
    • Michael schrieb:

      mit WS2812B? Sind die nicht viel zu groß dafür

      mac5150 schrieb:

      Ich möchte in einem Modell der Enterprise aus dem Film "Into Darkness" (Gesamtlänge ca. 58cm)
      Das Model von mac5150 ist doch fast schon begehbar :D

      kennt ihr das?
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------
    • Hallo Mathias,

      mac5150 schrieb:

      Sehe ich das richtig, dass Du EPP als Diffusor benutzt?
      Ja, so isses. Je nach Flügeldicke sind rund 1-2 cm EPP Vollmaterial über den LEDs.
      Die Strips sind auf der Flügelunterseite aufgebracht, die LEDs laufen hierbei in einer vorher freigebrannten Nut. Hier zwei Bilder dazu (allerdings sieht man darauf "normale" RGB Strips)

      roberts-r2d2-bau.de/fmbbilder/Night_Wing_39.jpg
      roberts-r2d2-bau.de/fmbbilder/Night_Wing_40.jpg

      Bei einem früheren (hohlem) Nachtflugmodell musste ich ca. 4cm zwischen LEDs und EPP halten, damit keine einzelnen LED-Punkte (Hotspots) sichtbar waren:

      roberts-r2d2-bau.de/fmboutdoor.html#Nightflight

      Man muss immer etwas experimentieren. Allerdings seh ich es ähnlich wie meine Vorredner: Bei einer Modellgröße von 58 cm könnten die WS2812B etwas zu groß sein. Und Du bräuchtest mindestens die Strips mit 144 LEDs/m (meine haben 60/m). Welchen Durchmesser haben die Gondeln bei Deinem Modell?

      Gruß
      Robert
    • Hallo Robert,

      entschuldige bitte die späte Antwort.
      144er habe ich.
      Eigentlich handelt es sich um zwei Modelle, die Beleuchtung erhalten sollen.

      Wie schon gesagt, die
      USS Enterprise aus dem Film „Into Darkness“
      revell.de/produkte/modellbau/raumfahrt-scifi/id/04882.html
      und die
      USS Voyager.
      revell.de/produkte/modellbau/raumfahrt-scifi/id/04801.htm

      Für die Bussard-Kollektoren (die Kuppeln vorne an den Gondeln) der Enterpise hat man
      sich einen rotierenden Effekt ausgedacht:

      youtube.com/watch?v=t48Qy3sYx6o

      Hier ist der Effekt bei 2:20, 3:08, 5,04 einigermaßen gut zu sehen.

      Es gibt zwar fertige Module – deren Effekt gefällt mir aber nicht.

      youtube.com/watch?v=2pvZFxrp-wI

      youtube.com/watch?v=f06jh_erc3U
      ab 4:20

      Die Klarsichtteile der Bussard-Kollektoren des Modells haben einen Durchmesser von
      ca. 35mm.


      Bei der Voyager ist die Sache einfacher:
      youtube.com/watch?v=5cbPLzK1dv…E_iyK0Ly76zFhAJ8Ykemuewa1

      youtube.com/watch?v=Ug0qLi0Cb80

      In den Gondeln Blau.
      Um den Geschwindigkeitseffekt zu simulieren:
      Von vorn nach hinten schnell auf 100% Blau und dann ein kurzer, weißer
      „Warp-Blitz“, danach wieder ca. 80% Blau.

      Viele Grüße
      Mathias
      Heisenberg bei einer Radarkontrolle:
      Polizist: "Wissen Sie, wie schnell Sie waren?"
      Heisenberg: "Nein. Aber ich weiß genau, wo ich jetzt bin!"

    • Hi Mathias,

      hab mir die Videos und die Effekte nun angesehen: Bei der Enterprise aus dem Film „Into Darkness“ wird das mit den WS2812B nichts, sind viel zu groß um die benötigte Anzahl unter zu bringen. Der Effekt im Film sieht aus, als ob sich vor vielen kleinen LEDs ein vielblättriger Propeller oder Turbinenverdichterrad langsam drehen würde. a_68_7bac02a1
      Bei der Voyager sollte es aber gehen. Ich hab gerade nochmal ein paar EPP-Reste auf die WS2812B gelegt. Ab ca. 1 cm Dicke sind die einzelnen LEDs nur noch schwer auszumachen. Bei mehr als 2,5 cm Dicke nimmt die Helligkeit deutlich ab. Innerhalb dieser Dicken kann mal also mit dem EPP (20g/dm³) das Licht gut streuen.

      Nette Grüße
      Robert
    • Danke Robert,

      dann werde ich mal mit Lichtleitern experimentieren.

      Bei der Voyager wird die EPP-Dicke ein Problem. Eventuell muss ich das indirekt
      und/oder mit einem anderen Diffusormaterial (Depron?) lösen.

      Viele Grüße
      Mathias
      Heisenberg bei einer Radarkontrolle:
      Polizist: "Wissen Sie, wie schnell Sie waren?"
      Heisenberg: "Nein. Aber ich weiß genau, wo ich jetzt bin!"

    • Als unwissender Betrachter sehe ich nur blaues Licht. Brauchst du dazu RGBLeds? Oder sind dir blaue Leds zu blau? Dann vielleicht blaue und weiße mischen?
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------
    • @tschoeatsch Die Lichtfarbe würde ich vielleicht minimal ändern; es geht mit hauptsächlich um die verschiedenen Helligkeiten.
      Und dann den weißen "Warpblitz".

      @Michael Verschiedene Papiersorten hatte ich bei einem anderen Projekt schon mit eher durchwachsenen Ergebnissen getestet.
      Was mir soeben spontan eingefallen ist, ist ein dünner Sandwich Papier - silberner Dekostoff - Papier.
      Muss ich mal meine Chefin fragen... a_17_af3b400f
      Heisenberg bei einer Radarkontrolle:
      Polizist: "Wissen Sie, wie schnell Sie waren?"
      Heisenberg: "Nein. Aber ich weiß genau, wo ich jetzt bin!"