Hola amigos como les he dicho anteriormente soy nuevo en esto y estoy trabajando en un frecuencimetro, inicialmente quiero contar los impulsos en un pin de un 16f84 y mostrarlos en 3 display 7 seg, el programa que hice fue para que despues de cada reseteo el micro cuente los impulsos en 0.5s y luego los muestre en los display y ya, pero no funciona, sin señal cuando reseteo arroja valores entre 0 y5 y cuando le pogo pulsos con un 555, sea cual sea la frecuencia arroja valores que oscilan entre 30 y 60. Agradesco su colaboracion. aqui les pongo el programa."
Device=16f84
"xtal=4
k var byte
digit var word
maska var byte
Frecuen var byte
leddis1 var porta.2
leddis2 var porta.3
leddis3 var porta.0
trisa=%00010000
trisb=%00000000
leddis1=0
leddis2=0
leddis3=0
main:
count porta.4,500,Frecuen
goto muestra
muestra:
for k=0 to $50 step 1
digit=Frecuen dig 2
gosub bin2seg
portb=maska
leddis1=1
pause 2
leddis1=0
digit=Frecuen dig 1
gosub bin2seg
portb=maska
leddis2=1
pause 2
leddis2=0
digit=Frecuen dig 0
gosub bin2seg
portb=maska
leddis3=1
pause 2
leddis3=0
next k
goto muestra
bin2seg: lookup digi[$c0,$f9,$a4,$b0,$99,$92,$82,$f8,$80,$90],maska
return
en