FlightPlanLeg.WithOverfly
| Eigenschaft |
Wert |
| Modul |
FlightPlan |
| Klasse |
FlightPlanLeg |
| Typ |
Function |
| Sichtbarkeit |
Public |
| Datei |
FlightPlan/FlightPlanModels.vb |
Beschreibung
Erzeugt eine neue FlightPlanLeg-Instanz mit dem angegebenen Overfly-Flag. Alle anderen Felder bleiben unveraendert (immutable Copy-on-Write). Ein Overfly-Waypoint wird vom Flugzeug exakt ueberflogen, anstatt einen Fly-by-Uebergang zum naechsten Leg zu verwenden.
Signatur
Public Function WithOverfly(value As Boolean) As FlightPlanLeg
Parameter
| Name |
Typ |
Beschreibung |
Standard |
| value |
Boolean |
True = Overfly-Wegpunkt, False = normaler Fly-by-Wegpunkt |
— |
Rückgabewert
| Typ |
Beschreibung |
| FlightPlanLeg |
Neue FlightPlanLeg-Instanz mit aktualisiertem IsOverfly-Flag |
Ablaufdiagramm
flowchart TD
A[Start] --> B[Neues FlightPlanLeg mit allen bestehenden Feldern erstellen]
B --> C[IsOverfly durch uebergebenen value ersetzen]
C --> D[Neues FlightPlanLeg zurueckgeben]
Aufgerufen von
| Modul |
Sub/Function |
Kontext |
| FlightPlanModels |
FlightPlan.ToggleOverfly |
Invertiert das Overfly-Flag am globalen Leg-Index |
| FlightPlanOverflyTests |
Unit-Tests |
Testet das Setzen des Overfly-Flags |
Ruft auf
| Modul |
Sub/Function |
Kontext |
| FlightPlanModels |
FlightPlanLeg.New |
Erzeugt die neue immutable Kopie mit allen Feldern |
Beispiel
Dim leg As New FlightPlanLeg("ALPHA", 48.0, 11.0, "TF", "", 90.0, 0.0, 0.0, 0.0, 10.0, 0.0, 0.0,
0, "", 0, 0, 0, False, 0, False, "", FlightPlanLegType.Normal)
' Overfly aktivieren
Dim overflyLeg = leg.WithOverfly(True)
' overflyLeg.IsOverfly = True
' overflyLeg.WaypointIdent = "ALPHA" (unveraendert)
Änderungshistorie
| Version |
Datum |
Änderung |
| 1.0 |
2026-04-16 |
Erstdokumentation |