DIPLOMARBEIT - Ingenieurbüro | Morawski + Hugemann

Anhang Seite 106
100:
end;
if (port[dilow] And $04) 0 then Goto 100;
writeln('Warte auf Gas weg');
repeat
Zaehlerstand := ReadCount;
If FirstRead < Zaehlerstand then Inc(i);
Firstread := Zaehlerstand;
until (port[dilow] And $04) 0;
FussVomGasZeit := ((I+1) * 50000 - Zaehlerstand) / Frequenz;
writeln('Warte auf Bremsen');
repeat
Zaehlerstand := ReadCount;
If FirstRead < Zaehlerstand then Inc(i);
Firstread := Zaehlerstand;
until (port[dilow] And $01) = 0;
Bremszeit := ((I+1) * 50000 - Readcount) / Frequenz;
Beep(1000);
{ MAIN PROGRAM -------------------------------------------------}
var
GaswegCount, BremsCount: Word;
GaswegZeit, Bremszeit: Double;
Versuchszeit, AktuelleZeit, Startzeit: Double;
Hour, Minute, Second, Sec100: Word;
Day, Month, Year, DayOfWeek: Word;
i,j,AnzahlMessungen,ohneumsetzen: integer;
iLong:Longint;
F: Text;
VPName: String[50];
TestVersuch : String;
filename: String;
filenameStamm :String;
vorhanden : pathstr;
zahlstr : string[4];
label 100;
begin
{-------- Abfragen nach Test oder Versuchsbegin START--------}
Write ('(t)est oder (v)ersuch ?');