Licznik – "muzyka"

Generacja impulsów

/*
 * main.c
 *
 *  Created on: 12 gru 2015
 *      Author: Jerzy
 *  Opis:
 *  Program wygrywa kolejne dźwięki gam 0...5
 */

#include <avr/io.h>
#include <util/delay.h>
#include <avr/pgmspace.h>

const uint8_t nt[36] PROGMEM = {238,224,212,200,189,178,168,158,149,141,133,126,
                                118,112,105, 99, 94, 88, 83, 79, 74, 70, 66, 62,
                                 59, 55, 52, 49, 46, 44, 41, 39, 37, 35, 33, 31};

int main(void)
{
    uint8_t i,s,n;
    DDRB   = (1<<PB0);  // Ustawiamy PB0 jako wyjście, reszta jako wejścia
    TCCR0A = (1<<COM0A0)|(1<<WGM01); // Tryb CTC ze zmianą PB0 na przeciwną
    while (1)
    {
        s = 0; // stan OCR0A dla dźwięku
        n = 3; // stan TCCR0B, preskaler, podział przez 64
        for(i = 0; i < 108; i++)
        {
            OCR0A =  pgm_read_byte(&nt[s++]);
            TCCR0B = n;
            if(s == 36) // po odegraniu wszystkich dźwięków z tablicy
            {
                s = 0;  // rozpoczynamy następny zestaw
                n--;    // z innym podziałem przez preskaler (8, 1)
            }
            _delay_ms(100);
        }
    }
}

/*
 * main.c
 *
 *  Created on: 13 gru 2015
 *      Author: Jerzy
 *  Opis:
 *  Program wygrywa zaprogramowaną melodię
 */

#include <avr/io.h>
#include <util/delay.h>
#include <avr/pgmspace.h>

// Stale określają wartości poleceń
// Dźwięki gam
#define C    0b0000
#define Cis  0b0001
#define D    0b0010
#define Dis  0b0011
#define E    0b0100
#define F    0b0101
#define Fis  0b0110
#define G    0b0111
#define Gis  0b1000
#define A    0b1001
#define Ais  0b1010
#define H    0b1011
#define P    0b1100
// Koniec melodii
#define END  0b1101
// Oktawy
#define O0 0b00001110
#define O1 0b00011110
#define O2 0b00101110
#define O3 0b00111110
#define O4 0b01001110
#define O5 0b01011110
#define O6 0b01101110
#define O7 0b01111110
#define O8 0b10001110
// argumenty
#define N1  0b00000000
#define N2  0b00010000
#define N3  0b00100000
#define N4  0b00110000
#define N5  0b01000000
#define N6  0b01010000
#define N7  0b01100000
#define N8  0b01110000
#define N9  0b10000000
#define N10 0b10010000
#define N11 0b10100000
#define N12 0b10110000
#define N13 0b11000000
#define N14 0b11010000
#define N15 0b11100000
#define N16 0b11110000
// Tablica przechowuje wartości OCCR0A dla poszczególnych nut w 3 oktawach
const uint8_t nt[] PROGMEM = {238,224,212,200,189,178,168,158,149,141,133,126,
                              118,112,105, 99, 94, 88, 83, 79, 74, 70, 66, 62,
                               59, 55, 52, 49, 46, 44, 41, 39, 37, 35, 33, 31,};
