Aquesta obra d'Oriol Boix està llicenciada sota una llicència no importada Reconeixement-NoComercial-SenseObraDerivada 3.0.
En els exemples anteriors els LED s'encenien a un ritme que marcaven uns bucles de retard que teníem en el programa. Això volia dir que la major part del temps el processador estava fent bucles. En aquest exemple, en lloc de tenir el microcontrolador ocupat fent bucles per comptar el temps, fem que un temporitzador físic (timer) s'encarregui de comptar el temps. En el nostre cas farem servir el Timer0 que és un comptador de 8 bits. Quan funciona com a temporitzador, agafa la sortida del rellotge del microcontrolador (període d'un microsegon), el divideix per un factor d'escala i el fa servir per incrementar un registre. Quan aquest registre arriba a zero s'activa un bit en un altre registre.
En aquest exemple cada cop que Timer0 acabi de comptar (és a dir, cada 256 μs) incrementarem la variable Visualit i en copiarem el resultat sobre els LED.
#include <p16F690.inc> __config (_INTRC_OSC_NOCLKOUT&_WDT_OFF&_PWRTE_OFF&_MCLRE_OFF&_CP_OFF&_BOR_OFF&_IESO_OFF&_FCMEN_OFF)
cblock 0x20 Visualit ; Una variable on guardem el que mostraran els LED endc
org 0 Inici bsf STATUS,RP0 ; Tria el banc 1 movlw b'10000111' ; Configuració de Timer0 ; Com a temporitzador basat en rellotge ; 111 - Factor d'escala de 256 ; I resistències de pull-up desactivades (valor per defecte) movwf OPTION_REG ; Ho guarda al registre de configuració del Timer0 clrf TRISC ; Posa tots els bits del port C com a sortida bcf STATUS,RP0 ; Tria el banc 0 clrf Visualit ; Posa Visualit a 0 movf Visualit,w ; Copia Visualit a l'acumulador movwf PORTC ; I ho posa als LED Bucle btfss INTCON,T0IF ; Mira si Timer0 ha arribat a zero ; Si hi ha arribat, no fa la instrucció següent goto Bucle ; Si no hi ha arribat, repeteix la instrucció bcf INTCON,T0IF ; Si ha arribat, desactivem el bit incf Visualit,f ; Incrementem Visualit movf Visualit,w ; Copia Visualit a l'acumulador movwf PORTC ; I ho posa als LED goto Bucle ; Repetim-ho... end
Veiem com els LED van comptant de 0 (0000) a 15 (1111) i quan acaben tornen a començar. Però ho fan a velocitat molt ràpida. Si volem un ritme més lent, podem canviar la penúltima instrucció de manera que siguin els bits de l'esquerra els que es copiïn als LED, així anirà 16 cops més lent ja que caldrà que Visualit s'incrementi 16 vegades abans no canviï un bit.
#include <p16F690.inc> __config (_INTRC_OSC_NOCLKOUT&_WDT_OFF&_PWRTE_OFF&_MCLRE_OFF&_CP_OFF&_BOR_OFF&_IESO_OFF&_FCMEN_OFF)
cblock 0x20 Visualit ; Una variable on guardem el que mostraran els LED endc
org 0 Inici bsf STATUS,RP0 ; Tria el banc 1 movlw b'10000111' ; Configuració de Timer0 ; Com a temporitzador basat en rellotge ; 111 - Factor d'escala de 256 ; I resistències de pull-up desactivades (valor per defecte) movwf OPTION_REG ; Ho guarda al registre de configuració del Timer0 clrf TRISC ; Posa tots els bits del port C com a sortida bcf STATUS,RP0 ; Tria el banc 0 clrf Visualit ; Posa Visualit a 0 movf Visualit,w ; Copia Visualit a l'acumulador movwf PORTC ; I ho posa als LED Bucle btfss INTCON,T0IF ; Mira si Timer0 ha arribat a zero ; Si hi ha arribat, no fa la instrucció següent goto Bucle ; Si no hi ha arribat, repeteix la instrucció bcf INTCON,T0IF ; Si ha arribat, desactivem el bit incf Visualit,f ; Incrementem Visualit swapf Visualit,w ; Permuta els nibbles i ho posa a l'acumulador movwf PORTC ; I ho posa als LED goto Bucle ; Repetim-ho... end
Ara el canvi dels LED serà força lent. Podeu provar de variar el factor d'escala per tenir velocitats diferents. Per exemple amb un factor d'escala de 128 (00000110) sembla una velocitat visualment adequada. Ara serà vuit cops més lent que al primer programa i el doble de ràpid que a l'anterior.
Per aconseguir un desplaçament lent dels LED també podem fer servir un comptador de manera que només canviem els LED cada un cert nombre de cicles de Timer0 i així aconseguir una velocitat més precisa. També podem variar el nombre de cicles que fa Timer0 posant-li un valor determinat al registre TMR0 en el moment de començar; entre les dues coses, podríem ajustar el temps com volguéssim.
En el següent programa el rellotge ens dona un cicle cada 1 μs i el factor d'escala és 16, de manera que el comptador s'incrementa cada 16 μs. Si volem que el bit T0IF s'activi cada 4 ms (0,05 s) el temporitzador ha de comptar
4000 / 16 = 250
Per tant, hem d'inicialitzar TMR0 a
256 - 250 = 6
Si, a més, repetim el cicle 250 cops abans no canviem els LED aconseguirem que el canvi sigui cada segon.
#include <p16F690.inc> __config (_INTRC_OSC_NOCLKOUT&_WDT_OFF&_PWRTE_OFF&_MCLRE_OFF&_CP_OFF&_BOR_OFF&_IESO_OFF&_FCMEN_OFF)
cblock 0x20 Visualit ; Una variable on guardem el que mostraran els LED Compta ; Variable per comptar el nombre de cicles endc
org 0 Inici bsf STATUS,RP0 ; Tria el banc 1 movlw b'10000011' ; Configuració de Timer0 ; Com a temporitzador basat en rellotge ; 011 - Factor d'escala de 16 ; I resistències de pull-up desactivades (valor per defecte) movwf OPTION_REG ; Ho guarda al registre de configuració del Timer0 clrf TRISC ; Posa tots els bits del port C com a sortida bcf STATUS,RP0 ; Tria el banc 0 clrf Visualit ; Posa Visualit a 0 movf Visualit,w ; Copia Visualit a l'acumulador movwf PORTC ; I ho posa als LED movlw .250 ; Canviarem els LED cada 250 cicles de Timer0 movwf Compta ; Guarda el valor a Compta movlw .6 ; Inicialització de TMR0 movwf TMR0 ; Ho posa com a preselecció del temporitzador Bucle btfss INTCON,T0IF ; Mira si Timer0 ha arribat a zero ; Si hi ha arribat, no fa la instrucció següent goto Bucle ; Si no hi ha arribat, repeteix la instrucció bcf INTCON,T0IF ; Si ha arribat, desactivem el bit movlw .6 ; Inicialització de TMR0 movwf TMR0 ; Ho posa com a preselecció del temporitzador decfsz Compta,f ; Decrementem Compta goto Bucle ; Si no és zero, torna a esperar el Timer0 incf Visualit,f ; Incrementem Visualit movf Visualit,w ; Copia Visualit a l'acumulador movwf PORTC ; I ho posa als LED movlw .250 ; Tornem a posar el nombre de cicles movwf Compta ; Guarda el valor a Compta goto Bucle ; Repetim-ho... end
Aquesta obra d'Oriol Boix està llicenciada sota una llicència no importada Reconeixement-NoComercial-SenseObraDerivada 3.0.