減算タイマ−kefi ver4.0

減算タイマー



;減算タイマーkefi ver4.0
;ver1.0に2.0と3.0の改造を加える。すなわち
;LEDを早く点滅させ、音を断続鳴らし LED128を点灯しておしまい。更に作動中の点滅を5秒に一回にする。
;2014/01/19 12:33:20
;
;減算点灯レ・ファ・ラ 10分減算タイマー 省エネ更に時間設定が変えられる
;変数a 時間変数 デフォルトは10分に設定してある。 それを減算していく。
;変数b 時間変数 秒を数えている。25行で0が代入されリセットされるが242行(または252行)で0.1秒過ごし更に40行で0.9秒過ごしたら、1秒経ったという事で43行でbの値を加算している。
10 a=10 ;aは分の値である。それを10分で設定しなさい。★★★★ここの値を変えると「10分タイマー」を「好きな分タイマー」に変えられる★★★★
12 ?i<10 ;スライドスイッチがONになったか?
14 #=180 ;真ならば180行に行きなさい。「aの値を設定しに行きましょう。」
20 a-1 ;偽ならばaを減らしなさい。「使用者は10分タイマーでいいとのことです。」
25 b=0 ;秒を0にしなさい。
30 #:200 ;明るさ判断サブルーチンに行きなさい。
40 wd9;          0.9秒待ちなさい。{xxxxxx開発実験2xxxxxx製品使用9}
41 ws4;          4秒待ちなさい。
43 b+5;          秒を5増やしなさい。

44 ?b=60 ;bが60になったかな?(60秒経ちましたか?){xxxxxxx開発実験10xxxxxxxxxxx製品使用60}
45 #=50 ;真ならば50行に行きなさい。
47 #=30 ;偽ならば30行に行きなさい。
50 ?a=0 ;aは0ですか?
60 #=100 ;真なら音を鳴らす100行へ行きなさい
70 #=20 ;偽なら20行へ行きなさい。ここを12行にしたいのだがそうすると上手く行かない。2013/03/24 22:42:38

            ;LEDを早く点滅させ、音を断続鳴らし LED128を点灯しておしまい
            ;変数c 回数変数 LED点滅やスピーカー断続音を数えるための変数である。
100 c=0;        cを0にする
101 o=255;       LEDすべて点灯
102 wd1;        0.1秒待つ
103 o=0;        LEDすべて消灯
104 wd1;        0.1秒待つ
105 C+1;        cを一つ増やしなさい。
106 ?c=25;       cが50になりましたか?
107 #=120;       真ならば120に行きなさい。
108 #=101;       偽ならば101に行きなさい。
120 ws15;       15秒待ちなさい
121 c=0;        cを0にする
122 s27;        音を鳴らす レ
123 wd5;        0.5秒待つ
124 s0;         無音にする
125 wd5;        0.5秒待つ
126 C+1;        cを一つ増やしなさい。
127 ?c=10;       cが10になりましたか?
128 #=165;       真ならば165に行きなさい。
129 #=122;       偽ならば122に行きなさい。
165 o=128 ;発光ダイオードの128番を点灯しなさい。

170 . ;終わりです。

;スライドスイッチがONになっている時にタクトスイッチを押すと変数aが増え、LEDに表示される
180 a=1 ;aを1にしなさい。
181 ?i=8 ;スライドON で タクトON かな?
182 #=190 ;真ならば190に行きなさい。
183 ?i=9 ;スライドON で タクトOFF かな?
184 #=196 ;真ならば196に行きなさい。
185 ?i=10 ;スライドOFF で タクトON かな?
186 #=12 ;真ならば12行に行きなさい。(メインルーチンに戻りなさい)
187 ?i=11 ;スライドOFF で タクトOFF かな?
188 #=12 ;真ならば12行に行きなさい。(メインルーチンに戻りなさい)
189 #=181 ;181行に戻りなさい。
;タクトスイッチONの時
190 a+1 ;aを1つ増やしなさい。
191 o=a ;発光ダイオードをaの値で点灯しなさい。
192 wd3 ;0.3秒待ちなさい。
194 #=181 ;181行に戻りなさい。
;タクトスイッチOFFの時
196 o=a ;発光ダイオードをaの値で点灯しなさい。
197 #=181 ;181行に戻りなさい。

;CDSで明るさ判断サブルーチン
200 ?x>70 ;CDSの明るさは70より大きいですか?
220 #=240 ;真ならば240行に行きなさい。
230 #=250 ;偽ならば250行に行きなさい。
240 o=128 ;ここからは周囲が明るい場合の処理です。発光ダイオードは128番を光らせなさい。
242 wd1 ;0.1秒待ちなさい。
243 o=0 ;発光ダイオードを消灯しなさい。
245 #:$ ;メインルーチンに戻りなさい。(30行から来たのだからその直後に戻るのだよ。)
250 o=a ;ここからは周囲が暗い場合の処理です。発光ダイオードはaの値(残り時間(ふん))で光らせなさい。
252 wd1 ;0.1秒待ちなさい。
255 #:$ ;メインルーチンに戻りなさい。(30行から来たのだからその直後に戻るのだよ。)


メニューに戻る


kefi_pallhkari

最終更新日:2013,12,28