ZitierenHast du dir mal den Befehl GETRC angeschaut?
Dein Programm könnte deutlich kompakter aussehen.
hallo alle,
ich möchte gleich vorweg sagen, JA ICH HABE GOOGLE BENUTZT UND JA ICH HABE AUCH DIE SUFU IM ROBOTERNETZ BENUTZT!!!!
ich möchte die kapazität eines kondensators bestimmen, von ungefähr 0.2pf bis 500nf.
dazu hab ich mir überlegt, einen astabilen multivibrator (evtl. mit ne555) aufzubauen und dann die frequenz zu messen. der zu messende c wird dann parallel zu dem anderen c vom multivibrator angeschlossen und verändert somit die frequenz. diese wird dann erneut gemessen und mit der ersten messung verglichen. ich gehe jetzt mal davon aus, dass sich die frequenz proportional zum c verändert?!?!?!
ich hatte dabei an eine frequenz von ungefähr 600kHz gedacht, allerdings ist a) meine messmethode ziemlich ungenau (schwankt um den wert 100) und b) ist die höchste frequenz, die mir der atmega32 bis jetzt angezeigt hat ungefähr 22kHz. das ist definitiv zu wenig!! wie kann ich den höhere frequenzen messen?? ich habe mal gehört, man kann max. eine frequenz von der halben taktfrequenz messen. das wären dann bei mir (16000000/2), also ungefähr 8MHz.
hier mal mein code, ich habe 2 varianten, einmal über timer = counter und einmal mit externem interrupt:
und:Code:$regfile = "m32def.dat" $crystal = 16000000 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5 Config Lcdbus = 4 Initlcd Cls Cursor Off Noblink Config Pinb.0 = Input Portb.0 = 1 Config Pina.0 = Input Porta.0 = 1 Config Timer0 = Counter , Edge = Falling Timer0 = 255 On Timer0 Isr_von_timer0 Stop Timer0 Enable Timer0 Config Timer1 = Timer , Prescale = 1024 Timer1 = 0 Stop Timer1 Enable Timer1 Enable Interrupts Main: Dim I As Long I = 0 Locate 1 , 1 Lcd "Ergibnis in 1 sec" Waitms 400 Locate 2 , 1 Lcd "ab jetzt" Start Timer1 Start Timer0 Do Loop Until Timer1 = 15625 Stop Timer0 Stop Timer1 Timer1 = 0 Locate 3 , 1 Lcd "Wert = " ; I Do Loop Until Pina.0 = 0 Cls Waitms 200 Goto Main End Isr_von_timer0: Timer0 = 255 Incr I Return
welche möglichkeit ist den am besten?? mit interrupt oder counter?Code:$regfile = "m32def.dat" $crystal = 16000000 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5 Config Lcdbus = 4 Initlcd Cls Cursor Off Noblink Config Pind.2 = Input Portd.2 = 1 Config Pina.0 = Input Porta.0 = 1 Config Int0 = Falling On Int0 Isr_von_int0 Config Timer1 = Timer , Prescale = 1024 Timer1 = 0 Stop Timer1 Enable Timer1 Enable Interrupts Main: Dim I As Word I = 0 Locate 1 , 1 Lcd "Ergibnis in 2 sec" Waitms 400 Locate 2 , 1 Lcd "ab jetzt" Wait 1 Start Timer1 Enable Int0 Do Loop Until Timer1 = 15625 Disable Int0 Stop Timer1 Timer1 = 0 Locate 3 , 1 Lcd "Wert = " ; I Do Loop Until Pina.0 = 0 Cls Waitms 200 Goto Main End Isr_von_int0: Incr I Return
oder gibt es noch eine andere möglichkeit?
danke schon mal für eure antworten.
gruß
chris
Hast du dir mal den Befehl GETRC angeschaut?
Dein Programm könnte deutlich kompakter aussehen.
Gruß RePi!
*** Holzhacken ist deshalb so beliebt, weil man bei dieser Tätigkeit den Erfolg sofort sieht. ***
*** (Albert Einstein) ***
hallo repi,
ja, habe ich, allerdings kann ich mit diesem befehl nicht so kleine kapazitäten messen, wie z.b. 1pf oder sowas!!
aber trotzdem danke für deine antwort!
gruß
chris
kann den niemand was zu meinem code sagen??
ist er richtig/falsch??
oder soll ich es ganz anders machen??
gruß
chris
Die Methode über die Frequenzmesung ist schon möglich und gar nicht so schlecht. Allerdings wird der NE555 nicht so schnell laufen. Die gezeigten Variante sind nur für eher niedrige Frequenzen geeigent und haben keine besonders hohe Auflösung. Mit dem Timer als Eingang könnte man das noch etwas verbessern und auch hohe Frequenzen bis etwa 7 MHz zulassen. Man sollte den Timer auch wirklich zählen lassen und nicht für jede Periode einen Interrupts auslösen. Als Ergebnis hat man dann den Zählerstand und die Zahl der Interrupts. Ohne externe Hardware kann man so allerdings eine Unsicherheit bei der Gate Zeit bekommen, die man nicht so ohne wieteres lösen kann. Für mehr Auflösung bei niedrigen Frequenzen kann man die ICP Funktion von Timer 1 nutzen. Man mißt dann nicht die Frequenz direkt, sondern die Zeit für eine oder mehrere Perioden. Für die Capatzitätsmessung ist das aber sowieso eher besser.
hallo besserwessi,
danke für deine antwort! du hast mir wirklich sehr geholfen.
ich habe mir jetzt folgendes überlegt:
was sagst du dazu??Code:$regfile = "m32def.dat" $crystal = 16000000 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5 Config Lcdbus = 4 Initlcd Cls Cursor Off Noblink Config Pinb.0 = Input Portb.0 = 1 Config Pina.0 = Input Porta.0 = 1 Config Timer0 = Counter , Edge = Falling Timer0 = 0 On Timer0 Isr_von_timer0 Stop Timer0 Enable Timer0 Config Timer1 = Timer , Prescale = 1024 Timer1 = 0 Stop Timer1 Enable Timer1 Enable Interrupts Main: Dim I As Long I = 0 Locate 1 , 1 Lcd "Ergibnis in 2 sec" Start Timer1 Start Timer0 Do Loop Until Timer1 = 31250 Stop Timer0 Stop Timer1 Timer1 = 0 I = I * 256 I = I / 2 Locate 3 , 1 Lcd "Wert = " ; I Do Loop Until Pina.0 = 0 Cls Waitms 200 Goto Main End Isr_von_timer0: Timer0 = 0 Incr I Return
könnte man das so lassen??
gruß
chris
So wird der Timer zwar wohl richtig zählen, aber das Ergebnis wird noch nicht richtig ausgelesen. Als Ergebnis sollte hier mehr Timer0 + 256 * I dienen.
In der ISR von Timer0 sollte man auch nicht Timer0=0 setzen, sondern den sollte man weiterlaufen lassen.
Die Festlegung der gate Zeit durch timer1 könnte man noch etwas verbessern indem man einen Interrupts von timer1 zum anhalten der Messung benutzt. So wie es jetzt ist hat man als Unsicherheit einen eher unwahrscheinlichen Interrupts von timer0 und die Länge der Schleifen die auf den passenden Wert in Timer1 wartet. Mit dem Interrupts zum Stoppe fällt die Schleife als Unsicherheit weg. Den Fehler durch einen möglichen, aber seltenen Interrupt von timer0 kann man nicht so einfach verhindern. Dafür sollte sich auch eine Lösung finden, ist aber dann nicht mehr so einfach. Vermutlich wird der Unterschied aber kaum ins Gewicht fallen.
Berechtigungen
Lesezeichen