if(adc>249){
adc = 249;
}else{
adc = adc;
}LIST P=12F508, r=hex ;originalmente es PIC12C508 yo lo cambie porque uso el 12F508
INCLUDE "P12F508.INC" ;Incluimos la libreria que originalmente era PIC12C508
__CONFIG _MCLRE_OFF & _CP_OFF & _WDT_OFF & _IntRC_OSC ;Aquí se configuran los fusibles
; Variables
W EQU 0
F EQU 1
OUT1 EQU 0 ;GP0
OUT2 EQU 1 ;GP1
OUT3 EQU 2 ;GP2 ; no se usa GP3 por ser exclusivamente entrada
OUT4 EQU 4 ;GP4
OUT5 EQU 5 ;GP5
AUX1 EQU 0x0C ;variable auxiliar
AUX2 EQU 0x0D ;variable auxiliar
N EQU 0x00
ORG 0x000
clrwdt
movlw b'11000000'
option
movlw b'00001000' ; Configura GP0-GP2 y GP4-GP5 como salida. GP3 solo es entrada
tris GPIO
bcf GPIO,OUT1 ;Borra todas las salidas
bcf GPIO,OUT2
bcf GPIO,OUT3
bcf GPIO,OUT4
bcf GPIO,OUT5
flasher
bsf GPIO,OUT3 ;Enciende el tercer LED
call retardo ;Espera un tiempo
bcf GPIO,OUT3 ;Apaga el tercer LED
call retardo ;Espera un tiempo
bsf GPIO,OUT4 ;Enciende el cuarto LED
call retardo ;Espera un tiempo
bcf GPIO,OUT4 ;Apaga el cuarto LED
call retardo ;Espera un tiempo
goto repetir
repetir
incf N,F
bsf GPIO,OUT2 ;Enciende el tercer LED
call retardo ;Espera un tiempo
bcf GPIO,OUT2 ;Apaga el tercer LED
call retardo ;Espera un tiempo
bsf GPIO,OUT5 ;Enciende el cuarto LED
call retardo ;Espera un tiempo
bcf GPIO,OUT5 ;Apaga el cuarto LED
call retardo ;Espera un tiempo
goto flasher
retardo
movlw 0x80
movwf AUX1
movwf AUX2
Dec_1
decfsz AUX1, F
goto Dec_1
decfsz AUX2, F
goto Dec_1
retlw 0
Saludos.
clrf GPIO ; Puerto en 0
flasher
; Código...
;...............
;...............
movlw 0x05 ; ¿Cuantas veces repetir?
movwf contador ; Cargar el contador en este caso con 5
repetir
; Código...
;...............
;...............
; Aquí empiezas el bucle (loop)
decfsz contador,F ; Decrementar contador
goto repetir ; contador no llego a 0
; Código... ; contador llego a 0
;...............
;...............
goto flasher
;***********************************************
; Y para encender dos o más LED puedes hacer esto.
movlw 0x30
movwf GPIO ; Pongo en 1 GPIO,5 y GPIO,4
call retardo
clrf GPIO ; Los apago
call retardo
#include <16f88.h> // Tipo de microcontrolador
#fuses INTRC_IO,MCLR // Oscilador interno, MCLR activo
#fuses NOPUT,NOBROWNOUT // Sin Brownout reset ni Power up timer
#use fast_io(B) // La configuración de los puertos solo se hace al principio.
#use delay(clock=8M) // Velocidad del oscilador interno 8 MHz
#define Load PIN_B0 // Load (STCP ambos integrados) B0
#define Clk PIN_B1 // Clock (SHCP ambos integrados) B1
#define dClm PIN_B2 // Data para las columnas (DS integrado 1) BC2
#define dLin PIN_B3 // Data para las lineas (DS integrado 2) B3
char Memoria[96]; // 96 Bytes para la memoria (0 - 95)
char Visor[8]; // 8 para el visor (8 columnas)
int1 flag; // Flags de control
int1 flag2;
int indx; // Indice donde almacenará las nuevas columnas.
int line; // Linea que a mostrar.
int time; // Variables para el control de
int ptime; // la velocidad de desplazamiento.
int t; // Variable auxiliar.
void CargaMem(char Ascii);
void GuardaClm(char c);
#int_rtcc
void isr(){
int Mul=128; // Cada vez que ocurre la interrupcion
if(++line>7)Line=0; // selecciona la siguiente linea, si se pasa de 7 vuelve a 0.
if(++ptime>5){ // Suma 1 a ptime. Si se pasa de 20
ptime=0; // lo pone en 0 y suma 1 a time.
if(++time>200){ // Si se pasa de 200
time=0; // lo pone en 0
Flag=true; // y activa el flag.
}
}
for(t=0;t<8;t++){ // Bucle 0 - 7 (Lineas)
Aqui-> output_bit(dLin,!!(Visor[Line]&Mul)); //el error: Undefined identifier PIN_B3
if (Line==t)output_high(dClm); // Si Line es igual a t
// activa el bit correspondiente
else output_low(dClm); // a la columna, sino lo desactiva.
Aquí -> output_low(Clk); // el error: Undefined identifier PIN_B1
Aquí -> output_high(Clk); // el error: Undefined identifier PIN_B1
Mul>>=1; // Divide la mascara que compara con Visor[] (128,64,32...)
}
Aquí -> output_low(Load); //el error: Undefined identifier PIN_B0
Aquí -> output_high(Load); // El error: Undefined identifier PIN_B0
}
void main(){
int k;
set_tris_a(0x00);
set_tris_b(0x00);
for (k=0;k<8;k++){
Visor[k]=0;
}
for (k=0;k<96;k++){
Memoria[k]=0;
} // Limpia la memoria y el visor
flag=true; // Activo el flag para que cargue la memoria
setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1); // Configuración del Timer0
enable_interrupts(int_rtcc); // Interrupcion por Timer0
enable_interrupts(global); // Interrupciones globales
do{
if (Flag){ // Si el flag está activado
flag2=true; // Activa el flag2
for (k=0;k<8;k++){ // Pasa el contenido de las primeras 8
visor[k]=Memoria[k]; // columnas en memoria al visor
}
for (k=0;k<95;k++){ // Rota el contenido de toda la memoria
Memoria[k]=Memoria[k+1];// a la izquierda 1=1+1, 2=2+1, n=n+1...
if (Memoria[k]!=0){Flag2=false;} // Si hay alguna columna que no
// esté vacía desactiva el flag2
}
Memoria[95]=0; // Limpia la ultima columna de la memoria
if (Flag2){ // Si flag2 está activo
indx=7; // a partir de la columna 7
CargaMem("PICROBOT"); // escribe PICROBOT
}
Flag=false; // Desactiva el flag
}
}while (true); // Bucle infinito
}
void GuardaClm(char c){
if (indx<94){
Memoria[indx]=c; // Guarda la columna en la ubicación actual de memoria
indx++; // y aumenta el indice
}
}
void CargaMem(char ascii){ // Carga la memoria con el caracter deseado
switch (ascii){
case('B'):
GuardaClm(0b01111111);
GuardaClm(0b01111111);
GuardaClm(0b01001001);
GuardaClm(0b01001001);
GuardaClm(0b01111111);
GuardaClm(0b00110110);
break;
case('C'):
GuardaClm(0b00111110);
GuardaClm(0b01111111);
GuardaClm(0b01000001);
GuardaClm(0b01000001);
GuardaClm(0b01100011);
GuardaClm(0b00100010);
break;
case('I'):
GuardaClm(0b01000001);
GuardaClm(0b01000001);
GuardaClm(0b01111111);
GuardaClm(0b01111111);
GuardaClm(0b01000001);
GuardaClm(0b01000001);
break;
case('O'):
GuardaClm(0b00111110);
GuardaClm(0b01111111);
GuardaClm(0b01000001);
GuardaClm(0b01000001);
GuardaClm(0b01111111);
GuardaClm(0b00111110);
break;
case('P'):
GuardaClm(0b01111111);
GuardaClm(0b01111111);
GuardaClm(0b00001001);
GuardaClm(0b00001001);
GuardaClm(0b00001111);
GuardaClm(0b00000110);
break;
case('R'):
GuardaClm(0b01111111);
GuardaClm(0b01111111);
GuardaClm(0b00001001);
GuardaClm(0b00011001);
GuardaClm(0b01111111);
GuardaClm(0b01100110);
break;
case('T'):
GuardaClm(0b00000011);
GuardaClm(0b00000001);
GuardaClm(0b01111111);
GuardaClm(0b01111111);
GuardaClm(0b00000001);
GuardaClm(0b00000011);
break;
}
GuardaClm(0b00000000);
}Saludos Luno.
