'Recordarrays. Uebergabe von Recordtype an Array - 1. April 2024



$Console:Only



Option _Explicit



Declare Sub Anzeigen(Motorrad As Any)



'Definition der Datenstruktur

Type MotorradModell

  Modell As String * 30

  Farbe As String * 10

  Hubraum As String * 10

  Kilowatt As String * 15

  Fahrgewicht As String * 10

  Preis As String * 12

End Type



'Array. Global zur Verfuegung stellen in diesem

'Fall nicht noetig.

Dim MotFeld(1 To 10) As MotorradModell



'Modell eingeben

MotFeld(1).Modell = "Honda 350 CB"

MotFeld(1).Farbe = "Rot-Weiss"

MotFeld(1).Hubraum = "350 ccm"

MotFeld(1).Kilowatt = "23 Kilowatt"

MotFeld(1).Fahrgewicht = "156 KG"

MotFeld(1).Preis = "2355.00 Euro"



Locate 2, 0

Print "Daten Selbst eingeben:"



Locate 3, 0

Input "Modell    : ", MotFeld(2).Modell

Input "Farbe      : ", MotFeld(2).Farbe

Input "Hubraum    : ", MotFeld(2).Hubraum

Input "Kilowatt  : ", MotFeld(2).Kilowatt

Input "Fahrgewicht: ", MotFeld(2).Fahrgewicht

Input "Preis      : ", MotFeld(2).Preis



Cls 'Eingabe nicht stehen lassen

Locate CsrLin + 1, 0



'Uebergabe des Arrays von Recordvariablen, und anzeigen

Call Anzeigen(MotFeld(1))



'CsrLin ist noetig, da es sonst zu einer

'Ueberschneidung der Ausgabe kommt

Locate CsrLin + 2, 0

Call Anzeigen(MotFeld(2))



End 'Hauptprogramm



Sub Anzeigen (Motorrad As MotorradModell)



  Print Tab(4); "Modell    : ", Motorrad.Modell

  Print Tab(4); "Farbe      : ", Motorrad.Farbe

  Print Tab(4); "Hubraum    : ", Motorrad.Hubraum

  Print Tab(4); "Kilowatt  : ", Motorrad.Kilowatt

  Print Tab(4); "Fahrgewicht: ", Motorrad.Fahrgewicht

  Print Tab(4); "Preis      : ", Motorrad.Preis

End Sub