Liefert die gefahrene Höchstgeschwindigkeit einer Topspeedmessstrecke, die in der Rennbahn entsprechend konfiguriert ist. Cockpit-XP bietet die Möglichkeit, insgesamt 4 solcher Messstrecken einzurichten.

Über Cockpit.Station wird festgelegt, für welche Messstrecke die Topspeed ausgelesen werden soll.

{ Pascal Script Engine }
{ Event: ToppSpeed-Stopp }
{ Parameter: 
    Cockpit.Slot=<SlotPlatz>,
    Cockpit.Station=<TopSpeed-Station> 
}

    
var
  slot : Integer;
  topspeed : Extended;
  msg : String;
    
begin

  // auslösenden Slot speichern
  slot := Cockpit.Slot;
  
  // Slot einstellen
  Cockpit.Slot := slot;

  // Messstrecke 1 einstellen  
  Cockpit.Station := 1;
  
  // Höchstgeschwindigkeit speichern
  topspeed := Cockpit.TopSpeed;
  
  // Variable initalisieren
  msg := '';

  // 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 + 'Topspeed: ' + FormatFloat('#0.000', topspeed) + ' km/h';
          
  // Meldung anzeigen
  cpShowMessage(msg);
          
end.

Dieser Code die Höchstgeschwindigkeit für Messtrecke 1. Der Code wurde für das Beispiel in das Event TopspeedStopp eingefügt. Durch die Rückgabe als Fließkommazahl, sind Formatierungen mit Nachkommastellen möglich.

Start - FAQ - Glossar - Sitemap - Impressum