• Ichigojam

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

Kidspod運営チーム2017/04/18 19:58:43

シンプルながら楽しいIRセンサの使い方ですね。楽器にもなりそうで、楽しいです！

Pagetop