Timer1 extern takten

[Micha R. (michaavr)]

Hallo,

wie kann ich einen ATMega 8 mit Bascom dazu bringen, den Timer1 mit nem 
externen Takt hochzuzählen?

Wie muß ich den Timer1 Konfigurieren?

[Sebastian (Gast)]

"Clock Select" für Timer 1 auf "External Clock" (=> Datenblatt)
Dann den Takt an den entsprechenden Pin anlegen ("T1" heißt der mein 
ich)

[Micha R. (michaavr)]

Danke für deine Antwort.

mir geht es aber um die Register, wie ich die setzen muß.
Ich probiere jetzt schon sein 4 Stunden und ich kriege den T1 nicht auf 
den Zähler durchgeschaltet.

Wie müssen die Register TCCR1A, TCCR1B gesetzt werden?
Muß ich weitere Register oder Bits setzen?

[Sebastian (Gast)]

=> http://www.atmel.com/dyn/resources/prod_documents/doc2486.pdf

TCCR1A = 0;
TCCR1B = (1 << CS10) | (1 << CS11) | (1 << CS12); /* Wert 0x07, 
Extclock, rising edge */
(C-Syntax, weiß nicht wie das in Bascom aussehen muss...)

Würd ich jetzt spontan sagen...

[Sebastian (Gast)]

Ach ja: Seite 100 im verlinkten Datasheet

Kann man hier irgendwie editieren?

[Micha R. (michaavr)]

Hi Sebastian,

habe die Register geprüft.
TCCR1A ist 0 gesetzt und TCCR1B ist (dezimal) 7.
Der Simulator zeigt dies an. Trotzdem gehts nicht.

Im Datenblatt (Seite 100) ist die Tabelle mit der 
Clock-Select-Description. Direkt darunder steht noch ein Satz, den ich 
nicht verstehe.

Soll ich den Pin D5 (T1) wirklich als Ausgang schalten? Oder verstehe 
ich das falsch? Da steht Software-Control des Zählers.

Was bedeutet dieser Satz?

Hier mal der Quellcode von mir:

' MCU:         ATmega (noch nicht genau definiert / 8 oder 16 ist pinabhängig)
' Clock:       3,686400MHz



' Beschreibung:
' Frequenz-Zähler


$regfile = "m8def.dat"                                      ' ATMega8
'$regfile = "m16def.dat"                                     ' ATmega16
$Crystal = 3686400                                          ' Takt extern 3,6864MHz
$hwstack = 32
$swstack = 24
$framesize = 24

$baud = 9600

' -----------------------------------------------
' Konstanten und Variablen
' -----------------------------------------------

Dim ZeitBasisCount as Byte
Dim Flags as Byte
Dim Zaehlerstand as Word

LEDRed Alias PortC.2
config LEDRed = output


' -----------------------------------------------
'     Zeitbasis mit Timer2 konfigurieren
' -----------------------------------------------

   on oc2 ISR_Zeitbasis
   enable oc2
   config Timer2 = Counter , Prescale = 256 , Clear Timer = 1
   compare2 = 144 - 1
   start Timer2
   enable interrupts

' -----------------------------------------------
'     Zähler-Eingang mit Timer1 konfigurieren
' -----------------------------------------------

   'on tov1
   'enable tov1
   config Timer1 = counter , Edge = Rising
   tccr1a = 0
   tccr1b = 7
   'portd.5 = 0
   'config portd.5 = output

' -----------------------------------------------

'                 Hauptschleife

' -----------------------------------------------


do
   If Flags.0 = 1 then
      Flags.0 = 0
      toggle LEDRed
      print Zaehlerstand
   end if
Loop

End

' OC2-Interrupt von Timer 2
' wird alle 0,01 Sekunden aufgerufen
ISR_Zeitbasis:
   incr ZeitBasisCount
   if ZeitBasisCount = 50 then
      Zaehlerstand = timer2
      ZeitBasisCount = 0
      Timer2 = 0
      Flags.0 = 1
   end if
Return

[Micha R. (michaavr)]

Hallo Leute,

vielen Dank für eure Hilfe.
Den Fehler konnte ich jetzt finden.

Es lag nicht an den Registern.
Sondern meine Output-Compare2 Interruptroutine war falsch.

Ich Dödel (ups) muß doch den Timer 1 zurücksetzen und auch diesen 
auslesen!


' OC2-Interrupt von Timer 2
' wird alle 0,01 Sekunden aufgerufen
ISR_Zeitbasis:
   incr ZeitBasisCount
   if ZeitBasisCount = 50 then
      Zaehlerstand = timer2
      ZeitBasisCount = 0
      Timer2 = 0
      Flags.0 = 1
   end if
Return

Jetzt funzt es! :)

Danke an alle!

Gruß Mitch