mmbasic and hc-sr(5v仕様）をラズピコでつかうために分圧抵抗が必要

https://thepihut.com/blogs/raspberry-pi-tutorials/hc-sr04-ultrasonic-range-sensor-on-the-raspberry-pi　に詳しい

'DefinePinTrig = GP2

'DefinePinEcho = GP3

SetPin GP2,DOUT

SetPin GP3,DIN

Dim cm_distance

Do

 ' DIstance(DefinePinTrig,DefinePinEcho)

 cm_distance = Distance(GP2, GP3)

 IF cm_distance = -1 Then

    Print "Error: Target out of range"

 Else

    Print "Distance: "; cm_distance; " cm"

 End If

 Pause 1000

Loop