DIY Christmas Lights Set To Music - Choreographed House Lights

Step 11 Writing the program

This is what takes the most time. Since it's such a basic program you actually have to program every milisecond. It takes many hours to get this right but it's worth it! You can program the chip to turn lights off and on at any time in sequence. Here's an example of the wizards program.

'{$STAMP BS2e, Wizards2.bse, Wizards3.bse}

reps VAR Byte
freq VAR Word
repsl VAR Byte

LOW 1
LOW 2
LOW 3
LOW 4
LOW 5
LOW 6
LOW 7
LOW 8
LOW 9
LOW 10
LOW 11
LOW 12
LOW 13
LOW 14
LOW 15
LOW 16

PAUSE 4300

'first beats'
reps = 1
FOR reps = 1 TO 7
PAUSE 450
HIGH 15
HIGH 16
PAUSE 50
LOW 15
LOW 16
PAUSE 100
HIGH 15
HIGH 16
PAUSE 50
LOW 15
LOW 16
PAUSE 100
HIGH 15
HIGH 16
PAUSE 50
LOW 15
LOW 16
NEXT
'first run up'
freq = 200
HIGH 1
PAUSE freq
HIGH 2
PAUSE freq
HIGH 3
PAUSE freq
HIGH 4
PAUSE freq
HIGH 5
PAUSE freq
HIGH 7
HIGH 8
PAUSE freq
HIGH 12
HIGH 13
PAUSE freq
LOW 1
LOW 2
LOW 3
LOW 4
LOW 5
LOW 7
LOW 8
LOW 12
LOW 13
'second beats'
HIGH 15
HIGH 16
PAUSE 50
LOW 15
LOW 16
PAUSE 100
HIGH 15
HIGH 16
PAUSE 50
LOW 15
LOW 16
reps = 1
FOR reps = 1 TO 6
PAUSE 450
HIGH 15
HIGH 16
PAUSE 50
LOW 15
LOW 16
PAUSE 100
HIGH 15
HIGH 16
PAUSE 50
LOW 15
LOW 16
PAUSE 100
HIGH 15
HIGH 16
PAUSE 50
LOW 15
LOW 16
NEXT
'run up then down'
freq = 200
HIGH 2
PAUSE freq
HIGH 3
PAUSE freq
HIGH 4
PAUSE freq
HIGH 5
PAUSE freq
LOW 5
PAUSE freq
LOW 4
PAUSE freq
LOW 3
PAUSE freq
LOW 2

PAUSE 100
'first crazy up and down'
freq = 50
FOR reps = 1 TO 6

HIGH 7
HIGH 8
HIGH 9
PAUSE freq
HIGH 5
PAUSE freq
LOW 6
LOW 7
LOW 8
LOW 9
HIGH 4
PAUSE freq
LOW 5
HIGH 3
PAUSE freq
LOW 4
HIGH 2
PAUSE freq
LOW 3
HIGH 1
PAUSE freq
LOW 2
PAUSE freq
PAUSE freq
HIGH 1
PAUSE freq
HIGH 2
PAUSE freq
LOW 1
HIGH 3
PAUSE freq
LOW 2
HIGH 4
PAUSE freq
LOW 3
HIGH 5
PAUSE freq
LOW 4
HIGH 7
HIGH 8
HIGH 9
PAUSE freq
LOW 5
PAUSE freq
PAUSE freq
NEXT
LOW 7
LOW 8
LOW 9
END

Attached is a Word file containing the entire program. Also attached is the audio for it. Just flash it to your module and it's ready to go. Email me if you want more programs and I'll send them to you