'Esta subrutina mide la distancia de un sensor SRF04
'conectado a un Basic Stamp. La distancia en cm se envia al puerto
'serie para su visualizacion en la pantalla.
'Escrito por Pablo Pompa --- pablo@superrobotica.com---
'
wDistancia var word
Disparo con 8 'Este es el pin usado para el pulso de disparo
Eco con 9 ' Este es el pin de entrada del pulso de eco
'
Principal:
	Gosub Medida 'Llama a la rutina de medir
	Debug dec wDistancia, cr 'Muestra el valor en la pantalla
	pause 200 'Pausa entre medidas
	Goto Principal 'Repite el proceso
'
Medida:
	pulsout Disparo,5 'Pulso de disparo
	output Disparo 'quita el pulso
	rctime Eco,1,wDistancia 'Mide el pulso de eco
	wDistancia = wDistancia/29 ' Usar 29 para cm y 74 para pulgadas
	Return