Atsu1Page (IPage)
| Eigenschaft |
Wert |
| Modul |
Mcdu/Pages |
| Klasse |
Atsu1Page |
| Typ |
IPage Implementation |
| Sichtbarkeit |
Public |
| Datei |
Mcdu/Pages/Atsu1Page.vb |
Beschreibung
ATSU DATALINK Seite -- oberste Navigationsseite der Air Traffic Service Unit. Zeigt den Titel "ATSU DATALINK" zentriert (col 06) und zwei Links: L1 "ATC MENU" (nur dekorativ, kein Handler im VB6-Original) und R2 "AOC MENU>" fuer die Navigation zum AOC Main Menu. R3 navigiert verdeckt (ohne sichtbare Zeile) zur AcarsWx-Seite -- dieser Handler ist fuer VB6-Kompatibilitaet erhalten. Portiert aus VB6 CreateATSU1 / ProcessATSU1.
Implementierte Methoden
Render
Public Sub Render(ctx As McduContext, buffer As Inet.Arinc429ScreenBuffer) Implements IPage.Render
| Name |
Typ |
Beschreibung |
Standard |
| ctx |
McduContext |
MCDU-Kontext (keine spezifischen Daten benoetigt) |
-- |
| buffer |
Inet.Arinc429ScreenBuffer |
Zielpuffer fuer die ARINC-429-Screenausgabe |
-- |
HandleLsk
Public Function HandleLsk(key As McduLskKey, ctx As McduContext) As McduCommand Implements IPage.HandleLsk
| Name |
Typ |
Beschreibung |
Standard |
| key |
McduLskKey |
Gedrueckte LSK-Taste (R2, R3 aktiv) |
-- |
| ctx |
McduContext |
MCDU-Kontext (nicht verwendet) |
-- |
Rueckgabewert (HandleLsk)
| Typ |
Beschreibung |
| McduCommand |
NavigateTo(AocMainMenu) fuer R2, NavigateTo(AcarsWx) fuer R3, Nothing fuer alle anderen Tasten |
Ablaufdiagramm
flowchart TD
A[Start Render] --> B[LISTCLEAR]
B --> C["Row 01 col06: ATSU DATALINK"]
C --> D["Row 03: ATC MENU (dekorativ)"]
D --> E["Row 05 col16: AOC MENU>"]
E --> F[ParseAndRender]
F --> G[Ende]
Aufgerufen von
| Modul |
Sub/Function |
Kontext |
| McduActor |
Render-Dispatch |
Wenn McduPageType.Atsu1 aktiv ist |
Ruft auf
| Modul |
Sub/Function |
Kontext |
| McduCommandParser |
ParseAndRender |
Uebergibt die Befehlsliste an den Screen-Buffer |
| NavigateTo |
Konstruktor |
R2=AocMainMenu, R3=AcarsWx |
Beispiel
Dim page As New Atsu1Page()
page.Render(ctx, buffer)
Dim cmd = page.HandleLsk(McduLskKey.R2, ctx) ' -> NavigateTo(AocMainMenu)
Dim cmd2 = page.HandleLsk(McduLskKey.R3, ctx) ' -> NavigateTo(AcarsWx)
Aenderungshistorie
| Version |
Datum |
Aenderung |
| 1.0 |
2026-04-16 |
Erstdokumentation |