Cerradura Electronic A Con Pic 3p5u5z

UNIVERSIDAD AUTONOMA METROPOLITANA UNIDAD IZTAPALAPA DIVISIÓN DE CIENCIAS BÁSICA E INGENIERÍA LICENCIATURA EN INGENIERÍA ELECTRÓNICA

DESARROLLO DE UNA CERRADURA ELECTRONICA ACCIONADA POR TECLADO. PRESENTAN: MIRELES HERNÁNDEZ ALEJANDRO. SOLIS CUEVA LUIS ANTONIO. ASESROR: MTRA. ALMA EDITH MARTÍNEZ LICONA. FIRMA DEL ASESOR: ______________________________ MÉXICO D.F., DICIEMBRE DE 2007

Universidad Autónoma Metropolitana, C. B. I.

Diciembre, 2007

1. INTRODUCCIÓN

Una cerradura electrónica consiste en llevar acabo una función específica para la cual ha sido creada. La ventaja de una cerradura así es que el de esta cerradura tendrá la confiabilidad de que cualquier persona no podrá acceder a su habitación o a un armario, caja, etc. La parte principal del circuito de la cerradura es el PIC 16F876, microprocesador que se encarga de las funciones de: almacenamiento de la clave de y la comparación de las claves introducidas con la anteriormente mencionada. Las claves son introducidas por medio de un teclado de 12 teclas y visualizadas en una pantalla LCD. También cuenta con dos teclas: aceptar y cambiar clave. Si clave se introduce incorrectamente tres veces una alarma se activa durante unos segundos para avisar al que tratan de acceder a su espacio.

-2-


Diciembre, 2007

INDICE 1. Planteamiento y delimitación……………………………………………………….

4

2. ¿Qué es un Microcontrolador?……………………………………………………...

6

2.1. Características………………………………………………………………….

6

2.2. Esquema de un Microcontrolador……………………………………………...

7

2.3. Familias de Microcontroladores………………………………………………..

7

2.4. Elección de un Microcontrolador Adecuado…………………………………..

8

3. Arquitectura RISC………………………………………………………………….

9

3.1. Características………………………………………………………………….

9

4. Microcontroladores PIC……………………………………………………………. 11 4.1. Juego de Instrucciones y entorno de Programación………………………….... 12 4.2. Tamaño de palabra…………………………………………………………….. 14 4.3. Características…………………………………………………………………. 14 4.4. La Programación del Microcontrolador……………………………………….. 15 5. Pantalla LCD de 16x2………………………………………………………………. 17 6. Teclado Matricial……………………………………………………………………. 18 7. Fuente de Alimentación……………………………………………………………... 19 8. Desarrollo del Proyecto…………………………………………………………….. 19 8.1. Investigación…………………………………………………………………… 19 8.2. Programación…………………………………………………………………... 20 8.3. Grabación y Simulación……………………………………………………….. 23 8.4. Circuito Eléctrico……………………………………………………………… 24 8.5. Diagramas..…………………………………………………………………….

24

8.6. Componentes del Proyecto….......……………………………………………..

26

9. Construcción del Circuito…………………………………………………………... 27 10. Funcionamiento……………………………………...……………………………… 35 10.1. Clave de ………………………..……………...…………………

35

10.2. Cambio de la clave de ………………………..…………………..

36

11. Código Fuente del Programa……………………………………………………….. 37 12. Bibliografía………………………………………………………..………………... -3-

68


Diciembre, 2007

1. PLANEAMIENTO Y DELIMITACIÓN. En primera instancia nuestro proyecto era realizar un control por voz, de tal forma que comenzamos por investigar cuales eran los circuitos existentes para realizar un control por voz, de los cuales uno fue el que nos llamo mas la atención (Figura 1), ya que este circuito contenía una parte de teclado, es decir, que si el circuito no podía ser activado por voz (en caso de alguna falla) podría activarse por medio de teclado. Ya habiendo investigado acerca de este circuito nos dimos a la tarea de buscar cada uno de los componentes, de los cuales se tuvo un grave problema con uno de ellos (el elemento principal del circuito).

Figura 1. Circuito encontrado para realizar el control por voz.

-4-


Diciembre, 2007

El chip HM2007 no se pudo conseguir ya que en México no existe tal integrado, de tal forma que nos dimos a la tarea de buscarlo por Internet, el cual fue encontrado, pero el problema que al hacer la compra, los vendedores pedían repetitivamente las aceptaciones de compra, esto nos llevo tres meses, por lo cual optamos por darle otra perspectiva al proyecto, la cual era parte del circuito anterior. El nuevo proyecto constaba en realizar una cerradura electrónica activada por teclado, de tal forma que se pudiera utilizar en alguna puerta, ya sea de una recamara o de algún compartimiento que quisiéramos resguardar. De nuevo se comenzó por investigar algunos circuitos de cerraduras que existen en el mercado, para ver la forma en la cual operan y tratar de realizar nuestro propio diseño, de tal modo de desarrollar el proyecto para que sea un producto que cumpla con las expectativas del . Esta cerradura deberá de ser accesible para el , tanto en el costo (que el precio no sea muy elevado con respecto a las cerraduras que se encuentran en el mercado), como en los materiales de fabricación (resistentes y adecuados).

-5-


Diciembre, 2007

2. ¿QUE ES UN MICROCONTROLADOR? Un microcontrolador es un circuito integrado o chip que incluye en su interior las tres unidades funcionales de una computadora: U, Memoria y Unidades de E/S, es decir, se trata de un computador completo en un solo circuito integrado.

2.1 CARACTERISTICAS Son diseñados para disminuir el coste económico y el consumo de energía de un sistema en particular. Por eso el tamaño de la U, la cantidad de memoria y los periféricos incluidos dependerán de la aplicación. El control de un electrodoméstico sencillo como una batidora, utilizará un procesador muy pequeño (4 u 8 bit) por que sustituirá a un autómata finito. En cambio un reproductor de música y/o vídeo digital (mp3 o mp4) requerirá de un procesador de 32 bit o de 64 bit y de uno o más Códec de señal digital (audio y/o vídeo). El control de un sistema de frenos ABS (Antilock Brake System) se basa normalmente en un microcontrolador de 16 bit, al igual que el sistema de control electrónico del motor en un automóvil. Los microcontroladores representan la inmensa mayoría de los chips de computadoras vendidos, sobre un 50% son controladores "simples" y el restante corresponde a DSPs más especializados. Mientras se pueden tener uno o dos microprocesadores de propósito general en casa, usted tiene distribuidos seguramente entre los electrodomésticos de su hogar una o dos docenas de microcontroladores. Pueden encontrarse en casi cualquier dispositivo electrónico como automóviles, lavadoras, hornos microondas, teléfonos, etc. Un microcontrolador difiere de una U normal, debido a que es más fácil convertirla en una computadora en funcionamiento, con un mínimo de chips externos de apoyo. La idea es que el chip se coloque en el dispositivo, enganchado a la fuente de energía y de información que necesite, y eso es todo. Un microprocesador tradicional no le permitirá hacer esto, ya que espera que todas estas tareas sean manejadas por otros chips. Hay que agregarle los módulos de entrada/salida (puertos) y la memoria para almacenamiento de información.

-6-


Diciembre, 2007

2.2 ESQUEMA DE UN MICROCONTROLADOR

Figura 2. Esquema del microcontrolador.

2.3 FAMILIAS DE CONTROLADORES. Los microcontroladores más comunes en uso se muestran a continuación (Tabla 1):

Empresa

TABLA 1. Microcontroladores más comunes. 8 bits 12 bits 14 bits 16 bits

32 bits

64 bits

Atmel AVR Freescale (antes Motorola)

68HC05, 68HC08, 68HC11, HCS08

x

x

68HC12, 68HC16

683xx, 68HCS12, 68HCSX12

x

Intel

MCS-48 (familia 8048) MCS51 (familia 8051) 8xC251

x

x

MCS96, MXS296

x

x

National Semiconductor

COP8

x

x

X

x

x

Familia 10f2xx

Familia 12Cxx de 12 bits

Familia 12Fxx, 16Cxx y 16Fxx de 14 bits (PIC16F87X)

18Cxx y 18Fxx de 16 bits

x

x

Microchip

Observación: Algunas arquitecturas de microcontrolador están disponibles por tal cantidad de vendedores y en tantas variedades, que podrían tener, con total corrección, su propia categoría. Entre ellos encontramos, principalmente, las variantes de 8051 y Z80.

-7-


Diciembre, 2007

2.4 ELECCIÓN DE UN MICROCONTROLADOR PARA EL PROYECTO. Para elegir una familia de microcontrolador a utilizar nos basamos en los siguientes puntos: •

Microcontroladores de uso más común.

•

Mas utilizados en el ámbito laboral.

•

Mayor información en libros y en internet para la investigación.

•

Más económicos.

•

De mayor a tiendas.

En base a esto decidimos que lo mejor sería utilizar microcontroladores PIC, los cuales tienen una arquitectura RISC.

3. ARQUITECTURA RISC. La Arquitectura RISC (del inglés Reduced Instruction Set Computer), Computadora con Conjunto de Instrucciones Reducido. Es un tipo de microprocesador con las siguientes características fundamentales: 1. Instrucciones de tamaños fijos y presentados en un reducido número de formatos. 2. Solo las instrucciones de carga y almacenamiento acceden a la memoria por datos. Además estos procesadores suelen disponer de muchos registros de propósito general. El objetivo de diseñar máquinas con esta arquitectura es posibilitar la segmentación y el paralelismo en la ejecución de instrucciones y reducir los s a memoria. Las máquinas RISC protagonizan la tendencia actual de construcción de microprocesadores. PowerPC, DEC Alpha, MIPS, ARM... son ejemplos de algunos de ellos.

-8-


Diciembre, 2007

RISC es una filosofía de diseño de U para computadora que está a favor de conjuntos de instrucciones pequeños y simples que toman menor tiempo para ejecutarse. El tipo de procesador más comúnmente utilizado en equipos de escritorio, el x86, está basado en CISC en lugar de RISC, aunque las versiones más nuevas traducen instrucciones basadas en CISC x86 a instrucciones más simples basadas en RISC para uso interno antes de su ejecución. La idea fue inspirada por el hecho de que muchas de las características que eran incluidas en los diseños tradicionales de U para aumentar la velocidad estaban siendo ignoradas por los programas que eran ejecutados en ellas. Además, la velocidad del procesador en relación con la memoria de la computadora que accedía era cada vez más alta. Esto conllevó la aparición de numerosas técnicas para reducir el procesamiento dentro del U, así como de reducir el número total de s a memoria.

