Programm für Zündung

[sachse]

Hallo liebe Profis

Ich habe hier ein Prog für eine Zündung. Will bemerken es ist mein erstes Prog.
Wer Lust hat und vor allem Zeit könnte sich das mal durchlesen um einen Neuling kräftig die Meinung zu sagen oder auch nicht


Folgendes sollte jetzt laufen.

Int0 und Int1 werden per Interrupt erfasst und an die Asugänge Portb.0 und Portb.1 ausgegeben.
Der Pegel fällt auf Low.
Eine Zeit von 1ms soll der Pegel so gehalten werden.
Danach soll der Pegel vieder auf High

Wenn die Anzahl der Takte vom INT0 über einen sollwert ansteigt , soll Portb.2 angehen.

$regfile = "m8def.dat"
 $crystal = 10000000
  $baud = 9600
 Config Portb = Output
 Portb = &B00000000
 Config Portc = Output
 Portc = &B00000000
 Config Portd = Input
 Portd.2 = 1
 Portd.3 = 1
 Portd.5 = 1

 Dim A As Integer
 Dim B As Long

 Dim Testzeit As Integer
 Dim Testanzahl As Integer







 Enable Interrupts

 On Int0 Links
 On Int1 Rechts


 On Timer1 Ontimer1

 Config Timer1 = Timer , Prescale = 1024
 Enable Timer1



  'Testrotine der Ausg�ge


  Testzeit = 30
       Portb.2. = 1

       While A <= 4
         A = A + 1
         Print 0;
         Waitms Testzeit
         Portb.0 = 1
         Portb.1 = 1
         Waitms Testzeit
         Portb.0 = 0
         Portb.1 = 0
      Wend
        Print "Testrotine abgelaufen,"


      'Spulen auf an
      Print ",Spulen an,"
      Portb.0. = 1
      Portb.1. = 1
      Waitms 300
      Portb.2. = 0



   A = 0
   B = 0


Do

 Enable Int0
 Enable Int1
 Portb.0. = 1
 Portb.1. = 1

Loop


Ontimer1:
     Portb.2 = 0
Print A;

B = A /3600
Print B
Timer1 = 5687
If A > 1000 Then
Portb.2 = 1
Print "DB"
End If


A = 0
Return


Links:
A = A + 1
Disable Int0
Portb.0. = 0
Print "L"
Waitms 1
Return

Rechts:
Disable Int1
Portb.1. = 0
Print "R"
Waitms 1
Return

Wenn mir noch mal einer erklären könnte wie ich den besten Prescale-Faktor ermittle und auf was ich Timer1 = XXXX setzte und warum wäre ich ihm auserordentlich dankbar
Das ganze funzt auf meinem myAVR-Board. Nun müsste ich noch meine Kurve einbasteln (anderer Beitrag ,was aber funktionieren sollte)

Danke erst mal vorweg =D>

[recycle]

Wenn mir noch mal einer erklären könnte wie ich den besten Prescale-Faktor ermittle

Ein Timer zählt bei jedem Takt des Controllers einen Zähler um eins hoch.
Bei einer Taktung von 16MHz wird der Zähler also 16 Mio mal pro Sekunde hochgezählt.
Bei einem 8Bit Timer ist der Zähler aber nur eine 8 Bit Variable, geht also nur bis 2^8 = 255. Bei 256 läuft der Zähler (Timer) über, wird auf 0 zurückgesetzt und es wird ein Interrupt ausgelöst.

Der Prescale ist ein zusätzlicher Faktor um die Intervalle bei denen der Timerinterrupt ausgelöst wird zu verlängern.

Bei einem Prescale von 1 löst der Timer 16Mio/256 mal pro Sekunde aus.
Bei einem Prescale von 8 sind es 16Mio/(256*8 ) oder allgemein:
Taktung/(256*Prescale)

Bei einem 16 Bit Timer fünktioniert es analog, der läuft halt erst bei 2^16 statt bei 256 über.

und auf was ich Timer1 = XXXX setzte

Timer0 ist ein 8 Bit Timer, läuft wie gesagt bei 256 über, löst einen Interrupt aus, wird auf = zurückgesetzt und das Spiel geht von vorne los.

Wenn du in der Interruptroutine den Wert von Timer0 änderst, z.B.
Timer0 = 100, zählt der Timer0 nicht mehr von 0-255, sondern von 100-255. Damit machst du den Timerintervall also kürzer.

Mit der Kombination von Prescale und Wert für Timer0 kannst du dir den Timerintervall auf die Frequenz legen die du benötigst.

Beim 16 Bit Timer (Timer1) funktioniert das genauso, nur halt mit 2^16.

Im Downloadbereich gibt es ein Programm, das die Berechnung automatisch ausführt und den passenden Quellcode erstellt. Da brauchst du nur deine Quarzfrequenz und die Gewünschte Frequenz für den Timerinterrupt eingeben.

[sachse]

Danke für deine Antwort.
Damit kann ich was anfangen. =D>

[sachse]

Beim Timer1 also :

16Bit = 65536
10MHz = 39062,50 Takte/sec
bei Prescale = 64 = 2,3841858 Hz/sec

Wenn ich jetzt Timer1 = 1 machen würde , käme ich an meine 1Hz schon nahe ran.

Richtich ?
Kann ich gleitkomma verwenden ? 1.384 blablabla .

Wenn ich 1/10sec. benötige, welche Timer wäre besser ?

Dankle