// Tablica przechowuje polecenia melodii
// Dla Elizy, L. Van Beethoven
const uint8_t m[] PROGMEM = {
O4,E|N1,Dis|N1,                            // Takt 1
E|N1,Dis|N1,E|N1,O3,H|N1,O4,D|N1,C|N1,     // Takt 2
O3,A|N3,C|N1,E|N1,A|N1,                    // Takt 3
H|N3,E|N1,Gis|N1,H|N1,                     // Takt 4
O4,C|N3,O3,E|N1,O4,E|N1,Dis|N1,            // Takt 5
E|N1,Dis|N1,E|N1,O3,H|N1,O4,D|N1,C|N1,     // Takt 6
O3,A|N3,C|N1,E|N1,A|N1,                    // Takt 7
H|N3,E|N1,O4,C|N1,O3,H|N1,	           // Takt 8
A|N2,P|N2,O4, E|N1,Dis|N1,                 // Takt 9
E|N1,Dis|N1,E|N1,O3,H|N1,O4,D|N1,C|N1,     // Takt 10
O3,A|N3,C|N1,E|N1,A|N1,                    // Takt 11
H|N3,E|N1,Gis|N1,H|N1,                     // Takt 12
O4,C|N3,O3,E|N1,O4,E|N1,Dis|N1,            // Takt 13
E|N1,Dis|N1,E|N1,O3,H|N1,O4,D|N1,C|N1,     // Takt 14
O3,A|N3,C|N1,E|N1,A|N1,                    // Takt 15
H|N3,E|N1,O4,C|N1,O3,H|N1,                 // Takt 16
A|N3,H|N1,O4,C|N1,D|N1,                    // Takt 17
E|N3,O3,G|N1,O4,F|N1,E|N1,                 // Takt 18
D|N3,O3,F|N1,O4,E|N1,D|N1,                 // Takt 19
C|N3,O3,E|N1,O4,D|N1,C|N1,                 // Takt 20
O3,H|N3,E|N1,O4,E|N1,O3,E|N1,              // Takt 21
O4,E|N3,O3,E|N1,O4,E|N1,O3,E|N1,           // Takt 22
O4,E|N1,Dis|N1,E|N1,Dis|N1,E|N1,Dis|N1,    // Takt 23
E|N1,Dis|N1,E|N1,O3,H|N1,O4,D|N1,C|N1,     // Takt 24
O3,A|N3,C|N1,E|N1,A|N1,                    // Takt 25
H|N3,E|N1,Gis|N1,H|N1,                     // Takt 26
O4,C|N3,O3,E|N1,O4,E|N1,Dis|N1,            // Takt 27
E|N1,Dis|N1,E|N1,O3,H|N1,O4,D|N1,C|N1,     // Takt 28
O3,A|N3,C|N1,E|N1,A|N1,                    // Takt 29
H|N3,E|N1,O4,C|N1,O3,H|N1,                 // Takt 30
A|N3,H|N1,O4,C|N1,D|N1,                    // Takt 31
E|N3,O3,G|N1,O4,F|N1,E|N1,                 // Takt 32
D|N3,O3,F|N1,O4,E|N1,D|N1,                 // Takt 33
C|N3,O3,E|N1,O4,D|N1,C|N1,                 // Takt 34
O3,H|N3,E|N1,O4,E|N1,O3,E|N1,              // Takt 35
O4,E|N3,O3,E|N1,O4,E|N1,O3,E|N1,           // Takt 36
O4,E|N1,Dis|N1,E|N1,Dis|N1,E|N1,Dis|N1,    // Takt 37
E|N1,Dis|N1,E|N1,O3,H|N1,O4,D|N1,C|N1,     // Takt 38
O3,A|N3,C|N1,E|N1,A|N1,                    // Takt 39
H|N3,E|N1,Gis|N1,H|N1,                     // Takt 40
O4,C|N3,O3,E|N1,O4,E|N1,Dis|N1,            // Takt 41
E|N1,Dis|N1,E|N1,O3,H|N1,O4,D|N1,C|N1,     // Takt 42
O3,A|N3,C|N1,E|N1,A|N1,                    // Takt 43
H|N3,E|N1,O4,C|N1,O3,H|N1,                 // Takt 44
A|N10,                                     // Takt 45/46 - koniec
P|N14,P|N12|P|N12,END
};

// Procedura wprowadza zadane opóźnienie
void wait(uint8_t x)
{
    uint8_t i;
    for(i = 0; i < x; i++) _delay_ms(180); // określa szybkość odtwarzania melodii
}
int main(void)
{
    uint8_t s,n,t,b;
    uint16_t i;         // indeks m[] musi być 16-bitowy!!!
    DDRB   = (1<<DDB0); // Ustawiamy PB0 jako wyjście, reszta jako wejścia
    while (1)
    {
        i = 0;  // Ustawiamy indeks pierwszego polecenia
        do
        {
            b = pgm_read_byte(&m[i++]); // odczytujemy polecenie
            t = b >> 4;  // w t argument
            b &= 0b1111; // w b kod polecenia
            if(b == O0)  // gama
            {
                s = 12 * (t % 3); // indeks bazowy w nt[]
                n = 3 - t / 3;    // wartość dla OCCR0B
            }
            else if(b == P) // pauza
            {
                TCCR0B = 0;       // zatrzymujemy licznik
                TCCR0A = 0;       // przywracamy tryb normalny
                PORTB  = 0b11110; // linia PB0 w stan niski
                wait(t+1);        // czekamy odpowiedni czas
            }
            else if(b != END) // nuta
            {
                TCCR0A = (1<<COM0A0)|(1<<WGM01); // Tryb CTC ze zmianą PB0 na przeciwną
                OCR0A  = pgm_read_byte(&nt[s + b]);
                TCCR0B = n; // włączamy generację dźwięku
                wait(t+1);  // czekamy odpowiedni czas
            }
        } while(b != END);
    }
}