Curious if I am thinking about this right.

[Kernelpanic]

The original topic has been completely lost! And the thread starter flickers before the eyes. - May I also? 
According to the textbook for Basic:

Code: (Select All)

' Umrechnung Zoll/Inch in Millimeter 20. Jan. 2025



Option _Explicit



Dim As Integer auswahl

Dim As Double inch, inMillimeter, ergebnis



Const Millimeter = 25.4



Locate 3, 3

Print "Berechnung Inch in Millimeter und umgekehrt"

Locate 4, 3

Print "==========================================="



Locate 6, 3

Print "Auswahl:"

Locate 7, 3

Print "1. Inch/Zoll in Millimeter"

Locate 8, 3

Print "2. Millimeter in Inch/Zoll"



Locate 10, 3



Input "Ihre Auswahl: ", auswahl



If auswahl = 1 Then

  Locate 13, 3

  Input "Geben Sie die Anzahl Inch ein: ", inch

  ergebnis = inch * Millimeter

  Locate 15, 3

  Print Using "###.## Inch sind ###,### Millimeter"; inch, ergebnis

ElseIf auswahl = 2 Then

  Locate 13, 3

  Input "Geben Sie die Anzahl Millimeter ein: ", inMillimeter

  ergebnis = inMillimeter / Millimeter

  Locate 15, 3

  Print Using "####.## Millimeter sind ###.## Inch"; inMillimeter, ergebnis

End If



End