DIPLOMARBEIT - Ingenieurbüro | Morawski + Hugemann

Anhang Seite 105
function ReadCount: Word;
var
Temp: Word;
Begin
{ Latch-Kommando abschicken }
port[Countctrl] := Select0;
{ Einen Moment warten, bis der Wert gültig ist }
portdelay;
{ Jetzt Zählerstand auslesen, erst LSB, dann MSB }
temp := port[count0];
ReadCount := Temp + port[count0] SHL 8;
End;
{ Auf die Reaktion warten ---------------------------------------}
procedure ReaktionsAntwort(var FussVomGasZeit, Bremszeit: Double);
label 100;
const
Frequenz = 200000;
var
Bremsen: Byte;
I : Longint;
Firstread: Word;
Zaehlerstand: Word;
begin
Bremsen := 0;
i := 0;
FussVomGasZeit := 0;
FirstRead := 60000;
{ Der Zaehler startet immer von 50000. Die Zaehlfrequenz ist 100 kHz, so
dass der Zaehler alle halbe Sekunde einen Umlauf hat, d.h. wieder
bei 500000 anfaengt. Die Zahl der Umlaeufe wird ueber "i"
erfasst.
Gas ist an den Kanal 3 (=$4), Bremsen an den Kanal 1 (=$01)
angeschlossen. Erst schauen, ob der Fuss auf dem Sensor am
Gaspedal liegt. Wenn ja, dann zunaechst auf das Abheben vom
Gaspedal warten. Wenn nicht, dann dierekt auf das Bremsen Warten
}