' Tämä ohjelma käyttää oSonarDV-objektia mitatakseen SRF04-anturin
' ja kohteen välisen etäisyyden 1/64 jaloissa (1 jalka = 30,48 cm)

Dim A As New oSonarDV
Dim Millit as New oWord

Sub Main()
  A.IOLineE = 13	' Kaiku tulee I/O-linjaan 13
  A.IOLineP = 14	' Ja pulssi lähtee linjasta 14
  A.Operate = 0	' Asetetaan Operate-ominaisuus 0:ksi  

  Do 
    A.Operate = 1		' Kun Operate-ominaisuus nostetaan 1:ksi alkaa mittaus
    A.Operate = 0		' Asetetaan Operate-ominaisuus 0:ksi  
    OOPic.Delay = 25	' Pieni viive (0,25s), että kaiku ehtii tulla takaisin
    If (A.Timeout = cvFalse) Then	'Jos ei tullut timeouttia
		' Niin meillä A.Value pitää tässä vaiheessa etäisyyden 1/64 jaloissa
		' ja tähän voidaan kirjoittaa mitä sillä tehdään
		
		' Se voidaan muuttaa esim. millimetreiksi 
		' (huom. pitää pelata kokonaisluvuilla, joten kun 1/64 jalka on 4,7625 mm)
		If (A.Value < 69) Then	
			' A:n arvo on niin pieni, että voidaan käyttää 476 kertojana
			Millit = A * 476 / 100
		Elseif (A.Value < 683) Then
			' A:n arvo on niin pieni, että voidaan käyttää 48 kertojana
			Millit = A * 48 / 10
		Elseif (A.Value < 6554) Then
			' A:n arvo on niin pieni, että voidaan käyttää 5 kertojana
			Millit = A * 5
		Else
			' Ollaan niin etäällä, ettei voida tehdä muutosta. Laitetaan
			' maksimi arvo. (Toisaalta ollaan anturin toimialueen ulkolaidalla).
			Millit = 32768
		End if
    End If
  Loop  
end Sub