Declaring Functions AS TYPEs

[Kernelpanic]

So many times I have wished for this:

TYPE TYPE_VECTOR
    x AS SINGLE
    y AS SINGLE
END TYPE
. . .

Let's see if I understood your problem correctly. In the present program I should have created a "user-defined data type" (UDT). . . or?

Code: (Select All)

'Beispiel fuer eigene Datentypen (UDT) - 16. Aug. 2023

$Console:Only

Option _Explicit

Dim As Double Endpreis

'Definition der Datenstruktur - Direktzugriff
Type Motorrad
  Modell As String * 30
  Hubraum As String * 10
  Kilowatt As String * 15
  Preis As Double
End Type

Type Hersteller
  Firma As Motorrad
  Herstellername As String * 20
  Mehrwertsteuer As Double
End Type

Dim Motorradmodell As Hersteller

Input "Motorradmodell   : ", Motorradmodell.Firma.Modell
Input "Hubraum(ccm)     : ", Motorradmodell.Firma.Hubraum
Input "Leistung(KW)     : ", Motorradmodell.Firma.Kilowatt
Input "Preis            : ", Motorradmodell.Firma.Preis
Input "Mehrwertsteuer(%): ", Motorradmodell.Mehrwertsteuer
'Mehrwertsteuer is VAT (Valued Added Tax)

Print
Print "Modell          : ", Motorradmodell.Firma.Modell
Print "Hubraum         : ", Motorradmodell.Firma.Hubraum
Print "Leistung(KW)    : ", Motorradmodell.Firma.Kilowatt
Print Using "Preis ohne MWS   : ####.## Euro"; Motorradmodell.Firma.Preis

Endpreis = ((Motorradmodell.Firma.Preis / 100) * Motorradmodell.Mehrwertsteuer) + Motorradmodell.Firma.Preis
Print Using "Endpreis mit MWS : ####.## Euro"; Endpreis

End

I noticed a strange behavior during the output, see screenshot. Is this now an bug, or what is the reason?