===== 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 =====

<Code:pascal linenums>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.</Code> 

Dieser Code durchläuft mit Hilfe einer [[cockpit-xp:addon:schleifen:endlosschleife|Endlosschleife]] regelmäßig alle Slots und prüft, ob [[cockpit-xp:addon:befehlsreferenz:cockpit.tankenaktiviert|Cockpit.TankenAktiviert]] wahr wird. In diesem Fall wird eine Meldung generiert und angezeigt. \\

 {{ :cockpit-xp:addon:befehlsreferenz:cpwiki-cockpit-tankenaktiviert.png?nolink |}}

 \\ 
----

[[cockpit-xp:start|Start]] - [[cockpit-xp:faq|FAQ]] - [[cockpit-xp:glossar|Glossar]] - [[cockpit-xp:sitemap|Sitemap]] - [[cockpit-xp:impressum|Impressum]]