DIPLOMARBEIT - Ingenieurbüro | Morawski + Hugemann

Anhang Seite 104
End;
SollZeit := Expo(MittlereWarteZeit);
Repeat
GetTime(Hour, Minute, Second, Sec100);
EndZeit := 3600 * Hour + 60 * Minute + Second + 0.01 * Sec100;
WarteZeit := EndZeit - StartZeit;
Until (WarteZeit > SollZeit) or (Wartezeit > MaxWarteZeit);
{Jetzt Bremssignal (Piepton) für den Versuchsleiter geben}
Beep(3000);
{ Counter Starten -------------------------------------------------}
procedure Startcount;
Const
Count1Start = 50000;
Begin
{ Startwert fuer counter 0 setzen }
port[Countctrl] := Select0 + rwBoth + Mode3;
portdelay;
port[count0] := lo(Count1Start);
portdelay;
port[count0] := hi(Count1Start);
portdelay;
End;
{ Wartet auf das Aufleuchten der Bremslichter ----------------------}
procedure WarteAufBremslicht;
var
Bremsen: Byte;
begin
Bremsen := 0;
writeln('Warte auf Start');
{Das Bremssignal liegt auf Kanal 5 (=$10)}
repeat
Bremsen := port[dilow] AND $10;
until (Bremsen =0);
{beep(1000);}
end;
{ Counter Auslesen -------------------------------------------------}