Inhaltsverzeichnis
Cockpit.TankenAktiviert
Einleitung
Diese Funktion liefert WAHR (True), wenn Tanken aktiviert ist. Das ist konkret der Fall, wenn ein Fahrzeug über den Tanken Einfahrt Sensor gefahren UND die Wartezeit vor Beginn des eigentlichen Tankvorgangs heruntergelaufen ist.
Syntax
| Befehl | Cockpit.TankenAktiviert |
|---|---|
| Funktion | Rückgabewert ist True, wenn der Tankvorgang begonnen hat. Wartezeit vor Tanken beachten. |
| Typ | Boolean |
Codebeispiel
var
slot : Integer;
msg : String;
RennenLaeuft : Boolean;
MeldungGezeigt : Boolean;
begin
// Variablen initialisieren
RennenLaeuft := False;
MeldungGezeigt := False;
msg := '';
// Endlosschleife
while true do
begin
if (cpGetRacingStatus = 'S') OR
(cpGetRacingStatus = 'P') then
RennenLaeuft := False
else
RennenLaeuft := True;
// Die Session läuft (R)
if RennenLaeuft then
begin
// für alle Slots durchlaufen
for slot := 1 to cpCountOfSlots do
begin
// Slot einstellen
Cockpit.Slot := slot;
// Tanken ist aktiviert
if Cockpit.TankenAktiviert then
begin
// Meldung zusammenstellen
msg := msg + 'Slot [' + IntToStr(slot) + '] - ';
msg := msg + 'Fahrer: ' + Cockpit.FahrerName + ' - ';
msg := msg + 'Spur/ID: ' + IntToStr(Cockpit.SlotID);
msg := msg + Chr(13) + Chr(10);
msg := msg + '--------------------------------------';
msg := msg + Chr(13) + Chr(10);
msg := msg + 'Tanken ist aktiviert.';
msg := msg + Chr(13) + Chr(10);
msg := msg + Chr(13) + Chr(10);
// Meldung anzeigen
cpShowMessage(msg);
end // END if - Tanken aktiviert
else
begin
cpSleep(1000);
end; // END if - Tanken nicht aktiviert
end; // END for - slot
end // END if - Rennen läuft
else
begin
cpSleep(500);
end; // END if - Rennen läuft nicht
end; // END while - Endlosschleife
end.
Dieser Code durchläuft mit Hilfe einer Endlosschleife regelmäßig alle Slots und prüft, ob Cockpit.TankenAktiviert wahr wird. In diesem Fall wird eine Meldung generiert und angezeigt.
