Henry
10.06.2009, 22:40
Hallo,
ich bin gerade dabei in einem Projekt eine Drehzal zu erfassen und möchte daraus mittels eines Umfangs (z.B. in mm) eine Geschwindigkeit zu errechnen.
Die Erfassung der Drehzahl ist mit einem guten Beispiel aus dem Wissensbereich http://www.rn-wissen.de/index.php/Beispiel_Drehzahlmessung_mit_RN-Control auch bereits umgesetzt.
Dieses Beispiel habe ich auf eine Taktgeschwindigkeit von 8MHz und die Ausgabe auf einem LC-Display angepasst.
Funktioniert so weit gut.
Mein Problem ist nun das ich bei der umrechnung in KMH bzw. später ggf. MPH mit dezimalen Zahlen zu tun haben werden.
Hier mal meine Berechnungen und Variablendeklarationen aus dem Quelltext:
Dim Zaehlerirq0 As Long
Dim Impulseprosekunde As Long
Dim ImpSek as Long
Dim Impulseprominute As Long
Dim Umdrehungenprominute As Integer
Dim KMH as Double
Dim KMHhilfs as Long
Dim Spur as long
***
Do
ImpSek = Impulseprosekunde
Spur = 1639 / 1000000 'Umrechnung von mm auf Km
Impulseprominute = ImpSek * 60
Umdrehungenprominute = Impulseprominute / Markierungenproscheibe
KMHhilfs = ImpSek * 3600
KMH = KMHhilfs * Spur
' Anzeige auf Display
Locate 1 , 1
LCD "Impulse Sek: "
Locate 1 , 14
LCD ImpSek
Locate 2 , 1
LCD "Umdreh. Min: "
Locate 2 , 14
LCD Umdrehungenprominute
Locate 3 , 1
LCD "KM/h : "
Locate 3 , 14
LCD KMH
Wait 2
Loop
***
Wie kann ich am besten evt. auch Resourcenschonend die Geschwindigkeit aus meiner ermittelten Drehzahl die Geschwindigkeit errechnen?
Danke schon einmal für die Hilfe
ich bin gerade dabei in einem Projekt eine Drehzal zu erfassen und möchte daraus mittels eines Umfangs (z.B. in mm) eine Geschwindigkeit zu errechnen.
Die Erfassung der Drehzahl ist mit einem guten Beispiel aus dem Wissensbereich http://www.rn-wissen.de/index.php/Beispiel_Drehzahlmessung_mit_RN-Control auch bereits umgesetzt.
Dieses Beispiel habe ich auf eine Taktgeschwindigkeit von 8MHz und die Ausgabe auf einem LC-Display angepasst.
Funktioniert so weit gut.
Mein Problem ist nun das ich bei der umrechnung in KMH bzw. später ggf. MPH mit dezimalen Zahlen zu tun haben werden.
Hier mal meine Berechnungen und Variablendeklarationen aus dem Quelltext:
Dim Zaehlerirq0 As Long
Dim Impulseprosekunde As Long
Dim ImpSek as Long
Dim Impulseprominute As Long
Dim Umdrehungenprominute As Integer
Dim KMH as Double
Dim KMHhilfs as Long
Dim Spur as long
***
Do
ImpSek = Impulseprosekunde
Spur = 1639 / 1000000 'Umrechnung von mm auf Km
Impulseprominute = ImpSek * 60
Umdrehungenprominute = Impulseprominute / Markierungenproscheibe
KMHhilfs = ImpSek * 3600
KMH = KMHhilfs * Spur
' Anzeige auf Display
Locate 1 , 1
LCD "Impulse Sek: "
Locate 1 , 14
LCD ImpSek
Locate 2 , 1
LCD "Umdreh. Min: "
Locate 2 , 14
LCD Umdrehungenprominute
Locate 3 , 1
LCD "KM/h : "
Locate 3 , 14
LCD KMH
Wait 2
Loop
***
Wie kann ich am besten evt. auch Resourcenschonend die Geschwindigkeit aus meiner ermittelten Drehzahl die Geschwindigkeit errechnen?
Danke schon einmal für die Hilfe