Mal wieder eine "fast" funktionierende Stoppuhr

[Unregistriert]

Hallo Community,

so langsam aber sicher bin ich am verzweifeln.

Ich bin dabei eine simple Stopuhr zu basteln.
Soweit funktioniert es auch so wie es soll, allerdings stimmt die gestoppte Zeit überhaupt nicht.

Ich benutze ein Arduino nano clone, mit einem Atmega328p und dem Ext.8Mhz quartz.

Einen Code habe ich im Internet gefunden den ich ein wenig geändert habe.

$regfile = "m328pdef.dat"
$crystal = 8000000
$baud = 9600

$hwstack = 32
$swstack = 8
$framesize = 24


'-------------------------
Config Pind.2 = Input
Config Pind.3 = Input
Portd.2 = 1
Portd.3 = 1
Config Portd.2 = 0
Config Portd.3 = 0
'----------


Dim Millisekunden As Integer
Dim Minuten As Byte
Dim Sekunden As Byte
Dim Runden As Byte
Dim Flag As Integer


Config Timer1 = Timer , Prescale = 256
Const Timervorgabe = 34286
On Timer1 Timer_irq
Enable Interrupts


Millisekunden = 00
Minuten = 0
Sekunden = 0
Flag = 0

Declare Sub Start1
Declare Sub Stop1
Declare Sub Reset1

'---------------------------------------------
Do

Debounce Pind.2 , 0 , Start1 , Sub
Debounce Pind.3 , 0 , Stop1 , Sub

Loop
'---------------------------------------------
Start1:
Enable Timer1
Print "Start"
Return
'-----------------------------------------
Stop1:
Print "Stop"
Print "Zeit:" ; Minuten ; ":" ; Sekunden ; ":" ; Millisekunden ; " "
Disable Timer1
Reset Timer1
Sekunden = 0
Minuten = 0
Millisekunden = 0
Flag = 0
Return

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

Timer_irq:
Timer1 = Timervorgabe
Incr Millisekunden
If Millisekunden = 1000 Then
Incr Sekunden
Millisekunden = 00
End If
If Sekunden = 60 Then
Incr Minuten
Sekunden = 00
End If

Incr Flag

Return



Seht ihr einen Fehler ?
Ich bekomme es einfach nicht hin.

Vielen Dank im Voraus.

- - - Aktualisiert - - -

Ich glaube ich habe das Problem gelöst.

Bei einem Prescaler von 256 und einer Vorgabe von 62411 scheint es zu funktionieren, allerdings werden die Millisekunden immer im einstelligen Bereich angezeigt.

[Feuerring]

Ich benutze ein Arduino nano clone, mit einem Atmega328p und dem Ext.8Mhz quartz.

haben die nicht 16 HHz ?!

würde aber die Reihenfolge von Print und dem aktivieren / deaktivieren des Timer ändern, sonst misst Du die zeit zum ausgeben noch mit ..

Start1:
Enable Timer1
Print "Start"
Return

'-----------------------------------------
Stop1:
Disable Timer1
Print "Stop"
Print "Zeit:" ; Minuten ; ":" ; Sekunden ; ":" ; Millisekunden ; " "
Reset Timer1
Sekunden = 0
Minuten = 0
Millisekunden = 0
Flag = 0
Return

habe mehrere Arduino nano clone mit dem gleich Programm (1 Hz Blinklicht) laufen, nach einer Zeit blinken die alle unterschiedlich ...

[oberallgeier]

.. Ich benutze ein Arduino nano clone, mit einem Atmega328p und dem Ext.8Mhz quartz ..

haben die nicht 16 HHz ?! ..

Genau das (ok, das "HHz ist wohl ein Rechtschreibfehler) - und bei meiner Einstellung der Fuses wird angezeigt "Ext. Crystal Osc. 8.0- MHz; Start-up .." - damit soll angedeutet werden: 8.0 MHz und darüber (nach oben offen). Daher gehört in die Startfrequen ganz bestimmt statt Deinem "$crystal = 8000000" ein "$crystal = 16000000" (obwohl ich keinerlei Ahnung von Bascom habe).

.. habe mehrere Arduino nano clone mit dem gleich Programm (1 Hz Blinklicht) laufen, nach einer Zeit blinken die alle unterschiedlich ..

Wen wundet das? Resonatoren dieser Bauart haben nicht unüblicherweise laut technischen Daten eine Frequenz-Toleranz ±0.5% !