und nochmal ein Melodigenerator

[Winfried J. (Firma: Nisch-Aufzüge) (winne)]

Jetzt war es auch bei mir soweit.

Der alte Gong an der Haustür will schon eine weile nicht mehr.

Die Recherche bei den üblichen Verdächtigen gibt nur unbefriedigende 
Ergebnisse Melodieklingeln sind nur mit Batterie betrieben zu haben. Das 
geht gar nicht. Ein defektes Funkmodel hat alle Monate 3 Babyzellen 
gefressen und war immer tot wenn es gebraucht wurde. Eine Verpolung am 
Netzteil kostet ihr dann das Leben.

Nun also sollte ein gerade herumligender ATiny2313 in die Bresche 
springen
ein 4,096 MHz Quarz ist auch gerad vorhanden.

http://www.hanneslux.de/avr/divers/melody/melody01.html

Lieferte die Impulse  und die Melodie

Die Umsetzung erfolgte in C mit CVAVR compiliert.

/*****************************************************
This program was produced by the
CodeWizardAVR V1.24.8 Standard
Automatic Program Generator
© Copyright 1998-2006 Pavel Haiduc, HP InfoTech s.r.l.
http://www.hpinfotech.com

Project : Türklingel
Version : 
Date    : 25.07.2011
Author  : Winfried Jaeckel
Company : Deviltronic
Comments: 


Chip type           : ATtiny2313
Clock frequency     : 4,096000 MHz
Memory model        : Tiny
External SRAM size  : 0
Data Stack size     : 32
*****************************************************/

#include <tiny2313.h>


#define g0 0x28d0       //196Hz
#define a0 0x245c       //220Hz
#define h0 0x2062       //247Hz
#define c  0x1e88       //262Hz
#define d  0x1b35       //294Hz
#define e  0x183d       //330Hz
#define f  0x16eb       //349Hz
#define g  0x1468       //392Hz
#define a  0x122e       //440Hz
#define h  0x1031       //494Hz
#define c1 0x0f4b       //523Hz
#define d1 0x0da0       //587Hz
#define e1 0x0c23       //659Hz
#define f1 0x0b75       //698Hz
#define g1 0x0a34       //784Hz

//Damit auch längere Pausen eingebunden werden können, wird der Wert 1 als Pause interpretiert:
#define p  1            //Pause


// Declare your global variables here

flash unsigned int m1[]= 
{
c,30,                                   //Ton C0 (tiefes C), 300ms (30 x 10ms) (horch)
d,30,                                   //was
e,30,                                   //kommt
f,30,                                   //von
g,30,                                   //drau-
a,30,                                   //;ßen
g,60,                                   //rein

f,30,d,30,h,60,                          //hollahi
g,30,e,30,c1,60,                         //hollaho
c,30,d,30,e,30,f,30,g,30,a,30,g,60,      //hoch was kommt von draußen rein
f,30,d,30,h,30,d1,30,c1,120,             //hollahiaho...
a,60,a,60,c1,60,h,30,a,30,g,60,e,60,g,120,
f,60,d,60,h,120,g,60,e,60,c1,120,        //hollahi hollaho
a,60,a,60,c1,60,h,30,a,30,g,60,e,60,g,120,
f,60,d,60,h,60,d1,60,c1,120,             //hollahiaho...
0,0                                     //Ende-Kennung "0"

};   //melodie           

bit start, stop,run,tr;//tr ton_run 
// Timer 0 overflow interrupt service routine
interrupt [TIM0_OVF] void timer0_ovf_isr(void)
{
static int tonnr,tonh; //Tonnummer,Tonhöhe
static unsigned char dauer;
// Reinitialize Timer 0 value
TCNT0=0xd8;                                             //in 10ms  sehen wir uns wieder
 
// Place your code here
if (start==1){tonnr=0;start=0;stop=0;run=1;};
if ((run ==1)&(tr==0))                                  // falls die melodie läuft und der vorherige ton fertig ist  
        {
        tonh=m1[tonnr];                                 // Ton holen
        dauer=m1[tonnr+1];                              // und dessen Dauer 
        tr=1;                                           // Ton starten
        };
if (tonh==0)stop=1;                                     // wenn der ton==0 dann ist die melodie aus
if (stop==1){tonnr=0;start=0;stop=0;run=0;tr=0;};       // hier wird alles ausgeschaltet

if (run==1)                                             //So lange die Musik spielt ist Run==1
        { 
        if (tonh==1) tonh=0;                            // wenn hier eine eins ist wird der tongenerator für eine Notedauer ausgeschaltetet
        
        if (dauer >1)                                   // wenn keine Notenpause dann 
                {                                         
                OCR1AH=(tonh&0xff00)/256; // higbyte    // tongenrator mit ton versorgen 
                OCR1AL=tonh&0x00ff;       // lowbyte
                }
        else
                {
                OCR1AH=0;                                // die letzen 10ms jeder Note ist Ruhe.
                OCR1AL=0;
                };
        if (dauer>0)                                     // Falss der ton noch nicht zu ende ist
                {   
               
                dauer--;                                 // wird hier die Tondauer dekrementiert
                }
        else {tr=0;tonnr=tonnr+2;};                      // ansonsten wird das der Tonzäler erhöht und tr==0 zeigt an das der nächste ton zu holen ist
       
        };


}


