Utwór Jingle Bells.
Cały program
[syntax=c]#include <avr/io.h>
#include <avr/interrupt.h>
#include <avr/pgmspace.h>
#include <util/delay.h>
//Definicja portu brzęczyka
#define BUZZER (1<<PC0)
#define BUZZER_DDR DDRC
#define BUZZER_PORT PORTC
//Definicje stanów brzęczyka
#define BUZZER_ON BUZZER_PORT |= BUZZER;
#define BUZZER_OFF BUZZER_PORT &= ~BUZZER;
#define BUZZER_TOG BUZZER_PORT ^= BUZZER;
//Częstotliwość timera - ustawiana w inicjalizacji Timera
uint32_t timer_hz = 0;
//Licznik dla nuty
volatile uint16_t nuta_counter;// Liczy wywołania timera
volatile uint16_t nuta = 0;// Wartość licznika dla nuty
volatile uint8_t nuta_flag;// Flaga zmiany stanu nóżki dla nuty
volatile uint8_t nuta_czas;// Czas trwania nuty
//Licznik sekundy
volatile uint32_t sekunda_counter;// Liczy wywołania timera
volatile uint32_t sekunda;// Wartość licznika dla sekundy
volatile uint8_t sekunda_flag;// Flaga tyknięcia timera co 1 sekundę
//Deklaracje funkcji
void inicjalizacjaTimera1CTC();// Inizjalizuje timer
void zmienHzNaLicznik();// Przelicza częstotliwość na licznik
// timer_hz * 10 / nuty_hz[i] + 0.5
void kolejnaNuta();// Wpisuje do bufora kolejną nutę
uint8_t rozpoznajNute(uint16_t utwor_indeks);//Przekłada nutę na wartość z tablicy
enum
{
osemka = 1,
cwiercnuta = 2,
polnuta = 4,
calanuta = 8
};
//Oktawa razkreślna
//Dźwięk częstotliwość*10
#define c1 2616
#define d1 2937
#define e1 3296
#define f1 3492
#define g1 3919
#define a1 4400
#define h1 4939
//Oktawa dwukreślna
//Dźwięk częstotliwość*10
#define c2 5232
#define d25873
#define e26593
#define f26985
#define g27840
#define a28800
#define h29878
//Dodatki
#define hbemol4662 // Obniżone h1
// ----------- Wpisz częstotliwości nut * 10 -------------
//Reprezentacja nut Hz*10
const uint8_t nuty_liczba = 14;
uint16_t nuty_hz[] = {c1, d1, e1, f1, g1, a1, hbemol, c2, d2, e2, f2, g2, a2, h2};
// -------------------- Wpisz utwór ----------------------
// Wyszły w pole kurki trzy
//char utwor[] = "1c1c1g1g1a1a1g1g1f1f1e1e1d1d1c1c 1g1g1f1f1e1e1d1d 1g1g1f1f1e1e1d1d 1c1c1g1g1a1a1g1g1f1f1e1e1d1d1c1c";
//
//.. - przedłuża czas trwania nuty o połowę
//1p 2p 4p 8p - pauzy
//1c 2c 4c 8c - cała nuta, półnuta, ćwierćnuta, ósemka
// -------------------- Jingle Bells --------------------
char utwor[] = "8c8c 4c4a4g4f 2c..8c8c 4c4a4g4f 2d..8p8d 4e4h4a4g"
"2e..8p8e 4C4C4h4g 2a..8c8c 4c4a4g4f 2c..8c8c 4c4a4g4f 2d..8p8d"
"4e4h4a4g 4C4C4C..8C 4D4C4h4g 2f2C 4a4a2a 4a4a2a"
"4a4C4f..8g 2a..4p 4h4h4h..8h 4h4a4a8a8a 4a4g4g4a 2g2C 4a4a2a"
"4a4a2a 4a4C4f..8g 2a..4p 4h4h4h..8h 4h4a4a8a8a 4C4C4h4g 2f..";
//Obsługa pauz
uint8_t graj = 0;
// ---- Wpisz symbole nut i ich odpowiednik z tablicy ----
uint8_t rozpoznajNute(uint16_t utwor_indeks)
{
//Rozpoznaj czas trwania nuty
static uint8_t ostatnia_nuta_czas;
switch (utwor[utwor_indeks])
{
case '1': nuta_czas = calanuta; break;
case '2': nuta_czas = polnuta; break;
case '4': nuta_czas = cwiercnuta; break;
case '8': nuta_czas = osemka; break;
case '.': nuta_czas = ostatnia_nuta_czas/2; graj = 1; break;
default: return 1;// Wystąpił biały znak
}
ostatnia_nuta_czas = nuta_czas;
utwor_indeks++;
//Rozpoznaj nute
switch (utwor[utwor_indeks])
{
case 'c': nuta = nuty_hz[0]; graj = 1; break;
case 'd': nuta = nuty_hz[1]; graj = 1; break;
case 'e': nuta = nuty_hz[2]; graj = 1; break;
case 'f': nuta = nuty_hz[3]; graj = 1; break;
case 'g': nuta = nuty_hz[4]; graj = 1; break;
case 'a': nuta = nuty_hz[5]; graj = 1; break;
case 'h': nuta = nuty_hz[6]; graj = 1; break;
case 'C': nuta = nuty_hz[7]; graj = 1; break;
case 'D': nuta = nuty_hz[8]; graj = 1; break;
case 'E': nuta = nuty_hz[9]; graj = 1; break;
case 'F': nuta = nuty_hz[10]; graj = 1; break;
case 'G': nuta = nuty_hz[11]; graj = 1; break;
case 'A': nuta = nuty_hz[12]; graj = 1; break;
case 'H': nuta = nuty_hz[13]; graj = 1; break;
case '.': return 2; //Obsłużone wcześniej
case 'p': nuta = 60000; graj = 0; break;
default: return 1;// Wystąpił biały znak
}
return 0;
}
int main( void ) {
// Ustawienie pinu buzzera jako wyjście
BUZZER_DDR |= BUZZER;
inicjalizacjaTimera1CTC();
// Ustal licznik dla sekundy
sekunda = timer_hz;
//Przypisz sekundzie czas trwania ósemki
sekunda /= calanuta;
//Graj wolniej
//sekunda *= 2;
// Przelicz czestotliwosc nut na wartosc licznika TOG
zmienHzNaLicznik();
// Pobierz pierwszą nutę
kolejnaNuta();
// Wpisz początkowe wartości sekundy i nuty
nuta_counter = nuta;
sekunda_counter = sekunda;
graj = 1;
// Włączenie przerwań
sei();
while(1)
{
if(nuta_flag & graj)
{
BUZZER_TOG;
nuta_flag = 0;
}
if(sekunda_flag)
{
if(!--nuta_czas) kolejnaNuta();
sekunda_flag = 0;
}
}
}
void zmienHzNaLicznik()
{
float przeliczenie = 0;
for(int i = 0; i < nuty_liczba; i++)
{
//Nuty reprezentowane w Hz*10
przeliczenie = timer_hz * 10;
przeliczenie /= nuty_hz[i];
przeliczenie += 0.5;
nuty_hz[i] = (uint16_t) przeliczenie;
}
}
void kolejnaNuta()
{
static uint16_t utwor_indeks = 0;
uint8_t bialy_znak = 0;
if(utwor[utwor_indeks]== '\0')
{
utwor_indeks = 0;
graj = 0;
nuta_czas = calanuta;
}
else
{
graj = 1;
do
{
//Wybierz częstotliwość kolejnej nuty
bialy_znak = rozpoznajNute(utwor_indeks);
//Kolejna nuta
if(bialy_znak==1) utwor_indeks++; //wystąpił biały znak
else utwor_indeks += 2;
// Akcent kolejnej nuty
// - takie same nuty nie zlewają się w jedną
if(bialy_znak != 2) nuta_counter = nuta; //Jeżeli nie jest to przedłużenie nuty
}while(bialy_znak==1);//Jeżeli biały znak, weź kolejną nutę
}
}
void inicjalizacjaTimera1CTC()
{
// Tryb Compare Match
TCCR1B |= (1<<WGM12);
// Preskaler
//TCCR1B |= (1<<CS10); // preskaler = 1
TCCR1B |= (1<<CS11); // preskaler = 8
//TCCR1B |= (1<<CS10)|(1<<CS11);// preskaler = 64
//TCCR1B |= (1<<CS12); // preskaler = 256
//TCCR1B |= (1<<CS10)|(1<<CS12); // preskaler = 1024
// Dodatkowy podział częstotliwości
//16MHz/8/100kHz=20
OCR1A = 20 - 1 ; // * Timer liczy od 0 dlatego -1
// Obliczona częstotliwość timera dla nut
timer_hz = 100000;
// Zezwolenie na przerwanie CompareMatch
TIMSK |= (1<<OCIE1A);
}
// Przerwanie Compare Match Timera1
ISR( TIMER1_COMPA_vect )
{
if(!--nuta_counter)
{
nuta_counter = nuta;
nuta_flag = 1;
}
if(!--sekunda_counter)
{
sekunda_counter = sekunda;
sekunda_flag = 1;
}
}[/syntax]
Definicje czasu trwania nut
[syntax=c]enum
{
osemka = 1,
cwiercnuta = 2,
polnuta = 4,
calanuta = 8
};[/syntax]
Definicje nut
[syntax=c]//Oktawa razkreślna
//Dźwięk częstotliwość*10
#define c1 2616
#define d1 2937
#define e1 3296
#define f1 3492
#define g1 3919
#define a1 4400
#define h1 4939
//Oktawa dwukreślna
//Dźwięk częstotliwość*10
#define c2 5232
#define d25873
#define e26593
#define f26985
#define g27840
#define a28800
#define h29878
//Dodatki
#define hbemol4662 // Obniżone h1[/syntax]
Dodanie nut do tablicy - zależnie od utworu, tutaj używamy obniżonego h1 w miejsce h1
[syntax=c]// ----------- Wpisz częstotliwości nut * 10 -------------
//Reprezentacja nut Hz*10
const uint8_t nuty_liczba = 14;
uint16_t nuty_hz[] = {c1, d1, e1, f1, g1, a1, hbemol, c2, d2, e2, f2, g2, a2, h2};[/syntax]
Jingle Bells
[syntax=c]// -------------------- Wpisz utwór ----------------------
//.. - przedłuża czas trwania nuty o połowę
//1p 2p 4p 8p - pauzy
//1c 2c 4c 8c - cała nuta, półnuta, ćwierćnuta, ósemka
// -------------------- Jingle Bells --------------------
char utwor[] = "8c8c 4c4a4g4f 2c..8c8c 4c4a4g4f 2d..8p8d 4e4h4a4g"
"2e..8p8e 4C4C4h4g 2a..8c8c 4c4a4g4f 2c..8c8c 4c4a4g4f 2d..8p8d"
"4e4h4a4g 4C4C4C..8C 4D4C4h4g 2f2C 4a4a2a 4a4a2a"
"4a4C4f..8g 2a..4p 4h4h4h..8h 4h4a4a8a8a 4a4g4g4a 2g2C 4a4a2a"
"4a4a2a 4a4C4f..8g 2a..4p 4h4h4h..8h 4h4a4a8a8a 4C4C4h4g 2f..";[/syntax]
Rozpoznawanie czasu trwania nut, nut oraz znaków specjalnych
[syntax=c]// ---- Wpisz symbole nut i ich odpowiednik z tablicy ----
uint8_t rozpoznajNute(uint16_t utwor_indeks)
{
//Rozpoznaj czas trwania nuty
static uint8_t ostatnia_nuta_czas;
switch (utwor[utwor_indeks])
{
case '1': nuta_czas = calanuta; break;
case '2': nuta_czas = polnuta; break;
case '4': nuta_czas = cwiercnuta; break;
case '8': nuta_czas = osemka; break;
case '.': nuta_czas = ostatnia_nuta_czas/2; graj = 1; break;
default: return 1;// Wystąpił biały znak
}
ostatnia_nuta_czas = nuta_czas;
utwor_indeks++;
//Rozpoznaj nute
switch (utwor[utwor_indeks])
{
case 'c': nuta = nuty_hz[0]; graj = 1; break;
case 'd': nuta = nuty_hz[1]; graj = 1; break;
case 'e': nuta = nuty_hz[2]; graj = 1; break;
case 'f': nuta = nuty_hz[3]; graj = 1; break;
case 'g': nuta = nuty_hz[4]; graj = 1; break;
case 'a': nuta = nuty_hz[5]; graj = 1; break;
case 'h': nuta = nuty_hz[6]; graj = 1; break;
case 'C': nuta = nuty_hz[7]; graj = 1; break;
case 'D': nuta = nuty_hz[8]; graj = 1; break;
case 'E': nuta = nuty_hz[9]; graj = 1; break;
case 'F': nuta = nuty_hz[10]; graj = 1; break;
case 'G': nuta = nuty_hz[11]; graj = 1; break;
case 'A': nuta = nuty_hz[12]; graj = 1; break;
case 'H': nuta = nuty_hz[13]; graj = 1; break;
case '.': return 2; //Obsłużone wcześniej, przedłuż dźwięk poprzedniej nuty o połowę
case 'p': nuta = 60000; graj = 0; break; //Pauza
default: return 1;// Wystąpił biały znak
}
return 0;
}[/syntax]
Inicjalizacja Timera
[syntax=c]void inicjalizacjaTimera1CTC()
{
// Tryb Compare Match
TCCR1B |= (1<<WGM12);
// Preskaler
//TCCR1B |= (1<<CS10); // preskaler = 1
TCCR1B |= (1<<CS11); // preskaler = 8
//TCCR1B |= (1<<CS10)|(1<<CS11);// preskaler = 64
//TCCR1B |= (1<<CS12); // preskaler = 256
//TCCR1B |= (1<<CS10)|(1<<CS12); // preskaler = 1024
// Dodatkowy podział częstotliwości
//16MHz/8/100kHz=20
OCR1A = 20 - 1 ; // * Timer liczy od 0 dlatego -1
// Obliczona częstotliwość timera dla nut
timer_hz = 100000;
// Zezwolenie na przerwanie CompareMatch
TIMSK |= (1<<OCIE1A);
}[/syntax]
iframe
Statystyki: Napisane przez Rzeczek — 8 wrz 2015, o 18:14
]]>
