Ich hab mal die Routine jetzt zum ansehen mitgeliefert
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender:TObject); {Nur Geschwindigkeitsfeststellung}
begin {1000 ms}
timer1.enabled:=false;
If RadarPresent='Ein' then SensorTicks := RadarTicksPro100Meter;
If RadSensorPresent='Ein' then SensorTicks := RadSensorTicksPro100Meter;
If MaschinenSpeedSensorPresent='Ein' then SensorTicks := MaschinenSpeedSensorTicksPro100Meter;
if SensorTicks = 0 then SensorTicks := 1000;
QueryPerformanceFrequency(t0);
if HilfsSchalter1=true then
begin
ReadCounterDummy1:=ReadCounter(1);
QueryPerformanceCounter(t1);
HilfsSchalter1:=false;
timer1.enabled:=true;
exit;
end;
if HilfsSchalter1=false then
begin
ReadCounterDummy2:=ReadCounter(1);
QueryPerformanceCounter(t2);
HilfsSchalter1:=true;
end;
if ReadCounterDummy2 < ReadCounterDummy1 then
Geschwindigkeit:=3600/
((abs(t2-t1)/t0)*(SensorTicks*10))
*(ReadCounterDummy2+(65535-ReadCounterDummy1));
if ReadCounterDummy2 > ReadCounterDummy1 then
Geschwindigkeit:=3600/
((abs(t2-t1)/t0)*(SensorTicks*10))
*(ReadCounterDummy2-ReadCounterDummy1);
if ReadCounterDummy2 = ReadCounterDummy1 then Geschwindigkeit:=0;
if Geschwindigkeit >= 10 then
Label11.Caption := FormatFloat('#0.0',Geschwindigkeit)
else
Label11.Caption := FormatFloat('#0.00',Geschwindigkeit);
Label16.Caption := FormatFloat('##0.000000',(abs(t2-t1)/t0));
Label23.Caption := IntToStr(ReadCounterDummy2-ReadCounterDummy1);
Label17.Caption := FormatFloat('######.##',ReadCounter(1));
timer1.enabled:=true;
end;
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]