viernes, 11 de abril de 2014

CONTADOR 7 SEGMENTOS DE 0-99

PRESENTADO POR: Wilmer Alejandro Sierra                          
                                Fabian Eduardo  García
correos:                    wilmer_5050@hotmail.com
                                fabigarcia.48@hotmail.com

                                                CONTADOR  7 SEGMENTOS DE 0-99


MATERIALES:
  1. PROTOBOAR
  2. PIC16F877A
  3. CRISTAL CUARZO 20MHZ
  4. 2 DISPLAY 7 SEGEMNTOS 
  5. 2 TRANSISTORES 2N3904
  6. 2 CONDENSADORES DE 22 PICOS(CERAMICOS
  7. UNA RESISTENCIA DE 10K Y  UNA DE 330 OHM
  8. 3 PULSADORES 

CÓDIGO DEL PIC

list        p=16f877a  
    #include    <p16f877a.inc>  
    
   __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _HS_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF

      cblock 0x20
delay1        
delay2          
delay3
Unidades
Decenas

      endc

#define _kte_delay3 h'0F'

org 0
goto Start

Configuración
clrf PORTB
bsf STATUS,RP0
movlw B'00000110'
movwf ADCON1
movlw 0xFF
movwf TRISA
clrf TRISB
clrf TRISC
bcf STATUS,RP0
return


MainLoop

call Configuración
clrf PORTB
clrf Unidades
clrf Decenas



Ver

call Mostrar
call Mostrar
return


Start
call Configuración
call Mostrar
btfsc PORTA,0
goto Incremento
    PORTA,1
goto Decremento
goto Start


Incremento

call Ver
incf Unidades,F
movlw .10
xorwf Unidades,W
btfsc STATUS,Z
goto Incremento_Decenas
call Mostrar
goto Start

Incremento_Decenas

clrf Unidades
incf Decenas,F
movlw .10
xorwf Decenas,W
btfsc STATUS,Z
clrf Decenas
call Mostrar
goto Start

Decremento

call Ver
decf Unidades,F
movlw .210
xorwf Unidades,W
btfsc STATUS,Z
goto Decremento_Decenas
call Mostrar
goto Start

DDecenas


movlw .10
movwf Unidades
decf Decenas,F
movlw .100
xorwf Decenas,W
btfsc STATUS,Z
goto Start
movlw .10
movlw Decenas
call Mostrar
goto Start

tabla

    addwf     PCL,F
    retlw 3Fh ;  "0".
retlw 06h ;  "1".
retlw 5Bh ;  "2".
retlw 4Fh ;  "3".
retlw 66h ;  "4".
retlw 6Dh ;  "5".
retlw 7Dh ;  "6".
retlw 07h ;  "7".
retlw 7Fh ; "8".
retlw 67h ;  "9".
Delay

movlw _kte_delay3  
movwf delay3

Loop:

decfsz   delay1,f         
goto     Loop    
decfsz   delay2,f       
goto     Loop    
decfsz   delay3,f       
goto     Loop    
return

Mostrar

movf Unidades,W
call Tabla_Code_7_Seg
bsf PORTC,5
bcf PORTC,4
movwf PORTB
call Delay
movf Decenas,W
call Tabla_Code_7_Seg
bcf PORTC,5
bsf PORTC,4
movwf PORTB
call Delay
return

end

ESPERO QUE LES SIRVA 
Publicado por en No hay comentarios:

SECUENCIA DEL AUTO-FANTASTICO

PRESENTADO POR: Wilmer Alejandro Sierra                            
                                Fabian Eduardo  García
correos:                    wilmer_5050@hotmail.com
                                fabigarcia.48@hotmail.com

SECUENCIA DEL AUTO-FANTÁSTICO



MATERIALES DEL CIRCUITO 
  1. PROTOBOAR
  2. PIC16F877A
  3. CRISTAL CUARZO 20MHZ
  4. UN LED
  5. 2 CONDENSADORES DE 22 PICOS(CERAMICOS
  6. UNA RESISTENCIA DE 10K Y  UNA DE 330 OHM
  7. UN PULSADOR 
 CÓDIGO DEL PROGRAMA

LIST p=16F877A
INCLUDE <P16F877A.INC> ;LIBRERIA DEL PIC

__CONFIG _WDT_OFF&_PWRTE_ON&_XT_OSC&_LVP_OFF&_CP_OFF ; Configuración para el programador

ORG 0

N EQU 0x00
cont1 EQU 0x20
cont2 EQU 0x21
cont3 EQU 0X22

BCF STATUS,RP0 ;CONFIGURACION DEL BANCO 
BCF STATUS,RP1      
            movwf   PORTB
CLRF PORTB ; LIMPIAR BANCO B
BSF STATUS,RP0
            CLRF TRISB ;Puerto B como salida 
BCF STATUS,RP0 

programa
       BSF PORTB,4  ;ENCERDER PUERTO 4
BSF PORTB,3  ;ENCERDER PUERTO 
CALL Retardo  ;LLAMAR RETARDO
BCF PORTB,4  ;ENCERDER PUERTO 4
BCF PORTB,3  ;ENCERDER PUERTO 4

BSF PORTB,5
BSF PORTB,2 
CALL Retardo 
BCF PORTB,5
BCF PORTB,2
BSF PORTB,6
BSF PORTB,1 
CALL Retardo 
BCF PORTB,6
BCF PORTB,1 
  BSF PORTB,7
BSF PORTB,0 
CALL Retardo 
BCF PORTB,7
BCF PORTB,0

BSF PORTB,6
BSF PORTB,1 
CALL Retardo 
BCF PORTB,6
BCF PORTB,1

BSF PORTB,5
BSF PORTB,2 
CALL Retardo 
BCF PORTB,5
BCF PORTB,2

BSF PORTB,4
BSF PORTB,3 
CALL Retardo 
BCF PORTB,4
BCF PORTB,3

BSF PORTB,3
BSF PORTB, 4
CALL Retardo 
BCF PORTB,3
BCF PORTB,4 

        GOTO programa ;RETOTNA A PROGRAMA

Retardo                      ;CONFIGURACION DE RETARDO 
MOVLW N
MOVWF cont1
Rep1
MOVLW N
MOVWF cont2 

Rep2

DECFSZ cont2,1
GOTO Rep2 
DECFSZ cont1,1 
GOTO Rep1
RETURN 

END

ESPERO QUE LES SIRVA 




Publicado por en No hay comentarios:

COMO ENCENDER Y APAGAR UN LED

PRESENTADO POR: Wilmer Alejandro Sierra                              
                                Fabian Eduardo  García
correos:                    wilmer_5050@hotmail.com
                                fabigarcia.48@hotmail.com  




Bueno somos estudiantes de ingeniera electrónica de V semestre de la Escuela Colombiana de Carreras Industriales, este es un trabajo de la materia de microprocesadores donde conocemos parte del funcionamiento  pic 16F877A.  Sabemos manejar el lenguaje de programación de los pic que es el asembler
y conocimiento de los términos. Efectuamos retardos para  para un solo objetivo  o varias secuencias   cada una con su retardo, se conoce el sistema de programación de puertos como salidas o entradas, seleccionas

se realizan contadores en forma descendente  y ascendente reflejado en display de 7 segmentos y manejo de comunicaciones de serial y  paralelo 


COMO ENCENDER Y APAGAR UN LED



MATERIALES DEL CIRCUITO 

  1. PROTOBOAR
  2. PIC16F877A
  3. CRISTAL CUARZO 20MHZ
  4. UN LED
  5. 2 CONDENSADORES DE 22 PICOS(CERAMICOS
  6. UNA RESISTENCIA DE 10K Y  UNA DE 330 OHM
  7. UN PULSADOR 
CÓDIGO


 LIST p=16F877A
INCLUDE <P16F877A.INC>

__CONFIG _WDT_OFF&_PWRTE_ON&_XT_OSC&_LVP_OFF&_CP_OFF ; Configuración para el programador



ORG 0x00 ;Inicio
N EQU 0x00
cont1 EQU 0x20
cont2 EQU 0x21
BCF STATUS,RP0 ; Accede a banco 0
BCF STATUS,RP1 
CLRF PORTB ; Limpia PORTB
BSF STATUS,RP0 ; banco 1
CLRF TRISB ; PORTB como salidas
BCF STATUS,RP0 ; Regresa a banco 0

proceso
BSF PORTB,5 ; PORTB toma el valor de 1,prende led
CALL Retardo ; Llamada a retardo
BCF PORTB,5 ; PORTB toma el valor de 0, se apaga el LED
CALL Retardo ; Llamada a  retardo 
GOTO proceso ; Va a  proceso

Retardo ; retardo
MOVLW N 
MOVWF cont1
Rep1
MOVLW N
MOVWF cont2 
Rep2
DECFSZ cont2,1
GOTO Rep2 
DECFSZ cont1,1 
GOTO Rep1
RETURN ; Retorno a la llamada  de retardo.

END ; Fin de programa

ESPERO QUE LES SIRVA 


Publicado por en No hay comentarios:
Suscribirse a: Comentarios (Atom)