Programación Específica > Microcontroladores
Necesito Colaboración Con Un Trabajo 16f84a
(1/1)
sancende:
Hola a todos.
Solicito vuestra ayuda para hacer un trabajo.
Estoy intentando hacer lo siguiente con un pic 16F84A en modo RC.
Tengo que iluminar 6 leds de tal modo que partiendo de todos los leds apagados, se encienda el primero, haga una pausa de 1 segundo aprox. y permanece encendido, luego el segundo, luego el tercero, luego el cuarto y luego el quinto permaneciendo los cinco encendidos.
Hago una pausa de 1 segundo y apago todos y enciendo el sexto durante 8 segundos.
Lo apago y se termina la secuencia hasta que manualmente haga un reset o decida mecanicamente iniciar de nuevo.
¿Como lo hago?
Me he vuelto loco buscando cosas, secuenciadores, etc, pero hacen un ciclo sin fin.
Este es el que estoy modificando:
CUENTA1 equ 0Ch
CUENTA2 EQU 0DH
CUENTA3 EQU 0EH
STATUS EQU 03H
PORTA EQU 05H
PORTB EQU 06H
TRISA EQU 05H
TRISB EQU 06H
F EQU 1
W EQU 0
#DEFINE ON1 BSF PORTB,0
#DEFINE ON2 BSF PORTB,1
#DEFINE ON3 BSF PORTB,2
#DEFINE ON4 BSF PORTB,3
#DEFINE ON5 BSF PORTB,4
#DEFINE ON6 BSF PORTB,5
#DEFINE ON7 BSF PORTB,6
#DEFINE ON8 BSF PORTB,7
#DEFINE ON9 BSF PORTA,0
#DEFINE ON10 BSF PORTA,1
#DEFINE ON11 BSF PORTA,2
#DEFINE ON12 BSF PORTA,3
#DEFINE ON13 BSF PORTA,4
#DEFINE ONTODO CALL ENCIE
#DEFINE OFF1 BCF PORTB,0
#DEFINE OFF2 BCF PORTB,1
#DEFINE OFF3 BCF PORTB,2
#DEFINE OFF4 BCF PORTB,3
#DEFINE OFF5 BCF PORTB,4
#DEFINE OFF6 BCF PORTB,5
#DEFINE OFF7 BCF PORTB,6
#DEFINE OFF8 BCF PORTB,7
#DEFINE OFF9 BCF PORTA,0
#DEFINE OFF10 BCF PORTA,1
#DEFINE OFF11 BCF PORTA,2
#DEFINE OFF12 BCF PORTA,3
#DEFINE OFF13 BCF PORTA,4
#DEFINE OFFTODO CALL APAGA
#DEFINE ESPERA CALL DELAY
#DEFINE ESPERA1 CALL DELAY1
#DEFINE ESPERA2 CALL DELAY2
#DEFINE ESPERA3 CALL DELAY4
#DEFINE ESPERA4 CALL DELAY3
#DEFINE INVIERTE CALL INV
ORG 00H
GOTO EMPI
EMPI CLRF PORTA
CLRF PORTB
BSF STATUS,5
CLRF TRISA
CLRF TRISB
BCF STATUS,5
INICIO
;********************************************************************************************
;********INICIO SECUENCIA***********************************************
;--------------------------------------------------------------------------------------------
OFFTODO
ESPERA
ON1
ESPERA
ON2
ESPERA
ON3
ESPERA
OFF1
OFF2
OFF3
ESPERA
ON1
ON2
ON3
ESPERA
;--------------------------------------------------------------------------------------------
;****************FIN DE LA SECUENCIA*********************************************************
;********************************************************************************************
GOTO INICIO
DELAY3 MOVLW 80H ;4SEG
GOTO DEL
DELAY4 MOVLW 60H ;3SEG
GOTO DEL
DELAY2 MOVLW 40H ;2SEG
GOTO DEL
DELAY1 MOVLW 20H ;1SEG
GOTO DEL
DELAY MOVLW 010H ;.5SEG
DEL MOVWF CUENTA1
ACA1 MOVLW 0FFH
MOVWF CUENTA2
ACA DECFSZ CUENTA2
GOTO ACA
DECFSZ CUENTA1
GOTO ACA1
RETURN
APAGA CLRF PORTA
CLRF PORTB
RETURN
ENCIE MOVLW 0FFH
MOVWF PORTA
MOVWF PORTB
RETURN
INV MOVLW 0FFH
XORWF PORTA,F
XORWF PORTB,F
RETURN
END
--------------------------------------
Saludos
kagiva:
Hola! Amigo Sancende.
El código que sigue enciende una línea de 8 LEDs, quizás te sirva, en este caso, lleva
un pulsador con el cual cada vez que lo presionas enciende un LED y en la siguiente
presión se añade un LED más, hasta completar los 8, luego se apagan todos salvo el
primero que permanece encendido. Este emplea un PIC16F84A.
--- Código: Text --- ; Pulsador sin rebotes enciende un LED ^; Que hace => Encender un LED, lo apaga y enciende el siguiente ^ ; hasta el LED 8, luego vuelve a emepzar. ^; ^;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^;STATUS equ h'0003'OPTION_REG equ h'0081'PORTA equ h'0005'; define puerto APORTB equ h'0006'; define puerto B ; Estos estan definidos en #include <P16F84a.INC> ;W equ h'0000';f equ h'0001';--------------- Encabezado ------------- List P=PIC16F84a #include <P16F84A.INC>;Inclusion de fichero de etiquetas ; ORG 0x00 Inicio: BSF 03,5;Ir a pagina1 para ajustar los puertos MOVLW 04h;W se Carga con 04 = 0000 0100b MOVWF 05h;Hace RA2 la entrada para el botón A MOVLW 00h;Pone 00 en W MOVWF 06h;Hace toda RB líneas de salida BCF 03,5;Ir a Pagina0 para seguir programa ; Los ánodos de los LED's se conectan al positivo, de esta forma; un nivel alto en el puerto B apaga los LEDs. ; Por tanto, para encender un LED aplicamos un 0 a la salida ; que deseamos. CLRF PORTB MOVLW .255 ;Apaga los LEDs MOVWF PORTB;en el puerto B SwLoop1: BTFSC 05,2;¿esta apretado el pulsador (bit2)? GOTO SwLoop1;NO. Ir a SwLoop1 CALL Delay;Llamada a rutina de Retardo SwLoop2: BTFSS 05,2;¿esta apretado el pulsador? GOTO SwLoop2;No. Ir a SwLoop2 DECFSZ PORTB,1 BCF STATUS,C; limpio el bit C del STATUS para no intro. error RRF PORTB,1 CALL Delay;Llamada a rutina de Retardo GOTO SwLoop1 Delay: DECFSZ 1Bh,1; Retardo GOTO Delay DECFSZ 1Ch,1 GOTO Delay RETURN END
Espero que te sirva para empezar a practicar. Si necesitas el ejemplo en Proteus, dímelo.
Saludos.
Navegación
Ir a la versión completa