Bascom Timer to C Problem

[Kilo K. (kilo81)]

Hallo zusammen,
vorweg: Timer sind nicht meine Freunde!

Ok, ich habe einen Bascom Code welcher ein Martinshorn steuert. Das 
Ganze läuft über den Timer0 des Attiny13:

Enable Interrupts
Timer0 = Timer , Prescale = 64                    
Tcnt0 = 97
On Timer0 Horn
Enable Timer0

...

Horn:
Toggle Portb.2
Toggle Portb.0
Tcnt0 = D

Funktioniert einwandfrei.
Umgeschrieben, nein eher portiert nach C und nix kommt aus dem 
Lautsprecher:

cli();
TCCR0B |= (1<<CS01) | (1<<CS00);  
TIMSK0 |= (1<<TOIE0);  
TCNT0 = 97;

sei(); 

ISR (TIM0_OVF_vect) /* veraltet: SIGNAL(SIG_OVERFLOW0) */
{
 PORTB ^= ( 1 << PB0 );  // Toggle PB0 z.&nbsp;B. angeschlossene LED
 PORTB ^= ( 1 << PB2 );  // Toggle PB0 z.&nbsp;B. angeschlossene LED
 TCNT0=D;
 
}

Warum funktioniert das nicht? Wieso kapiere ich das nicht?? :(

[npn (Gast)]

Dominik Kristen schrieb:
> ISR (TIM0_OVF_vect) /* veraltet: SIGNAL(SIG_OVERFLOW0) */

TIM0 existiert nicht, versuchs mal mit TIMER0_OVF_vect.
Wo kommt die Variable D her und was macht sie?
Was du zeigst, ist nicht das ganze Programm...

[Kilo K. (kilo81)]

Sorry, das hatte ich vergessen. C wird in der Schleife hochgezählt und 
der variablen D dann 2 Werte übergeben um die 2 unterschiedlichen Töne 
zu erzeugen.

If C = 1 Then 
D = 97
Elseif C = 75 Then
D = 137
End If
If C = 150 Then
C = 0
End If

Ok, ich versuch es mal mit TIMER0_OVF_vect

[Karl H. (kbuchegg)]

Dominik Kristen schrieb:

> Ok, ich versuch es mal mit TIMER0_OVF_vect

Nicht 'versuchen'.

Wenn der Name der ISR nicht koscher ist, dann gibt es vom Compiler eine 
Warnung. Die darfst du nicht einfach ignorieren. Kommt vom Compiler

'xyz' appears to be a misspelled signal handler

dann ist er das auch - invalid!

[npn (Gast)]

Karl Heinz schrieb:
> Nicht 'versuchen'.

War vielleicht meine Schuld. Ich hatte oben geschrieben:

npn schrieb:
> TIM0 existiert nicht, versuchs mal mit TIMER0_OVF_vect.

War mißverständlich ausgedrückt...

[Kilo K. (kilo81)]

öhm,
wenn ich TIMER0 schreibe kommt aber die Warnung:

../Sirene.c:12: warning: 'TIMER0_OVF_vect' appears to be a misspelled 
signal handler

Bei TIM0 kommt keine!?!?!

[npn (Gast)]

Dominik Kristen schrieb:
> öhm,
> wenn ich TIMER0 schreibe kommt aber die Warnung:
>
> ../Sirene.c:12: warning: 'TIMER0_OVF_vect' appears to be a misspelled
> signal handler
>
> Bei TIM0 kommt keine!?!?!

Mit welchem C-Compiler arbeitest du?
Wenn's ein anderer als GCC ist, schau dir mal die Definition der 
Handler-Namen an, vermutlich lauten die bei deinem Compiler anders...

[Kilo K. (kilo81)]

Also ich arbeite mit AVR Studio 4.18 und WinAVR-20100110 als Avr-gcc 
compiler.
Wo sehe ich die Definitionen denn?

[Kilo K. (kilo81)]

Also, in der Main Schleife blitzen abwechseln 2 LED, das funktioniert 
auch bestens.

im Interrupt steht folgendes:

ISR (TIM0_OVF_vect) /* veraltet: SIGNAL(SIG_OVERFLOW0) */
{
 PORTB ^= ( 1 << PB0 );  // Toggle PB0 z.&nbsp;B. angeschlossene LED
 PORTB ^= ( 1 << PB2 );  // Toggle PB0 z.&nbsp;B. angeschlossene LED
  TCNT0=D;
 
}

da höre ich nur ein leises, durchgängiges Schrillen.
Wie gesagt, der Bascom Code gibt ein Martinshorn wieder!

[Karl H. (kbuchegg)]

TIM0_OVF_vect is korrekt.

Schau in den Solution Explorer unter 'Dependencies'. Dort ist ein File 
iotn13.h aufgeführt. Dort stehen unter anderem die Namen aller Interrupt 
Vektoren drinn.

ok. falscher Name wars nicht.
Das ganze Programm bitte und nicht nur Ausschnitte.

[STK500-Besitzer (Gast)]

Dominik Kristen schrieb:
> öhm,
> wenn ich TIMER0 schreibe kommt aber die Warnung:
>
> ../Sirene.c:12: warning: 'TIMER0_OVF_vect' appears to be a misspelled
> signal handler
>
> Bei TIM0 kommt keine!?!?!

Laut Datenblatt ist das der richtige Name.
Wie sieht denn dein Programm sonst aus?
Hast du die Portpin als Ausgang definiert?

[Karl H. (kbuchegg)]

Dominik Kristen schrieb:

> Wie gesagt, der Bascom Code gibt ein Martinshorn wieder!

Das mag schon sein. Nur interessiert der BASCOM Code nicht mehr. Der C 
Code ist interessant. Und zwar der vollständige.

[Kilo K. (kilo81)]

Ok, hier meine spärliche Umsetzung des bascom Codes! Bitte jetzt erstmal 
nicht über Kommentare oder Code organisation schimpfen:

#include <avr/io.h>
#include <avr/interrupt.h>
#define F_CPU 9600000UL  // 1,2 MHz (für delay.h)
                         // Standard-Takt 9,6 MHz / 8
#include <util/delay.h>


int A, B, C, D;
//********************************************************************

// Interruptserviceroutine
ISR (TIM0_OVF_vect) /* veraltet: SIGNAL(SIG_OVERFLOW0) */
{
 PORTB ^= ( 1 << PB0 );  // Toggle PB0 z.&nbsp;B. angeschlossene LED
 PORTB ^= ( 1 << PB2 );  // Toggle PB0 z.&nbsp;B. angeschlossene LED
  TCNT0=D;
 
}
//****************************************************************




int main(void){
 

cli();

DDRB |= _BV(PB3); //PD2 zum Ausgang machen (= 1. LED von links)
DDRB |= _BV(PB4); //PD0 zum Ausgang machen (= 2. LED von links)
DDRB |= _BV(PB0); //PD2 zum Ausgang machen (= 1. LED von links)
DDRB |= _BV(PB2); //PD0 zum Ausgang machen (= 2. LED von links)

 
    TCCR0B |= (1<<CS01) | (1<<CS00);  
            
  TCCR0A |= (1<<WGM01);  

  TIMSK0 |= (1<<TOIE0);  

 TCNT0 = 97;
   
 sei();                                       // Interrupts erlauben

  A=0; 
  B=67;
  C=0;


  
     
    while (1)  {        
     A=A+1;
   B=B+1;
   C=C+1;
   _delay_ms(10);

   if(A==79)  PORTB |= (1<<PB4);
   if(A==90)  PORTB &= ~(1<<PB4);
   if(A==99)  PORTB |= (1<<PB4);
   if(A==105) PORTB &= ~(1<<PB4), A=0;
   
   if(B==84) PORTB |= (1<<PB3);
   if(B==95) PORTB &= ~(1<<PB3);
     if(B==104) PORTB |= (1<<PB3);
   if(B==110)  PORTB &= ~(1<<PB3), B=0;

   if(C==1) D=97;
   if(C==75) D=137;
   if(C==150) C=0;


     }
        
    return 0;
}

Und hier der Bascom Code:

$regfile = "ATtiny13.DAT"
$crystal = 9600000                                          'Frequenz des internen Oszillators

$hwstack = 32                                               'default use 32 for the hardware stack
$swstack = 10                                               'default use 10 for the SW stack
$framesize = 40                                             'default Use 40 For The Frame

Stop Ac
Stop Adc



Config Portb = &B11111101                                   'Portb.1 auf 'Eingang' schalten
Portb = &B00000011                                          'Pullup Portb.1; Portb.0=1


Config Int0 = Rising
On Int0 Einaus                                              'INT0 konfiguriren, wird nur benutzt um Powerdown zu beenden


Dim A As Byte                                               'Softwarezähler LED an PortB.4
Dim B As Byte                                               'Softwarezähler LED an PortB.3
Dim C As Byte                                               'Softwarezähler Martinshorn
Dim D As Byte                                               'Variable für TCNT0

Anfang:                                                     'Beginn Initialisierung

Waitms 10

A = 0
B = 67
C = 0

Enable Int0
Enable Interrupts
Portb = &B00000011
Powerdown

Config Timer0 = Timer , Prescale = 64                       'TIMER0 erzeugt Tonfrequenzen
Tcnt0 = 97
On Timer0 Horn
Enable Timer0

Disable Int0


Schleife:                                                   'Entprellen nach Beendigung von Powerdown
If Pinb.1 = 0 Then
Goto Schleife
End If


Do                                                          'Do - Loop für die 3 Softwarezähler


Waitms 10

Incr A
Incr B
Incr C


If A = 79 Then
Portb.4 = 1
Elseif A = 90 Then
Portb.4 = 0
End If

If A = 99 Then
Portb.4 = 1
Elseif A = 105 Then
Portb.4 = 0
End If

If A = 105 Then
A = 0
End If


If B = 84 Then
Portb.3 = 1
Elseif B = 95 Then
Portb.3 = 0
End If

If B = 104 Then
Portb.3 = 1
Elseif B = 110 Then
Portb.3 = 0
End If

If B = 110 Then
B = 0
End If


If C = 1 Then
D = 97
Elseif C = 75 Then
D = 137
End If

If C = 150 Then
C = 0
End If


If Pinb.1 = 0 Then                                          'Ausschalten mit Entprellen
Stop Timer0
Portb = &B00000011

Kontakt:

   If Pinb.1 = 0 Then
   Goto Kontakt
   End If

Goto Anfang
End If


Loop


Horn:

Toggle Portb.0
Toggle Portb.2

Tcnt0 = D
Return


Einaus:
nop
Return


End

Wie gesagt, ichhab auf die Schnelle versucht es umzusetzen. Mit den LED 
klappt nur den Timer, den krieg ich einfach nicht hin!

[npn (Gast)]

Dominik Kristen schrieb:
> Also ich arbeite mit AVR Studio 4.18 und WinAVR-20100110 als
> Avr-gcc
> compiler.
> Wo sehe ich die Definitionen denn?

Wenn du beispielsweise mit dem ATMega8 arbeitest, ist dafür ein File 
zuständig, welches "iom8.h" heißt. Dort sind dann unter anderem folgende 
Zeilen drin:

/* Timer/Counter0 Overflow */
#define TIMER0_OVF_vect_num    9
#define TIMER0_OVF_vect      _VECTOR(9)
#define SIG_OVERFLOW0      _VECTOR(9)

[Karl H. (kbuchegg)]

Dominik Kristen schrieb:

> int A, B, C, D;

da fehlt zumindest für D ein volatile

>     TCCR0B |= (1<<CS01) | (1<<CS00);
>
>   TCCR0A |= (1<<WGM01);

Aha!
Darf man fragen, warum du da WGM01 setzt?

[Kilo K. (kilo81)]

hm.. gute Frage.. muss ich da nicht in den CTC Mode?

[npn (Gast)]

npn schrieb:
> Wenn du beispielsweise mit dem ATMega8 arbeitest,

Ich sehe gerade, du hast einen Tiny13. Dann heißt das File "iotn13.h".

[Kilo K. (kilo81)]

Ist das krank...
Es funktioniert Karl-Heinz!
Also fast jedenfalls!

WGM01 rausgenommen und die variable D als volatile.
Oh man... was man alles missachten kann! :-S

Aus dem Piezo Speaker kommt jetzt die Sirene! Aber deeeeeeeeeeeeutlich 
leiser als mit dem bascom Code! Warum?

[npn (Gast)]

Karl Heinz schrieb:
> TIM0_OVF_vect is korrekt.

Hallo Karl Heinz,
stimmt, beim Tiny13 steht das so drin. Aber bei allen ioxx.h die ich 
habe, steht nicht "TIM0_..._vect" sondern "TIMER0_..._vect". Die 
Schreibweise mit "TIM0" kenne ich gar nicht. Ist da mal was geändert 
worden?

[Karl H. (kbuchegg)]

Dir scheint nicht klar zu sein, wie da offenbar die Tonerzeugung 
funktioniert.

Du hast 2 Pins, PB0 und PB2 an denen der Lautsprecher (oder Summer) 
hängt. Damit sich da an der Membran was tut, müssen die immer 
gegengleich sein. Wenn PB0 auf 1 ist, dann muss PB2 auf 0 sein, damit 
die Membran in die eine Richtung schwingt; wenn PB0 auf 0 ist, dann muss 
PB2 auf 1 sein, damit die Membran in die andere Richtung schwingt.
Durch regelmässiges Umpolen der beiden Leitungen schwingt dann die 
Membran ständig vor und zurück, was den Ton ergibt.

Damit du hier

 PORTB ^= ( 1 << PB0 );  // Toggle PB0 z.&nbsp;B. angeschlossene LED
 PORTB ^= ( 1 << PB2 );  // Toggle PB0 z.&nbsp;B. angeschlossene LED

aber einfach nur Toggeln brauchst. müssen die beiden Pins von Beginn an 
erst  mal unterschiedlich stehen. Der eine auf 0, der andere auf 1. Nur 
dann ergibt sich dann nach dem Toggler, dass der eine auf 1 steht und 
der andere auf 0; und beim nächsten Durchlauf dann wieder zurück.

Im BASCOM Code ist das hier

Portb = &B00000011                                          'Pullup Portb.1; Portb.0=1

am Anfang nach der Initialisierung sicher gestellt.

In deinem Code sehe ich aber nichts dergleichen.
Deine Portpins PB0 und PB2 haben immer den gleichen Pegel. Wodurch an 
der Membran keine DIfferenz entsteht und die Membran sich daher nicht 
rührt.

Wenn sich da überhaupt was rührt, dann ist das die kleine Zeitdifferenz 
zwischen den beiden Portoperationen, die eine winzige Bewegung der 
Membran bewirkt.

[Karl H. (kbuchegg)]

npn schrieb:
> Karl Heinz schrieb:
>> TIM0_OVF_vect is korrekt.
>
> Hallo Karl Heinz,
> stimmt, beim Tiny13 steht das so drin. Aber bei allen ioxx.h die ich
> habe, steht nicht "TIM0_..._vect" sondern "TIMER0_..._vect". Die
> Schreibweise mit "TIM0" kenne ich gar nicht. Ist da mal was geändert
> worden?

Atmel ist da leider nicht einheitlich.

[Kilo K. (kilo81)]

Karl-Heinz, du bist ein Teufelskerl!
Danke, das wars!!
Ich Depp hab das total überlesen, da ich nur auf Pullup Portb.1 geachtet 
habe, was im Bascom Code ja der Schalter ist. Oh man! Kopfklatsch

Übrigens schön erklärt! So versteht das jeder!
Danke!

[Karl H. (kbuchegg)]

Dominik Kristen schrieb:
> hm.. gute Frage.. muss ich da nicht in den CTC Mode?

Verwendet der BASCOM Code den CTC Modus?
Wenn nein, warum solltest du dann im C Code einen verwenden?

[Route_66 H. (route_66)]

Hallo!
Hängt der Piezo zwischen PB.0 und PB.2?
Dann musst Du in der Initialisierung für die richtige Anfangsbelegung 
sorgen:

PORTB = 0x03

[Karl H. (kbuchegg)]

Dominik Kristen schrieb:
> Karl-Heinz, du bist ein Teufelskerl!
> Danke, das wars!!
> Ich Depp hab das total überlesen, da ich nur auf Pullup Portb.1 geachtet
> habe,

Was lernen wir daraus:
Kommentare sind Schall und Rauch. Was zählt ist der Code und was er 
bewirkt.

[Kilo K. (kilo81)]

Karl Heinz schrieb:
> Dominik Kristen schrieb:
>> hm.. gute Frage.. muss ich da nicht in den CTC Mode?
>
> Verwendet der BASCOM Code den CTC Modus?
> Wenn nein, warum solltest du dann im C Code einen verwenden?

Ich habe früher mit Bascom angefangen.
Wenn ich da heute so drüber nachdenke... oh man!
Da wird der Timer ja nur durch

Config Timer0 = Timer, Prescale = 64

definiert. Ich seh da nix mit CTC oder PWM oder sonst was :(

[npn (Gast)]

Karl Heinz schrieb:
> Atmel ist da leider nicht einheitlich.

Ja, ich seh's gerade. Scheinbar habe ich bis jetzt nur mit µC 
gearbeitet, wo "TIMER0..." gültig ist. Danke für die Aufklärung :-)

[Route_66 H. (route_66)]

Zu lange getippt.