BASIC STAMP "Robot Song Project" - The Beatles
BrendanTheONeill
Posts: 1
Just copy+paste this code into BS2 and do a "Syntax Check" then upload. It's a good Beatles song.
' {$STAMP BS2}
' {$PBASIC 2.5}
a CON 831
b CON 932
c CON 1047
d CON 1109
e CON 1245
f CON 1397
ah CON 1661
DO
FREQOUT 4, 150, a
FREQOUT 4, 150, b
FREQOUT 4, 150, d
FREQOUT 4, 150, b
FREQOUT 4, 350, f
FREQOUT 4, 350, f
FREQOUT 4, 600, e
PAUSE 50
FREQOUT 4, 150, a
FREQOUT 4, 100, b
FREQOUT 4, 150, d
FREQOUT 4, 150, b
FREQOUT 4, 350, e
FREQOUT 4, 350, e
FREQOUT 4, 550, d
PAUSE 50
FREQOUT 4, 150, a
FREQOUT 4, 150, b
FREQOUT 4, 100, d
FREQOUT 4, 100, b
FREQOUT 4, 450, d
FREQOUT 4, 250, e
FREQOUT 4, 250, c
FREQOUT 4, 250, b
FREQOUT 4, 350, a
PAUSE 100
FREQOUT 4, 250, a
FREQOUT 4, 400, e
FREQOUT 4, 600, d
PAUSE 200
FREQOUT 4, 150, a
FREQOUT 4, 150, b
FREQOUT 4, 100, d
FREQOUT 4, 100, b
FREQOUT 4, 300, f
FREQOUT 4, 300, f
FREQOUT 4, 500, e
PAUSE 50
FREQOUT 4, 100, a
FREQOUT 4, 100, b
FREQOUT 4, 100, d
FREQOUT 4, 100, b
FREQOUT 4, 450, ah
FREQOUT 4, 250, c
FREQOUT 4, 250, d
FREQOUT 4, 250, c
FREQOUT 4, 350, b
PAUSE 50
FREQOUT 4, 100, a
FREQOUT 4, 100, b
FREQOUT 4, 100, d
FREQOUT 4, 100, b
FREQOUT 4, 450, d
FREQOUT 4, 250, e
FREQOUT 4, 250, c
FREQOUT 4, 250, b
FREQOUT 4, 350, a
PAUSE 100
FREQOUT 4, 250, a
FREQOUT 4, 400, e
FREQOUT 4, 600, d
PAUSE 100
LOOP
' {$STAMP BS2}
' {$PBASIC 2.5}
a CON 831
b CON 932
c CON 1047
d CON 1109
e CON 1245
f CON 1397
ah CON 1661
DO
FREQOUT 4, 150, a
FREQOUT 4, 150, b
FREQOUT 4, 150, d
FREQOUT 4, 150, b
FREQOUT 4, 350, f
FREQOUT 4, 350, f
FREQOUT 4, 600, e
PAUSE 50
FREQOUT 4, 150, a
FREQOUT 4, 100, b
FREQOUT 4, 150, d
FREQOUT 4, 150, b
FREQOUT 4, 350, e
FREQOUT 4, 350, e
FREQOUT 4, 550, d
PAUSE 50
FREQOUT 4, 150, a
FREQOUT 4, 150, b
FREQOUT 4, 100, d
FREQOUT 4, 100, b
FREQOUT 4, 450, d
FREQOUT 4, 250, e
FREQOUT 4, 250, c
FREQOUT 4, 250, b
FREQOUT 4, 350, a
PAUSE 100
FREQOUT 4, 250, a
FREQOUT 4, 400, e
FREQOUT 4, 600, d
PAUSE 200
FREQOUT 4, 150, a
FREQOUT 4, 150, b
FREQOUT 4, 100, d
FREQOUT 4, 100, b
FREQOUT 4, 300, f
FREQOUT 4, 300, f
FREQOUT 4, 500, e
PAUSE 50
FREQOUT 4, 100, a
FREQOUT 4, 100, b
FREQOUT 4, 100, d
FREQOUT 4, 100, b
FREQOUT 4, 450, ah
FREQOUT 4, 250, c
FREQOUT 4, 250, d
FREQOUT 4, 250, c
FREQOUT 4, 350, b
PAUSE 50
FREQOUT 4, 100, a
FREQOUT 4, 100, b
FREQOUT 4, 100, d
FREQOUT 4, 100, b
FREQOUT 4, 450, d
FREQOUT 4, 250, e
FREQOUT 4, 250, c
FREQOUT 4, 250, b
FREQOUT 4, 350, a
PAUSE 100
FREQOUT 4, 250, a
FREQOUT 4, 400, e
FREQOUT 4, 600, d
PAUSE 100
LOOP
Comments
Jessica Uelman put a thread named Christmas Carols with Light Display on 12-4-09 and it has four songs on it. Please look it up in advanced search. I made up my own song called Good King Wenceslas. Here is my code:
' {$STAMP BS2} ' {$PBASIC 2.5} 'Good King Wenceslas Notes DATA "R", "D", "D", "D", "E", "D", "D", "A", "B", "A", "B", "d", "D", "D", "D", "D", "D", "E", "D", "D", "A", "B", "A", "B", "d", "D", "D", "A", "G", "g", "E", "g", "E", "D", "B", "A", "B", "d", "D", "D", "A", "A", "B", "d", "D", "D", "E", "A", "G", "g", "E", "D", "G", "D", "Q" Octaves DATA 0, 7, 7, 7, 7, 7, 7, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 6, 6, 6, 7, 7, 7, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7 Durations DATA 1000, 4, 4, 4, 4, 4, 4, 2, 4, 4, 4, 4, 2, 2, 4, 4, 4, 4, 4, 4, 2, 4, 4, 4, 4, 2, 2, 4, 4, 4, 4, 4, 4, 2, 4, 4, 4, 4, 2, 2, 4, 4, 4, 4, 4, 4, 2, 4, 4, 4, 4, 2, 2, 1 index VAR Byte offset VAR Nib noteLetter VAR Byte noteFreq VAR Word noteDuration VAR Word noteOctave VAR Nib DO UNTIL noteLetter = "Q" READ Notes + index, noteLetter DEBUG" ", noteletter LOOKDOWN noteLetter, [ "C", "d", "D", "e", "E", "F", "g", "G", "a", "A", "b", "B", "R", "Q" ], offset LOOKUP offset, [ 4186, 4435, 4699, 4978, 5274, 5588, 5920, 6272, 6645, 7040, 7459, 7902, 0, 0 ], noteFreq DEBUG " ", DEC4 noteFreq READ Octaves + index, noteOctave noteOctave = 8 - noteOctave noteFreq = noteFreq / (DCD noteOctave) READ Durations + index, noteDuration noteDuration = 1000 / noteDuration FREQOUT 8, noteDuration, noteFreq index = index + 1 Display_Color: ' Subroutine label LOW 15: LOW 14: LOW 13: LOW 12: LOW 11 ' Turn LEDs off SELECT noteLetter CASE "A", "a" HIGH 15 CASE "B", "b" HIGH 14 CASE "C", "c" HIGH 13 CASE "D", "d" HIGH 12 CASE "E", "e" HIGH 11 CASE "F", "f" HIGH 15 HIGH 13 HIGH 11 CASE "G", "g" HIGH 14 HIGH 12 ENDSELECT RETURN LOOP ENDBy the way, welcome to the forums.