<GUIA> Barra de carga para HDD

Desastre informático

Buenas Gente !!

Vuelvo a la carga con mas pics y telares!!!

Despues de hacer lo del boton Xbox360, se me a ocurrio adaptarlo para hacer una barra de carga del HDD, como la de las ventanas.

En realidad estoy escribiendo entero el programa

Datos y componentes:

-Como no, un pic 16f84a (mas su cristal de 4MHz..)
-de 8 a 11 LED's con sus respectivas resistencias
-de 1 a 4 entradas de señal de HDD
-Funcion por interrupcion.

Por ahora lo tengo en pruebas, pero espero poner una imagen del simulador esta noche.

Que os parece????

Salu2!

Desastre informático

Bueno he echo el primer soft, es sencillo. Lo he probado con el proteus, os dejo una foto abajo.

Tiene 10 leds de salida y por ahora tiene cuatro figuritas secuenciales, y de ellas solo se puede seleccionar una. Si se desea cambiar de figura hay que cambiarlo y volver a programar el pic.
Es la version 1.0. y esta explicado para que hagais los ajustes oportunos.

Código:

;***********************************BarraHDD_1_0.asm**************************************
;
;===================================================================
; Gerera una barra de carga activada por el disco duro.
; Version 1.0
; Por Aritz Lozano Copyright © 6-10-2008
;===================================================================
;
; ZONA DE DATOS **********************************************************************

__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON

LIST    P=16F84A
INCLUDE <P16F84A.INC>

; Define variables
CBLOCK 0x0C
ENDC

; Define Entradas y salidas y registros para el soft
#DEFINE Led1    PORTB,7    ; Salida Led1
#DEFINE Led2    PORTB,6    ; Salida Led2
#DEFINE Led3    PORTB,5    ; Salida Led3
#DEFINE Led4    PORTB,4    ; Salida Led4
#DEFINE Led5    PORTB,3    ; Salida Led5
#DEFINE Led6    PORTB,2    ; Salida Led6
#DEFINE Led7    PORTA,3    ; Salida Led7
#DEFINE Led8    PORTA,2    ; Salida Led8
#DEFINE Led9    PORTA,1    ; Salida Led9
#DEFINE Led10    PORTA,0    ; Salida Led10
#DEFINE AUX_IN    PORTB,1    ; Entrada señal selector AUX
#DEFINE HDD    PORTB,0    ; Entrada señal Led HDD

; ZONA DE CÓDIGOS ********************************************************************
ORG 0
goto Configura
ORG 4
goto Interrupcion

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;          Inicio del Software (bcf=Salida bsf=entrada)
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Configura
bsf STATUS,RP0    ;Banco 1
bcf Led1       ;Configura las salidas(0)
bcf Led2       ;Configura las salidas(0)
bcf Led3       ;Configura las salidas(0)
bcf Led4       ;Configura las salidas(0)
bcf Led5       ;Configura las salidas(0)
bcf Led6       ;Configura las salidas(0)
bcf Led7       ;Configura las salidas(0)
bcf Led8       ;Configura las salidas(0)
bcf Led9       ;Configura las salidas(0)
bcf Led10       ;Configura las salidas(0)
bsf HDD          ;Configura como entrada para señal HDD
bcf OPTION_REG,6 ;Deteccion por flanco de bajada en portB,0
bcf STATUS,RP0    ;Banco 0
movlw b'10010000' ;Habilita interupcion GIE y Portb0/Int
movwf INTCON

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;          Inico del Programa
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Ini             ;Cuando se inicia por primera vez hace un test de inicio
clrf PORTB
clrf PORTA
call SEC_2
clrf PORTB
clrf PORTA
call Retardo_500ms
;******************************************************************
; Aqui el programa se queda en modo reposo hasta que haya
; alguna interrupcion por parte de la señal del HDD
;******************************************************************
Inicio
SLEEP
goto Inicio

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
; Interupcion
; Si la señal es positiva, ha de ponerse BTFSS HDD y si es
; negativa se pondra BTFSC HDD. Si esta mal no mas seguro es que
; funcione a la inversa, funcionando sin señal de HDD y parando
; con la señal de HDD
; Si queremos cambiar la figura Secuencial para la barra,
; sustituiremos SEC_x, por el numero deseado de figura.
; Numeros de figura disponibles: 1 a 4
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Interrupcion
call Retardo_2ms ;hace un retardo de 2ms
btfsc HDD       ;Btfss para señal positiva, btfsc para señal negativa
call SEC_4       ;llama a la figura seleccionada.
retfie          ;retorna de la interrupcion

