ココナッツ用プログラムソース

;★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
;★　ココナッツｖ３用プログラム　　　　　　　　　　　　　　　　　　　　　　　　　　★
;★　　「組み立て・配布時に最初にいれておくプログラム」　　　　　　　　　　　　　　★
;★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
;☆プログラムの用途・目的
;　組み立ての際に、一通りのハードウェア機能が動作しているかチェックするためのもの
;　あまりこったプログラムにしないが、生徒が後々自分の開発をするきっかけとなるもの
;
;☆プログラムの動作
;●１　スライドスイッチ、プッシュスイッチ
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;　音階を1オクターブ分、ledとともに一つずつ発音・点灯
;
;●２　スライドスイッチ、プッシュスイッチ
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;　全点灯して１０秒後に全消灯。
;
;●３　スライドスイッチ、プッシュスイッチ
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;　ＣＤＳによる3段階の調光
;
;●４　スライドスイッチ、プッシュスイッチ
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;　リモコンによる全点灯・全消灯
;
;☆プログラム本体
NA
Q1,1
;＝＝＝＝＝スイッチの位置判断して分岐先を決める部分（プログラムの先頭）＝＝＝＝＝＝＝
?i=9;　 ●１　スライドスイッチ、プッシュスイッチ
#=1:
?i=11;　●２　スライドスイッチ、プッシュスイッチ
#=2:
?i=8;　 ●３　スライドスイッチ、プッシュスイッチ
#=3:
?i=10;　●４　スライドスイッチ、プッシュスイッチ
#=4:

;＝＝＝＝＝ここから動作の記述＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
;●１　スライドスイッチ、プッシュスイッチ
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;　音階を1オクターブ分、ledとともに一つずつ発音・点灯
1:
	wd1	;	０～０．１秒(最初のドの長さを正しくする為の処理)
	S25	;ド
	wd1	;	０．１秒
	s0	;	音消す
	o=1	;	０番が点灯
	wd5	;	０．５秒
	S27	;レ
	wd1	;	０．１秒
	s0	;	音消す
	o=2	;	１番が点灯
	wd5	;	０．５秒
	S29	;ミ
	wd1	;	０．１秒
	s0	;	音消す
	o=4	;	2番が点灯
	wd5	;	０．５秒
	S30	;ファ
	wd1	;	０．１秒
	s0	;	音消す
	o=8	;	3番が点灯
	wd5	;	０．５秒
	S32	;ソ
	wd1	;	０．１秒
	s0	;	音消す
	o=16	;	4番が点灯
	wd5	;	０．５秒
	S34	;ラ
	wd1	;	０．１秒
	s0	;	音消す
	o=32	;	5番が点灯
	wd5	;	０．５秒
	S36	;シ
	wd1	;	０．１秒
	s0	;	音消す
	o=64	;	6番が点灯
	wd5	;	０．５秒
	S37	;ド（上）
	wd1	;	０．１秒
	s0	;	音消す
	o=128	;	7番が点灯
	wd5	;	０．５秒
	o=0	;	消灯
#=1:

;●２　スライドスイッチ、プッシュスイッチ
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;　全点灯して１０秒後に全消灯。
2:
	o=255
	ws10
	o=0
	.

;●３　スライドスイッチ、プッシュスイッチ
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;　ＣＤＳによる3段階の調光
3:
        ?x>180
        #=33:
        ?X>150
        #=32:
        ?X<100
        #=31:
        O=85
        #=3:
33:
        O=0
        #=3:
32:
        O=1
        #=3:
31:
        o=255
        #=3:

;●４　スライドスイッチ、プッシュスイッチ
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;　リモコンによる全点灯・全消灯
4:
	o=1
	vr0
	wd8
	v0
41:
	p1
	o=255
	wd5
	p1
	o=0
	wd5
	p1
#=41:
Q
L