'***********************************************************
'* Programa de Ejemplo del SRF04 conectado al BasicX-24
'*
'* Copyright 2002 - Devantech Ltd 
'* Prohibido el uso comercial de este software
'* Solo para uso privado y educacional
'*
'* Escrito por Gerald Coe - Febrero 2002
'*********************************************************** 
Sub Main()
	Const EchoPin As Byte = 14 ' Indica el pin para Pulso de eco
	Const TrigPin As Byte = 13 ' Indica el pin para Puso de disparo
	Dim Range As Integer
	Call PutPin(EchoPin, bxInputTristate)
	Call PutPin(TrigPin, bxOutputLow)
	do
		Call PulseOut(TrigPin, 10, 1) ' Pulso de disparo de 10 us
		Range = PulseIn(EchoPin, 1) \ 54 ' Usar 54 para cm y 137 para pulgadas
		Debug.Print "Range is "; CStr(Range) ' Manda la distacia
		Call Delay(0.1) ' 100mS de retardo entre mediciones
	loop
End Sub