Sub Process_Globals
Public Serial1 As Serial
Public DistanceSensor As HCSR04e
Private TriggerPinNr As Byte = 13
Private EchoPinNr As Byte = 12
Private DISTANCECHANGEDBY As Double = 2.0
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
DistanceSensor.Initialize("DistanceChanged", DISTANCECHANGEDBY, TriggerPinNr, EchoPinNr)
End Sub
' Handle distance changes >= DISTANCECHANGEDBY value
Private Sub DistanceChanged(Data() As Double)
Dim l As Double = Data(0)
Log("DistanceChanged Data: ", l)
End Sub