Divides 1Seg/24 y el valor que obtengas de tiempo lo generas con ayuda de un Timer. Ya sea por interrupción o testeo cada que transcurra un desborde del TMR actualizas los datos de los leds para generar el efecto de las escenas
/*******************************************************************************
* Compilador: CCS PCM C Compiler, Versión 4.140
* Programa: Timer_1Seg.C
* Versión: 1.0
* Autor: D@rkbytes
* Compañia: Digitek
* Notas:
* Timer de un segundo con TMR1 (16 Bits)
* Se usará el oscilador interno a 4 MHz.
* El externo en RB6 y RB7, con un cristal de 32768 Hz.
*******************************************************************************/
#include <16f887.h>
int seg=0;
#use delay(internal=4mhz)
/* Estableciendo lo anterior en este PIC...
La palabra de configuración (Fuses) qué dará el compilador, está bien así.
INTRC/IO,PWRTE=ON,MCLRE=ON,BOREN=ON */
#byte PORTA = getenv("SFR:PORTA") // Referencia del registro PORTA
#bit RA1 = PORTA.1 // Definir RA1
#bit RA2 = PORTA.2 // Definir RA2
// Controlador de la interrupción por desborde del TMR1
#int_timer1
void tmr1_int(void){
clear_interrupt(int_timer1); // Limpiar flag por desborde del TMR1
set_timer1(0x8000); // Recargar el TMR1 con 32768
// RA2 = ~RA2; // Toggle en RA2 (Otra forma de hacer toggle)
seg++; // Esto se hará cada 1 segundo.
}
//--------------------------MUESTREO-------------------------------------------
//----------------------------------o------------------------------------
void main(void){
set_tris_a(0b11111001); // RA1 y RA2 como salidas
setup_timer_1(t1_external_sync|t1_div_by_1|t1_clk_out);
enable_interrupts(int_timer1); // Habilitar interrupción del Timer 1
enable_interrupts(global); // Habilitar interrupciones globales
set_timer1(0x8000); // Cargar el TMR1 con 32768
while(true){ // Hacer un bucle infinito del programa.
if(seg<10){
output_high(PIN_A0);
output_high(PIN_A1);
output_high(PIN_A2);
}
if(seg>10){
output_high(PIN_A3);
output_high(PIN_A4);
output_high(PIN_A5);
}
}
}
#include <16f887.h>
#use delay(internal=4mhz)
int8 seg=0;
// Controlador de la interrupción por desborde del TMR1
#int_timer1
void tmr1_int(void){
clear_interrupt(int_timer1); // Limpiar flag por desborde del TMR1
set_timer1(0x8000); // Recargar el TMR1 con 32768
// Esto se hará cada 1 segundo.
seg ++;
}
void main(void)
{
setup_timer_1(t1_external_sync|t1_div_by_1);
enable_interrupts(int_timer1); // Habilitar interrupción del Timer 1
enable_interrupts(global); // Habilitar interrupciones globales
set_timer1(0x8000); // Cargar el TMR1 con 32768
while(true)
{
if(seg<10)
{
output_high(PIN_A0);
output_high(PIN_A1);
output_high(PIN_A2);
}
if(seg>10)
{
output_high(PIN_A3);
output_high(PIN_A4);
output_high(PIN_A5);
}
}
}/*******************************************************************************
* Compilador: CCS PCM C Compiler, Versión 4.140
* Programa: Timer_1Seg.C
* Versión: 1.0
* Autor: D@rkbytes
* Compañia: Digitek
* Notas:
* Timer de un segundo con TMR1 (16 Bits)
* Se usará el oscilador interno a 4 MHz.
* El externo en RB6 y RB7, con un cristal de 32768 Hz.
*******************************************************************************/
#include <16f628a.h>
int seg=0;
#use delay(internal=4mhz)
#byte PORTA = getenv("SFR:PORTA") // Referencia del registro PORTA
#byte PORTB = getenv("SFR:PORTB") // Referencia del registro PORTB
#bit RB0 = PORTB.0 // Definir RB0
#bit RB1 = PORTB.1 // Definir RB1
#bit RA0 = PORTA.0 // Definir RA0
// Controlador de la interrupción por desborde del TMR1
#int_timer1
void tmr1_int(void)
{
clear_interrupt(int_timer1); // Limpiar flag por desborde del TMR1
set_timer1(0x8000); // Recargar el TMR1 con 32768
RB1 = ~RB1; // Toggle en RB1 (Otra forma de hacer toggle)
seg++; // Esto se hará cada 1 segundo.
}
void main(void)
{
set_tris_a(0x1F); // Puerto A como entradas.
set_tris_b(0x00); // Puerto B como salidas.
setup_timer_1(t1_external_sync|t1_div_by_1|t1_clk_out);
enable_interrupts(int_timer1); // Habilitar interrupción del Timer 1
enable_interrupts(global); // Habilitar interrupciones globales
set_timer1(0x8000); // Cargar el TMR1 con 32768
while(true)
{ // Hacer un bucle infinito del programa.
If (input (pin_A0)==0)
{
if(seg<27)
RB0 = 0;
else
{
RB0 = 1;
delay_ms (3000);
RB0 = 0;
seg=0;
}
}
else
{
if(seg<60)
RB0 = 0;
else
{
RB0 = 1;
delay_ms (1100);
RB0 = 0;
seg=0;
}
}
}
}Saludos.
void main (void)
{
int1 flag_init = input(PIN_A0);
while (true)
{
if(flag_init)
{
// Código
}
else
{
// Código
}
}
}/*******************************************************************************
* Compilador: CCS PCM C Compiler, Versión 4.140
* Programa: Timer_100mSeg.C
* Versión: 1.0
* Autor: FJM@N
* Timer para 60/1,1_27/3 segundos con TMR1 (16 Bits)
* Oscilador interno a 4 MHz.
* Oscilador externo en RB6 y RB7, con un cristal de 4 MHz.
*******************************************************************************/
#include <16F628A.h>
#FUSES NOWDT
#FUSES PUT //Power Up Timer
#FUSES XT //Crystal osc <= 4mhz for PCM/PCH , 3mhz to 10 mhz for PCD
#FUSES NOMCLR //Master Clear pin used for I/O
#FUSES NOBROWNOUT //No brownout reset
#FUSES NOLVP //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O
#FUSES NOCPD //No EE protection
#FUSES NOPROTECT //Code not protected from reading
#use delay(clock=4000000)
#byte PORTA = getenv("SFR:PORTA") // Referencia del registro PORTA
#byte PORTB = getenv("SFR:PORTB") // Referencia del registro PORTB
#bit RA0 = PORTA.0 // Definir RA0
#bit RB0 = PORTB.0 // Definir RB0
int16 COUNT;
#int_TIMER1
void tmr1_int(void)
{
clear_interrupt(int_timer1); // Limpiar flag por desborde del TMR1
set_timer1(0x3CC2); // Recargar el TMR1 con 15554
COUNT++; // Aumentamos la cuenta de las interrupciones
}
void main(void)
{
set_tris_a(0b11111111); // RA0 entrada
set_tris_b(0b11111110); // RB0 salida
setup_timer_1(T1_EXTERNAL|T1_DIV_BY_8|T1_CLK_OUT|T1_EXTERNAL_SYNC); //131 ms overflow
enable_interrupts(INT_TIMER1);
enable_interrupts(GLOBAL);
set_timer1(0x3CC2); // Recargar el TMR1 con 15554
While (COUNT>=1)
If (RA0==0)
{
if (COUNT<12) //Cada interrupcion dura 0,1 segundos//Contamos 1,1 Segundos
RB0 = 1;
else
RB0 = 0;
if (COUNT==612) //Contamos 60 + 1,1 Segundos
{
RB0 = 1;
COUNT=1;
}
}
Else
{
if (COUNT<31) //Cada interrupcion dura 0,1 segundos//Contamos 3 Segundos
RB0 = 1;
else
RB0 = 0;
if (COUNT==301) //Contamos 27 + 3 Segundos
{
RB0 = 1;
COUNT=1;
}
}
}No creo que usando un cristal de 4 MHz para la sincronización externa del Timer 1, llegue a funcionar.
En dado caso que el cristal de 4 MHz llegara a oscilar para el Timer 1, el valor para que desborde cada 100 ms, no es correcto.
Seleccionar el fuse XT (XT_OSC) es para que el oscilador principal funcione con un cristal. (Obviamente externo y hasta 4 MHz.)
