Erstmal DANKE für eure Vorschläge und Tipps.
Ich war warscheinlich etwas voreilig mit meiner Frage weil ich den ganzen Tag immer nur per Hand die Autos über den Empfänger geschuppst hab.
Jetzt hab ich mal die Bahn aufgebaut und siehe da es gibt erste Erfolge.
Also ich habe 2 Codevarianten aus dem Inet versucht beide haben Probleme, die eine mehr die andere weniger.
Version1, messen über INT0 mit folgendem Code
Also diese Variante zählt erstmal wirklich jede Runde egal wie schnell man fährt, bei einem Auto sind die Werte 98% zu verwerten soll heißen manchmal zählt er doppelt oder mal 1 Wert stimmt völlig nicht. Das 2.Auto macht rießige Sorgen, da ist irgend eine Störung wohl vorhanden, da zählt er wirr egal wo das Auto auf der Bahn ist nur nicht am Sensor.Code:$regfile = "m8def.dat" $crystal = 8000000 $hwstack = 32 $swstack = 10 $framesize = 40 $baud = 9600 Config Portd.2 = Input 'int 0 Portd.2 = 1 Config Timer1 = Timer , Prescale = 64 'Tccr1b.6 = 0 Stop Timer1 'we stop the timer , because it will be activated 'inside the int0 routine Config Int0 = Falling 'or rising On Int0 Int0isr 'Nosave 'nosave .. saves time and code Enable Int0 On Ovf1 T1overflow 'Nosave 'again nosave Enable Ovf1 'about nosave : if you use the int routines "called ORIGINAL BASCOM" please comment 'out the NOSAVE DIRECTIVE Enable Interrupts ' ************************************************************************************** ' *** hier kommen zwei spezialkonstukte, die rechenzeit sparen .. was zum nachdenken !! Dim Periodelow As Word Dim Periodehigh As Word Dim Pericount As Long At Periodelow Overlay Dim T1overlow As Byte Dim T1overhigh As Byte Dim T1overflows As Word At T1overlow Overlay ' ** ENDE von *** hier kommen zwei spezialkonstukte, die rechenzeit sparen .. was zum nachdenken !! ' ************************************************************************************** Dim Messzyklus As Byte 'fertig = 0 -- also eine ganze periode gemessen Messzyklus = 0 Dim Status As Byte ' 0=stop timer 1 = start timer Status = 0 Wait 2 ' Do '************ do not change below this line, if you are not sure what you are doing If Messzyklus = 0 Then Periodelow = Timer1 Periodehigh = T1overflows '************ do not change above this line, if you are not sure what you are doing ' ##### your code below this line ##### Print "timer" ; Timer1 Print "ovr" ; T1overflows Print "pericount " ; Pericount '************ do not change below this line, if you are not sure what you are doing Pericount = 0 T1overflows = 0 Timer1 = 0 Messzyklus = 1 Status = 1 End If '************ do not change above this line, if you are not sure what you are doing Loop End Int0isr: 'ORIGINAL Bascom Tccr1b = Status If Status = 0 Then Messzyklus = Status End If Status = 0 Return 'Int0isr: ' FASTER VERSION 'push r23 'PUSH R24 ' since we are going to use R24 we better save it 'IN r24, SREG ' get content of SREG into R24 'PUSH R24 ' we can save a register 'lds r24,{status} '!out tccr1b,r24 'cpi r24,0 'brne exitthis 'sts {messzyklus},r24 'Exitthis: 'cbr r24,1 'sts {status},r24 'POP R24 'get content of SREG '!OUT SREG,r24 ' save into SREG 'POP R24 'pop r23 ' get r24 back 'Return 'T1overflow: ' ORIGINAL Bascom 'T1overflows = T1overflows + 1 'Return T1overflow: ' FASTER VERSION push r23 PUSH R24 ' since we are going to use R24 we better save it IN r24, SREG ' get content of SREG into R24 PUSH R24 ' we can save a register lds r23,{t1overlow} lds r24,{t1overhigh} inc r23 brne kein_uebertrag inc r24 Kein_uebertrag: sts {t1overlow} , r23 sts {t1overhigh} , r24 POP R24 'get content of SREG !OUT SREG,r24 ' save into SREG POP R24 pop r23 ' get r24 back Return
Auch wenn beide Autos Stoßstange an Stoßstange fahren also direkt hinternander werden beide gezählt, nur eben stört bei einem irgendwas. Wenns geht gehts zu 98% sauber. Also Zeit zum messen hat der Mega8.
Wobei ich gestehen muss das ich den Code fast garnicht verstehe was da gemacht wird.
2.Variante mit Capture und folgendem Code
So diesen Code versteh ich eher, da gibts auch keinerlei Störungen und wenn er mal was anzeigt dann stimmt das auch, ABER die Version zählt nur mal aller 5 Runden und nur wenn man langsam fährt.Code:$regfile = "m8def.dat" $crystal = 8000000 Baud = 9600 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2 Config Lcdbus = 4 ' ++++++++++++++++++++++++++++++++++ hier wird $crystal ausgelesen Dim Quartzfrequenz As Long Quartzfrequenz = _xtal ' ********************************************** hier den prescaler für timer1 definieren ' zulässig sind 1,8,64,256,1024 Const Prescalerwert = 1 ' in dieser version wird der overflow von T1 ausgewertet und mitgezählt ' daher kann man mit prescale = 1 d.h. volle auflösung fahren '******************** und den capturetimer configurieren ******************** Config Timer1 = Timer , Capture Edge = Falling , Prescale = 1 'Prescalerwert Start Timer1 ' **************************************************************************** ' *********** das zu messende digitalsignal wird am ICP1 eingang (hier PB0) eingespeist Dim Starttime As Word Dim Endtime As Word Dim Nroverflows As Byte Dim Ersteflanke As Bit Dim Updatedisplay As Bit Dim Taktejesekunde As Long Dim Periodendauer As Single Dim Frequenz As Single Dim Counterticks As Long Taktejesekunde = Quartzfrequenz / Prescalerwert Dim Maxoverflows As Long Maxoverflows = Taktejesekunde / 31375 '***** zwei werte zur verzögerung des seriellen ausgabe '***** sonst verschluckt sich das terminalprogramm '***** kleinerer wert = schnellerer output Dim Outputcounter As Byte Const Anzeigeinterval = 10 '*************************** Ersteflanke = 1 Updatedisplay = 0 '********************************* option eingangscomparator ' diese 2 zeilen sind optional zu verwenden ' da der icp1 eingang ja logigpegel benötigt 'besteht hier die möglichkeit anstelle des icp den ain1 eingang des comparators zu verwenden ' der eingang ist dann empfindlicher --- schwelle etwa 1,23 volt ' ' der icp1 eingang gilt dann nicht mehr als eingang und kann als normaler port verwendet werden 'Config Aci = On , Compare = On 'Acsr.6 = 1 'interne bandgap als ref '********************************* ende option eingangscomparator ' ******************* und die int routinen definieren On Ovf1 T1overflow Enable Ovf1 On Capture1 Captureint 'wenn pb0 auf low geht dann capture int Enable Capture1 Enable Interrupts ' ************* und los gehts Cls Do 'If Nroverflows > Maxoverflows Then 'Cls 'Lcd "freq kleiner 2 Hz" 'Nroverflows = 0 'Updatedisplay = 0 'Ersteflanke = 1 'End If If Updatedisplay = 1 Then If Outputcounter = Anzeigeinterval Then 'Disable Capture1 'Disable Ovf1 Disable Interrupts ' // ' // Die Zeitdauer zwischen den Flanken bestimmen ' // Da EndTime und StartTime unsigned sind, braucht nicht ' // darauf Ruecksicht genommen werden, dass EndTime auch ' // kleiner als StartTime sein kann. Es kommt trotzdem ' // das richtige Ergebnis raus. ' // Allerdings muss die Anzahl der Overflows in der Messperiode ' // beruecksichtigt werden ' // ' // Die Zeitdauer wird als Anzahl der Taktzyklen zwischen den ' // beiden gemessenen Flanken berechnet ... Counterticks = Nroverflows * 65536 Counterticks = Counterticks + Endtime Counterticks = Counterticks - Starttime '// ... mit der bekannten Taktfrequenz ergibt sich dann die Signalfrequenz Periodendauer = Counterticks / Taktejesekunde Frequenz = 1 / Periodendauer ' // Das Ergebnis fuer die Anzeige aufbereiten ... ' // ... und ausgeben ' // 'Locate 1 , 1 'Lcd "ti=" ; Counterticks 'Locate 1 , 8 'Lcd " Pe=" ; Periodendauer 'Locate 2 , 1 Print Frequenz 'Lcd " Fr=" ; Frequenz ' // Das wars: Display ist wieder up to date '// die naechste Messung kann starten '// Outputcounter = 0 'Timer1 = 0 'Enable Capture1 'Enable Ovf1 Enable Interrupts End If Outputcounter = Outputcounter + 1 Counterticks = 0 Updatedisplay = 0 End If Loop End 'end program T1overflow: Nroverflows = Nroverflows + 1 'Print "timer1 overflow" Return Captureint: If Updatedisplay = 1 Then Return '// Das Display wurde mit den Ergebnissen der vorhergehenden '// Messung noch nicht upgedated. Die naechste Messung '// verzögern, bis die Start und EndTime Variablen wieder '// gefahrlos beschrieben werden koennen If Ersteflanke = 1 Then Starttime = Capture1 Nroverflows = 0 Ersteflanke = 0 ' / / Die Naechste Flanke Ist Das Ende Der Messung Else Endtime = Capture1 Updatedisplay = 1 ' / / Eine Vollständige Messung. Sie Kann Ausgewertet Werden Ersteflanke = 1 '/ / Bei Der Naechsten Flanke Beginnt Der Naechste Messzyklus End If Return
Auf jeden Fall wenn was ausgewertet wird stimmt das super genau nur eben ist irgendwas viel zu lahm.
Und die Variante mit dem NE567 hatte ich auch schon ins Auge gefasst, nur muss man dem nicht per Widerstände und Kondensatoren was vorgeben an Frequenz?
So also weiter basteln....und Infos sammeln
DANKE für eure Hilfe
EDIT jetzt gehts bei Version 1 wieder mit beiden Autos, hab das störende mal zerlegt, weiß nich was da war.
Auf jeden Fall wenn man die Fehlmessungen weggbekommt würde es schon gehen, bestimmt was mit Timing oder sowas.........
Zitieren
Lesezeichen