PROGRAMACION EN MICROCODE STUDIO
'****************************************************************
'* Name : Frecuencimetro.BAS *
'* Author : MECA VINCES CARLOS JONATHAN *
'* Notice : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 09/01/2012 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
unidad var byte ' variables'* Name : Frecuencimetro.BAS *
'* Author : MECA VINCES CARLOS JONATHAN *
'* Notice : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 09/01/2012 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
decena var byte
centena var byte
mil var byte
pulso var byte
trisb=0
trisa=1
'cmcon=7
inicio: ' rutina principal
pulso var byte
trisb=0
trisa=1
'cmcon=7
inicio: ' rutina principal
gosub contar
gosub mostrar
goto inicio
end
contar: ' cuenta los pulsos en un porta.0
count porta.0 ,1000,pulso
pause 100
unidad=pulso dig 0 ' toma digito x digito de var pulso
decena=pulso dig 1
centena=pulso dig 2
mil=pulso dig 3
returnmostrar: ' envia x el portb la unidad
portb=unidad
high portb.4 'habilitamos y desabilitamos los lach
gosub mostrar
goto inicio
end
contar: ' cuenta los pulsos en un porta.0
count porta.0 ,1000,pulso
pause 100
unidad=pulso dig 0 ' toma digito x digito de var pulso
decena=pulso dig 1
centena=pulso dig 2
mil=pulso dig 3
returnmostrar: ' envia x el portb la unidad
portb=unidad
high portb.4 'habilitamos y desabilitamos los lach
low portb.4
pause 5
portb=decena ' envia x el portb la decena
high portb.5
low portb.5 'habilitamos y desabilitamos loS lach
pause 5
portb=decena ' envia x el portb la decena
high portb.5
low portb.5 'habilitamos y desabilitamos loS lach
pause 5
portb=centena ' envia x el portb la centena
portb=centena ' envia x el portb la centena
high portb.6
low portb.6 'habilitamos y desabilitamos los lach
pause 5
portb=mil ' envia x el portb mil
high portb.7
low portb.7 'habilitamos y desabilitamos los lach
low portb.6 'habilitamos y desabilitamos los lach
pause 5
portb=mil ' envia x el portb mil
high portb.7
low portb.7 'habilitamos y desabilitamos los lach
pause 5
return
return
Puedes descargar el programa en PBP del pic y la simulacion en PROTEUS desde aqui: