Chrony mit Atmega8

[Gisi (Gast)]

Hallo,

ich möchte mir mit 2 Lichtschranken einem LCD Display und einem Atmega8 
ein Chronometer, also ein Geschwindigkeits Messgerät für Geschosse 
(Paintball Kugeln) bauen. Ein Paintball Markierer sollte etwa 300FPS 
(ca. 91m/s oder 330km/h) haben.

Das Programm hab ich erst mal aus Google Funden zusammen geschustert.
Es sollte sobald die Kugel die 1. Lichtschranke erreicht eine Zeit zum 
zählen anfangen und sobald sie die, 10cm entfernte 2. erreicht die Zeit 
speichern, umrechnen (am besten in FPS und m/s) und am Display anzeigen.
Wenn noch eine Kugel an den Lichtschranken vorbeikommt sollte wieder die 
dasselbe passieren.

$regfile = "m8def.dat"
$crystal = 3686400
$hwstack = 100
$swstack = 100
$framesize = 100

Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , _
Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Config Lcd = 16 * 2

Config Timer1 = Timer , Prescale = 256
Config Pinb.0 = Input
Config Pinb.1 = Input

Config Single = Scientific , Digits = 4
Dim Geschwindigkeit As Single
Dim Zeit As Single
Dim Y As Word


Do
If Pinb.0 = 0 Then
Timer1 = 0
Exit Do
End If
Loop

Do
If Pinb.1 = 0 Then
Y = Timer1
Exit Do
End If
Loop


Cls
Zeit = Y * 0.00256
Geschwindigkeit = 10 / Zeit
Locate 1 , 1
Lcd Geschwindigkeit
Locate 2 , 1
Lcd "m/s"

Return
End

Also mal meine Probleme:
1. Der Timer zählt soweit ich das verstanden habe mit Quarz 
Fequenz/Prescale 3,686400MHz/256=0,0144? also springt der Timer auf 1 
nach 0,0144ms?
2. Wieso funktioniert mit 16*1 Einstellung das Display nur zur Hälfte?
3. Wäre ein 4Mhz Quarz für so eine Messung besser geeignet wegen den 
Umrechnungen (Nachkomastellen)?
4. Wie kann man eine Gleitkomazahl auf eine Ganzzahl oder eine Kommazahl 
mit 2 Nachkomastellen runden?
5. Verbesserungs Vorschläge?

Display: 
http://www.produktinfo.conrad.com/datenblaetter/175000-199999/183261-da-01-en-LCD_Modul_16x1_Zeichen_LED.pdf
Lichtschranke:
http://www.pollin.de/shop/downloads/D120592D.PDF

Danke in Voraus
Gisi

[Hubert G. (hubertg)]

Die Quarzfrequenz ist nur dekadisch krumm.
Dein Display wird ein 2 x 8 sein.
Bei Bascom kann ich dir nicht helfen.
Ich würde für deinen Zweck Input Capture nehmen.

[Joe (Gast)]

Der Timer wird mit einer Frequenz von 3,686400MHz/256=14400Hz getaktet.

Timer1 ist ein 16-Bit Timer. Nach 2^16=65536 Takten springt er wieder 
auf null.

Dazu benötigt er 65536/14400Hz = 4,5 Sekunden.

Die Schleifen:

do
Timer1 = 0
loop until PINC.0=0

do
y=timer1
loop until PINC.1=0



Joe

[Gisi (Gast)]

Gleich mal die Schleife und die Rechnung geändert, funkt super danke.
Jetzt möchte ich nur noch die Zahl runden, auf 2 Nachkommastellen und 
auf eine Ganzzahl jemand eine Ahnung wie das geht?

Gisi

[Karl (Gast)]

Sorry, Dein Code ist ganz schön.....Einfach die "Do Loop" zu verlassen, 
und in eine neue Endlosschleife einzusteigen, sollte man vermeiden. Ich 
fürchte, so sonderlich genau wird Deine Messung so nicht sein. Würde es 
so versuchen:

Bitwait Pinc.0 , Reset                              
Start Timer1
Bitwait Pinc.1 , Reset                            
Stop Timer1
Number_of_Ticks = TCNT1
....
TCNT1=0

Schau dir mal den Befehl "Bitwait" an. Da kannst Du Dir "If Then" 
sparen. TCNT1 ist ein 16-Bit Pseudoregister und enthält die Zahl der 
Takte zwischen Deinen beiden Ereignissen. Die kannst Du mit Hilfe der 
Frequenz des Quarzes in Sekunden umrechnen.

Mit "Format" oder "Fusing" kannst Du Strings/Zahlen formatiert ausgeben.

[Gisi (Gast)]

Also Format und Fusing hab ich hin bekommen.
Bitwait verstehe ich, aber das Number_of_Ticks = TCNT1 nicht wirklich.

Danke
Gisi

[Karl (Gast)]

Ist einfach die Zahl der Takte. Hast du ja oben schon so ähnlich 
implementiert. Wenn ich mich jetzt nicht verrechnet habe, bei einem 
Prescale von 256 mit 3,686400MHz ist 1s = 51136.

[Karl (Gast)]

äh, 65536 - 51136, meinte ich.

[Gisi (Gast)]

Ah jetzt hab ichs geschnallt....

dann muss ja jetzt nur noch meine Rechnung stimmen:

Zeit = Y / 14.4
Mps = 100 / Zeit

Den Wert von Timer (Y) bekomme durch die Timer Frequenz die ich /100 
genommen habe (das ich den Weg für die Zeit Berechnung in cm angeben 
kann)

Könnte doch stimmen oder?

[Karl (Gast)]

ja, sollte passen

mps=0,1*Y/14400

Könntest bei Bedarf auch alles auf Integer umstellen und mit Format die 
Ausgabe machen. Muss aber auch nicht, wenn der µC mitspielt.

[Gisi (Gast)]

Irgendwas stimmt wohl noch nicht. das Ergebnis ist mehr willkürlich und 
manchmal bleibt alles hängen. Mit dem Format bin ich noch etwas am 
knobeln und Habs erst mal so gelassen.

Dim Mps As Single
Dim Fps As Single
Dim Y As Word
Dim Zeit As Single

Bitwait Pinc.0 , Reset
Start Timer1
Bitwait Pinc.1 , Reset
Stop Timer1
Y = Tcnt1

Tcnt1 = 0

Cls
Zeit = Y / 144
Mps = 1 / Zeit
Fps = Mps * 3.280839895013123
Locate 1 , 1
Lcd Mps
Locate 1 , 6
Lcd "m/s"
Locate 2 , 1
Lcd Fps
Locate 2 , 6
Lcd "FPS"

Kann es sein das ich für das Tcnt1 = 0 einen besseren Platz suchen muss?
Und ich hab mal gehört, dass der Timer1 sowieso immer weiter rennt wegen 
dem Start/Stop, ist da was dran?

[Karl (Gast)]

Also das kann natürlich auch mit dem Aufbau zusammenhängen. Wenn etwas 
hängt.. Bitwait wartet natürlich so lange, bis etwas passiert.