3.1 CARACTERISTICAS. En pocas palabras esto significa que para cualquier nivel de desempeño dado, un chip RISC típicamente tendrá menos transistores dedicados a la lógica principal. Esto permite a los diseñadores una flexibilidad considerable; así pueden, por ejemplo: •

Incrementar el tamaño del conjunto de registros

•

Implementar medidas para aumentar el paralelismo interno

•

Añadir cachés enormes

•

Añadir otras funcionalidades, como E/S y relojes para minicontroladores

•

Construir los chips en líneas de producción antiguas que de otra manera no serían utilizables

•

No hacer nada, ofrecer el chip para aplicaciones de bajo poder o de tamaño limitado.

-9-


Diciembre, 2007

Las características que generalmente son encontradas en los diseños RISC son: •

Codificación uniforme de instrucciones (ejemplo: el código de operación se encuentra siempre en la misma posición de bit en cada instrucción, la cual es siempre una palabra), lo que permite una decodificación más rápida.

•

Un conjunto de registros homogéneo, permitiendo que cualquier registro sea utilizado en cualquier contexto y así simplificar el diseño del compilador (aunque existen muchas formas de separar los ficheros de registro de entero y coma flotante).

•

Modos de direccionamiento simple con modos más complejos reemplazados por secuencias de instrucciones aritméticas simples.

•

Algunos tipos de datos soportados en el hardware (por ejemplo, algunas máquinas CISC tiene instrucciones para tratar con tipos byte, cadena; tales instrucciones no se encuentran en una máquina RISC).

Los diseños RISC también prefieren utilizar como característica un modelo de memoria Harvard, donde los conjuntos de instrucciones y los conjuntos de datos están conceptualmente separados; esto significa que el modificar las direcciones donde el código se encuentra pudiera no tener efecto alguno en las instrucciones ejecutadas por el procesador (porque la U tiene separada la instrucción y el cache de datos, al menos mientras una instrucción especial de sincronización es utilizada). Por otra parte, esto permite que ambos caches sean accedidos separadamente, lo que puede en algunas ocasiones mejorar el rendimiento.

- 10 -


Diciembre, 2007

4. MICROCONTROLADORES PIC. Los “PIC” son una familia de microcontroladores tipo RISC fabricados por Microchip Technology Inc., originalmente desarrollado por la división de microelectrónica de General Instruments (Figura 3).

Figura 3. Primeros PIC’s desarrollados por Microchip Technology Inc.

El nombre actual no es un acrónimo. En realidad, el nombre completo es PICmicro, aunque generalmente se utiliza como Peripheral Interface Controller (Controlador de Interfaz Periférico). El PIC original se diseñó para ser usado con la nueva U (Unidad Central de Procesos) de 16 bits 16000. Siendo en general una buena U, ésta tenía malas prestaciones de E/S, y el PIC de 8 bits se desarrolló en 1975 para mejorar el rendimiento del sistema quitando peso de E/S a la U. El PIC utilizaba micro-código simple almacenado en ROM (Read Only Memory) para realizar estas tareas; y aunque el término no se usaba por aquel entonces, se trata de un diseño RISC que ejecuta una instrucción cada 4 ciclos del oscilador.

- 11 -


Diciembre, 2007

En 1985, dicha división de microelectrónica de General Instruments se convirtió en una filial y el nuevo propietario canceló casi todos los desarrollos, que para esas fechas la mayoría estaban obsoletos. El PIC, sin embargo, se mejoró con EPROM para conseguir un controlador de canal programable. Hoy en día multitud de PIC’s vienen con varios periféricos incluidos (módulos de comunicación serie, UART’s, núcleos de control de motores, etc.) y con memoria de programa desde 512 a 32.000 palabras (una palabra corresponde a una instrucción en ensamblador, y puede ser 12, 14 o 16 bits, dependiendo de la familia específica de PICmicro).

4.1 JUEGO DE INSTRUCCIONES Y ENTORNO DE PROGRAMACIÓN. El PIC usa un juego de instrucciones tipo RISC, cuyo número puede variar desde 35 para PIC’s de gama baja a 70 para los de gama alta. Las instrucciones se clasifican entre las que realizan operaciones entre el acumulador y una constante, entre el acumulador y una posición

de

memoria,

instrucciones

de

condicionamiento

y

de

salto/retorno,

implementación de interrupciones y una para pasar a modo de bajo consumo llamada sleep. Microchip proporciona un entorno de desarrollo freeware llamado MPLAB que incluye un simulador software y un ensamblador. Otras empresas desarrollan compiladores C y BASIC. Microchip también vende compiladores para los PIC’s de gama alta ("C18" para la serie F18 y "C30" para los dsPIC’s) y se puede descargar una edición para estudiantes del C18 que inhabilita algunas opciones después de un tiempo de evaluación. Para Pascal existe un compilador de código abierto, JAL, lo mismo que PicForth para el lenguaje Forth. GPUTILS es una colección de herramientas distribuidas bajo licencia GNU que incluye ensamblador y enlazador, y funciona en Linux, MacOS y Microsoft Windows. GPSIM es otra herramienta libre que permite simular diversos dispositivos hardware conectados al PIC.

- 12 -


Diciembre, 2007

Para el desarrollo de este proyecto utilizamos el entorno de programación de MPLAB IDE (Figura 4).

Figura 4. Utilización de MPLAB IDE como entorno de programación.

- 13 -


Diciembre, 2007

4.2 TAMAÑO DE PALABRA. El tamaño de palabra de los microcontroladores PIC es fuente de muchas confusiones. Todos los PIC’s (excepto los dsPIC) manejan datos en trozos de 8 bits, con lo que se deberían llamar microcontroladores de 8 bits. Pero a diferencia de la mayoría de U’s, el PIC usa arquitectura Harvard, por lo que el tamaño de las instrucciones puede ser distinto del de la palabra de datos. De hecho, las diferentes familias de PIC’s usan tamaños de instrucción distintos, lo que hace difícil comparar el tamaño del código del PIC con el de otros microcontroladores. Por ejemplo, un microcontrolador tiene 6144 bytes de memoria de programa: para un PIC de 12 bits esto significa 4096 palabras y para uno de 16 bits, 3072 palabras.

4.3 CARACTERISTICAS. Los PIC’s actuales vienen con una amplia gama de mejoras de hardware incorporadas: •

Núcleos de U de 8/16 bits con Arquitectura Harvard modificada

•

Memoria Flash y ROM disponible desde 256 bytes a 256 kilobytes

•

Puertos de E/S (típicamente 0 a 5,5 voltios)

•

Temporizadores de 8/16 bits

•

Tecnología Nanowatt para modos de control de energía

•

Periféricos serie síncronos y asíncronos: USART, AUSART, EUSART

•

Conversores analógico/digital de 10-12 bits

•

Comparadores de tensión

•

Módulos de captura y comparación PWM

•

Controladores LCD

•

Periférico MSSP para comunicaciones I²C, SPI, y I²S

•

Memoria EEPROM interna con duración de hasta un millón de ciclos de lectura/escritura

•

Periféricos de control de motores

- 14 -

Universidad Autónoma Metropolitana, C. B. I. •

Soporte de interfaz USB

•

Soporte de controlador Ethernet

•

Soporte de controlador CAN

•

Soporte de controlador LIN

•

Soporte de controlador Irda

Diciembre, 2007

4.4 LA PROGRAMACIÓN DEL MICROCONTROLADOR. Para transferir el código de un ordenador al PIC normalmente se usa un dispositivo llamado programador. La mayoría de PIC’s que Microchip distribuye hoy en día incorporan ICSP (In Circuit Serial Programming, programación serie incorporada) o LVP (Low Voltage Programming, programación a bajo voltaje), lo que permite programar el PIC directamente en el circuito destino. Para la ICSP se usan los pines RB6 y RB7 como reloj y datos y el MCLR para activar el modo programación aplicando un voltaje de unos 11 voltios. Existen muchos programadores de PIC’s, desde los más simples que dejan al software los detalles de comunicaciones, a los más complejos, que pueden verificar el dispositivo a diversas tensiones de alimentación e implementan en hardware casi todas las funcionalidades. Muchos de estos programadores complejos incluyen ellos mismos PIC’s preprogramados como interfaz para enviar las órdenes al PIC que se desea programar. Uno de los programadores más simples es el TE20, que utiliza la línea TX del puerto RS232 como alimentación y las líneas DTR y CTS para mandar o recibir datos cuando el microcontrolador está en modo programación. El software de programación puede ser el Irog, muy común entre la gente que utiliza este tipo de microcontroladores. Para la programación del microcontrolador elegido (PIC16F876) utilizamos las siguientes herramientas: •

MPLAP IDE (Herramienta para Depurar y Simular el código del Programa)

•

PIC Simulator IDE (Herramienta Visual de simulación PIC)

•

Grabador PIC USB

- 15 -


Diciembre, 2007

Nosotros utilizamos un programador que utiliza una interfaz USB llamado “PIrog USB” (Figura 5), el cual utiliza un software especial para transferir el código en hexadecimal.

Figura 5. Programa PIrog USB utilizado para la grabación del PIC.

- 16 -


Diciembre, 2007

5. PANTALLA LCD DE 16x2. Una pantalla LCD se trata de un visualizador alfanumérico (solo se pueden ver números, letras y/o algún otro carácter). Este tipo de LCD se define por el número de líneas que es capaz de mostrar a la vez y el número de caracteres por líneas. Un LCD de 8 X 1 es un LCD de 8 caracteres y 1 línea. Los más comunes son de 8, 16, 20, 24 y 40 caracteres y de 1, 2 y 4 líneas. El LCD es actualmente el circuito más barato y confiable para mostrar datos en un proceso de monitoreo y control. Su interfaz con los controladores se realiza a través de un conector de 14 pines, cuya configuración es respetada por la mayoría de los fabricantes. El módulo LCD lleva integrado a sus circuitos una memoria ROM (U1) conocida como “generador de caracteres” que habrá de generar los patrones de la matriz de puntos (5 x 7 ó 7 x 9) que forman los caracteres en la pantalla. También tiene una RAM interna (U2) que almacena los caracteres y los exhibe en el módulo LCD. Esta LCD consta de 16 pines para su conexión (Figura 6): usa 11 líneas de comunicación (3 de control y 8 de datos), 2 de alimentación, 1 para regular la intensidad del texto y 2 para la luz de fondo.

