VB Lektion 3: Verzweigungen

From ILWiki

Verbesserungen für den Taschenrechner

Entfernen des Pluszeichens am Anfang des Eingabelabels

Am Anfang von lblEingabe steht immer ein Pluszeichen. Dieses soll nun entfernt werden. Dazu muss in die Programmzeile

strEingabe = strEingabe & " + " & txtEingabe.Text

eine Abfrage eingebaut werden. Das "+"-Zeichen soll bei der ersten Eingabe nicht mit eingefügt werden. Falls der Benutzer noch keine Eingabe gemacht hat, ist strEingabe leer. Die Abfrage kann man zum Beispiel mit einer "If Then Else"-Verzweigung machen:

If strEingabe = Nothing Then
strEingabe = txtEingabe.Text
Else strEingabe = strEingabe & " + " & txtEingabe.Text
EndIf

EndIf zeigt das Ende der Verzweigung an.

Entfernen des Pluszeichens bei negativen Zahlen

Wenn eine negative Zahl eingegeben wird, schreibt der Taschenrechner etwas wie "+ -17". Hier soll das Pluszeichen nicht angezeigt werden. Dazu muss das Programm wissen, welches das erste Zeichen von txtEingabe.Text ist. Dazu gibt es die Funktion StartsWith(). Die Antwort dieser Funktion iost entweder True oder False. Damit können wir folgende Verzweigung schreiben:

If txtEingabe.Text.StartsWith("-") Then
txtEingabe.Text.Remove(0,1)
strEingabe = strEingabe & " + " & txtEingabe.Text
Else strEingabe = strEingabe & " + " & txtEingabe.Text
EndIf

Der Befehl Remove(a,b) entfernt in einem String ab dem a-ten Zeichen b Zeichen. Also in unserem Fall genau das erste.

Die If-Verzweigung bauen wir mit dem Befehl ElseIf in die erste Veryweigung ein. So kann man mehrere Abzweigungen programmieren:

If Bedingung 1 Then
ElseIf Bedingung 2 Then
ElseIf Bedimngung 3 Then
...
Else
EndIf

Die fertige Prozedur sieht so aus: