豊四季Tiny BASICでHC-SR04を使った距離計測

豊四季Tiny BASIC for Arduino STM32で
超音波距離センサHC-SR04を使った距離計測を試してみました。

HC-SR04は、秋月電子でも販売されていますが、amazonで探すと、200円程度で入手出来るようです。

プログラム

 1 'ｷｮﾘｹｲｿｸ
 10 CLS
 20 P1=PB8:P2=PB3:T=180
 30 K=(3315+T*6)/20
 40 GPIO P1,OUTPUT
 50 GPIO P2,INPUT_FL
 60 "loop"
 70 OUT P1,LOW
 80 OUT P1,HIGH
 90 OUT P1,LOW
 100 D=PULSEIN(P2,HIGH,200,1)
 110 ?DMP$(D/100*K,2)
 120 WAIT 300
 130 GOTO "loop" 

PULSEIN()関数を使って、超音波が反射して帰ってくるパスル幅を調べ、
その時間から距離を求めています。
小数が使えないため、DMP$()という、指定位置に小数点を挿入する文字列関数で
見かけ上、小数表示しています。

接続

HC-SR04 Trig端子 ：PB8（５Vトレラントピン）

HC-SR04 Echo端子 ：PB3（５Vトレラントピン）

HC-SR04 GND端子 ：GND

HC-SR04 VCC端子 ：５V

HC-SR04は５V動作のため、Blue Pillボードの5V入力可能（５Vトレラント）ピンを利用します。

動作の様子

正確な計測値とは言えませんが、そこそこ目安となる数字はでていますね。

参考にしたサイト
【Arduino】超音波距離センサ(HC-SR04)の測定精度を向上（気温考慮）

こちらのサイトにもまとめました
超音波距離センサ(HC-SR04)を使った距離計測