list p = 12F675
#include P12F675.inc
ERRORLEVEL -302
__CONFIG ( _PWRTE_OFF & _BODEN_OFF & _MCLRE_OFF & _CP_OFF & _WDT_OFF & _INTRC_OSC_NOCLKOUT )
PDEL1 EQU 0x20
PDEL2 EQU 0x21
PDEL3 EQU 0x22
DEL1 EQU 0x23
DEL2 EQU 0x24
LFE EQU 0x25
RFE EQU 0x26
LFEC EQU 0x27
RFEC EQU 0x28
RETARDO EQU 0x29
;-------------------------------------------------------------------
start
ORG 0x00
bcf STATUS,RP0 ;Bank 0
bcf INTCON,GIE ;Desabilita INTs
movlw 07h ; GP<2:0>
movwf CMCON ;digital IO
bsf STATUS,RP0 ;Bank 1
clrf ANSEL ;Digital I/O
movlw B'00111000' ;GP<0,1,2> salidas GP<3,4,5> entradas
movwf TRISIO ;se carga la configuracion
bcf STATUS,RP0 ;Bank 0
clrf GPIO ;limpia el puerto
clrf LFE
clrf RFE
INICIO
call ENCODER ;llama a checar el encoder
call REGRESA ;en regresa vuelve al estado normal
goto INICIO ;bucle
REGRESA
bcf GPIO,0 ;apaga el led
bcf GPIO,2 ;apaga el led
bsf GPIO,1 ;enciende el led de enmedio
RETURN ;regresa
DER bcf GPIO,1 ;apaga el led
bcf GPIO,0 ;apaga el led
bsf GPIO,2 ;enciende el led del pin 5
call DEMORA ;llama a un retardo
RETURN ;regresa
IZQ bcf GPIO,1 ;apaga el led
bcf GPIO,2 ;apaga el led
bsf GPIO,0 ;enciende el led del pin 7
call DEMORA ;llama un retardo
RETURN ;regresa
ENCODER
movfw LFE ;el valor previo se carga a w
movwf LFEC ;y se guarda para compararlo
movfw RFE ;el valor previo se carga a w
movwf RFEC ;y se guarda para compararlo
bcf RFE,0 ;se pone en 0 el bit
btfsc GPIO,4 ;si se detecta lo contrario se cambia
bsf RFE,0 ;a uno
bcf LFE,0 ;se pone en 0 el bit
btfsc GPIO,3 ;si se detecta lo contrario se cambia
bsf LFE,0 ;a uno
movfw RFE ;se carga a w el registro nuevo detectado
xorwf LFE,0 ;se hace una operacion or exlusica buscando un cambio
btfsc STATUS,Z ;si esto no ocurre se regresa al llamado
RETURN
movfw LFE ;si ocurre se carga a w el registro recien ingresado
xorwf LFEC,0 ;y se compara con el anterior
btfss STATUS,Z ;si son diferentes llama a una funcion
goto IZQ ;en este caso IZQ
movfw RFE ;si ocurre se carga a w el registro recien ingresado
xorwf RFEC,0 ;y se compara con el anterior
btfss STATUS,Z ;si son diferentes llama a una funcion
goto DER ;en este caso DER
RETURN
;-------------------------------------------------------------
;RETARDOS
;-------------------------------------------------------------
DEMORA
movlw .3 ;Carga un numero para la DEMORA
movwf PDEL3 ;en este Registro
movlw .150 ;Obtiene el valor del retardo
movwf PDEL2 ;en este Registro
movlw .255 ;Carga un numero para la DEMORA
movwf PDEL1 ;en este Registro
decfsz PDEL1,1 ;Decremente el segistro
goto $-1 ;hasta que llega a 0 y salta esta instruccion
decfsz PDEL2,1 ;Decremente el registro
goto $-5 ;hasta que llega a 0 y salta esta instruccion
decfsz PDEL3,1 ;Decremente el registro
goto $-9 ;hasta que llega a 0 y salta esta instruccion
RETURN
END
#Include <16F876A.h> // Usamos el PIC 16F876A.
#FUSES NOWDT, XT, PUT, NOPROTECT, NODEBUG, NOBROWNOUT, NOLVP, NOCPD, NOWRT
#Use Delay(clock=4000000) // Usamos un cristal de 4MHz, por ejemplo.
#ZERO_RAM // Variables a cero.
#byte porta = 0x05 // Asignamos PortA
#byte portb = 0x06 // Asignamos PortB
#byte portc = 0x07 // Asignamos PortC
// ------ Variables Globales ------
int8 x = 0; // Declaramos el valor de X como Byte, es decir, 8 bits.
// Esta variable ha de ser global porque su valor lo usaremos
// en la interrupción y en el programa principal.
// --------- Interrupción ---------
#INT_EXT // Interrupción: Decodificación de Encoder.
void IntRB0()
{
// CCS se encarga de desactiva automáticamente cualquier interrupción.
// No hace falta guardar contextos de registros, al menos con el PIC 16F876A.
if (bit_test(portb, 0)) // Si PortB.0 = 1,
{
ext_int_edge(H_TO_L); // entonces activar la siguiente interrupción para flanco de bajada.
if (bit_test(portb, 1)) // Si PortB.1 = 1,
{
x++; // entonces incrementar una unidad el valor de X.
}
}
else // Si PortB.0 = 0,
{
ext_int_edge(L_TO_H); // entonces activar la siguiente interrupción para flanco de subida.
if (bit_test(portb, 1)) // Si PortB.1 = 1,
{
x--; // entonces decrementar una unidad el valor de X.
}
}
// Al finalizar la interrupción CCS se encarga de volver a poner automáticamente
// la badera INTF = 0 ---> borra la interrupción para poder permitir la siguiente;
// no hemos de hacer nada por nuestra parte, al menos con el PIC 16F876A.
}
void main() // Inicio y configuración.
{
port_b_pullups(FALSE); // Configuración para el PIC 16F876A.
setup_adc_ports(NO_ANALOGS); // Sin comparadores ni ADCs, todo digital, etc...
setup_adc(ADC_CLOCK_DIV_2);
setup_spi(SPI_SS_DISABLED);
setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
setup_timer_1(T1_DISABLED);
setup_timer_2(T2_DISABLED,0,1);
setup_comparator(NC_NC_NC_NC);
setup_vref(FALSE);
enable_interrupts(int_ext); // Activar Interrupción Externa.
ext_int_edge(L_TO_H); // Inicialmente detectar interrupción por flanco de subida.
enable_interrupts(GLOBAL); // Interrupciones Generales Activadas.
set_tris_a(0b111111); // Puerto A todo entradas (en este caso no usamos el Puerto A).
set_tris_b(0b11111111); // Puerto B todo entradas (sólo usamos las entradas RB0 y RB1).
set_tris_c(0b00000000); // Puerto C todo salidas (8 bits que irán a los LEDs).
// ---------- Programa Principial ----------
While (True)
{
portc = x; // El valor de X sale por el Puerto C a los 8 LED de salida.
}
}Device=16F876A
REMINDERS = FALSE
Config XT_OSC, PWRTE_ON, CPD_OFF, WDT_OFF, BODEN_OFF, LVP_OFF
REMINDERS = TRUE
Symbol INTF = INTCON.1 ' RB0 External Interrupt Flag
Symbol INTE = INTCON.4 ' RB0 External Interrupt Enable
Symbol GIE = INTCON.7 ' Global Interrupt Enable
Symbol INTEDG = OPTION_REG.6 ' Flag = 0 int. por flanco bajada. Flag = 1 int. por flanco subida.
On_INTERRUPT GoTo Interrupcion ' Interrupción por Hardware (es la más rápida).
GIE = 1 ' Activa interrupciones generales.
INTE = 1 ' Activa la interrupción externa RB0/INT.
INTEDG = 1 ' Hace que inicialmente la interrupción se habilite
' para flanco de subida.
ALL_DIGITAL = TRUE ' Todas las entradas y salidas son digitales.
TRISA = %111111
TRISB = %11111111 ' Puerto A y B todo entradas.
TRISC = %00000000 ' Puerto C como salida para visualizar a través de los LED.
Dim x As Byte ' Variable X ---> contador de posición actual con resolución 0..255
x=0
While 1=1 ' |------ Programa Principal ------|
PORTC = x ' El contenido de X se visualiza en el Puerto C a través de los LED.
Wend ' |--------------------------------|
End
Interrupcion: '-------- Decodificador de Encoder --------------
Context SAVE ' Salva en contexto de los registros antes de operar con la interrupción.
If PORTB.0 = 1 Then ' Si RB0 se ha puesto a 1 (flanco de subida),
INTEDG = 0 ' entonces activar la siguiente interrupción para flanco de bajada.
If PORTB.1 = 1 Then ' Si RB1 está a 1,
Inc x ' entonces incrementar el contador X.
EndIf
EndIf
If PORTB.0 = 0 Then ' Si RB0 se ha puesto a 0 (flanco de bajada),
INTEDG = 1 ' entonces activar la siguiente interrupción para flanco de subida.
If PORTB.1 = 1 Then ' Si RB1 está 1,
Dec x ' entonces decrementar el contador X.
EndIf
EndIf
INTF = 0 ' Borra el "flag" de la interrupción RB0/INT para poder permitir la
' siguiente interrupción cuando ocurra.
Context Restore ' Restablece el contexto de los registros tal como estaban antes de la
' interrupción.
#include...
#Byte portb = 0xF81
char enc; // Se almacenará el valor actual de RA0 y RA1, hasta la siguiente comparación.
char aux; // Se almacenará el valor anterior de RA0 y RA1, hasta la siguiente comparación.
unsigned char ILIM;//incrementa o decrementa mi corriente maxima
while(1)
{
//--------AQUI SE LEE EL ENCODER -----------------------------------//
aux=enc; // Igualamos 'AUX' y 'ENC' para luego comparar cuando cambie 'ENC'.
enc=portb & 3; // Aislamos RA0 y RA1 como un número de 2 bits y se carga en la variable 'ENC'.
if ((aux==2)&&(enc==3))// Si en la comparación hay flanco de subida,
{
ILIM++; // entonces incrementar una unidad el valor de X.
}
if ((aux==3)&&(enc==2))// Si en la comparación hay flanco de bajada,
{
ILIM--; // entonces decrementar una unidad el valor de X.
if(ILIM<=1)
{
ILIM=1;
}
}
//--------------------SE DEJO DE LEER EL ENCODER---------//
/*
TU CODIGO
*/
}
