tonleitergenerator m328

[grundschüler (Gast)]

ich möchte ein Ereignis - Beendigung eines Backvorgangs -  akustisch 
anzeigen. Dem Ereignisangemessen wäre eine kleine Fanfare, z.B. 
verkürzter Walkürenritt. Dafür suche ich einen einfachen Tongenerator. 
Ich habe bislang:

main(){
...
#if 01
#define wait _delay_ms(20);
    soundtimer=10000;
while(1){
    wait;pwm_sound_on(10);//2778
    wait;pwm_sound_off();
    wait;pwm_sound_on(20);//1562
    wait;pwm_sound_off();
    wait;pwm_sound_on(30);//1000
    wait;pwm_sound_off();
    wait;pwm_sound_on(40);//780
    wait;pwm_sound_off();
    wait;pwm_sound_on(50);//610
    wait;pwm_sound_off();
    wait;pwm_sound_on(60);//510
    wait;pwm_sound_off();
    wait;pwm_sound_on(70);//446
    wait;pwm_sound_off();
    wait;pwm_sound_on(80);//390
    wait;pwm_sound_off();
    wait;pwm_sound_on(90);//347
    wait;pwm_sound_off();
    wait;pwm_sound_on(100);//312
    wait;pwm_sound_off();
    wait;pwm_sound_on(120);//260
    wait;pwm_sound_off();
    wait;pwm_sound_on(130);//242
    wait;pwm_sound_off();
    wait;pwm_sound_on(140);//225
    wait;pwm_sound_off();
    wait;pwm_sound_on(150);//208
    wait;pwm_sound_off();
    wait;pwm_sound_on(200);//156
    wait;pwm_sound_off();
    wait;pwm_sound_on(250);//125
    wait;pwm_sound_off();
    wait;pwm_sound_on(254);//124
    wait;pwm_sound_off();
    wait;pwm_sound_on(255);//123
    wait;pwm_sound_off();
    _delay_ms(1000);
    
  }


#else
pwm_sound_on(110);
soundtimer=2;
#endif

...
}




void pwm_sound_on(u8 ton){
 /*
cs02+01+00:
0 no clock
1 no presc
2 /8
3 /64
4 /256
5 /1024
*/

TCCR2A |= (1<<WGM21);
    // 1; Timer0 Vorteiler: 64 -> bei 16 MHz: 
    // 16.000.000 / 64 = 250000 Mal pro Sek gibts einen Takt an den Timer
    // 8.000.000 / 1024 = 7812 Mal pro Sek gibts einen Takt an den Timer
    
TCCR2B |= ((1<<CS22)|(1<<CS20));//1024
    
    // Timer0 soll bei 250 einen Output Compare Interrupt ausl?sen ->
    // 250.000 / 250 = 1000 mal pro Sek gibts einen Interrupt
    // 7812 /78 = 100 mal pro Sek gibts einen Interrupt
OCR2A = ton;//189;//30ms

    //Compare Interrupt aktivieren
TIMSK2 |= (1<<OCIE2A);

    //Globale Interrupts aktivieren
sei();

 
 }

void pwm_sound_off(void){
TCCR2A =0;
TCCR2B=0;
TIMSK2 &= ~(1<<OCIE2A);
}

Die Frequenzen sind mit dem la ausgemessen. Müsste jetzt Tonleiternoten 
zugeordnet werden. Bevor das ganze in Arbeit ausartet, hat jemand 
irgendetwas brauchbares Fertiges für avr?

Danke für Unterstützung

[Christoph db1uq K. (christoph_kessler)]

Tonleiter ist doch einfach. Ein Halbtonschritt ist die zwölfte Wurzel 
aus zwei. Nach zwölf Halbtonschritten hat man die Frequenz halbiert oder 
verdoppelt, das ist eine Oktave. Einfach die Zahl mit dem 
wissenschaftlichen Taschenrechner mal oder durch 2^(1/12) pro Halbton 
multiplizieren/dividieren.

[Lothar M. (Firma: Titel) (lkmiller) (Moderator)]

Christoph db1uq K. schrieb:
> Tonleiter ist doch einfach. Ein Halbtonschritt ist die zwölfte Wurzel
> aus zwei. Nach zwölf Halbtonschritten hat man die Frequenz halbiert oder
> verdoppelt, das ist eine Oktave.
Und ganz offenbar verdoppelt sich die Frequenz bei halbem "ton"-Wert. 
Damit kann man doch schon was anfangen und den nächsten Ton sogar in 
Echtzeit ausrechnen...

> Tonleiter ist doch einfach.
Naja, kann auch kompliziert werden. Siehe dazu den 
Beitrag "Tonleiter mit acht Tönen herstellen"
;-)

[Daten Experte (Gast)]

Christoph db1uq K. schrieb:
> Tonleiter ist doch einfach. Ein Halbtonschritt ist die zwölfte Wurzel
> aus zwei.

Das ergibt aber keine Tonleiter nach dem Empfinden des
menschlichen Gehörs.

Eine Dur-Tonleiter besteht aus 8 Tönen

1) dem Grundton
2) +  2xHT (dem nächsten Ganzton, zwei Halbtöne)
3) +  4xHT
4) +  5xHT
5) +  7xHT (Quint)  (un-temperiert: 1.5x Grundton)
6) +  9xHT (Sext)
7) + 11xHT (Sept)
8) + 12xHT (Oktave)

[grundschüler (Gast)]

#define ton_H pwm_sound_off();pwm_sound_on(255)
#define ton_e pwm_sound_off();pwm_sound_on(188)
#define ton_g pwm_sound_off();pwm_sound_on(160)
#define ton_h pwm_sound_off();pwm_sound_on(128)
#define wait _delay_ms(20);
#define w _delay_ms(800);




soundtimer=10000;

while(1){

ton_e;w;w;
ton_g;w;
ton_e;w;w;
ton_H;w;
ton_e;w;
ton_g;w;
ton_h;w;
ton_e;w;w;
pwm_sound_off();

    
}

noch nicht der Walkürenritt - aber immerhin eine Melodie aus Noten 
zusammengestellt.

[Max II (Gast)]

Schau dir doch mal den Beitrag "Klingel mit 100 Melodien - last minute Weihnachtsgeschenk"
an. Da sollte alles dabei sein, was du brauchst.

[grundschüler (Gast)]

Max II schrieb:
> "Klingel mit 100 Melodien - last minute Weihnachtsgeschenk"


genau das wärs gewesen, was ich gesucht hatte.

Leider ist das Programm schon fertig:

#define achtelton _delay_ms(400)

#define ton_H(achtel) pwm_sound_on(255);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_c(achtel) pwm_sound_on(235);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_d(achtel) pwm_sound_on(215);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_e(achtel) pwm_sound_on(188);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_f(achtel) pwm_sound_on(177);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_g(achtel) pwm_sound_on(160);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_a(achtel) pwm_sound_on(142);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_h(achtel) pwm_sound_on(128);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_hc(achtel) pwm_sound_on(118);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_hd(achtel) pwm_sound_on(105);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_he(achtel) pwm_sound_on(94);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();
#define ton_hf(achtel) pwm_sound_on(88);for(i=0;i<achtel;i++)achtelton;pwm_sound_off();



while(1){

ton_e(4);
ton_g(2);
ton_e(4);
ton_H(2);
ton_e(2);
ton_g(2);
ton_h(2);
ton_e(4);


_delay_ms(1000);
}

Dameit kann man einfach Notenschriften in code umsetzen.

Ich werde mir aber den pwm-timer-Teil anschauen und wahrscheinlich 
übernehmen