プログラミングをもっと楽しく!
Kidspod;はこどものプログラマーを
応援するための投稿サイトです。
はじめての人はこちらから
新規メンバー登録
メンバーの人はこちらから

2017/03/15 23:50:22

MixJuice GET URL : kidspod.club/mj/169

IR-Beep.bas

IRセンサー(IN2)からの距離でBeepの音の高さが変わる

SOURCE CODE

10 'IR sensor --> Beep Sound
20 CLS
30 B=0:CLT
40 FOR I=0 TO 15
50 A=ANA(2)
60 B=B+A
70 NEXT
80 B=B/16
90 LC 0,0:?"     ";
100 LC 0,0:?B;
105 IF A>100 LED1:BEEP(B/10),5 ELSE LED0
110 IF TICK()<>6 GOTO 110
120 GOTO 30

COMMENT