frecuencimetro.bas

Program in basic that simulates a frecuencimeter, explained well

declare xtal=20
device=16f877
DECLARE LCD_RSPIN PORTB.2
DECLARE LCD_ENPIN PORTB.3
DECLARE LCD_DTPIN PORTB.4
input portc
Dim Estado as bit
DIM Periodo as word
Dim Frec as Float
Programa:
Estado=portc.0
if estado=0 then
Periodo=pulsin PORTC.0,1
else
Periodo=pulsin PORTC.0,0
end if
Frec=52359.877566667/Periodo
Print at 1,1,"f:",at 1,5, dec frec
goto Programa