Aqui dejo un ejemplito:
-Ya se puede cambiar la hora del reloj
-Los datos a cambiar quedan en modo parpadeo
-Se modifican solo con dos teclas
-Las teclas responden muy bien, sin fallos, si pulsas rapido respondes rapidas y si pulsas lento van lentas.
'********************************** PIC Entrenadora BASIC (PicEBasic)**************************
'NOMBRE: 16F88_LCD_RTC_12
'MICRO: PIC16f88A
'FECHA/AUTOR: 12/06 - By COS, PSI v7.71
'Vercion 1.2, 18/02/07
'Correccion de fallo en la rutina de lectura de los registros del RTC
'correccion de fallo en la rutina de modificacion de los registros del RTC
'Modificacion de la rutina de configuracion del reloj
'Se trucan todas las posiciones que no usan los registro del RTC, rutina de lectura del RTC
'Se elimina la variable aux1_ajuste
'Version 1.1, 12/02/07
'Se cambia el formato del dia
'Se implementan bases de tiempos, para el control del flujo de las rutinas
'Se incorpora la rutina pause
'Se cambian la funcion de las teclas S1 y S2 pulsadas al mismo tiempo, ahora entramos en programacion
'Una vez en programacion con S1 seleccionamos el dato a cambiar, este queda en modo parpadeo
'Una vez en programacion con S2 incrementamos el dato seleccionado dentro de sus cotas
'Version 1.0
'Descripcion: muestra en el display la fecha y la hora en formato de 24 horas
'para transferir la hora al reloj dejar pulsada la tecla S1
'*******************************************************************************************************
Define CONF_WORD = 0x2f50 'Configuración de bits (fuses)
Define CONF_WORD_2 = 0x3ffc 'Configuración de bits (fuses)
Define CLOCK_FREQUENCY = 8 'Frecuencia del reloj en Mhz
'Define SIMULATION_WAITMS_VALUE = 1 'Solo para simulación, acelera los WaitMs
'-------------------------------------Puertos del LCD-------------------------------------
Define LCD_BITS = 4 'Indicamos que el bus de datos del lcd sera de 4bit
Define LCD_DREG = PORTA 'Bus de datos sera el puerto A
Define LCD_DBIT = 0 'Bus de datos seran los 4 bit menos significativos del puerto A
Define LCD_RSREG = PORTB 'Bit de control RS sera del puerto B
Define LCD_RSBIT = 7 'RB7 como RS
Define LCD_EREG = PORTB 'Bit de control E sera del puerto B
Define LCD_EBIT = 6 'RB6 como E
Define LCD_COMMANDUS = 2000 'Tiempo de espera despues de ejecutar un comando del lcd en uSeg.
Define LCD_DATAUS = 50 'Tiempo de espera despues de enviar un dato al LCD en uSeg.
Define LCD_INITMS = 50 'Tiempo de espera despues de inicializar el Display.
'Asignacion de nombres
Symbol sda = PORTB.1 'Asignamos nombre al pin que hara de SDA del puerto I2C
Symbol scl = PORTB.4 'Asignamos nombre al pin que hara de SCL del puerto I2C
Symbol led_amarillo = PORTA.7 'Led amarillo
Symbol led_verde = PORTB.0 'Led verde
Symbol luz_lcd = PORTB.3 'Retroiluminacion del lcd
Symbol s1 = RA6 'Se asigna nombre a la tecla
Symbol s2 = RA5 'Se asigna nombre a la tecla
'Asignacion de I/O y valores de inicio de las salidas
ANSEL = %00000000 'Los pin I/O digitales
CMCON = 0x07 'Comparador a off
OSCCON = 0x7e 'Set intrc To 8mhz, se usara reloj interno a 8Mhz
TRISA = 0x00 'Puerto A como salidas
TRISB = 0x00 'Puerto B como salidas
TRISA.4 = 1 'Como entrada (RA4, adc)
TRISA.6 = 1 'Como entrada (RA6, tecla S1)
TRISA.5 = 1 'Como entrada (RA5, tecla S2)
PORTB.3 = 1 'Luz lcd a on (RB3)
PORTA.7 = 1 'Led amarillo a off
PORTB.0 = 1 'Led verde a off
'Inicializacion de Interrupciones
T1CON.TMR1CS = 0 'Asigna el reloj interno al timer1, se incrementa cada ciclo de instruccion
T1CON.T1CKPS0 = 0 'Factor del preescales del timer1, 0
T1CON.T1CKPS1 = 0 'Factor del preescales del timer1, 0
TMR1H = 0xf8 'Carga el registro del contador para que desborde cada 1mSeg, byte alto
TMR1L = 0x30 'Carga el registro del contador para que desborde cada 1mSeg, byte bajo
T1CON.TMR1ON = 1 'Habilitacion del TMR1, comienza a incrementarce
PIE1.TMR1IE = 1 'Activa las interrupciones del timer1
INTCON.PEIE = 1 'Bit de habilitacion de interrupciones de perifericos
'-------------------------------------------------------------------------------------------------------------------------
Lcdinit 'Inicializa el lcd sin cursor
'-------------------------------------------------------------------------------------------------------------------------
'Definicion de variables
'Variables de los timer
Dim aux_pause As Word 'Variable auxiiar el PAUSE
Dim pause As Word 'Contiene el valor para simular el comando Waitms
Dim timer_1ms As Byte 'Base de tiempos se incrementa cada 1mSeg, timer del PAUSE
Dim timer_base As Byte 'Tiempo referencia para los timer por soft del programa
Dim timer_base_tiempo As Byte 'contiene el valor del tiempo del timer_base
Dim timer1_ms As Word 'Base de tiempos en ms
Dim timer2_ms As Word 'Base de tiempos en ms
Dim timer3_ms As Word 'Base de tiempos ms
Dim timer1_100ms As Byte 'Base de tiempos msx100
Dim timer2_100ms As Byte 'Base de tiempos msx100
Dim timer3_100ms As Byte 'Base de tiempos msx100
Dim timer1_ms_tiempo As Word 'Contiene el valor del tiempo del timer1_ms
Dim timer2_ms_tiempo As Word 'Contiene el valor del tiempo del timer2_ms
Dim timer3_ms_tiempo As Word 'Contiene el valor del tiempo del timer3_ms
Dim timer1_100ms_tiempo As Byte 'Contiene el valor del tiempo del timer1_100ms
Dim timer2_100ms_tiempo As Byte 'Contiene el valor del tiempo del timer2_100ms
Dim timer3_100ms_tiempo As Byte 'Contiene el valor del tiempo del timer3_100ms
'Variables Programa
Dim aux_4h As Byte 'Contendra el nibble alto del dato leido por el I2C
Dim aux_4l As Byte 'Contendra el nibble bajo del dato leido por el I2C
Dim i As Byte 'Variable indice
Dim reg(7) As Byte 'Contendra los valores finales de fecha y hora en el sistema decimal
Dim flash_1 As Bit 'Controla el parpadeo de los digitos del lcd, activo a 1
Dim dato As Byte 'Indica la direccion del RTC a cambiar de valor
Dim flag_1 As Bit 'Activa la rutina de ajuste del reloj, activo a 1
Dim s1_on As Bit 'Tecla pulsada si s1_on=1
Dim s2_on As Bit 'Tecla pulsada si s2_on=1
Dim aux_ajuste As Byte 'Variable auxiliar para la rutina de ajuste
'Asignacion de valores a las variables
s1_on = 0
s2_on = 0
dato = 7 'Fuera de ajuste o modo normal de trabajo del reloj, de 0 a 6 modo ajuste
flash_1 = 0
flag_1 = 0
timer_base = 0
timer1_ms = 0
timer2_ms = 0
timer3_ms = 0
timer1_100ms = 0
timer2_100ms = 0
timer3_100ms = 0
timer_base_tiempo = 100 'Cuenta 100mSeg
timer1_ms_tiempo = 50 'Cuenta 50mSeg.
timer2_ms_tiempo = 500 'Cuenta 500mSeg
timer3_ms_tiempo = 5 'Cuenta 5mSeg
timer1_100ms_tiempo = 10 'Cuenta 1 Seg.
timer2_100ms_tiempo = 20 'Temporiza 2Seg
timer3_100ms_tiempo = 1 'Temporiza 0.1seg
'---------------------------------------------------------------------------------------
Enable 'INTCON.GIE habilita todas las interrupciones globales
pause = 1000
Gosub pause_ms 'Espera el tiempo indicado en pause
Lcdout "16f88LCD_RTC/I2C" 'Escribe en el lcd
Lcdcmdout LcdLine2Home 'Seleciona la linea dos como proxima para escritura
Lcdout "Pruebas con I2C" 'Sscribe en el lcd
pause = 3000
Gosub pause_ms 'Wspera el tiempo indicado en pause
Lcdcmdout LcdClear 'Borra el display y cursor a casa
'Bucle principal
main:
If s1 = 1 And s1_on = 1 Then s1_on = 0 'Libera el pulsador S1, control anti-rebotes tecla
If s2 = 1 And s2_on = 1 Then s2_on = 0 'Libera el pulsador S2, control anti-rebotes tecla
If s1 = 0 And s2 = 0 And s1_on = 0 And s2_on = 0 And flag_1 = 0 Then '________Modo ajuste
flag_1 = 1 'Activa la rutina de ajustes
dato = 0 'Activo cambio de la hora
timer1_ms = 0 'Resetea la base de tiempos de retraso entre pulsacion y pulsacion de S1
timer3_ms = 0 'Resetea la base de tiempos de retraso entre pulsacion y pulsacion de S2
s1_on = 1 'Bloquea la tecla S1, elimina rebotes
s2_on = 1 'Bloquea la tecla s2, elimina rebotes
Endif '___________________
If flag_1 = 1 Then Gosub ajuste_reloj '__________Saltamos a la rutina de ajuste
If timer3_100ms >= timer3_100ms_tiempo Then 'Actualiza datos en el lcd cada 100ms
Gosub lee_hora 'Lee la fecha y hora del reloj
Gosub print_lcd 'Actualiza los datos del reloj en el display
timer3_100ms = 0
Endif '__________________
Goto main
End
'**************************************Subrutinas**********************************************
ajuste_reloj: 'Rutina de ajuste del reloj
If s1 = 1 And s1_on = 1 Then s1_on = 0 'Libera el pulsador S1, control anti-rebotes tecla
If s2 = 1 And s2_on = 1 Then s2_on = 0 'Libera el pulsador S2, control anti-rebotes tecla
'________________________Control posicion del dato a variar en el reloj
If s1 = 0 And s1_on = 0 And s2 = 1 Then 'Detecta tecla S1 y eliminacion de rebotes de la misma
If timer1_ms >= timer1_ms_tiempo Then 'Establece el retraso entre pulsaciones de S1
dato = dato + 1 'Seleciona el dato a ser modificado
s1_on = 1 'La tecla queda bloqueada
'If dato > 6 Then dato = 10 'Acota el valor de dato
If dato > 6 Then flag_1 = 0 'Indica fin de rutina de ajuste
timer1_ms = 0 'Resetea la base de tiempos de retraso entre pulsacion y pulsacion de S1
Endif
Endif '_____________________________
'____________Lectura de la hora para su modificacion y posterior grabacion, rutina BCD
If s2 = 0 And s2_on = 0 And s1 = 1 Then 'Deteca tecla S2 y eliminacion de rebotes de la misma
If timer3_ms >= timer3_ms_tiempo Then 'Establece el retraso entre pulsaciones de S2
s2_on = 1 'La tecla queda bloqueada
timer3_ms = 0 'Resetea la base de tiempos de retraso entre pulsacion y pulsacion de S2
If dato < 7 Then 'Limita la direcciones de trabajo del reloj
Gosub lee_hora 'Lee los datos de los registros del RTC y los pasa a decimal, elimina los bit de control
aux_ajuste = reg(dato) 'Hace una imagen del valor del registro a modificar
aux_ajuste = aux_ajuste + 1 'Incrementa el dato a modificar que fue seleccionado
If dato = 2 And aux_ajuste > 23 Then aux_ajuste = 0 'Acota horas
If dato = 0 Or dato = 1 Then 'Acota segundos y minutos
If aux_ajuste > 59 Then aux_ajuste = 0
Endif
If dato = 3 And aux_ajuste > 7 Then aux_ajuste = 1 'Acota el dia de la semana
If dato = 4 And aux_ajuste > 31 Then aux_ajuste = 1 'Acota el dia del mes
If dato = 5 And aux_ajuste > 12 Then aux_ajuste = 1 'Acota el mes
If dato = 6 And aux_ajuste > 30 Then aux_ajuste = 1 'Acota el año, año maximo 2030
If aux_ajuste > 49 And aux_ajuste < 60 Then 'Decimal a BCD
aux_ajuste = aux_ajuste - 50
aux_ajuste.4 = 1
aux_ajuste.6 = 1
Endif
If aux_ajuste > 39 And aux_ajuste < 50 Then 'Decimal a BCD
aux_ajuste = aux_ajuste - 40
aux_ajuste.6 = 1
Endif
If aux_ajuste > 29 And aux_ajuste < 40 Then 'Decimal a BCD
aux_ajuste = aux_ajuste - 30
aux_ajuste.4 = 1
aux_ajuste.5 = 1
Endif
If aux_ajuste > 19 And aux_ajuste < 30 Then 'Decimal a BCD
aux_ajuste = aux_ajuste - 20
aux_ajuste.5 = 1
Endif
If aux_ajuste > 9 And aux_ajuste < 20 Then 'Decimal a BCD
aux_ajuste = aux_ajuste - 10
aux_ajuste.4 = 1
Endif
If aux_ajuste < 10 Then aux_ajuste = aux_ajuste 'Decimal a BCD
If dato = 0 Then aux_ajuste.7 = 0 'Restaura el bit de configracion, activa el oscilador del reloj
If dato = 2 Then aux_ajuste.7 = 0 'Restaura el bit, no lo utiliza el RTC
If dato = 2 Then aux_ajuste.6 = 0 'Restaura el bit de configuracion, reloj 24h
I2CWrite sda, scl, 0xd0, dato, aux_ajuste 'Actualiza el dato ya modificado
Endif
Endif
Endif '____________
'__________Controla el parpadeo de los digitos cuando el modo selec es activo
If timer2_ms >= timer2_ms_tiempo Then 'Tiempo del parpadeo
If flash_1 = 1 Then 'Selecciona si el dato a modificar es visible o no
flash_1 = 0 'Dato es visible
Else
flash_1 = 1 'Dato no es visible
Endif
timer2_ms = 0 'Recarga la base de tiempos
Endif '______________
Return
lee_hora: 'Lee la hora del RTC en formato BCD y la pasa a decimal
i = 0 'Variable indice, asigna los datos de forma ordenada, leidos del RTC
While i <= 6 'Se repite el codigo comprendido entre while y wend, mientras i sea menor o igual a 6
I2CRead sda, scl, 0xd0, i, reg(i) 'Lectura de la direccion de memoria indicada del RTC, formato BCD
aux_4l = reg(i) And %00001111 'Eliminamos los bit de configuracion del RTC y dejamos solo el nibble bajo
If i = 0 Then aux_4h = reg(i) And %01110000 'Segundos, borrado de bit configuracion y almacena nibble alto
If i = 1 Then aux_4h = reg(i) And %01110000 'Minutos, almacena nibble alto
If i = 2 Then aux_4h = reg(i) And %00110000 'Horas, borrado de bit configuracion y almacena nibble alto
If i = 3 Then aux_4h = reg(i) And %00000000 'Dia_semana, almacena nibble alto
If i = 4 Then aux_4h = reg(i) And %00110000 'Dia_mes, almacena nibble alto
If i = 5 Then aux_4h = reg(i) And %00010000 'Mes, almacena el nibble alto
If i = 6 Then aux_4h = reg(i) And %11110000 'Año, almacena el nibble alto
aux_4h = ShiftRight(aux_4h, 4) 'Convierte el nibble alto en bajo
reg(i) = (aux_4h * 10) + aux_4l 'Fusiona los nibbles alto y bajo en una sola variable en formato decimal
i = i + 1 'Incrementa la variable indice con cada repeticion del bucle While/Wend
Wend 'Fin del bucle y salta a While
Return
print_lcd: 'Rutina de escritura en el lcd
Lcdcmdout LcdLine1Home 'Cursor del lcd a la izquierda en la linea 1
If dato = 2 And flash_1 = 1 Then 'Control final del parpadeo de los digitos de la hora
Lcdout " " 'Borra el dato determinado para dar la sencacion de parpadeo
Else
If reg(2) < 10 Then Lcdout "0" 'Si horas es inferior a 10 escribe el cero delante
Lcdout #reg(2) 'Escribe la hora
Endif
Lcdout ":" 'Escribe el separador
If dato = 1 And flash_1 = 1 Then 'Control final del parpadeo de los digitos de los minutos
Lcdout " " 'Borra el dato determinado para dar la sencacion de parpadeo
Else
If reg(1) < 10 Then Lcdout "0" 'Si minutos es inferior a 10 escribe el cero delante
Lcdout #reg(1) 'Escribe los minutos
Endif
Lcdout ":" 'Escribe el separador
If dato = 0 And flash_1 = 1 Then 'Control final del parpadeo de los digitos de los segundos
Lcdout " " 'Borra el dato determinado para dar la sencacion de parpadeo
Else
If reg(0) < 10 Then Lcdout "0" 'Si segundos es inferior a 10 escribe el cero delante
Lcdout #reg(0) 'Escribe los segundos
Endif
Lcdcmdout LcdLine2Home 'Cursor del lcd a la izquierda en la linea 2
If dato = 3 And flash_1 = 1 Then 'Control final del parpadeo de los digitos del dia semana
Lcdout " " 'Borra el dato determinado para dar la sencacion de parpadeo
Else
If reg(3) = 1 Then Lcdout "Dom." 'Asigna el literal al dia de la semana
If reg(3) = 2 Then Lcdout "Lun."
If reg(3) = 3 Then Lcdout "Mar."
If reg(3) = 4 Then Lcdout "Mie."
If reg(3) = 5 Then Lcdout "Jue."
If reg(3) = 6 Then Lcdout "Vie."
If reg(3) = 7 Then Lcdout "Sab."
Endif
Lcdout " " 'Escribe separador
If dato = 4 And flash_1 = 1 Then 'Control final del parpadeo de los digitos del dia del mes
Lcdout " " 'Borra el dato determinado para dar la sencacion de parpadeo
Else
If reg(4) < 10 Then Lcdout "0" 'Si dia del mes es inferior a 10 escribe cero
Lcdout #reg(4) 'Escribe el dia del mes
Endif
Lcdout "/" 'Escribe el separador
If dato = 5 And flash_1 = 1 Then 'Control final del parpadeo de los digitos de los meses
Lcdout " " 'Borra el dato determinado para dar la sencacion de parpadeo
Else
If reg(5) < 10 Then Lcdout "0" 'Si mes es inferior a 10 escribe cero
Lcdout #reg(5) 'Escribe el mes
Endif
Lcdout "/20" 'Separador y los dos primeros digitos del año de 4 digitos
If dato = 6 And flash_1 = 1 Then 'Control final del parpadeo de los digitos de los años
Lcdout " " 'Borra el dato determinado para dar la sencacion de parpadeo
Else
If reg(6) < 10 Then Lcdout "0" 'Si año es inferior a 10 escribe primero el cero
Lcdout #reg(6) 'Escribe el año
Endif
Return
pause_ms: 'Rutina de espera, rutina tipo Waitms, pause establese el tiempo total en mSeg
aux_pause = 0 'Variable auxiliar lleva la cuenta de los ms
timer_1ms = 0 'Al borrar el contador se activa y comienza la cuenta de 1mSeg
While aux_pause <= pause 'Tiempo en mSeg maximos a contar
aux_pause = aux_pause + 1 'Variable auxiliar lleva la cuenta de los ms
If timer_1ms > 0 Then timer_1ms = 0 'Al borrar el contador se activa y cuenta 1mSeg
While timer_1ms < 1 'Espera un miliesegundo
Wend
Wend
Return
'***********************************Interrupciones*****************************************************
On Interrupt 'Comienzan las rutinas de las interrupciones, desactiva las interrupciones
Save System 'Guarda los valores del sistema para poder reemprender el curso normal del programa
If PIR1.TMR1IF = 1 Then 'Comprueba que la interrupcion del timer1 es activa
'_________________Bases de tiempos
timer_base = timer_base + 1 'Contador general
If timer_1ms < 1 Then timer_1ms = timer_1ms + timer_1ms + 1 'Contador para control de la rutina Pause
If timer1_ms < timer1_ms_tiempo Then timer1_ms = timer1_ms + 1 'Contador
If timer2_ms < timer2_ms_tiempo Then timer2_ms = timer2_ms + 1 'Contador
If timer3_ms < timer3_ms_tiempo Then timer3_ms = timer3_ms + 1 'Contador
If timer_base >= timer_base_tiempo Then 'Limita el timepo de ejecucion, cada timer_base_tiempo
If timer1_100ms < timer1_100ms_tiempo Then timer1_100ms = timer1_100ms + 1 'Contador
If timer2_100ms < timer2_100ms_tiempo Then timer2_100ms = timer2_100ms + 1 'Condtador
If timer3_100ms < timer3_100ms_tiempo Then timer3_100ms = timer3_100ms + 1 'Contador
timer_base = 0 'Reset a la base de tiempos
Endif '________________Fin bases de tiempos
Endif
TMR1H = 0xf8 'Recarga el contador del timer1 para que desborde pasado 1mSeg, byte alto
TMR1L = 0x30 'Recarga el contador del timer1 para que desborde pasado 1mSeg, byte bajo
PIR1.TMR1IF = 0 'Borra el flag de salto del tmr1
If s1 = 0 Then led_verde = 0 'Muestra el estado de la tecla, tecla S1 a on, led verde a on
If s1 = 1 Then led_verde = 1 'Muestra el estado de la tecla, tecla s1 a off, led verde a off
If s2 = 0 Then led_amarillo = 0 'Muestra el estado de la tecla, tecla S2 a on, led amarillo a on
If s2 = 1 Then led_amarillo = 1 'Muestra el estado de la tecla, tecla S2 a on, led amarillo a on
Resume 'Activa las interrupciones y retorna el curso normal del programa, antes del salto
PD. Correccion de algunos fallos que he observado y mejoras en rutinas.
PD: 03/06/08
%1101000x (direccion de seleccion del chip %1101000) siendo "x" el bit indicador de Write/Read. Este bit menos significativo lo controla directamente la funcion I2CWrite y I2CRead
