Ultrasonic sensor, serial communication.

[HenrikOlsson]

Try something like:

Distance VAR WORD
Sum VAR BYTE

Start:
  HSERIN 1000, NoData, [wait ($FF), Distance.BYTE1, Distance.BYTE0, SUM]
  ' Here you could evalute SUM to verify packet is correct but lets not do that now.  
   HSEROUT["Distance: ", DEC Distance, "mm", 13]
Goto Start


NoData:
  HSEROUT["No data from sensor", 13]
  Goto Start

/Henrik.

[louislouis]

Thanks Henrik,

It works.

How simple and elegant solution.