Timer0

[filth]

Hallo,

Ich möchte 3 Sekunden lang Werte von einem Sensor sammeln und die dann weiter verarbeiten. Ist mein Programm dazu korrekt?


$regfile = "M8def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100

Dim i as Integer


'1000000 (Systemtakt) / 1024 (Prescaler) = 976,5625 (Counts)
Config Timer0 = Timer , Prescale = 1024

'976,5625(Counts) / 256 (8-Bit Timer) = 3,814697265625 (Interrupts die Sekunde)
On OVF0 On_ovf0
Enable OVF0

Enable Interrupts


Do
!NOP
Loop

End



On_ovf0:
i = i + 1
If I = 9 Then
I = 0
' verarbeite Werte
End If

Return

Danke!

[Jaecko]

Soweit siehts richtig aus.
Nur würde ich die Auswertung _nicht_ in der ISR machen!

Dort nur eine Variable setzen (z.B. auswerten = 1) und in der Main-Loop, wo eh nur das NOP drin ist, abfragen:


If auswerten = 1 Then
(auswerten eben)
auswerten = 0
End If

Sollte das Auswerten nämlich mal länger dauern als die Zeit zwischen 2 ISRs, kanns Stress geben.

[Dirk]

Probier mal sowas (nicht geprüft):


$regfile = "M8def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100

Dim I As Word
Dim Messen_an As Byte

Config Timer0 = Timer , Prescale = 8
Const Startwert = 138 'Für 1 ms
Timer0 = Startwert
On Timer0 Tim0_isr
Enable Interrupts

Messen_an = False
I = 0

Do
'Messung für 3 Sek. starten:
I = 0
Messen_an = True

While Messen_an = True
'Messwerte aufnehmen
Wend

'Messwerte verarbeiten
'Z.B. 10 s warten auf nächste Messung:
Wait 10

Loop
End



Tim0_isr: '1000 Hz (1 ms)
Timer0 = Startwert
I = I + 1
If I > 3000 Then 'nach 3 Sek.
Messen_an = False
End If
Return

Gruß Dirk