ブログパーツUL5

近づくと警告音(ピーポー音)

 ちょっとしたお遊びで、こんなものを作ってみました。RZ-1に近づくと警告音が鳴り出します。
 サンプルは、距離センサーをアナログポートAD3に接続しており、ある範囲(ここでは20cm以内)に近づくと、ピーポーと鳴り出して、警告音を発するようにしました。

 MAINルーチンの適当な所に入れておくとおもしろいでしょう。但し、他のモーションが動作している時には動作しないで待機状態の時にしか動作しませんから注意してください。 もし、モーション中に動作させたかったら、下記のプログラムをサブルーチン化して、動作させたいところに設定すればいいでしょう。

注:序に警告音が鳴っている時はLEDを青から赤に切替わるようにしました。不要な場合には削除してください。

'--- Warning sound ---
DIM A AS BYTE

A=AD(3)
IF A>100 THEN
OUT 52,1 '-- Blue-LED OFF --
PWM 2,250 '-- Red-LED ON --
TEMPO 200
MUSIC "1B]1G]"
GOTO main
PWM 2,0 '-- Red-LED OFF --
ENDIF
'---------------------
0

    コメント
    コメントする








       
    この記事のトラックバックURL
    トラックバック

    カレンダ

      12345
    6789101112
    13141516171819
    20212223242526
    27282930   
    << September 2020 >>