Thema Datum  Von Nutzer Rating
Antwort
Rot Unterprogramm anstatt GoTo-Funktion
29.06.2020 17:46:10 Flo E.
NotSolved
29.06.2020 19:34:15 xlKing
NotSolved
30.06.2020 23:49:12 Gast69932
NotSolved
01.07.2020 15:53:06 Gast85995
NotSolved
01.07.2020 16:45:26 Gast64967
NotSolved
01.07.2020 17:14:01 Gast15071
NotSolved
01.07.2020 17:26:31 Gast83649
NotSolved
01.07.2020 17:38:50 Gast42607
NotSolved
01.07.2020 17:59:47 Gast34917
NotSolved

Ansicht des Beitrags:
Von:
Flo E.
Datum:
29.06.2020 17:46:10
Views:
72
Rating: Antwort:
  Ja
Thema:
Unterprogramm anstatt GoTo-Funktion
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")

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Unterprogramm anstatt GoTo-Funktion
29.06.2020 17:46:10 Flo E.
NotSolved
29.06.2020 19:34:15 xlKing
NotSolved
30.06.2020 23:49:12 Gast69932
NotSolved
01.07.2020 15:53:06 Gast85995
NotSolved
01.07.2020 16:45:26 Gast64967
NotSolved
01.07.2020 17:14:01 Gast15071
NotSolved
01.07.2020 17:26:31 Gast83649
NotSolved
01.07.2020 17:38:50 Gast42607
NotSolved
01.07.2020 17:59:47 Gast34917
NotSolved