void main(void)                         Hier wird nur initialisiert
{
// Declare your local variables here

// Crystal Oscillator division factor: 1
#pragma optsize-
CLKPR=0x80;
CLKPR=0x00;
#ifdef _OPTIMIZE_SIZE_
#pragma optsize+
#endif

// Input/Output Ports initialization
// Port A initialization
// Func2=In Func1=In Func0=In 
// State2=T State1=T State0=T 
PORTA=0x00;
DDRA=0x00;

// Port B initialization
// Func7=In Func6=In Func5=In Func4=In Func3=Out Func2=In Func1=In Func0=In 
// State7=T State6=T State5=T State4=T State3=0 State2=T State1=T State0=T 
PORTB=0x00;
DDRB=0x08;

// Port D initialization
// Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In 
// State6=T State5=T State4=T State3=T State2=T State1=T State0=T 
PORTD=0x00;
DDRD=0x40;

// Timer/Counter 0 initialization
// Clock source: System Clock
// Clock value: 4,000 kHz
// Mode: Normal top=FFh
// OC0A output: Disconnected
// OC0B output: Disconnected
TCCR0A=0x00;
TCCR0B=0x05;
TCNT0=0xd8; //d8;
OCR0A=0x00;
OCR0B=0x00;

// Timer/Counter 1 initialization
// Clock source: System Clock
// Clock value: 4096,000 kHz
// Mode: CTC top=OCR1A
// OC1A output: Toggle
// OC1B output: Discon.
// Noise Canceler: Off
// Input Capture on Falling Edge
// Timer 1 Overflow Interrupt: Off
// Input Capture Interrupt: Off
// Compare A Match Interrupt: Off
// Compare B Match Interrupt: Off
TCCR1A=0x40;
TCCR1B=0x09;
TCNT1H=0x00;
TCNT1L=0x00;
ICR1H=0x00;
ICR1L=0x00;
OCR1AH=0x03;
OCR1AL=0xff;
OCR1BH=0x00;
OCR1BL=0x00;

// External Interrupt(s) initialization
// INT0: Off
// INT1: Off
// Interrupt on any change on pins PCINT0-7: Off
GIMSK=0x00;
MCUCR=0x00;

// Timer(s)/Counter(s) Interrupt(s) initialization
TIMSK=0x02;

// Universal Serial Interface initialization
// Mode: Disabled
// Clock source: Register & Counter=no clk.
// USI Counter Overflow Interrupt: Off
USICR=0x00;

// Analog Comparator initialization
// Analog Comparator: Off
// Analog Comparator Input Capture by Timer/Counter 1: Off
ACSR=0x80;

// Global enable interrupts
#asm("sei")
      start=1;
while (1)
      {
      // Place your code here
      
      };
}

Alles wesentliche passiert in der INT0

nur die initialisierung wird in main vorgenommen mit eienm Reset startet 
die Melodie.



Der ATTiny 2313 hat da noch reichich Füße frei und auch Speicher ist 
noch genug vorhanden um weitere Melodien zu speichern oder Anderes zu 
machen.

Mfg Winne

[Alex B. (Firma: Ucore Fotografie www.ucore.de) (alex22)]

Ja wunderbar, genau so etwas habe ich am Wochenende auch angefangen zu 
programmieren, bin aber noch nicht fertig geworden. Ich werde es mir mal 
ansehen :-)

[Winfried J. (Firma: Nisch-Aufzüge) (winne)]

So jetzt hängt er an der Tür.

Brückengleichrichter 7805 und etwas Hünerfutter 8 Ohm Lautsprecher über 
Elko direkt an PORTB.3 und klingt sogar besser als erwartet.
Sogar die Liebste ist zufrieden.

[Hannes L. (hannes)]

Winfried J. schrieb:
> klingt sogar besser als erwartet.

Das freut mich...

...