CONTROL

D

A

T

ALIMENTACION E INTENSIDAD

O

S

LUZ DE FONDO

Figura 6. Conector de la pantalla LCD.

- 17 -


Diciembre, 2007

Algunas de sus especificaciones aparecen a continuación: •

Dimensiones de la pantalla: 65mm x 14mm.

•

Dimensiones de la unidad: 82mm x 37mm.

•

Alimentación de +5V DC.

•

Soporta interfaces de 4 u 8 bits.

•

Luz de fondo azul con texto en negro.

•

16 caracteres x 2 líneas.

6. TECLADO MATRICIAL 4x3. Este teclado matricial es un excelente dispositivo de entrada cuando se trabaja con PIC’s. La forma tradicional de conectarlos es utilizando 7 pines, 3 de columnas y 4 de filas. El nombre de este tipo de teclado proviene de su interconexión entre las columnas y las filas (Figura 7), ya que esta conexión tiene la forma de una matriz. Existen teclados matriciales de 4 x 4 y de 4 x 3 teclas.

Figura 7. Conexión de un teclado matricial 3 x 4.

- 18 -


Diciembre, 2007

7. FUENTE DE ALIMENTACIÓN. La fuente de alimentación es un dispositivo muy importante para un sistema, ya que de ahí se toma la energía necesaria para la alimentación del mismo. Esta es un subsistema que convierte la corriente alterna en otro tipo de corriente eléctrica adecuado para nuestra cerradura. Este otro tipo de corriente será de tipo continua, ya que nosotros queremos que se mantenga en un solo valor, pero para nuestro caso se tendrán 2 valores de voltaje de salida (12 y 5 Volts). Nuestra fuente consta de 4 etapas: •

Atenuación: Disminuye el voltaje y la corriente de corriente alterna (voltaje de 128Va.c. a 12Va.c. y la corriente la disminuye a 1A).

•

Rectificación: Se elimina la parte negativa de la señal de corriente alterna, esto se logra utilizando un Rectificador de Onda Completa.

•

Filtrado: Se suavizan los rizos de la señal saliente del rectificador, tratando de logra un valor de voltaje lineal (hasta este punto 12Vd.c.).

•

Regulación: Su función es mantener y controlar el valor deseado a la carga (5Vd.c. al circuito).

8. DESARROLLO DEL PROYECTO.

8.1 INVESTIGACIÓN. Se comenzó por la investigación de cada uno de los 3 elementos principales de nuestro proyecto (PIC, Pantalla LCD y el Teclado Matricial), de tal forma de saber cómo es su funcionamiento y como es que se comportan durante su tiempo de empleo. Ya sabiendo esto, se continúo con la investigación sobre cómo es que se podrían comunicar estos dispositivos, lo cual fue sencillo de averiguar, ya que cada elemento consta con su propio manual (llamados datasheet). Estos manuales contienen las especificaciones de trabajo con las que se deben de operar los elementos, es decir, cuanta alimentación de voltaje se debe de utilizar o como es que se deben de conectar estos elementos entre si, etc. - 19 -


Diciembre, 2007

8.2 PROGRAMACIÓN. La siguiente parte de nuestro proyecto fue la programación, es decir, la creación del programa con el que funcionaria nuestra cerradura. El programa se realizo con la ayuda del compilador MPLab. Este compilador nos ayudo a referenciar nuestros errores en el programa y así corregirlos de tal forma que nuestra programación fuese la correcta. El programa final quedo realizado en bloques (El código fuente de este programa se presenta en la pagina 37). Para la rápida comprensión del programa a continuación se describirán a grandes rasgos los módulos involucrados en el código. INICIO: Este modulo inicializa los puertos del PIC definiendo cuales trabajaran como entradas y cuales como salidas, así como inicializar la EEPROM para almacenar el código de y realizar la llamada a la rutina que inicializa el Display (LCD). Rutinas que utiliza este modulo: ƒ

INITLCD

PRINCI: Este modulo es el principal del programa ya que da la bienvenida al desplegando en el Display el mensaje “INTRODUZCA CLAVE” y coloca el cursor en la línea inferior del Display para esperar a que ingresen el código de , cuando se requiere reiniciar en sistema se hace una llamada a este modulo. Rutinas que utiliza este modulo: ƒ

CLEARL

ƒ

SITUCU

ƒ

ESCMEN

ECOD12, ECOD22, ECOD32, ECOD42: Estos módulos extraen el código 1, código 2, código 3 y código 4, para posteriormente verificar la clave compuesta por la unión de los cuatro códigos coincida con la almacenada en la memoria. Rutinas que utiliza este modulo: ƒ

SUELKEY - 20 -

Universidad Autónoma Metropolitana, C. B. I. ƒ

ESPEKEY

ƒ

INCOR

ƒ

CAMBIOC

ƒ

WRITEL

Diciembre, 2007

FINCOD: Compara la clave obtenida anteriormente con la clave almacenada en la memoria EEPROM, en caso de ser igual activa el bit de apertura de la puerta, en caso contrario se despliega el mensaje de “CLAVE INCORRECTA” y se decrementa el numero de intentos. Rutinas que utiliza este modulo: ƒ

ESPEKEY

ƒ

CAMBIOC

ƒ

LEECOD

ƒ

INCOR

ƒ

CLEARL

ƒ

SITUCU

ƒ

ESCMEN

CAMBIOC: Este modulo se utiliza para cambiar la clave de , el cual para efectuar el cambio pide introduzcas el código antiguo y a continuación la clave nueva dos veces para confirmar que se introdujo correctamente y posteriormente se almacene en le memoria EEPROM. Rutinas que utiliza este modulo: ƒ

CLEARL

ƒ

ESCMEN

ƒ

SUELKEY

ƒ

SITUCU

ƒ

COGECOD

ƒ

LEECOD

ƒ

INCORE

ƒ

INCOREC - 21 -

Universidad Autónoma Metropolitana, C. B. I. ƒ

NOVERI

ƒ

EEWRITE

Diciembre, 2007

NUEVACL: Captura y verifica que la nueva clave sea correcta. NOVERI: Verifica que se introdujo bien la clave al realizar un cambio de esta Rutinas que utiliza este modulo: ƒ

CLEARL

ƒ

ESCMEN

ƒ

SITUCU

ƒ

DELAY

ƒ

NUEVACL

INCOREC: Despliega el mensaje de error cuando la clave no tiene el tamaño de 4 dígitos, y reinicia el sistema sin decrementar los intentos. Rutinas que utiliza este modulo: ƒ

CLEARL

ƒ

ESCMEN

ƒ

SITUCU

INCORE: Cuando la clave que se introdujo tiene el tamaño adecuado pero no corresponde con la almacenada en memoria este modulo despliega el mensaje de “CLAVE INCORRECTA” y decrementa el numero de intentos disponibles, si el numero de intentos llego a su máximo entonces activa la alarma. Rutinas que utiliza este modulo: ƒ

ALARMA

ƒ

CLEARL

ƒ

ESCMEN

ƒ

SUELKEY

ƒ

DELAY

- 22 -


Diciembre, 2007

ALARMA: Después de 3 intentos incorrectos se activa la alarma, una vez activada la alarma suena por un tiempo definido y se reinicia el sistema. COGECOD: Almacena el código almacenado para su posterior uso EEWRITE: Escribe el valor en CODWRITE en la localidad dada por el acumulador de la memoria. GETKEY: Devuelve el valor pulsado en el teclado en código ASCCI. HAYTECL: Identifica la fila en la que se encuentra la tecla presionada. SUELKEY: Subrutina que espera a que se suelte la tecla. ESCMEN: Escribe el mensaje en el display al que se encuentra apuntando el acumulador. WAITLCD: Espera a que acepte un comando el LCD INITLCD: Envía los comandos necesarios para inicializar de forma correcta el Display. CLEARL: Borra el contenido en pantalla del Display. WRITEL: Escribe en pantalla el carácter almacenado en el acumulador

8.3 GRABACIÓN Y SIMULACIÓN. Ya teniendo listo el programa nos dimos a la tarea de buscar un grabador de PIC’s, el cual fue una herramienta necesaria para nuestro proyecto. Este grabador fue adquirido por Internet.

- 23 -


Diciembre, 2007

Con la posesión de nuestro grabador nos vino consigo el programa grabador y simulador de PIC (PIC Simulador IDE), el cual nos ayudo a averiguar si nuestro programa fue logrado con éxito, es decir, con el se comprobaría que la comunicación entre el PIC y el LCD fuera la correcta y que las funciones fueran las adecuadas. Una vez acabado con este proceso nos dimos a la tarea de grabar el PIC con la ayuda de este mismo programa y del grabador.

8.4 CIRCUITO ELECTRICO. Una vez hecha toda la investigación,

los estudios necesarios, la realización del

programa de funcionamiento y las simulaciones necesarias, se comenzó por realizar el circuito que se adecuaría a nuestras necesidades del proyecto, esto con la ayuda de un programa de simulación de circuitos electrónicos (ORCAD PSpice) y de Paint, ya que había algunos componentes que no se encontraron en el ORCAD y se tuvieron que realizar en este ultimo programa (Paint).

8.5 DIAGRAMAS. El circuito que realizamos para la elaboración de nuestro proyecto se muestra en el Diagrama 1. El circuito que se realizo para obtener nuestra fuente de alimentación fue el que se muestra en el Diagrama 2

.

- 24 -


Diagrama 1. Circuito de cerradura electrónica accionada por teclado.

Diagrama 2. Circuito de fuente de alimentación de 2 salidas (12 y 5 Volts).

- 25 -

Diciembre, 2007


Diciembre, 2007

