;;;;;;;;ココナッツ・サンプルプログラム
;;;;光センサの値の変化を見る
na
10 x? ;光センサの値xを表示させる
20 wd3
30 #=10
;手をかざすと値が変化するのがわかる
;;;;暗いときだけ光らせる
na
q10,2
1:
?X<30 ;光センサの値xが30より大きいときは次の行へ
#=100: ; ラベル100へ
100: ;xが30より大きいのとき
o=1
#=1:
110: ;xが30以下のとき
o=255
#=1:
q
;しきい値を細分化して、分岐を増やし、光り方を工夫すると
;レベルメータのようになる
;;;;暗くなったら、30分だけ光ってから消える(①)
na
q10,2
1:
?x>30 ;明るいときは…
#=1: ; 明るさを調べ続ける
100: ;暗くなったら…
o=255 ; 全点灯して…
wm30 ; 30分待機して…
o=0 ; 全部消す
q
;;;;①を発展させてみる
na
q10,2
1: ;明るいとき
x?>30 ;明るさを調べて…
#=1 ; 明るければ明るさを調べ続ける
100: ; 暗くなったら…
o=255 ; 全点灯して…
wm30 ; 30分待機して…
o=0 ; 消す
110: ;暗いとき
x?>30 ;明るさを調べて…
#=1: ; 明るくなったらラベル1へ
#=110: ; 暗ければ明るさを調べ続ける
q
;『明るかったのが暗くなったときだけ30分光る』プログラム