屑俺日記

☆ beep と button

動作中にLEDを点灯させ、ボタンを押すとビープ音がなるようにしてみた。
コメントも入れた。

IchigoJam BASIC 1.0.0b4 jig.jp
OK
load 3
Loaded 238byte
OK
list
10 rem file 3
20 rem beep when pressed button
30 video 1
40 let a,40
50 let b,5
60 f=tick()
70 e=800
80 led 1   
90 for i=0 to e
100 rem print i
110 if btn() then beep a,b
120 next
130 led 0
140 print tick() - f
150 video 1
160 end
OK

何もしないでいると388(6.47秒)、ずっと 押し続けていると390(6.50秒)。
video 0 にすると141(2.35秒),同114(同2.4秒)
printがほとんどなくても、動作スピードは三倍近くになった。