;888888888888888888888888888888888888888888888888888888888888888888888
;Subrutinas de Secuenciales
;888888888888888888888888888888888888888888888888888888888888888888888

;-----------------------------------------------------------
;TESPERA: tiempo de espera entre el cambio de un led a otro
;sustituir "Retardo_XXms" por 10, 20, 50, 100, 200 mili seg
;-----------------------------------------------------------
TESPERA
call Retardo_20ms ;Ajusta la velocidad de cambio
return

;Sec_1: se desplaza un led del 1 al led 10
SEC_1
call TESPERA ;llama al retardo
bsf Led1       ;enciende el LED
call TESPERA ;llama al retardo de 50ms
bcf Led1       ;apaga el LED
call TESPERA
bsf Led2
call TESPERA
bcf Led2
call TESPERA
bsf Led3
call TESPERA
bcf Led3
call TESPERA
bsf Led4
call TESPERA
bcf Led4
call TESPERA
bsf Led5
call TESPERA
bcf Led5
call TESPERA
bsf Led6
call TESPERA
bcf Led6
call TESPERA
bsf Led7
call TESPERA
bcf Led7
call TESPERA
bsf Led8
call TESPERA
bcf Led8
call TESPERA
bsf Led9
call TESPERA
bcf Led9
call TESPERA
bsf Led10
call TESPERA
bcf Led10
Return

;Sec_2: se desplazan Dos led del 1 al led 10
SEC_2
bsf Led1
call TESPERA ;llama al retardo
bsf Led2       ;enciende el LED
call TESPERA
bcf Led1
bsf Led3
call TESPERA
bcf Led2
bsf Led4
call TESPERA
bcf Led3
bsf Led5
call TESPERA
bcf Led4
bsf Led6
call TESPERA
bcf Led5
bsf Led7
call TESPERA
bcf Led6
bsf Led8
call TESPERA
bcf Led7
bsf Led9
call TESPERA
bcf Led8
bsf Led10
call TESPERA
bcf Led9
call TESPERA
bcf Led10
Return

;Sec_3: Se enciendel todos los led y se desplaza un led apagado
SEC_3
call TESPERA ;llama al retardo
bcf Led1       ;apaga el LED
call TESPERA ;llama al retardo
bsf Led1       ;enciende el LED
call TESPERA
bcf Led2
call TESPERA
bsf Led2
call TESPERA
bcf Led3
call TESPERA
bsf Led3
call TESPERA
bcf Led4
call TESPERA
bsf Led4
call TESPERA
bcf Led5
call TESPERA
bsf Led5
call TESPERA
bcf Led6
call TESPERA
bsf Led6
call TESPERA
bcf Led7
call TESPERA
bsf Led7
call TESPERA
bcf Led8
call TESPERA
bsf Led8
call TESPERA
bcf Led9
call TESPERA
bsf Led9
call TESPERA
bcf Led10
call TESPERA
bsf Led10
Return

;Sec_4: se desplazan encendiendose de los extremos al centro
SEC_4
call TESPERA ;llama al retardo
bsf Led1
bsf Led10
call TESPERA
bsf Led2
bsf Led9
call TESPERA
bsf Led3
bsf Led8
call TESPERA
bsf Led4
bsf Led7
call TESPERA
bsf Led5
bsf Led6
call TESPERA
bcf Led1
bcf Led10
call TESPERA
bcf Led2
bcf Led9
call TESPERA
bcf Led3
bcf Led8
call TESPERA
bcf Led4
bcf Led7
call TESPERA
bcf Led5
bcf Led6
Return

;SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
; ===================================================================
INCLUDE <RETARDOS.INC>

END

; ===================================================================
; Parte del soft adquirido del libro
; "MICROCONTROLADOR PIC16F84. DESARROLLO DE PROYECTOS"
;
; ===================================================================

Ya tengo pensadas las 2 actualizaciones de este cacharro, la 1.5 y la 2.0
-1.5: se podran elegir las 4 figuritas desde dos conmutadores evitando asi reprogramar el pic.
-2.0: se podran elegir 10 (o mas) figuritas secuenciales mediante 2 pulsadores y utilizando la propia barra como indicador.

Buen os comento que os falta la libreria de Retardos.inc. Para conseguirtla mandadme un MP