Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2020/08/11 13:56:10

MixJuice GET URL : kidspod.club/mj/992

BEEP TESTER

BEEPコマンドの音の高さと時間を←↑↓→のカーソルキーの操作で0.5秒ごとに変化させ連続実行します。
チッ、チッ、ピッ、ピッ、プッ、プッ、ポッ、ポッ、ブー、ブー、ガリ、ガリ、カチ、カチ、……。
実行中の数値が表示されるので、望むBEEP音の設定を見つけることができます。

  • 1
  • 1

SOURCE CODE

10 'BEEP TESTER
20 CLS:X=130:Y=1
30 IF BTN(UP)=1 X=X+10
40 IF BTN(DOWN)=1 X=X-10
50 IF BTN(RIGHT)=1 Y=Y+2
60 IF BTN(LEFT)=1 Y=Y-2
70 X=X-X%10
80 IF X<1 X=1
90 IF X>255 X=255
100 IF Y<1 Y=1
110 IF Y>30 Y=30
120 BEEPX,Y:WAIT30:?"BEEP ";DEC$(1000+X,3);",";DEC$(100+Y,2)
130 GOTO30

COMMENT

Kidspod運営チーム
Kidspod運営チーム2020/08/27 11:47:22

おお、これは役立ちそうなツール！　好きな音を見つけるのに何度もBEEPコマンドを実行するのは大変そうですが、このツールさえあれば！