Record Arrays

[bplus]

missing index too in the inputs

this is fixed unless you want to actually input 2 sets of data

Code: (Select All)

Type Motorrad
    Modell As String * 30
    Kilowatt As Double
    Preis As Double
End Type

Dim MotorradMarken(2) As Motorrad

Dim As Integer anzahl, satzNummer

satzNummer = 1
Do
    Input "Modell    : ", MotorradMarken(satzNummer).Modell
    Input "Kilowatt  : ", MotorradMarken(satzNummer).Kilowatt
    Input "Preis      : ", MotorradMarken(satzNummer).Preis

    satzNummer = satzNummer + 1
Loop Until satzNummer = 2 'or 3?

For anzahl = 1 To satzNummer - 1
    Print MotorradMarken(anzahl).Modell
    Print MotorradMarken(anzahl).Kilowatt
    Print MotorradMarken(anzahl).Preis
Next