Zedomax DIY123
From Zedomax Wiki
HOW TO make a Christmas LED Wreath!
Contents |
Parts List
or you can get a Make POV kit and just put some high output LEDs on it.
We noticed Alan's LED store had much cheaper price for same high output LEDs we'd usually get at Jameco.
- 1 Plastic Case from Poker cards
- 1 Ryobi rechargeable fan from Home Depot
- 8 100 to 330 Ohm resistors (We used 100 Ohms for high output LEDs)
- 1 Terminal Pin thingee (for connecting PCB board together)
- 1 9V or 12V battery (we noticed 12V battery for cameras are smaller and lighter)
HOWTO
First, we try to fit the protoboard, the plastic case, and the 9V battery onto the fan.
Then we cut up the protoboard into some pieces and soldered it together like shown here:
Next, we soldered up all the LEDs, making sure the shorter side is inserted onto label GND, which is ground of course.
Next, solder up the rest of the parts of the CB220 Proto-board...
Solder on the 8 resistors onto the I/O pins. The other end of the resistor will goto each of the LEDs. You can also solder on a 9V battery connector. (get it from Alan's store too)
Download the program and power up the module: (The program source is at the end of the HOWTO) You should end up with a nice little package like this:
Next cut off pieces of the plastic case so the proto-board will fit and
balance your proto-board, plastic case, and the battery together on your finger like this:
Make sure to mark the spot with a marker
Next you can align the spot with the center of the fan and drill 3 holes to hold the plastic case.
Make sure to high five your partner if you made it to this point! Max is high fiving Garrett here:
Next, power on the module combo and start enjoying some Merry Leddy Christmas!
Gallery
Source Code
CUBLOC Basic source code for the Christmas LED Wreath:
Const Device = CB220 Const Byte Charset = ( 'Merry! 0b10000111, 0b00001000, 0b11110000, 0b00001000, 0b00000111, 0b10000110, 0b01001001, 0b00101001, 0b00011001, 0b11111111, 0b10000110, 0b01001001, 0b00101001, 0b00011001, 0b11111111, 0b10010001, 0b10010001, 0b10010001, 0b10010001, 0b11111111, 0b11111111, 0b00001100, 0b00110000, 0b00001100, 0b11111111, 'x-mas 0b01110000, 0b10001001, 0b10001001, 0b10001001, 0b10000111, 0b11111110, 0b00001001, 0b00001001, 0b00001001, 0b11111110, 0b11111111, 0b00001100, 0b00110000, 0b00001100, 0b11111111, 0b00011000, 0b00011000, 0b00011000, 0b00011000, 0b00011000, 0b10000001, 0b01100110, 0b00011000, 0b01100110, 0b10000001, 'animation 0b00000001, 0b00000011, 0b00000111, 0b00001111, 0b00011111, 0b00111111, 0b01111111, 0b11111111, 0b01111111, 0b00111111, 0b00011111, 0b00001111, 0b00000111, 0b00000011, 0b00000001, 'more animaes2! 0b01010101, 0b10101010, 'animae 3 0b10000001, 0b11000011, 0b11100111, 0b11111111, 0b00011000, 0b00111100, 0b01111110, 0b11111111) Dim i As Byte Dim j As Byte Dim k As Byte Dim delaytime As Integer Dim Character As Byte Dim flip As Byte flip=0 delaytime=0 j=0 On Timer(17) Gosub displayLED Do If flip=40 Then j=10 For k=0 To 3 For i = 0 To 14 Byteout 1, Charset(j*5+i) Delay 200 Byteout 1, 0 Next Next For k=0 To 10 For i=15 To 16 Byteout 1, Charset(j*5+i) Delay 200 Byteout 1, 0 Next Next For k=0 To 5 For i=18 To 25 Byteout 1, Charset(j*5+i) Delay 200 Byteout 1, 0 Next Next flip=0 End If Loop displayLED: If flip<40 Then Incr flip End If If flip<20 Then For j=0 To 4 For i = 0 To 4 Byteout 1, Charset(j*5+i) Udelay 25 Byteout 1, 0 Next Udelay 70 Next Elseif flip<40 Then For j=5 To 9 For i = 0 To 4 Byteout 1, Charset(j*5+i) Udelay 25 Byteout 1, 0 Next Udelay 70 Next End If Return