SRF05_DISPARO VAR PORTA.2 'PIN USADO PARA EL PULSO DE DISPARO
SRF05_ECO VAR PORTA.3 'PIN USADO PARA EL ECO
MEDIDA VAR WORD 'VARIABLE de 16 bits PARA ALMACENAR LA MEDIDA
DEFINE OSC 4
Define LCD_DREG PORTB 'bit de datos del LCD empezando
Define LCD_DBIT 0 'por B.0 ,B.1, B.2 y B.3
Define LCD_RSREG PORTB 'bit de registro del LCD conectar
Define LCD_RSBIT 5 'en el puerto B.5
Define LCD_EREG PORTB 'bit de Enable conectar en el
Define LCD_EBIT 4 '"puerto B.4
proceso: 'bucle infinito
SRF05_DISPARO=0
PULSOUT SRF05_DISPARO,1 'generamos un pulso de disparo de 10us
PULSIN SRF05_ECO,1,MEDIDA 'se guarda el pulso de entrada en sfr05_eco
medida= medida/54 'para convertir en cm
Lcdout $fe, 1, "DISTANCIA:", medida 'Aqui hay que añadirle el valor de MEDIDA pero no se como
pause 100 'esperamos 100 ms para volver a medir
goto proceso
END