8.6 COMPONENTES DEL PROYECTO. Los componentes que se utilizaron para la construcción del proyecto fueron los siguientes:

Fuente de Alimentación: •

1 Transformador de 12V a 1A.

•

1 Puente de diodos rectificador a 2ª (RS203L).

•

1 Capacitor de 1000µF a 50V.

•

1 Regulador de voltaje positivo a 5V (L7805CV).

•

2 Conectores plug invertido de 1.3mm.

•

Cable.

•

1 Gabinete para eliminador.

Circuito de la Cerradura. •

1 PIC (16F8576).

•

1 Pantalla LCD 16x2.

•

1 Teclado Matricial 4x3.

•

1 Bocina de 8Ω de impedancia.

•

1 Cristal a 10 MHz.

•

1 Transistor para aplicación de switcheo (TIP31).

•

2 Capacitores de 22pF.

•

5 Resistencias de 10kΩ a 1/2W.

•

6 Resistencias de 1kΩ a 1/2W.

•

1 Resistencia de 470Ω a 1/2W.

•

1 Potenciómetro de 10kΩ.

•

2 LED’s (1 Verde y 1 Rojo).

•

2 switch’s tipo botón.

- 26 -

Universidad Autónoma Metropolitana, C. B. I. •

2 Conectores plug de 1.3mm.

•

Conectores header’s (Hembra y Macho).

•

Cable plano de 24 hilos.

•

Cable telefónico.

•

1 Gabinete de 8x14cm y 4cm de alto.

•

1 Tablilla de Experimentación de circuitos (Protoboard).

Diciembre, 2007

Placas del Circuito: •

Placa fenolica de 1 cara de 20x10cm.

•

1 Hoja de papel couché.

Grabación del PIC: •

1 Grabador de PIC’s.

9. CONSTRUCCIÓN DEL CIRCUITO. Se comenzó por armar el circuito en un protoboard para ver que todo funcionara a la perfección (tanto las conexiones como cada uno de los elementos). El primer circuito que se armo fue la fuente de alimentación (Foto 1) ya que con ella se suministra el voltaje necesario para la operación de nuestra cerradura. Se probo con un led que esta etapa estuviera funcionando a la perfección y se midió con un multímetro que los niveles de voltaje a la salida fueran los correctos.

- 27 -


Diciembre, 2007

Foto 1. Fuente de alimentación de dos salidas (12 y 5 Volts) para el circuito de la cerradura.

Ya teniendo nuestra fuente, se prosiguió al armado de la parte central del circuito, empezando por la parte central (Foto 2), es decir, comenzando por poner el PIC al centro del protoboard y conectado el PIC a cada uno de los elementos con los cuales tenia que se conectado, de tal forma que se nos simplificase la conexión del circuito. Esto se tuvo que hacer un par de ocasiones, ya que al tener tantos cables por conectar nos confundíamos y conectábamos cables en donde no iban, esto provocaba que al momento de alimentar el circuito provocaran corto o simplemente no funcionaba el circuito.

- 28 -


Diciembre, 2007

Foto 2. Conexión del PIC a cada uno de los elementos de la cerradura.

Ya conectados todos los cables al PIC, se conectaron tanto el lcd como el teclado en los lugares indicados (poniendo cada cable en el pin adecuado del lcd y del teclado). De tal forma que todo el circuito de la cerradura y la fuente de alimentación quedara en un solo circuito (Foto 3).

- 29 -


Diciembre, 2007

Foto 3. Presentación preliminar de la cerradura electrónica.

A continuación se hicieron pruebas para ver que todas las funciones de la cerradura funcionaran correctamente, es decir, se hicieron pruebas con el teclado para observar que todas las teclas funcionaran, que en el LCD aparecieran todos los textos correctamente (Foto 4) y que los botones de aceptar y cambiar clave operaran a la perfección.

- 30 -


Diciembre, 2007

Foto 4. Textos que aparecen en la pantalla LCD.

Ya teniendo funcionando nuestro circuito nos dimos a la tarea de desarrollar el circuito impreso, es decir, la realización del circuito en una placa fenolica de cobre de una cara. Este procedimiento comenzó por la elaboración de las pistas y los nodos de cada uno de nuestros elementos, lo cual se llevo a cabo con la ayuda del programa de dibujo Paint ya que otros programas relacionados a la elaboración de circuitos impresos no contaban con algunos elementos, es por eso que tuvimos que realizar nuestro propio diseño. Se tuvieron que hacer 3 circuitos impresos: el circuito de la cerradura (Figura 8.a), las pistas para los botones de aceptar y cambiar clave (Figura 8.b) y el circuito de la fuente de alimentación (circuito elaborado a mano por se muy pequeña su placa).

- 31 -


Diciembre, 2007

b)

a) Figura 8. Circuitos impresos a) Circuito principal de la cerradura. b) Pistas para botones de aceptar y cambiar.

Ya teniendo terminados los circuitos impresos en un archivo, lo que prosiguió fue imprimirlos (con impresora láser) en la hoja de papel couché. Este tipo de papel es como plastificado haciendo así que el toner no se adhiera por completo, de tal forma que al planchar el circuito que se imprimió en esta hoja, este quede en la placa de cobre. Teniendo ya el circuito en la placa, esta fue sumergida en cloruro férrico (FeCl3 -solución para grabar circuitos impresos) para que las partes donde no se encontraba toner fueran disueltas y solo quedaran las pistas y los nodos del circuito (Foto 5).

Foto 5. Placa después del ser sumergida en la solución de FeCl3.

- 32 -


Diciembre, 2007

Una vez que se obtuvo la placa con nuestro circuito se le hicieron los agujeros en los nodos del circuito (con la ayuda del taladro y una broca muy pequeña y delgada). Después se soldaron todos y cada uno de los componentes del circuito, de tal forma que la placa quedara ya con los componentes fijos (Foto 6).

Foto 6. Placa con los componentes soldados.

Obtenida ya nuestra placa con todos los elementos unidos, se continúo por realizar los cables de conexión entre la placa y el LCD, así como también para el teclado y la placa de los dos botones. Estos cables de unión (Foto 7) fueron hechos con cable plano con la utilización de conectores header’s (hembra) a los extremos.

- 33 -


Diciembre, 2007

Foto 7. Cable plano para la conexión del teclado (izq.). Cable plano para la conexión del LCD (der.).

Por ultimo se adapto la placa, el LCD y los demás elementos al gabinete para quedara listo nuestro prototipo, para estos se le tuvieron que hacer algunos cortes al gabinete para que su diseño fuera el mas adecuado. El producto final de nuestro proyecto, una cerradura electrónica activada por teclado con alarma y display (Foto 8), funciono a la normalidad, pasando todas las pruebas que se realizaron con la presentación preliminar del proyecto.

Foto 8. Prototipo de la Cerradura Electrónica activa por teclado con alarma y display.

- 34 -


Diciembre, 2007

10. FUNCIONAMIENTO.

10.1 CLAVE DE . 1.

Inicialmente la clave es la 0000.

2.

La calve se almacena en la memoria EEPROM de datos del PIC, por lo que, cuando se desconecte la alimentación del circuito se conserva la clave.

3.

