Hola:
Quiero controlar un motor DC con el PIC16F84A. El motor dc solo gira un sentido.
(Luego pongo el esquema eléctrico). El funcionamiento del circuito es que el motor está apagado. Cuando pulse un botón, se queda el motor encendido durante ese tiempo. Por ejemplo, si pulso el Pulsador 2, el motor se activa y se detiene a los 10 minutos.
Si quiero detener el motor cuando está en marcha, con pulsar el botón Reset es suficiente.
Pulsador 1 --> 5 minutos. RA4
Pulsador 2 --> 10 minutos. RA3
Pulsador 3 --> 20 minutos. RA2
Reset --> Para detener los tiempos. Es como si fuera un STOP. En realidad resetea el PIC y lo pone en modo inicio, esperando que pulses un botón.
Motor DC --> RB4.
Mi idea original es tener un Pulsador 4 del pin RA1 que detenga el tiempo cuando quiera. Como no se me da calcular bien los tiempos con el timer 0. Opté la idea de usar rutinas de tienmpos que se puede
generar aquí.
El PIC queda esclavo, aunque puslse otro botón para cambiar el tiempo mientras el motor está encendido, o incluso detener el motor con otro pulsador que no sea Reset, no se puede hacer porque el PIC no ejecutará otra acción hasta que se acabe el tiempo. Es la parte mala.
La forma de pulsar el pulsador es el siguiente. El código INCOMPLETO que está abajo trabaja así:
Si pulas un pulsador, se enciende el motor, si lo vuelves a pulsar, se apaga el motor. Ahora me toca añadir el tiempo de 5, 10 o 20 minutos con las subrutinas que crearé. A lo mejor queda bien si pulso un botón, empieza el tiempo, cuando acabe se detiene el motor.
Código:
; ZONA DE DATOS **********************************************************************
LIST P=16F84A
INCLUDE <P16F84A.INC>
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
CBLOCK 0x0C
ENDC
#DEFINE Pulsador_1 PORTA,4 ; Pulsador conectado a RA4.
#DEFINE Pulsador_2 PORTA,3 ; Pulsador conectado a RA3.
#DEFINE Pulsador_3 PORTA,2 ; Pulsador conectado a RA2.
#DEFINE Motor PORTB,1 ; Línea donde se conecta el diodo Motor.
; ZONA DE CÓDIGOS ********************************************************************
ORG 0 ; El programa comienza en la dirección 0.
Inicio
bsf STATUS,RP0 ; Acceso al Banco 1.
bsf Pulsador_1 ; La línea RA4 se configura como entrada.
bcf Motor ; Se configura como salida.
bcf STATUS,RP0 ; Acceso al Banco 0.
bcf Motor ; En principio diodo Motor apagado.
Principal
btfsc Pulsador_1 ; ¿Pulsador presionado?, ¿(Pulsador)=0?
goto Fin ; No. Vuelve a leerlo.
call Retardo_20ms ; Espera que se estabilicen los niveles de tensión.
btfsc Pulsador_1 ; Comprueba si es un rebote.
goto Fin ; Era un rebote y sale fuera.
btfsc Motor ; Testea el último estado del Motor.
goto EstabaEncendido
EstabaApagado
bsf Motor ; Estaba apagado y lo enciende.
goto EsperaDejePulsar
EstabaEncendido
bcf Motor ; Estaba encendido y lo apaga.
EsperaDejePulsar
btfss Pulsador_1 ; ¿Dejó de pulsar?. ¿(Pulsador)=1?
goto EsperaDejePulsar ; No. Espera que deje de pulsar.
; Pulsador 2.
btfsc Pulsador_2 ; ¿Pulsador presionado?, ¿(Pulsador)=0?
goto Fin ; No. Vuelve a leerlo.
call Retardo_20ms ; Espera que se estabilicen los niveles de tensión.
btfsc Pulsador_2 ; Comprueba si es un rebote.
goto Fin ; Era un rebote y sale fuera.
btfsc Motor ; Testea el último estado del Motor.
goto EstabaEncendido2
EstabaApagado2
bsf Motor ; Estaba apagado y lo enciende.
goto EsperaDejePulsar2
EstabaEncendido2
bcf Motor ; Estaba encendido y lo apaga.
EsperaDejePulsar2
btfss Pulsador_2 ; ¿Dejó de pulsar?. ¿(Pulsador)=1?
goto EsperaDejePulsar2 ; No. Espera que deje de pulsar.
; Pulsador 3.
btfsc Pulsador_3 ; ¿Pulsador presionado?, ¿(Pulsador)=0?
goto Fin ; No. Vuelve a leerlo.
call Retardo_20ms ; Espera que se estabilicen los niveles de tensión.
btfsc Pulsador_3 ; Comprueba si es un rebote.
goto Fin ; Era un rebote y sale fuera.
btfsc Motor ; Testea el último estado del Motor.
goto EstabaEncendido
EstabaApagado3
bsf Motor ; Estaba apagado y lo enciende.
goto EsperaDejePulsar3
EstabaEncendido3
bcf Motor ; Estaba encendido y lo apaga.
EsperaDejePulsar3
btfss Pulsador_3 ; ¿Dejó de pulsar?. ¿(Pulsador)=1?
goto EsperaDejePulsar3 ; No. Espera que deje de pulsar.
Fin
goto Principal
; ZONA DE SUBRRUTINAS ****************************************************************
Retardo_20ms
cblock
RAM
RAM_1
endc
Delay
;199993 cycles
movlw 0x3E
movwf RAM
movlw 0x9D
movwf RAM_1
Delay_0
decfsz RAM, f
goto $+2
decfsz RAM_1, f
goto Delay_0
;3 cycles
goto $+1
nop
;4 cycles (including call)
return
END
¿Alguna sugerencia para mejorarlo?
