Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Unterprogramm anstatt GoTo-Funktion |
29.06.2020 17:46:10 |
Flo E. |
|
|
|
29.06.2020 19:34:15 |
xlKing |
|
|
|
30.06.2020 23:49:12 |
Gast69932 |
|
|
|
01.07.2020 15:53:06 |
Gast85995 |
|
|
|
01.07.2020 16:45:26 |
Gast64967 |
|
|
|
01.07.2020 17:14:01 |
Gast15071 |
|
|
|
01.07.2020 17:26:31 |
Gast83649 |
|
|
|
01.07.2020 17:38:50 |
Gast42607 |
|
|
|
01.07.2020 17:59:47 |
Gast34917 |
|
|
Von:
Flo E. |
Datum:
29.06.2020 17:46:10 |
Views:
861 |
Rating:
|
Antwort:
|
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")
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- 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 geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- 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
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Unterprogramm anstatt GoTo-Funktion |
29.06.2020 17:46:10 |
Flo E. |
|
|
|
29.06.2020 19:34:15 |
xlKing |
|
|
|
30.06.2020 23:49:12 |
Gast69932 |
|
|
|
01.07.2020 15:53:06 |
Gast85995 |
|
|
|
01.07.2020 16:45:26 |
Gast64967 |
|
|
|
01.07.2020 17:14:01 |
Gast15071 |
|
|
|
01.07.2020 17:26:31 |
Gast83649 |
|
|
|
01.07.2020 17:38:50 |
Gast42607 |
|
|
|
01.07.2020 17:59:47 |
Gast34917 |
|
|