Consta de 4 dígitos que pueden ser: números (del 0 al 9), asteriscos (*) y almohadillas (#). A diferencia de los códigos tradicionales que solo usan los números. Esto proporciona 20736 combinaciones posibles frente a las 10000 que se consiguen solo con números, lo que se traduce en mayor seguridad.

4.

En la pantalla del LCD se muestra el mensaje "INTRODUZCA CLAVE" entonces se introduce la clave de (inicialmente será 0000) y pulsas la tecla ACEPTAR para que se abra la puerta.

5.

Cuando el código introducido es incorrecto se muestra el mensaje "CLAVE INCORRECTA" y la puerta no se abre.

6.

Cuando se acumulan tres fallos al introducir la clave suena una sirena por un altavoz durante unos 15 segundos, después se puede volver a probar.

- 35 -


Diciembre, 2007

10.2 CAMBIO DE LA CLAVE DE . 1.

Pulsar la tecla CAMBIAR CLAVE, entonces aparece durante unos instantes el mensaje "CAMBIO DE CLAVE"

2.

Después te pide la clave con la que se hasta ese momento (inicialmente la 0000) con el mensaje "CLAVE ANTIGUA". Tecleas la clave y pulsas ACEPTAR.

3.

Si la clave es correcta te pide la "NUEVA CLAVE". Tecleas la nueva clave que deseas guardar y pulsas ACEPTAR.

4.

A continuación te pide que repitas la nueva clave para verificarla (con esto aparecerá el mensaje "VERIFIQUE CLAVE"), tecleas de nuevo la misma clave y pulsas ACEPTAR. Si te equivocas te avisa y vuelves a introducir la nueva clave.

5.

Si la verificación es correcta se cambia la clave y se muestra el mensaje "CLAVE CAMBIADA" durante unos segundos.

- 36 -


Diciembre, 2007

11. CODIGO FUENTE. ;Configuración ;----------------------------------------------------------------------------------------------------------------------------------LIST

P=16F876

RADIX HEX INCLUDE

;Procesador a usar ;Sistema de numeración Hexadecimal predeterminada

P16F876.INC

;Librería incluida, contiene definiciones de registros

internos ;Palabra de Configuración __config __OFF & _DEBUG_OFF & _WRT_ENABLE_OFF & _D_OFF & _LVP_OFF & _BODEN_ON & _PWRTE_OFF & _WDT_OFF & _HS_OSC ;----------------------------------------------------------------------------------------------------------------------------------; Registros Reservados ;----------------------------------------------------------------------------------------------------------------------------------PCL

EQU

02H

STATUS

EQU

03H

PORTA

EQU

05H

;Puerto A

DATO

EQU

06H

;PUERTO B

KEYB

EQU

07H

;Puerto C

INTCON

EQU

0BH

PIR2

EQU

0DH

PIE2

EQU

8DH

ADECON1

EQU

9FH

EEDATA

EQU

10CH

EEADR

EQU

10DH

EECON1

EQU

18CH

EECON2

EQU

18DH

; Análogo Digital Configuración

;----------------------------------------------------------------------------------------------------------------------------------; Registros de Uso General ;----------------------------------------------------------------------------------------------------------------------------------T_RELE

EQU

20H

;CONTROLA EL TIEMPO DE APERTURA DE LA PUERTA

PUNTAB

EQU

20H

INTENTO

EQU

21H

;Numero de intentos antes de que se accione la alarma

TECLA

EQU

22H

; Almacena la tecla presionada

CUENTA1

EQU

23H

CUENTA2

EQU

24H

- 37 -

Universidad Autónoma Metropolitana, C. B. I. CUENTA3

EQU

25H

COD1

EQU

26H

; Almacena la primera tecla numérica presionada

COD2

EQU

27H

; Almacena la segunda tecla numérica presionada

COD3

EQU

28H

; Almacena la tercera tecla numérica presionada

COD4

EQU

29H

; Almacena la cuarta tecla numérica presionada

CUENTA4

EQU

2AH

COD1A

EQU

2BH

; Auxiliar para comprobar código

COD2A

EQU

2CH


COD3A

EQU

2DH


COD4A

EQU

2EH


CODWRITE

EQU

2FH ; Auxiliar para escribir código en EEPROM

Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------; ;----------------------------------------------------------------------------------------------------------------------------------F

EQU

1

W

EQU

0

;----------------------------------------------------------------------------------------------------------------------------------; Definiciones ;----------------------------------------------------------------------------------------------------------------------------------#DEFINE

EN

05H,2

; Activa y desactiva el LCD

#DEFINE

RW

05H,1

;

#DEFINE

RS

05H,0

;

#DEFINE

ALA

05H,3

;

#DEFINE

PORTERO 05H,5

ORG

; Apertura y cierre de la puerta

00H

GOTO INICIO ORG

04H

BCF

PIR2,4

RETFIE

- 38 -


Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------; Mensajes para el display ;----------------------------------------------------------------------------------------------------------------------------------TABLA MOVWF

PCL ; Hacemos apuntar el PCL a la dirección de inicio del mensaje

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 1 'Introduzca' ;----------------------------------------------------------------------------------------------------------------------------------MEN_1 RETLW

'I'

RETLW

'N'

RETLW

'T'

RETLW

'R'

RETLW

'O'

RETLW

'D'

RETLW

'U'

RETLW

'Z'

RETLW

'C'

RETLW

'A'

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 5 'Clave' ;----------------------------------------------------------------------------------------------------------------------------------MEN_5 RETLW

''

RETLW

'C'

RETLW

'L'

RETLW

'A'

RETLW

'V'

RETLW

'E'

RETLW

00H

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 2 'Puede Pasar' ;----------------------------------------------------------------------------------------------------------------------------------MEN_2 RETLW

'P'

RETLW

'U'

- 39 -

Universidad Autónoma Metropolitana, C. B. I. RETLW

'E'

RETLW

'D'

RETLW

'E'

RETLW

''

RETLW

'P'

RETLW

'A'

RETLW

'S'

RETLW

'A'

RETLW

'R'

RETLW

00H

Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 3 'Clave Incorrecta' ;----------------------------------------------------------------------------------------------------------------------------------MEN_3 RETLW

'C'

RETLW

'L'

RETLW

'A'

RETLW

'V'

RETLW

'E'

RETLW

''

RETLW

'I'

RETLW

'N'

RETLW

'C'

RETLW

'O'

RETLW

'R'

RETLW

'R'

RETLW

'E'

RETLW

'C'

RETLW

'T'

RETLW

'A'

RETLW

00H

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 4 'Cambio de' ;----------------------------------------------------------------------------------------------------------------------------------MEN_4

- 40 -


'C'

RETLW

'A'

RETLW

'M'

RETLW

'B'

RETLW

'I'

RETLW

'O'

RETLW

''

RETLW

'D'

RETLW

'E'

RETLW

00H

Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 6 'Antigua' ;----------------------------------------------------------------------------------------------------------------------------------MEN_6 RETLW

''

RETLW

'A'

RETLW

'N'

RETLW

'T'

RETLW

'I'

RETLW

'G'

RETLW

'U'

RETLW

'A'

RETLW

00H

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 7 'Nueva' ;----------------------------------------------------------------------------------------------------------------------------------MEN_7 RETLW

'N'

RETLW

'U'

RETLW

'E'

RETLW

'V'

RETLW

'A'

RETLW

00H

- 41 -


Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 8 'Verifique' ;----------------------------------------------------------------------------------------------------------------------------------MEN_8 RETLW

'V'

RETLW

'E'

RETLW

'R'

RETLW

'I'

RETLW

'F'

RETLW

'I'

RETLW

'Q'

RETLW

'U'

RETLW

'E'

RETLW

00H

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 9 'Cambiada' ;----------------------------------------------------------------------------------------------------------------------------------MEN_9 RETLW

''

RETLW

'C'

RETLW

'A'

RETLW

'M'

RETLW

'B'

RETLW

'I'

RETLW

'A'

RETLW

'D'

RETLW

'A'

RETLW

00H

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 10 'La Clave Debe' ;----------------------------------------------------------------------------------------------------------------------------------MEN_10 RETLW

'L'

RETLW

'A'

RETLW

''

- 42 -


'C'

RETLW

'L'

RETLW

'A'

RETLW

'V'

RETLW

'E'

RETLW

''

RETLW

'D'

RETLW

'E'

RETLW

'B'

RETLW

'E'

RETLW

00H

Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 11 'Tener 4 Dígitos' ;----------------------------------------------------------------------------------------------------------------------------------MEN_11 RETLW

'T'

RETLW

'E'

RETLW

'N'

RETLW

'E'

RETLW

'R'

RETLW

''

RETLW

'4'

RETLW

''

RETLW

'D'

RETLW

'I'

RETLW

'G'

RETLW

'I'

RETLW

'T'

RETLW

'O'

RETLW

'S'

RETLW

00H

- 43 -


Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 12 'Intentelo' ;----------------------------------------------------------------------------------------------------------------------------------MEN_12 RETLW

'I'

RETLW

'N'

RETLW

'T'

RETLW

'E'

RETLW

'N'

RETLW

'T'

RETLW

'E'

RETLW

'L'

RETLW

'O'

RETLW

00H

;----------------------------------------------------------------------------------------------------------------------------------;Mensaje 13 'De Nuevo' ;----------------------------------------------------------------------------------------------------------------------------------MEN_13 RETLW

'D'

RETLW

'E'

RETLW

''

RETLW

'N'

RETLW

'U'

RETLW

'E'

RETLW

'V'

RETLW

'O'

RETLW

00H

;----------------------------------------------------------------------------------------------------------------------------------; INICIO: Inicializa los dispositivos. ;

LCD

;

Teclado

;----------------------------------------------------------------------------------------------------------------------------------INICIO CLRF

DATO

; Inicializa el Puerto B

CLRF

KEYB

; Inicializa el Teclado

- 44 -


Diciembre, 2007

CLRF

PORTA

; Inicializa el Puerto A

BSF

STATUS,5

; Cambiamos al Banco 1 para definir las entradas como digitales

MOVLW

06H

; Bits de configuración para las entradas como digitales

MOVWF

ADCON1

; Envía la configuración

CLRF

DATO

;

BCF

EN

; Configuramos EN, RW,

BCF

RW

;

BCF

RS

; RS, ALA y Portero

BCF

ALA

;

BCF

PORTERO

; como salidas

MOVLW

0F0H

; Configuramos el teclado

MOVWF

KEYB

; Columnas como salidas y Filas como entradas

BCF

STATUS,5

; Regresamos al banco 0

BCF

PIR2,4

; La EEPROM eta lista para usarse

MOVLW

03H

; Cargamos el numero de intentos que se podrán

MOVWF

INTENTO

; realizar antes que se active la alarma en este caso 3

CALL

INITLCD

; Inicializamos la pantalla LCD

;CALL

INITLCD

;

;----------------------------------------------------------------------------------------------------------------------------------;PRINCI: Cuerpo principal del programa ;----------------------------------------------------------------------------------------------------------------------------------PRINCI CALL

CLEARL

MOVLW

00H

CALL

SITUCU

; Coloca el cursor al inicio de la línea superior del LCD

MOVLW

MEN_1

; Cargamos la dirección del Mensaje en el Acumulador

CALL

ESCMEN

; Rutina que escribe el mensaje al que apunta el acumulador

MOVLW

44H

CALL SITUCU

; Borra el Display y coloca el cursor ala izq.

; Coloca el cursor al inicio de la línea inferior del LCD

;----------------------------------------------------------------------------------------------------------------------------------;ECOD12: Este modulo almacena la primera tecla numérica presionada y valida ;

que no sea una tecla de función en caso de 'C' entra a la sección

;

de "Cambio de Clave"

- 45 -


Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------ECOD12 CALL SUELKEY

; Verificamos que el teclado se encuentre bien inicializado

CALL ESPEKEY

; Esperamos a que se presione una tecla

MOVWF

COD1

; Almacenamos la primera tecla presionada en el Acumulador

SUBLW

'A'

; Verificamos si la tecla fue o no 'A'

BTFSC

STATUS,2

;

GOTO

INCOR

; Si la tecla = 'A'

MOVF

COD1,W

; Cargamos la tecla en el acumulador

SUBLW

'C'

; Verificamos si la tecla presionada fue 'C'

BTFSC

STATUS,2

; Si la tecla fue 'C'

GOTO

CAMBIOC

; cambiamos la clave

MOVF

COD1,W

; en caso de que se haya presionado una tecla numérica

MOVLW

'*'

; para mantener oculta la tecla oprimida

CALL

WRITEL

; escribimos '*' en el Display

;----------------------------------------------------------------------------------------------------------------------------------;ECOD22: Este modulo almacena la segunda tecla numérica presionada y valida ;


;


;----------------------------------------------------------------------------------------------------------------------------------ECOD22 CALL SUELKEY


CALL ESPEKEY


MOVWF

COD2

; Almacenamos la segunda tecla presionada en el Acumulador

SUBLW

'A'


BTFSC

STATUS,2

;

GOTO

INCOR

; Si la tecla = 'A'

MOVF

COD2,W


SUBLW

'C'


BTFSC

STATUS,2


GOTO

CAMBIOC


MOVF

COD2,W


MOVLW

'*'


- 46 -

Universidad Autónoma Metropolitana, C. B. I. CALL

WRITEL

Diciembre, 2007


;----------------------------------------------------------------------------------------------------------------------------------;ECOD32: Este modulo almacena la tercera tecla numérica presionada y valida ;


;


;----------------------------------------------------------------------------------------------------------------------------------ECOD32 CALL

SUELKEY


CALL

ESPEKEY


MOVWF

COD3

; Almacenamos la tercera tecla presionada en el Acumulador

SUBLW

'A'


BTFSC

STATUS,2

;

GOTO

INCOR

; Si la tecla = 'A'

MOVF

COD3,W


SUBLW

'C'


BTFSC

STATUS,2


GOTO

CAMBIOC


MOVF

COD3,W


MOVLW

'*'


CALL

WRITEL


;----------------------------------------------------------------------------------------------------------------------------------;ECOD42: Este modulo almacena la cuarta tecla numérica presionada y valida ;


;


;----------------------------------------------------------------------------------------------------------------------------------ECOD42 CALL

SUELKEY


CALL

ESPEKEY


MOVWF

COD4

; Almacenamos la cuarta tecla presionada en el Acumulador

SUBLW

'A'


BTFSC

STATUS,2

;

GOTO

INCOR

; Si la tecla = 'A'

MOVF

COD4,W


- 47 -


Diciembre, 2007

SUBLW

'C'


BTFSC

STATUS,2


GOTO

CAMBIOC


MOVF

COD4,W


MOVLW

'*'


CALL

WRITEL


CALL

SUELKEY

;----------------------------------------------------------------------------------------------------------------------------------;FINDCOD: Una vez teniendo las teclas almacenadas, este modulo verifica que ;

la siguiente tecla sea una tecla de función para 'Aceptar' ('A') el código

;

o 'Cambiar la clave' ('C')

;----------------------------------------------------------------------------------------------------------------------------------FINCOD CALL

ESPEKEY

MOVWF

TECLA

SUBLW

'A'

BTFSC

STATUS,2

GOTO

FINCOD2

MOVF

TECLA,W

SUBLW

'C'

BTFSC

STATUS,2

GOTO

CAMBIOC

GOTO

FINCOD

;----------------------------------------------------------------------------------------------------------------------------------;FINDCOD2: ;

Precondiciones: Tener las teclas del código almacenado esto es:

;

Código = 'COD1,COD2,COD3,COD4' y se ha presionado la tecla 'A'

; ;

Este modulo verifica que sea el código correcto para activar la apertura

;----------------------------------------------------------------------------------------------------------------------------------FINCOD2 MOVLW

00H

; Leemos el registro de la EEPROM

CALL

LEECOD

; donde se encuentra almacenado el código correcto

SUBWF

COD1

; Comparamos las teclas

BTFSS

STATUS,2

;

GOTO

INCOR

; Si la tecla es incorrecta

- 48 -


Diciembre, 2007

MOVLW

01H


CALL

LEECOD


SUBWF

COD2


BTFSS

STATUS,2

;

GOTO

INCOR


MOVLW

02H


CALL

LEECOD


SUBWF

COD3


BTFSS

STATUS,2

;

GOTO

INCOR


MOVLW

03H


CALL

LEECOD


SUBWF

COD4


BTFSS

STATUS,2

;

GOTO

INCOR


CALL

CLEARL

; CLAVE CORRECTA

MOVLW

02H

; Colocamos en posición

CALL

SITUCU

; el cursor para escribir en el LCD

MOVLW

MEN_2

; Escribimos el Mensaje

CALL

ESCMEN

; de bienvenida

MOVLW

03H

; Reinicia

MOVWF

INTENTO

; el número de intentos

BSF

PORTERO

; Activa mecanismo de apertura

MOVLW

T_RELE

;

CALL

DELAY

; Esperamos el tiempo dado por T_RELE

BCF

PORTERO

; Desactivamos mecanismo de apertura

MOVLW

10H

CALL

DELAY

GOTO

PRINCI

; Reiniciamos el sistema

- 49 -


Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;INCOR: La clave fue incorrecta y envía el mensaje al LCD ;----------------------------------------------------------------------------------------------------------------------------------INCOR MOVLW

0CH

CALL

COMANDO

CALL

CLEARL

MOVLW

MEN_3

; Escribe el mensaje de clave incorrecta

CALL

ESCMEN

;

DECFSZ

INTENTO,F

; Decrementa el número de intentos disponibles

GOTO INCOR2

; Si aún quedan intentos disponibles

GOTO ALARMA

; Si se acabaron los intentos activa la "Alarma"

INCOR2 MOVLW

20H

; Espera un tiempo antes de

CALL DELAY ; Poder intentar el ingreso GOTO PRINCI ;----------------------------------------------------------------------------------------------------------------------------------;ALARMA: Después de 3 intentos incorrectos de se activa ;

la alarma

;----------------------------------------------------------------------------------------------------------------------------------ALARMA MOVLW

1EH

MOVWF

TECLA

ALARMA4 MOVLW

03H

; Reiniciamos el numero de intentos

MOVWF

INTENTO

; disponibles

MOVLW

00FH

MOVWF

CUENTA1

MOVLW

030H

MOVWF

CUENTA2

ALARMA1 MOVLW

20H

MOVWF

CUENTA4

DECF

CUENTA1,F

BTFSC

STATUS,2

GOTO

ALARMA2

ALARMA3

- 50 -

Universidad Autónoma Metropolitana, C. B. I. BSF

ALA

; Enciende

CALL

FRECU

; Frecuencia de apagado y encendido

BCF

ALA

; Apaga

CALL

FRECU

DECFSZ

CUENTA4,F

GOTO

ALARMA3

GOTO

ALARMA1

Diciembre, 2007

ALARMA2 MOVLW

01H

CALL

DELAY

DECFSZ

TECLA,F

GOTO

ALARMA4

GOTO

PRINCI

MOVF

CUENTA1,W

MOVWF

CUENTA3

FRECU

FRECU2 DECFSZ

CUENTA3,F

GOTO

FRECU2

DECFSZ

CUENTA2,F

GOTO

FRECU

MOVLW

030H

MOVWF

CUENTA2

RETURN ;----------------------------------------------------------------------------------------------------------------------------------;CAMBIOC:

Este modulo Cambia la clave almacenada

;----------------------------------------------------------------------------------------------------------------------------------CAMBIOC CALL

CLEARL

MOVLW

MEN_4

; 'CAMBIO DE'

CALL

ESCMEN

; Escribe el mensaje

MOVLW

MEN_5

; ' CLAVE'

CALL

ESCMEN


MOVLW

20H

CALL

DELAY

; Retardo

- 51 -


Diciembre, 2007

CALL

CLEARL

; Limpiamos el Display

MOVLW

MEN_5

; ' CLAVE'

CALL

ESCMEN


MOVLW

MEN_6

; ' ANTIGUA'

CALL

ESCMEN


CALL

SUELKEY

; Espera a que se deje de presionar la tecla

MOVLW

44H

CALL

SITUCU

; Colocamos el cursor en la línea siguiente

CALL

COGECOD

; Obtiene el Código Tecleado

MOVLW

00H

; Dirección de la EEPROM donde está almacenado el digito

CALL

LEECOD

; Lee el Código de le EEPROM y lo regresa en el acumulador

SUBWF

COD1

; compara el código almacenado con el tecleado

BTFSS

STATUS,2

;

GOTO

INCORE

; Si no es igual ; Si es igual compara el siguiente digito

MOVLW

01H


CALL

LEECOD


SUBWF

COD2


BTFSS

STATUS,2

;

GOTO

INCORE


MOVLW

02H


CALL

LEECOD


SUBWF

COD3


BTFSS

STATUS,2

;

GOTO

INCORE


MOVLW

03H


CALL

LEECOD


SUBWF

COD4


BTFSS

STATUS,2

;

GOTO

INCORE

; Si no es igual

MOVLW

03H

; Si el código fue correcto

MOVWF

INTENTO

; Reiniciamos el número de intentos

- 52 -


Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;NUEVACL:

Capturamos y verificamos la nueva clave y se almacena

;

en la EEPROM

;----------------------------------------------------------------------------------------------------------------------------------NUEVACL CALL

CLEARL

; Limpiamos el Display

MOVLW

02H

CALL

SITUCU

; Colocamos el cursor en la primera línea

MOVLW

MEN_7

; 'NUEVA'

CALL

ESCMEN

; Escribimos el mensaje

MOVLW

MEN_5

; ' CLAVE'

CALL

ESCMEN

; Escribimos el mensaje

MOVLW

44H

; Cambiamos de línea

CALL

SITUCU

;

CALL

SUELKEY

; Esperamos que se libere la tecla

CALL

COGECOD

; Leemos el nuevo código

MOVF

COD1,W

; Copiamos COD1 para verificar posteriormente

BTFSC

STATUS,2

GOTO

INCOREC

MOVWF

COD1A

; Almacenamos COD1 en COD1A

MOVF

COD2,W


BTFSC

STATUS,2

GOTO

INCOREC

MOVWF

COD2A


MOVF

COD3,W


BTFSC

STATUS,2

GOTO

INCOREC

MOVWF

COD3A


MOVF

COD4,W


BTFSC

STATUS,2

GOTO

INCOREC

MOVWF

COD4A


CALL

CLEARL

;VERIFIQUE CLAVE

MOVLW

MEN_8

; 'VERIFIQUE'

CALL

ESCMEN

; Escribe mensaje

- 53 -


Diciembre, 2007

MOVLW

MEN_5

; ' CLAVE'

CALL

ESCMEN

; Escribe mensaje

MOVLW

44H

; Colocamos el cursor en la segunda línea

CALL

SITUCU

;

CALL

SUELKEY

;

CALL

COGECOD

; Obtiene el código

MOVF

COD1,W

; Compara el COD1 con COD1A

SUBWF

COD1A,W

;

BTFSS

STATUS,2

;

GOTO

NOVERI

; Si COD1 != COD1A

MOVF

COD2,W

; Si COD1 = COD1A continuamos comparando

SUBWF

COD2A,W

; COD2 contra COD2A

BTFSS

STATUS,2;

GOTO

NOVERI

; Si COD2 != COD2A

MOVF

COD3,W


SUBWF

COD3A,W

;

BTFSS

STATUS,2;

GOTO

NOVERI

; Si COD3 != COD3A

MOVF

COD4,W


SUBWF

COD4A,W

;

BTFSS

STATUS,2;

GOTO

NOVERI

; Si COD4 != COD4A ; Si COD4 = COD4A continuamos

CALL

CLEARL

;CLAVE CAMBIADA

MOVLW

MEN_5

; ' CLAVE'

CALL

ESCMEN

; Escribe mensaje

MOVLW

MEN_9

; ' CAMBIADA'

CALL

ESCMEN

; Escribe mensaje

MOVF

COD1,W

; Guarda en CODWRITE el

MOVWF

CODWRITE

; digito que se almacenara en EEPROM

MOVLW

00H

; Dirección donde guardara el digito

CALL

EEWRITE

; almacena en EEPROM la clave

MOVF

COD2,W


MOVWF

CODWRITE


- 54 -

Universidad Autónoma Metropolitana, C. B. I. MOVLW

01H


CALL

EEWRITE


MOVF

COD3,W


MOVWF

CODWRITE


MOVLW

02H


CALL

EEWRITE


MOVF

COD4,W


MOVWF

CODWRITE


MOVLW

03H


CALL

EEWRITE


MOVLW

20H

CALL

DELAY

GOTO

PRINCI

Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;NOVERI:

Identifica un error al ingresar la clave nueva

;

por segunda vez

;----------------------------------------------------------------------------------------------------------------------------------NOVERI CALL

CLEARL

; Limpia LCD

MOVLW

03H

;

CALL

SITUCU

; Colocamos el cursor en la primera línea

MOVLW

MEN_12

; 'INTENTELO'

CALL

ESCMEN

; Escribe Mensaje

MOVLW

43H

;

CALL

SITUCU

; Colocamos el cursor en la segunda línea

MOVLW

MEN_13

; 'DE NUEVO'

CALL

ESCMEN

; Escribe mensaje

MOVLW

20H

CALL

DELAY

GOTO

NUEVACL

;----------------------------------------------------------------------------------------------------------------------------------;INCOREC: Despliega un mensaje cuando suscita un error al ;

introducir el código

;-----------------------------------------------------------------------------------------------------------------------------------

- 55 -


Diciembre, 2007

INCOREC CALL

CLEARL

;LA CLAVE DEBE TENER 4 DIGITOS

MOVLW

MEN_10

; 'LA CLAVE DEBE'

CALL

ESCMEN

; Escribe mensaje

MOVLW

40H

CALL

SITUCU

; Cursor a segunda línea

MOVLW

MEN_11

; 'TENER 4 DIGITOS'

CALL

ESCMEN

; Escribe mensaje

MOVLW

20H

CALL

DELAY

GOTO

PRINCI

INCORE DECF

INTENTO,F

; Decrementa el número de intentos

BTFSC

STATUS,2

; verifica que aun existan intentos

GOTO

ALARMA

; si no hay intentos activa ALARMA

CALL

CLEARL

; Limpia Display

MOVLW

MEN_3

; 'CLAVE INCORRECTA'

CALL

ESCMEN

; Escribe Mensaje

MOVLW

20H

CALL

DELAY

CALL

SUELKEY

GOTO

PRINCI

; Esperamos a que suelte la tecla

;----------------------------------------------------------------------------------------------------------------------------------;COGECOD:

Lee el código y lo compara con el antiguo

;----------------------------------------------------------------------------------------------------------------------------------COGECOD CLRF

COD1 ; Limpiamos las variables

CLRF

COD2

CLRF

COD3

CLRF

COD4

;----------------------------------------------------------------------------------------------------------------------------------;ECOD12C: ;

Lee la primera tecla del código y verifica que sea numérica

;----------------------------------------------------------------------------------------------------------------------------------ECOD12C

- 56 -


SUELKEY


CALL

ESPEKEY

; Esperamos a que se presione la tecla

MOVWF

COD1

;

SUBLW

'A'

BTFSC

STATUS,2

RETURN

Diciembre, 2007

; Si es 'A'

MOVF

COD1,W

; Si no es 'A' verificamos 'C'

SUBLW

'C'

BTFSC

STATUS,2

GOTO

ECOD12C

; Si es 'C'

MOVLW

'*'

; Si no es 'C'

CALL

WRITEL

; Escribimos '*' en pantalla

;----------------------------------------------------------------------------------------------------------------------------------;ECOD22C:

Lee la segunda tecla del código y verifica

;

que sea numérica

;----------------------------------------------------------------------------------------------------------------------------------ECOD22C CALL

SUELKEY

CALL

ESPEKEY ; Esperamos a que se presione la tecla

MOVWF

COD1 ;

SUBLW

'A'

BTFSC

STATUS,2

RETURN


; Si es 'A'

MOVF

COD1,W


SUBLW

'C'

BTFSC

STATUS,2

GOTO

ECOD22C

; Si es 'C'

MOVLW

'*'

; Si no es 'C'

CALL

WRITEL


;----------------------------------------------------------------------------------------------------------------------------------;ECOD32C:

Lee la tercera tecla del código y verifica

;

que sea numérica

;----------------------------------------------------------------------------------------------------------------------------------ECOD32C CALL

SUELKEY


CALL

ESPEKEY


MOVWF

COD1 ;

- 57 -

Universidad Autónoma Metropolitana, C. B. I. SUBLW

'A'

BTFSC

STATUS,2

RETURN

Diciembre, 2007

; Si es 'A'

MOVF

COD1,W


SUBLW

'C'

BTFSC

STATUS,2

GOTO

ECOD32C

; Si es 'C'

MOVLW

'*'

; Si no es 'C'

CALL

WRITEL


;----------------------------------------------------------------------------------------------------------------------------------;ECOD42C:

Lee la cuarta tecla del código y verifica

;

que sea numérica

;----------------------------------------------------------------------------------------------------------------------------------ECOD42C CALL

SUELKEY


CALL

ESPEKEY


MOVWF

COD1 ;

SUBLW

'A'

BTFSC

STATUS,2

RETURN

; Si es 'A'

MOVF

COD1,W


SUBLW

'C'

BTFSC

STATUS,2

GOTO

ECOD42C

; Si es 'C'

MOVLW

'*'

; Si no es 'C'

CALL

WRITEL


CALL

SUELKEY

; Esperamos a que se suelte la tecla

;----------------------------------------------------------------------------------------------------------------------------------;FINCOD:

Espera la tecla 'A' Aceptar o cancelar 'C'

;

para cambiar el código

;----------------------------------------------------------------------------------------------------------------------------------FINCODC CALL

ESPEKEY

MOVWF

TECLA

SUBLW

'A'

BTFSC

STATUS,2

RETURN

; Espera que se presione una tecla de función

;YA TENGO EL CÓDIGO

- 58 -

Universidad Autónoma Metropolitana, C. B. I. GOTO

Diciembre, 2007

FINCODC

;----------------------------------------------------------------------------------------------------------------------------------;

LEECOD:

SUBRUTINA QUE LEE EL REGISTRO DE LA EEPROM

;

INDICADO POR EL ACUMULADOR Y LO DEVUELVE EN

;

ACUMULADOR

;----------------------------------------------------------------------------------------------------------------------------------LEECOD BSF

STATUS,6

BCF

STATUS,5

MOVWF

EEADR

BSF

STATUS,5

BCF

EECON1,7

BSF

EECON1,0

BCF

STATUS,5

MOVF

EEDATA,W

BCF

STATUS,6

RETURN ;----------------------------------------------------------------------------------------------------------------------------------;

EEWRITE:

SUBRUTINA QUE ESCRIBE EN LA EEPRON DE DATOS

;

PASAR LA DIRECCION DE LA EEPRON A ESCRIBIR EN W

;

Y EL DATO A ESCRIBIR EN CODWRITE

;----------------------------------------------------------------------------------------------------------------------------------EEWRITE BSF

STATUS,6

BCF

STATUS,5

MOVWF

EEADR

BCF

STATUS,6

MOVF

CODWRITE,W

BSF

STATUS,6

MOVWF

EEDATA

BSF

STATUS,5

BCF

EECON1,7

BSF

EECON1,2

BCF

INTCON,7

MOVLW

55H

- 59 -

Universidad Autónoma Metropolitana, C. B. I. MOVWF

EECON2

MOVLW

0AAH

MOVWF

EECON2

BSF

EECON1,1

BSF

INTCON,7

BCF

STATUS,5

BCF

STATUS,6

Diciembre, 2007

EEWRIT BTFSS

PIR2,4

GOTO

EEWRIT

BSF

STATUS,5

BSF

STATUS,6

BCF

EECON1,2

BCF

STATUS,5

BCF

STATUS,6

BCF

PIR2,4

RETURN ;----------------------------------------------------------------------------------------------------------------------------------;

GETKEY:

Subrutina que devuelve el valor pulsado en

;

un teclado hexadecimal en código ASCII en W

;COL1: 0

COL2: 1

;ROW1: 4

ROW2: 5

COL3: 2

COL4: 3 ROW3: 6

ROW4: 7

;----------------------------------------------------------------------------------------------------------------------------------GETKEY MOVLW

0FH

; Inicializamos el teclado

MOVWF

KEYB

; Columnas a 1 y Filas a 0

MOVF

KEYB,W

; Capturamos el Puerto C (00001111) si no se presiono alguna

MOVWF

TECLA

; Guardamos la tecla presionada

CALL

REBOTE

; Retardo para esperar la tecla

MOVF

KEYB,W

;

SUBWF

TECLA,F

; Si se ha inicializado correctamente

BTFSS

STATUS,2

; el teclado

GOTO

GETKEY

; continuamos

SUBLW

0FH

; Verificamos el que se

NOP tecla

- 60 -

Universidad Autónoma Metropolitana, C. B. I. BTFSS

STATUS,2

; haya presionado alguna tecla

GOTO

HAYTECL

; si se presiono una tecla

RETLW

0FH

; caso contrario regresamos vacio

Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;HAYTECL: Cuando se encuentra una tecla presionada ;

este modulo identifica en que fila se encuentra

;----------------------------------------------------------------------------------------------------------------------------------HAYTECL BTFSC

KEYB,4

; Verifica si se presiono alguna

GOTO

ROW1

; de las teclas de la fila 1

BTFSC

KEYB,5


GOTO

ROW2


BTFSC

KEYB,6


GOTO

ROW3


BTFSC

KEYB,7


GOTO

ROW4


RETLW

0FH

; En caso de ninguna de las anteriores

;----------------------------------------------------------------------------------------------------------------------------------;ROW1: Si la Tecla Presionada se encuentra en la Fila 1 ;

del teclado este modulo identifica esta tecla.

;----------------------------------------------------------------------------------------------------------------------------------ROW1 MOVLW

01H

MOVWF

KEYB

NOP BTFSC

KEYB,4

RETLW

31H

MOVLW

02H

MOVWF

KEYB

;TECLA=1

NOP BTFSC

KEYB,4

RETLW

32H

MOVLW

04H

MOVWF

KEYB

;TECLA=2

NOP BTFSC

KEYB,4

RETLW

33H

;TECLA=3

- 61 -


08H

MOVWF

KEYB

Diciembre, 2007

NOP BTFSC

KEYB,4

RETLW

'A'

RETLW

0FH

;TECLA=A



;----------------------------------------------------------------------------------------------------------------------------------ROW2 MOVLW

01H

MOVWF

KEYB

NOP BTFSC

KEYB,5

RETLW

34H

MOVLW

02H

MOVWF

KEYB

;TECLA=4

NOP BTFSC

KEYB,5

RETLW

35H

MOVLW

04H

MOVWF

KEYB

;TECLA=5

NOP BTFSC

KEYB,5

RETLW

36H

;TECLA=6

RETLW 0FH ;----------------------------------------------------------------------------------------------------------------------------------;ROW3: Si la Tecla Presionada se encuentra en la Fila 3 ;


;----------------------------------------------------------------------------------------------------------------------------------ROW3 MOVLW

01H

MOVWF

KEYB

NOP BTFSC

KEYB,6

RETLW

37H

;TECLA=7

- 62 -


02H

MOVWF

KEYB

Diciembre, 2007

NOP BTFSC

KEYB,6

RETLW

38H

MOVLW

04H

MOVWF

KEYB

;TECLA=8

NOP BTFSC

KEYB,6

RETLW

39H

MOVLW

08H

MOVWF

KEYB

;TECLA=9

NOP BTFSC

KEYB,6

RETLW

'C'

RETLW

0FH

;TECLA=C



;----------------------------------------------------------------------------------------------------------------------------------ROW4 MOVLW

01H

MOVWF

KEYB

NOP BTFSC

KEYB,7

RETLW

'*'

MOVLW

02H

MOVWF

KEYB

;TECLA=*

NOP BTFSC

KEYB,7

RETLW

30H

MOVLW

04H

MOVWF

KEYB

;TECLA=0

NOP BTFSC

KEYB,7

RETLW

'#'

RETLW

0FH

;TECLA=#

- 63 -


Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;

SUELKEY:

;

SUBRUTINA QUE ESPERA A QUE SE SUELTE LA TECLA PULSADA

;----------------------------------------------------------------------------------------------------------------------------------SUELKEY CALL

GETKEY

SUBLW

0FH

BTFSC

STATUS,2;

RETURN GOTO

; Se verifica si regreso vacio ; (no se presiono ninguna tecla)

SUELKEY

; Se presiono una tecla

;----------------------------------------------------------------------------------------------------------------------------------;

ESPEKEY:

;

SUBRUTINA QUE ESPERA A QUE SE PULSE UNA TECLA DEVUELVE EL VALOR EN W Y TECLA

;----------------------------------------------------------------------------------------------------------------------------------ESPEKEY CALL

GETKEY

; Obtiene la tecla presionada

MOVWF

TECLA

; Verificamos

SUBLW

0FH

; que se haya

BTFSC

STATUS,2

; presionado una tecla

GOTO

ESPEKEY

; si no se presiono

MOVF

TECLA,W

; si se presiono una tecla regresamos

RETURN

; el valor en el acumulador

;----------------------------------------------------------------------------------------------------------------------------------;

ESCMEN:

;

SUBRUTINA QUE ESCRIBE UN MENSAJE EN EL LCD, PASAR INICIO DE TABLA EN ACUMULADOR

;----------------------------------------------------------------------------------------------------------------------------------ESCMEN MOVWF

PUNTAB

; Guardamos la dirección del inicio del mensaje en PUNTAB

ESCMEN2 CALL

TABLA

ADDLW

00H

BTFSC

STATUS,2

RETURN CALL

WRITEL

INCF

PUNTAB,F

MOVF

PUNTAB,W

GOTO

ESCMEN2

- 64 -


Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;

WAITLCD:

SUBRUTINA DE ESPERA AL LCD

;----------------------------------------------------------------------------------------------------------------------------------WAITLCD BSF

STATUS,5

; Cambio al Banco 1 y

MOVLW

0FFH

; configuro el puerto B como

MOVWF

DATO

; entrada para leer desde el LCD

BCF

STATUS,5

; Regreso al Banco 0

BSF

EN

; Activamos el LCD

BCF

RS

; Configuramos el LCD para poder leer

BSF

RW

; el 'busy flag' esto es RS=0, RW=1

MOVLW

0FFH

; Pongo el Puerto B todo en 1

MOVWF

DATO

WAITLC BTFSC

DATO,7

; Espera a que se libere la bandera de ocupado

GOTO

WAITLC

; de el LCD

BCF

EN

; Limpio los bits

BCF

RW

; de comandos del LCD

BCF

DATO,7

BSF

STATUS,5

; Regreso el Puerto B

CLRF

DATO

; como Salidas

BCF

STATUS,5

;

RETURN ;----------------------------------------------------------------------------------------------------------------------------------;INITLCD:

SUBRUTINA DE INICIALIZACIÓN DEL LCD

;----------------------------------------------------------------------------------------------------------------------------------INITLCD MOVLW

38H

;00111000

CALL

COMANDO

;INTERFACE 8 BIT, 2 LINEAS

MOVLW

0CH

;00001100

CALL

COMANDO

;DISPLAY A ON, NO MUESTRA CURSOR, NO PARPADEO

MOVLW

06H

;00000110

- 65 -


COMANDO

Diciembre, 2007

;MUEVE CURSOR A LA DCHA DESPUES D ESCRIBIR, NO MUEVE VENTANA

RETURN ;----------------------------------------------------------------------------------------------------------------------------------;

CLEARL:

SUBRUTINA QUE BORRA EL LCD Y LLEVA EL CURSOR AL LADO

IZQUIERDO ;

DEL DISPLAY

;----------------------------------------------------------------------------------------------------------------------------------CLEARL MOVLW

01H

CALL COMANDO

;BORRADO

RETURN ;----------------------------------------------------------------------------------------------------------------------------------;

WRITEL:

SUBRUTINA QUE ESCRIBE EN EL LCD EL CARACTER DEL

ACUMULADOR ;----------------------------------------------------------------------------------------------------------------------------------WRITEL BSF

EN

BSF

RS

BCF

RW

MOVWF

DATO

BCF

EN

CALL

WAITLCD

RETURN ;----------------------------------------------------------------------------------------------------------------------------------;

COMANDO: SUBRUTINA QUE ENVIA UN COMANDO AL LCD

;----------------------------------------------------------------------------------------------------------------------------------COMANDO BSF

EN

BCF

RS

BCF

RW

MOVWF

DATO

BCF

EN

CALL

WAITLCD

RETURN

- 66 -


Diciembre, 2007

;----------------------------------------------------------------------------------------------------------------------------------;

SITUCU:

SUBRUTINA QUE SITUA EL CURSOR EN LA DIRECCION INDICADA POR

EL ;

ACUMULADOR

;----------------------------------------------------------------------------------------------------------------------------------SITUCU IORLW 80H CALL COMANDO RETURN ;----------------------------------------------------------------------------------------------------------------------------------;*********** DELAY *********** ; SUBRUTINA DE RETARDO SEGÚN EL VALOR DEL ACUMULADOR ; MODIFICA LOS SIGUIENTES REGISTROS ;

CUENTA1

;

CUENTA2

;

CUENTA3

;----------------------------------------------------------------------------------------------------------------------------------DELAY MOVWF

CUENTA1

DELAY3 MOVLW

0FFH

MOVWF

CUENTA2

DELAY2 MOVLW

0FFH

MOVWF

CUENTA3

DELAY1 DECFSZ

CUENTA3,F

GOTO

DELAY1

DECFSZ

CUENTA2,F

GOTO

DELAY2

DECFSZ

CUENTA1,F

GOTO

DELAY3

RETURN REBOTE

- 67 -


0FFH

MOVWF

CUENTA1

DECFSZ

CUENTA1,F

GOTO

REBO

Diciembre, 2007

REBO

RETURN ORG

2100H

DE

30H,30H,30H,30H

END

12. BIBLIOGRAFIA.

1.

Curso Avanzado de Microcontroladores PIC.

2.

Iovine, John. PIC Robotics .McGraw Hill. E.U. A. 2004, 290 p.p.

3.

http://es.wikipedia.org/wiki/Microcontrolador

4.

Hoja de especificaciones de: PIC 16F876, L7805CV (Regulador de Voltaje), Pantalla LCD y Teclado Matricial.

- 68 -

Cerradura Electronic A Con Pic 3p5u5z

Overview 4q3b3c

More details 26j3b

Related Documents 171j1w

Cerradura Electronic A Con Pic 3p5u5z

Apertura De Cerradura Electronica Mediante Pic 5d6f30

Programacion Pic Con C 5h2n4a

Spwm Con Pic 6r705q

Reloj Digital Con Pic 1h5g6

Proyectos Con Pic 5o2d6r

More Documents from "Jose Angel Peraza Dominguez" 6n591o

Cerradura Electronic A Con Pic 3p5u5z

Sistemas Electronicos De Comunicaciones - Frenzel 12p4g

La Bibles Des Blagues.pdf 5d3a4s

Sistema Notas Saga1 66o6k

Segmento Fitoterapia - Dr. Sergio Panizza 3c6p2v

Licencia Internacional 4l652