鍵入以下BS2程式 :
‘ {$STAMP BS2}
‘ {$PBASIC 2.5}
time VAR Word
DO
HIGH 2
PAUSE 100
RCTIME 2, 1, time ‘這個指令是BS2用來處理類比轉數位的最好方法,time這個值就是對應cds的感應數值
DEBUG HOME, “time = “, DEC5 time
LOOP
以上, 可以先測試你的BS2是否可以正常與光敏電阻運作。
加上以下程式 :
‘ {$STAMP BS2}
‘ {$PBASIC 2.5}
time VAR Word
LOW 0 ‘ Pin0等於LOW, SSR不會導通, 電燈是暗的
DO
HIGH 2
PAUSE 100
RCTIME 2, 1, time ‘這個指令是BS2用來處理類比轉數位的最好方法,time這個值就是對應cds的感應數值
DEBUG HOME, “time = “, DEC5 time
IF time = 120 THEN
HIGH 0 ‘ Pin0 等於HIGH時, SSR就會導通, 110V電源就會輸入電燈
ENDIF
LOOP
現在已經確認你的基本電路是OK的,該是選擇你要撥放的歌曲並且製作進入BASIC Stamp裡面。這裡我們利用5段開關,選擇四首歌曲並利用第五段開關關閉每首歌曲。我們選擇了耳熟能詳的的四首歌分別是 We Wish You a Merry Christmas、JingleBells、Deck the Halls and O Christmas Tree 接下來我們必須將這四首歌寫成程式並且放在四個不同的程式段。請參考程式下載
下方是利用五段開關,所寫的程式變換
DO
IF (IN0 = 0) THEN
GOSUB Deck_The_Halls
ELSEIF (IN1 = 0) THEN
GOSUB Jingle_Bells
ELSEIF (IN2 = 0) THEN
GOSUB Merry_Christmas
ELSEIF (IN4 = 0) THEN
GOSUB Christmas_Tree
ELSE
PAUSE 20
ENDIF
LOOP
為了節省EEPROM的空間,利用LOOKUP and LOOKDOWN指令去決定頻率
Get_Frequency: