Hallo zusammen,
ich bin relativ neu im Bereich programmieren und erstelle momentan einen Auto-Konfigurator. Ich höre die ganze Zeit, dass die GoTo-Funktion viel zu veraltet ist und ich lieber ein Unterprogramm schreiben sollte, da dies mit zunehmender Komplexität einfacher ist.
Mein Code ist ziemlich linear und nach jeder weiteren Auswahl steht ein GoTo Line1. Weiß jemand, wie denn ein solches Unterprogramm gestaltet werden könnte? Sorry, falls ich zu wenig Infos angegeben habe. Vielen Dank im Voraus für eine Antwort!
Rem Autoklasse auswählen
autoklasse = InputBox("Welche Autoklasse benoetigen Sie? (Kombi, Kleinwagen, SUV)")
While autoklasse <> "Kombi" And autoklasse <> "Kleinwagen" And autoklasse <> "SUV"
autoklasse = InputBox("Bitte beachten Sie die zur Verfügung stehenden Autoklassen! (Kombi, Kleinwagen, SUV)")
Wend
Select Case autoklasse
Case "Kombi"
If kaufen_oder_leasing = "s" Then
aUTO_KLASSE = 30000
Else: aUTO_KLASSE = 200
End If
Case "Kleinwagen"
If kaufen_oder_leasing = "s" Then
aUTO_KLASSE = 15000
Else: aUTO_KLASSE = 100
End If
Case "SUV"
If kaufen_oder_leasing = "s" Then
aUTO_KLASSE = 40000
Else: aUTO_KLASSE = 300
End If
End Select
End_Preis = aUTO_KLASSE
If preis_limit < End_Preis Then MsgBox ("Preislimit überschritten.")
If preis_limit < End_Preis Then GoTo Line1
MsgBox ("Der Grundpreis für diese Autoklasse beträgt " & aUTO_KLASSE & " Euro")
|