Aquesta obra d'Oriol Boix està llicenciada sota una llicència no importada Reconeixement-NoComercial-SenseObraDerivada 3.0.
A l'iniciar el programa hi ha un LED que es va encenent, aleatòriament, en diferents posicions de la pantalla. Quan es prem el polsador 0, el LED queda fix durant un temps, esperant que l'usuari en memoritzi la posició. Després l'usuari ha de posicionar el cursor a la posició on estava encès el LED si vol encertar. Tot seguit, comença una altra tirada. A mesura que avança el joc, la dificultat va augmentant; per exemple havent d'encertar més d'un LED o, en el darrer nivell, la posició i el color. Els polsadors de l'1 al 4 serveixen per moure el cursor i el 5 per acceptar la posició triada.
El programa és el següent:
#pragma config FOSC = INTRCIO, WDTE = OFF, PWRTE = OFF, MCLRE = OFF, CP = OFF #pragma config CPD = OFF, BOREN = OFF, IESO = OFF, FCMEN = OFF #include "pic16f690.h" // Carrega el fitxer d'adreces i paràmetres del PIC 16F690 #include <xc.h> // Carrega el fitxer de funcions necessari per al compilador XC8 #define _XTAL_FREQ 4000000 // La freqüència del rellotge és 4 MHz #include <stdlib.h> // Carrega el fitxer on hi ha la funció rand() #define Polsador RA3 // Li assigna un nom a l'adreça del polsador
unsigned char Leds; // Variable de 8 bits sense signe (0 a 255)
unsigned char Fila;
unsigned char Leds1; // Variable de 8 bits sense signe (0 a 255)
unsigned char Fila1;
unsigned char Fila2;
unsigned char Leds2;
char c=0;
char d=-1;
unsigned char n=0;
unsigned char x1=0;
unsigned char y1=0;
unsigned char x2=0;
unsigned char y2=0;
unsigned char b=0;
unsigned char L;
unsigned char p;
char be[8]={'M','o','l','t',' ','b','e','!'};
char mal[8]={'H','a','h','a','h','a','h','a'};
char punt[6]={' ','p','u','n','t','s'};
char tetr[80] ={158, 79, 2, 2, 200, 100, 2, 1, 189, 95, 0, 1,
168, 84, 2, 2, 189, 95, 0, 1, 200, 100, 2, 1, 224, 112, 2, 2,
224, 112, 2, 1, 189, 95, 0, 1, 149, 75, 0, 2, 168, 84, 2, 1,
189, 95, 0, 1, 200, 100, 2, 2, 200, 100, 2, 1, 189, 95, 0, 1,
168, 84, 2, 2, 149, 75, 0, 2, 189, 95, 0, 2, 224, 112, 2, 2, 224, 112, 2, 2};
char mbe[12]={158, 79, 2, 1, 141, 71, 0, 1, 126, 63, 2, 1};
char mmal[12]={178, 89, 2, 2, 189, 95, 0, 2, 200, 100, 2, 4};
char verm[7]={'V','e','r','m','e','l','l'};
char blau[4]={'B','l','a','u'};
char groc[4]={'G','r','o','c'};
char Port; // Gestió del port a la funció Envia_max
char Compta; // Comptador de bits a la funció Envia_max
char Sortida[6]; // Valors a enviar al MAX7221 (48 bits)
char Sorti[6]; // Valors a enviar al MAX7221 des de la interrupció
char Actiu; // Variable que diu quin color està actiu
// Actiu = 0 Apagat
// Actiu = 1 Vermell
// Actiu = 2 Verd
// Actiu = 3 Blau
char Polsad; // Polsador que s'ha premut
char figura[8]; // Aquí guardarem el dibuix (8 fileres)
char x = 0; // Coordenada X del cursor (0 a 7)
// X = 0 és la columna de la dreta
char y = 0; // Coordenada Y del cursor (0 a 7)
char mirar = 1; // Espera que es deixi anar el polsador
// Definició de les funcions que farem servir
void Envia3max(char Valor[]); // Envia un joc de valors als tres MAX7221
// desactivant interrupcions
void Envia_max(void); // Envia un joc de valors als tres MAX7221
void Ini3max(void); // Inicialitza els tres MAX7221
void Apaga(void); // Apaga tots els LED
void EnviaL(char Caracter); // Envia un caràcter
void Esborra(void); // Esborra la pantalla i posa el cursor a l'inici
void Cursor(char Filera, char Columna); // Posiciona el cursor
// (filera 1 a 2 i columna 1 a 32, segons pantalla)
void TocaNota(char ValPR2, char ValCCPR1L, char ValDC1B, char tem);
char Polsador1(void); // Funció de lectura dels polsadors
void main (void) {
OPTION_REG = 0b10000101; // Configuració de Timer0
// Com a temporitzador basat en rellotge
// 101 - Factor d'escala de 64
// I resistències de pull-up desactivades (valor per defecte)
TRISC = 0; // Tot el port C és de sortida
TRISB = 0; // Tot el port B és de sortida
TRISA = 0xFF; // Tot el port A és d'entrada
ANSEL = 0b00000101; // Configura AN0 i AN2 com entrada analògica
ANSELH = 0; // Desactiva les altres entrades analògiques
PORTC = 0; // Inicialitza a 0 el port C
PORTB = 0; // Inicialitza a 0 el port B
CCP1CON = 0b00001100;
PIR1bits.TMR2IF = 0; // Desactiva el bit d'interrupció del Timer 2
T2CON = 0b00000011;
TXSTAbits.BRGH = 1; // Configuració de velocitat
BAUDCTLbits.BRG16 = 0; // Paràmetre de velocitat de 8 bits
SPBRG = 25; // Velocitat de 9600 baud
TXSTAbits.SYNC = 0; // Comunicació asíncrona
TXSTAbits.TX9 = 0;
Ini3max(); // Inicialitza els tres MAX7221
Actiu = 1; // Activa el color vermell
TMR0 = 100; // Presselecció de 100, que són 156 iteracions
// Correspon a una interrupció cada 7,5 ms
INTCON = 0b10100000; // Activem GIE i T0IE
ADCON1 = 0b00010000; // Posa el conversor a 1/8 de la freqüència
ADCON0 = 0b00001001; // Activa el conversor A/D connectat a AN2
Apaga();
while (1) {
if(c==12){
c=0;
d=-1;
EnviaL('F');
EnviaL('I');
_delay(10000000);
}
Esborra(); // Esborra la pantalla i posa el cursor a l'inici
Cursor(1,10);
if (c<10){
EnviaL(c+'0');
}else{
EnviaL('1');
EnviaL(d+'0');
}
for (signed char k = 0; k < 6; k++){
EnviaL(punt[k]);
}
if(c<9){
while(n==0){
if (Polsador==1){
Leds = rand()& 0x0007;
Leds1 = rand()& 0x0007;
Leds2 = rand()& 0x0007;
Fila= rand()& 0x0007;
Fila1= rand()& 0x0007;
Fila2= rand()& 0x0007;
p=0;
while(p==0){
if((Leds==Leds1)&&(Fila==Fila1)){
Fila1 = rand()& 0x0007;
}else{
if((Leds==Leds2)&&(Fila==Fila2)){
Fila2 = rand()& 0x0007;
}else{
if((Leds2==Leds1)&&(Fila2==Fila1)){
Fila1 = rand()& 0x0007;
}else{
p=1;
}
}
}
}
for (char e=1; e<9; e++) {
Sortida[1] = e;
Sortida[3] = e;
Sortida[5] = e;
Sortida[0] = 0b00000000;
Sortida[2] = 0b00000000;
Sortida[4] = 0b00000000;
if (e==Fila+1) {
Sortida[0] = Sortida[0]|(char)(1<<Leds);
}
if ((e==Fila1+1)&&(c>=3)) {
Sortida[0] = Sortida[0]|(char)(1<<Leds1);
}
if ((e==Fila2+1)&&(c>=6)) {
Sortida[0] = Sortida[0]|(char)(1<<Leds2);
}
Sortida[2] = Sortida[0];
Sortida[4] = Sortida[0];
Envia3max(Sortida);
}
if(Polsador==0){
_delay(2000000);
n=1;
}
}
}
}else{
while(n==0){
if (Polsador==1){
Leds = rand()& 0x0007;
Leds1 = rand()& 0x0007;
Leds2 = rand()& 0x0007;
Fila= rand()%8+1;
Fila1= rand()%8+1;
Fila2= rand()%8+1;
p=0;
while(p==0){
if((Leds==Leds1)&&(Fila==Fila1)){
Leds1 = rand()& 0x0007;
}else{
if((Leds==Leds2)&&(Fila==Fila2)){
Leds2 = rand()& 0x0007;
}else{
if((Leds2==Leds1)&&(Fila2==Fila1)){
Leds1 = rand()& 0x0007;
}else{
p=1;
}
}
}
}
for (char e=1; e<9; e++) {
Sortida[1] = e;
Sortida[3] = e;
Sortida[5] = e;
Sortida[0] = 0b00000000;
Sortida[2] = 0b00000000;
Sortida[4] = 0b00000000;
if (e==Fila) {
Sortida[0] = Sortida[0]|(char)(1<<Leds);
}
if ((e==Fila1)&&(c>=3)) {
Sortida[2] = Sortida[2]|(char)(1<<Leds1);
Sortida[0] = Sortida[0]|(char)(1<<Leds1);
}
if ((e==Fila2)&&(c>=6)) {
Sortida[4] = Sortida[4]|(char)(1<<Leds2);
}
Envia3max(Sortida);
}
if(Polsador==0){
_delay(2000000);
n=1;
}
}
}
}
if (c<3){
Leds1=Leds;
Leds2=Leds;
Fila1=Fila;
Fila2=Fila;
}
if (c<6){
Leds2=Leds;
Fila2=Fila;
}
Apaga();
L=0;
while(L==0){
L = rand()& 0x0003;
}
Cursor(2,1);
if((L==1)&&(c>=9)){
for (signed char k = 0; k < 7; k++){
EnviaL(verm[k]);
}
_delay(1000000);
}
if((L==2)&&(c>=9)){
for (signed char k = 0; k < 4; k++){
EnviaL(groc[k]);
}
_delay(1000000);
}
if((L==3)&&(c>=9)){
for (signed char k = 0; k < 4; k++){
EnviaL(blau[k]);
}
_delay(1000000);
}
// Apaga tots els LED
for (signed char k = 0; k < 8; k++){
figura[k] = 0; // Comencem amb tots els LED apagats
}
while (1) {
// Mirem els polsadors
// Un cop s'ha fet l'acció del polsador, no es tornarà a fer fins
// que es detecti que s'han deixat anar
Polsad = Polsador1(); // Llegim els polsadors
if (mirar == 1){
if (Polsad == 1) { // Si s'ha premut el polsador 1
x = (x + 1) % 8; // Incrementa x però la manté entre 0 i 7
mirar = 0;
}
if (Polsad == 2) { // Si s'ha premut el polsador 2
y = (y - 1) % 8; // Incrementa y però la manté entre 0 i 7
mirar = 0;
}
if (Polsad == 5) { // Si s'ha premut el polsador 3
// Invertim el LED corresponent
figura[y] = figura[y] ^ (1 << x);
TocaNota(141,71,0,1);
_delay(10000);
if(c<9){
if((((x == Leds) && (y+1 == Fila+1))||((x == Leds1) && (y+1 == Fila1+1))||((x==Leds2)&&(y+1==Fila2+1)))&&(((x!=x1)||(y!=y1))&&((x!=x2)||(y!=y2)))){
if(b==0){
x1=x;
y1=y;
}else {
x2=x;
y2=y;
}
b++;
if ((c<3)||((b==2)&&(c<6))||(b==3)){
c++;
n=0;
x1=0;
y1=0;
x2=0;
y2=0;
b=0;
for (signed char k = 0; k < 12; k=k+4){
TocaNota(mbe[k],mbe[k+1],mbe[k+2],mbe[k+3]);
}
Esborra(); // Esborra la pantalla i posa el cursor a l'inici
for (signed char k = 0; k < 8; k++){
EnviaL(be[k]);
}
Cursor(1,10);
EnviaL(c+'0');
for (signed char k = 0; k < 6; k++){
EnviaL(punt[k]);
}
_delay(1000000);
if((c==3)||(c==6)||(c==9)){
for (signed char k = 0; k < 80; k=k+4){
TocaNota(tetr[k],tetr[k+1],tetr[k+2],tetr[k+3]);
}
}
break;
}
}else{
if (c<=3){
c=0;
}else{
if (c<=6){
c=3;
}else{
if(c<=9){
c=6;
}
}
}
n=0;
b=0;
for (signed char k = 0; k < 12; k=k+4){
TocaNota(mmal[k],mmal[k+1],mmal[k+2],mmal[k+3]);
}
Esborra(); // Esborra la pantalla i posa el cursor a l'inici
for (signed char k = 0; k < 8; k++){
EnviaL(mal[k]);
}
Cursor(1,10);
EnviaL(c+'0');
for (signed char k = 0; k < 6; k++){
EnviaL(punt[k]);
}
_delay(1000000);
break;
}
}else{
if (L==1){
if((x == Leds) && (y+1 == Fila)){
n=0;
c++;
d++;
Esborra(); // Esborra la pantalla i posa el cursor a l'inici
for (signed char k = 0; k < 8; k++){
EnviaL(be[k]);
}
for (signed char k = 0; k < 12; k=k+4){
TocaNota(mbe[k],mbe[k+1],mbe[k+2],mbe[k+3]);
}
EnviaL('1');
EnviaL(d+'0');
for (signed char k = 0; k < 6; k++){
EnviaL(punt[k]);
}
if(c==12){
for (signed char k = 0; k < 80; k=k+4){
TocaNota(tetr[k],tetr[k+1],tetr[k+2],tetr[k+3]);
}
}
_delay(1000000);
break;
}else{
c=0;
n=0;
for (signed char k = 0; k < 12; k=k+4){
TocaNota(mmal[k],mmal[k+1],mmal[k+2],mmal[k+3]);
}
Esborra(); // Esborra la pantalla i posa el cursor a l'inici
for (signed char k = 0; k < 8; k++){
EnviaL(mal[k]);
}
break;
}
}
if(L==2){
if((x == Leds1) && (y+1 == Fila1)){
n=0;
c++;
d++;
Esborra(); // Esborra la pantalla i posa el cursor a l'inici
for (signed char k = 0; k < 8; k++){
EnviaL(be[k]);
}
for (signed char k = 0; k < 12; k=k+4){
TocaNota(mbe[k],mbe[k+1],mbe[k+2],mbe[k+3]);
}
EnviaL('1');
EnviaL(d+'0');
for (signed char k = 0; k < 6; k++){
EnviaL(punt[k]);
}
if(c==12){
for (signed char k = 0; k < 80; k=k+4){
TocaNota(tetr[k],tetr[k+1],tetr[k+2],tetr[k+3]);
}
}
_delay(1000000);
break;
}else{
c=0;
n=0;
for (signed char k = 0; k < 12; k=k+4){
TocaNota(mmal[k],mmal[k+1],mmal[k+2],mmal[k+3]);
}
Esborra(); // Esborra la pantalla i posa el cursor a l'inici
for (signed char k = 0; k < 8; k++){
EnviaL(mal[k]);
}
break;
}
}
if(L==3){
if((x == Leds2) && (y+1 == Fila2)){
n=0;
c++;
d++;
Esborra(); // Esborra la pantalla i posa el cursor a l'inici
for (signed char k = 0; k < 8; k++){
EnviaL(be[k]);
}
for (signed char k = 0; k < 12; k=k+4){
TocaNota(mbe[k],mbe[k+1],mbe[k+2],mbe[k+3]);
}
EnviaL('1');
EnviaL(d+'0');
for (signed char k = 0; k < 6; k++){
EnviaL(punt[k]);
}
if(c==12){
for (signed char k = 0; k < 80; k=k+4){
TocaNota(tetr[k],tetr[k+1],tetr[k+2],tetr[k+3]);
}
}
_delay(1000000);
break;
}else{
c=0;
n=0;
for (signed char k = 0; k < 12; k=k+4){
TocaNota(mmal[k],mmal[k+1],mmal[k+2],mmal[k+3]);
}
Esborra(); // Esborra la pantalla i posa el cursor a l'inici
for (signed char k = 0; k < 8; k++){
EnviaL(mal[k]);
}
break;
}
}
}
mirar = 0;
}
if (Polsad == 3) { // Si s'ha premut el polsador 4
y = (y + 1) % 8;
mirar = 0;
}
if (Polsad == 4) { // Si s'ha premut el polsador 5
x = (x - 1) % 8;
mirar = 0;
}
}else {
if (Polsad == 0) { // Si no s'ha premut cap polsador (o dos a la vegada)
mirar = 1;
}
}
for (unsigned char k = 0; k < 8; k++){
char mascara;
Sortida[0] = 0; // Vermells
Sortida[2] = 0; // Verds
Sortida[4] = figura[k]; // Blau
if (y == k){ // Si estem a la filera del cursor
mascara = (1 << x);
Sortida[0] = Sortida[0] | mascara; // Encén vermell
Sortida[2] = Sortida[2] & ~mascara; // Encén verd
Sortida[4] = Sortida[4] | mascara; // Apaga blau
}
Sortida[1] = k+1; // Filera
Sortida[3] = k+1;
Sortida[5] = k+1;
Envia3max(Sortida); // Ho envia al MAX7221
__delay_ms(1);
}
}
}
}
void __interrupt() temporit(void){
if (INTCONbits.T0IF) { // Comprovem que hi ha interrupció per Timer 0
TMR0 = 100; // Preselecció de Timer0
INTCONbits.T0IF = 0; // Desactiva el bit que indica interrupció pel Timer0
if (Actiu != 0) { // Si la matriu no està apagada
Actiu--; // Passem a activar un altre color
if (Actiu == 0) { // Si hem arribat a zero
Actiu = 3; // Torna a posar el 3
}
}
// D'entrada els desactivem els tres
Sorti[0] = 0x00; // Vermell
Sorti[2] = 0x00; // Verd
Sorti[4] = 0x00; // Blau
if (Actiu == 1) { // Si és vermell
Sorti[0] = 0x01; // Vermell activat
}
if (Actiu == 2) { // Si és verd
Sorti[2] = 0x01; // Verd activat
}
if (Actiu == 3) { // Si és blau
Sorti[4] = 0x01; // Blau activat
}
Sorti[1] = 0x0C; // Shutdown mode
Sorti[3] = 0x0C; // Shutdown mode
Sorti[5] = 0x0C; // Shutdown mode
Envia_max(); // Ho envia al MAX7221
}
}
void Envia3max(char Valor[]) { // Envia un joc de valors als tres MAX7221
INTCONbits.T0IE = 0; // Desactiva les interrupcions momentàniament
char Port = 0; // Variable on guardem l'estat del port B
char Temp; // Variable temporal
for (signed char j = 5; j >= 0; j--){ // Hem d'enviar 6 bytes
for (signed char k = 1; k < 9; k++){ // De 8 bits
Temp = Valor[j] & 0b10000000; // Agafa el bit de més a l'esquerra
// Temp només podrà valer 0 o 128
if (Temp == 0) { // Si val 0
Port = Port & 0b11101111; // Desactiva Data (bit 4)
} else { // Si val 128
Port = Port | 0b00010000; // Activa Data (bit 4)
}
Valor[j] = Valor[j] << 1; // Rodem els bits per situar el següent
PORTB = Port; // Ho posa al port B
Port = Port | 0b00100000; // Activa Clock (bit 5) i força lectura
PORTB = Port; // Ho posa al port B
Port = Port & 0b11011111; // Desactiva Clock (bit 5)
PORTB = Port; // Ho posa al port B
}
}
Port = Port | 0b01000000; // Activa Latch (bit 6) per copiar a les sortides
PORTB = Port; // Ho posa al port B
INTCONbits.T0IE = 1; // Reactiva les interrupcions a l'acabar
}
void Envia_max(void) { // Envia un joc de valors als tres MAX7221
asm("banksel _Port");
asm("bcf (_Port&7fh),5"); // S'assegura que Clock està desactivat
asm("bcf (_Port&7fh),6"); // S'assegura que Latch està desactivat
asm("movf (_Port&7fh),w"); // Agafa el valor de Port
asm("movwf PORTB"); // I el posa al port B
asm("banksel _Compta");
asm("movlw 48"); // Número de bits a enviar
asm("movwf (_Compta&7fh)"); // Variable per comptar els bits
asm("Bucle:");
asm("banksel _Port");
asm("bcf (_Port&7fh),4"); // Desactiva Data. Si toca activar-ho, ja ho farem
asm("banksel _Sorti");
asm("rlf (_Sorti&7fh),f"); // Fa sortir el bit de més a l'esquerra cap a C
asm("rlf ((_Sorti+1)&7fh),f"); // i roda els altres a l'esquerra
asm("rlf ((_Sorti+2)&7fh),f");
asm("rlf ((_Sorti+3)&7fh),f");
asm("rlf ((_Sorti+4)&7fh),f");
asm("rlf ((_Sorti+5)&7fh),f");
asm("banksel _Port");
asm("btfsc STATUS,0"); // Mira si el bit de l'esquerra era un 1
asm("bsf (_Port&7fh),4"); // Si era 1, activa Data
asm("movf (_Port&7fh),w"); // Agafa el valor de Port. El valor que ha canviat és Data
asm("movwf PORTB"); // I el posa al port B
asm("bsf (_Port&7fh),5"); // Activa Clock, forçant a llegir el bit
asm("movf (_Port&7fh),w"); // Agafa el valor de Port. El valor que ha canviat és Clock
asm("movwf PORTB"); // I el posa al port B
asm("bcf (_Port&7fh),5"); // Desactiva Clock
asm("movf (_Port&7fh),w"); // Agafa el valor de Port. El valor que ha canviat és Clock
asm("movwf PORTB"); // I el posa al port B
asm("banksel _Compta");
asm("decfsz (_Compta&7fh),f"); // Decrementa Compta
asm("goto Bucle"); // Si Compta no és zero, repeteix el bucle
asm("banksel (_Port&7fh)");
asm("bsf (_Port&7fh),6"); // Torna a activar Latch
// Els valors es copiaran a la sortida del registre
asm("movf (_Port&7fh),w"); // Agafa el valor de Port. El valor que ha canviat és Latch
asm("movwf PORTB"); // I el posa al port B
}
void Ini3max(void) { // Inicialitza els tres MAX7221
char Bytes[6]; // Els sis bytes que cal enviar
Bytes[0] = 0x00; // Desactivat
Bytes[1] = 0x0C; // Shutdown mode
Bytes[2] = 0x00;
Bytes[3] = 0x0C;
Bytes[4] = 0x00;
Bytes[5] = 0x0C;
Envia3max(Bytes); // Els envia
Bytes[0] = 0x00; // No decode
Bytes[1] = 0x09; // Decode mode
Bytes[2] = 0x00;
Bytes[3] = 0x09;
Bytes[4] = 0x00;
Bytes[5] = 0x09;
Envia3max(Bytes); // Els envia
Bytes[0] = 0x07; // Vuit fileres
Bytes[1] = 0x0B; // Scan limit
Bytes[2] = 0x07;
Bytes[3] = 0x0B;
Bytes[4] = 0x07;
Bytes[5] = 0x0B;
Envia3max(Bytes); // Els envia
}
void Apaga(void) { // Apaga tots els LED
char Bytes[6]; // Els sis bytes que cal enviar
for (unsigned char j = 1; j <= 8; j++){ // Hem d'enviar 8 fileres
Bytes[1] = j; // Filera
Bytes[3] = j;
Bytes[5] = j;
Bytes[0] = 0x00; // Vermells
Bytes[2] = 0x00; // Verds
Bytes[4] = 0x00; // Blaus
Envia3max(Bytes); // Els envia
}
}
char Polsador1(void) {
char Pols = 0;
ADCON0bits.GO = 1; // Posa en marxa el conversor
while (ADCON0bits.GO == 1) // Mentre no acabi
; // ens esperem
if (ADRESH < 220 && ADRESH > 200) {
Pols = 1; // Comprova polsador 1
}
if (ADRESH < 194 && ADRESH > 174) {
Pols = 2; // Comprova polsador 2
}
if (ADRESH < 163 && ADRESH > 143) {
Pols = 3; // Comprova polsador 3
}
if (ADRESH < 90 && ADRESH > 70) {
Pols = 4; // Comprova polsador 4
}
if (ADRESH < 55 && ADRESH > 35) {
Pols = 5; // Comprova polsador 5
}
return Pols;
}
void EnviaL(char Caracter) {
INTCONbits.GIE = 0; // Desactiva les interrupcions momentàniament
RCSTAbits.SPEN = 1; // Activa comunicació sèrie
TXSTAbits.TXEN = 1; // Activa comunicació
TXREG = Caracter; // Agafa el caràcter i l'envia
__delay_ms(1); // Donem temps
while (PIR1bits.TXIF == 0) // Esperem que s'acabi d'enviar
; // No fem res
RCSTAbits.SPEN = 0; // Desactiva comunicació sèrie
TXSTAbits.TXEN = 0; // Desactiva comunicació
INTCONbits.GIE = 1; // Activa les interrupcions
}
void Esborra(void) {
EnviaL(254); // Caràcter de control
EnviaL(1); // Esborra la pantalla i posa el cursor a l'inici
}
void Cursor(char Filera, char Columna) {
char Posicio = 0; // Variable per a calcular la posició
if (Filera == 2) {
Posicio = 64; // La primera columna de la segona fila és 64;
}
if (Columna > 0 && Columna < 33) { // Comprovem que sigui un valor raonable
Posicio = Posicio + Columna; // Sumem les adreces
Posicio = Posicio - 1; // Restem 1 perquè numera des de 0
}
Posicio = Posicio + 128; // Posa el bit de posicionat a 1
EnviaL(254); // Control de la posició del cursor
EnviaL(Posicio); // Canvia el cursor de lloc
}
void TocaNota(char ValPR2, char ValCCPR1L, char ValDC1B, char tem) {
TRISC = 0b00100000; // Definim com volem les E/S del port C
// RC5 (sortida del PWM), de moment, com a entrada
PR2 = ValPR2; // Carrega PR2
CCP1CON = CCP1CON & 0b11001111; // Posa a zero els bits que corresponen a DC1B
ValDC1B = ValDC1B % 4; // DC1B va de 0 a 3
ValDC1B = ValDC1B * 16; // Desplaça els bits a la posició que els correspon a CCP1CON
CCP1CON = CCP1CON | ValDC1B; // Coloca DC1B al seu lloc
CCPR1L = ValCCPR1L; // Carrega CCPR1L, registre que ens dona l'amplada de tON
PIR1bits.TMR2IF = 0; // Desactiva el bit d'interrupció del Timer 2
T2CON = 0b00000111; // Configura el Timer 2
// bits T2KCPS (bits 1-0) a 11 prescalat de 16
// bit 2 (TMR2ON) a 1, Timer activat
// Postscaler TOUTPS (bits 6-3) no afecten al PWM
while (PIR1bits.TMR2IF == 0) // Espera l'activació del bit d'interrupció del Timer 2
; // Esperem
TRISC = 0b00000000; // Posem RC5 (sortida del PWM) com a sortida
if (tem==1){
__delay_ms(50); // Retard de 0,05 s
} else {
if (tem==2){
__delay_ms(150);
}else{
if(tem==4){
__delay_ms(350);
}
}
}
TRISC = 0b00100000; // Posem RC5 (sortida del PWM) com a entrada
// O sigui, silenci
__delay_ms(50); // Retard de 0,2 s
}
Aquesta obra d'Oriol Boix està llicenciada sota una llicència no importada Reconeixement-NoComercial-SenseObraDerivada 3.0.