afstandmeting met hc-sr04

Met een beetje geluk heb ik op ebay voor omgerekend €2,50 een hc-sr04 ultrasonic sensor met een veiling gewonnen.
Normaal heb je ze met nu kopen ongeveer vanaf €5,00 wat eigenlijk ook niet zo duur is.
Op internet kun je verder genoeg info er over vinden. Ik heb heel snel een afstandmeter er mee gemaakt en dat werkt prima. Ik kon in ieder geval in de woonkamer tot 4 meter meten. Onderaan vind je de source die ik gebruikt heb. Kun je naar eigen wens aanpassen.

Device 18F2620
Xtal 20   
                  
ADCON1=7
   
LCD_DTPin PORTB.4
LCD_ENPin PORTB.3
LCD_RSPin PORTB.2

TRISC=%00000010

Symbol TRIGGER = PORTC.2 'Trigger puls
Symbol ECHO = PORTC.1    'Echo puls

Dim Afstand As Word

Cls

DelayMS  100

While 1 = 1
PulsOut TRIGGER,15,High 'Trigger puls van 15us
Afstand = PulsIn ECHO,1 ' Meet afstand in uS
Afstand = Afstand * 2 / 58 ' 20 mhz (2uS instructietijd)
Print At 1,1,"Afstand = ", Dec Afstand," cm  "
DelayMS 100
Wend