Programmierung, Algorithmen und Techniken von Thomas Ohlhauser
Programmierung, Algorithmen und Techniken von Thomas Ohlhauser
Programmierung, Algorithmen und Techniken von Thomas Ohlhauser
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
6.3. Auswahl (CASE)<br />
Eine weitere - sehr nützliche - Auswahl-Version ist die bedingte Anweisung mit<br />
mehreren Ausgängen. Diese wird «CASE-Anweisung» genannt. Das Beispiel für die<br />
CASE-Anweisung in einem VBASIC-Dialekt:<br />
Private Sub cmdBerechnen_Click()<br />
Dim Anzahl As Integer<br />
Dim Kosten As Currency<br />
Anzahl = Val(txtAnzahl.Text)<br />
Select Case Anzahl<br />
Case Is < 7<br />
Kosten = 0<br />
Case 8 To 17<br />
Kosten = (Anzahl - 6) * 0.75<br />
Case Else<br />
Kosten = (Anzahl - 16) * 0.35 + 3<br />
End Select<br />
If chkOnline.Value Then<br />
Kosten = Kosten * 0.35<br />
End If<br />
lblKosten.Caption = Format(Kosten, "0.00") & " DM"<br />
End Sub