Sehr oft werden Sie beim Programmieren in die Situation kommen, wo Sie in einem bestimmten Fall (beim Eintreffen einer bestimmten Bedingung) eine bestimmte Aktion durchgeführt werden soll, anderenfalls eine andere Aktion.
Hier haben wir als Beispiel eine Schulnote ( 1 bis 5), und 5 ist negativ, alle anderen Noten sind positiv. Probieren Sie das Beispiel aus:
$Note = 4 If $Note = 5 Then ConsoleWrite("negativ") Else ConsoleWrite("positiv") EndIf
positiv
Wenn die Bedinung $Note = 5
zutrifft (also True
ergibt), werden die Befehle zwischen Then
und Else
ausgeführt, anderenfalls die Befehle zwischen Else
und EndIf
.
Sie können die Bedingung auch anders formulieren: alles, was kleiner ist als 5 ($Note < 5
), ist positiv. Außerdem sollten Sie die Ausgabe am Bildschirm etwas aussagekräftiger gestalten, z.B.:
$Note=1 If $Note < 5 Then $Beurteilung = "positiv" Else $Beurteilung = "negativ" EndIf ConsoleWrite("Note " & $Note & " ist " & $Beurteilung & @CRLF)
Note 1 ist positiv
Nun bringen wir Interaktivität ins Spiel: InputBox()
zeigt ein Dialogfenster an, wo Sie die Note während des Programmlaufs eintippen können:
$Note=InputBox("Benutzereingabe", "Bitte geben Sie Ihre Note ein:") If $Note < 5 Then $Beurteilung = "positiv" Else $Beurteilung = "negativ" EndIf ConsoleWrite("Note " & $Note & " ist " & $Beurteilung & @CRLF)
Note 3 ist positiv
Schließlich verlassen wir die Console endgültig und geben das Ergebnis in einer Messagebox (MsgBox()
) aus:
$Note=InputBox("Benutzereingabe", "Bitte geben Sie Ihre Note ein:") If $Note < 5 Then $Beurteilung = "positiv" & @CRLF & "Gratulation!" Else $Beurteilung = "leider negativ" EndIf $Meldung = "Note " & $Note & " ist " & $Beurteilung MsgBox(0, "Rückmeldung", $Meldung)
Weiterführende Informationen: