Rheinwerk Computing < openbook > Rheinwerk Computing - Professionelle Bücher. Auch für Einsteiger.
Professionelle Bücher. Auch für Einsteiger.

Inhaltsverzeichnis
1 Einführung
2 Grundlagen
3 Fehlerbehandlung
4 Erweiterte Grundlagen
5 Objektorientierte Programmierung
6 Wichtige Klassen in .NET
7 Weitere Elemente eines Windows-Programms
8 Datenbank-Anwendungen mit ADO.NET
9 Internet-Anwendungen mit ASP.NET
10 Zeichnen mit GDI+
11 Beispielprojekte
12 Windows Presentation Foundation
13 Windows Store-Apps für Windows 8
A Installation und technische Hinweise
B Lösungen der Übungsaufgaben
C Inhalt der Buch-DVD
D Der Autor
Stichwort

Jetzt Buch bestellen
Ihre Meinung?

Spacer
Einstieg in Visual Basic 2012 von Thomas Theis
Ideal für Programmiereinsteiger geeignet
Buch: Einstieg in Visual Basic 2012

Einstieg in Visual Basic 2012
Rheinwerk Computing
579 S., 3., aktualisierte und erweiterte Auflage 2013, brosch., mit DVD
24,90 Euro, ISBN 978-3-8362-1959-4
Pfeil 2 Grundlagen
Pfeil 2.1 Variablen und Datentypen
Pfeil 2.1.1 Namen und Werte
Pfeil 2.1.2 Deklarationen
Pfeil 2.1.3 Datentypen
Pfeil 2.1.4 Gültigkeitsbereich
Pfeil 2.1.5 Konstanten
Pfeil 2.1.6 Enumerationen
Pfeil 2.2 Operatoren
Pfeil 2.2.1 Rechenoperatoren
Pfeil 2.2.2 Vergleichsoperatoren
Pfeil 2.2.3 Logische Operatoren
Pfeil 2.2.4 Verkettungsoperator
Pfeil 2.2.5 Zuweisungsoperatoren
Pfeil 2.2.6 Rangfolge der Operatoren
Pfeil 2.3 Einfache Steuerelemente
Pfeil 2.3.1 Panel
Pfeil 2.3.2 Zeitgeber
Pfeil 2.3.3 Textfelder
Pfeil 2.3.4 Zahlenauswahlfeld
Pfeil 2.4 Verzweigungen
Pfeil 2.4.1 Einzeiliges If...Then...Else
Pfeil 2.4.2 If...Then...Else-Block
Pfeil 2.4.3 Select Case
Pfeil 2.4.4 Funktion IIf
Pfeil 2.4.5 Funktion Choose
Pfeil 2.4.6 Übungen
Pfeil 2.5 Verzweigungen und Steuerelemente
Pfeil 2.5.1 Kontrollkästchen
Pfeil 2.5.2 Optionsschaltfläche
Pfeil 2.5.3 Mehrere Ereignisse in einer Prozedur behandeln
Pfeil 2.5.4 Mehrere Gruppen von Optionsschaltflächen
Pfeil 2.5.5 Prozedur ohne Ereignis, Modularisierung
Pfeil 2.6 Schleifen
Pfeil 2.6.1 For ... Next
Pfeil 2.6.2 Do ... Loop
Pfeil 2.6.3 With
Pfeil 2.6.4 Übungen
Pfeil 2.7 Schleifen und Steuerelemente
Pfeil 2.7.1 Listenfeld
Pfeil 2.7.2 Listenfeld füllen
Pfeil 2.7.3 Wichtige Eigenschaften
Pfeil 2.7.4 Wechsel der Auswahl
Pfeil 2.7.5 Wichtige Methoden
Pfeil 2.7.6 Mehrfachauswahl
Pfeil 2.7.7 Kombinationsfelder

Rheinwerk Computing - Zum Seitenanfang

2.4 VerzweigungenZur nächsten Überschrift

Der Programmcode wurde bisher rein sequentiell abgearbeitet, d. h. eine Anweisung nach der anderen. Kontrollstrukturen ermöglichen eine Steuerung dieser Reihenfolge. Die Kontrollstrukturen unterteilen sich in Verzweigungen und Schleifen. Verzweigungen gestatten dem Programm, in verschiedene alternative Anweisungsblöcke zu verzweigen.

Es gibt die beiden Verzweigungsstrukturen If...Then...Else und Select Case.... Diese Auswahlmöglichkeiten übergeben u. a. aufgrund von Bedingungen, die Programmausführung an einen bestimmten Anweisungsblock. Bedingungen erstellen Sie mithilfe der bereits vorgestellten Vergleichsoperatoren.

Seltener genutzt werden außerdem noch die Auswahlfunktionen IIf() und Choose().


Rheinwerk Computing - Zum Seitenanfang

2.4.1 Einzeiliges If...Then...ElseZur nächsten ÜberschriftZur vorigen Überschrift

Das einzeilige If...Then...Else hat folgenden Aufbau:

If Bedingung Then Anweisungen1 [ Else Anweisungen2 ]

Die Bedingung wird ausgewertet, sie ist entweder wahr oder falsch (True oder False). Ist das Ergebnis der Auswertung True, so wird der Then-Teil mit den Anweisungen1 ausgeführt. Ist das Ergebnis der Auswertung False und gibt es einen Else-Teil, so wird der Else-Teil mit den Anweisungen2 ausgeführt.

Dabei kann es sich sowohl um eine einzelne Anweisung als auch um mehrere Anweisungen handeln, die dann durch einen Doppelpunkt (:) voneinander getrennt sind. In jedem Fall muss der gesamte Block in einer Zeile untergebracht werden. If-Strukturen können auch ineinander verschachtelt werden.

Im nachfolgenden Programm im Projekt EinzeiligesIf wird das einzeilige If in vier verschiedenen Beispielen genutzt. Beachten Sie dabei, dass die einzelnen Anweisungen zu lang für den Druck in diesem Buch sind und daher auf mehrere Zeilen verteilt wurden, teilweise auch mithilfe des Zeichens _ (Unterstrich). Es handelt sich aber in jedem Fall um einzeilige If-Verzweigungen.

Public Class Form1
Private Sub cmdAnzeige_Click(...) Handles ...
Dim x As Integer
x = –1
If x < 0 Then lblAnz1.Text = "Negativ"
End Sub

Private Sub cmdAnzeige2_Click(...) Handles ...
Dim x As Integer
x = –1
If x > 0 Then lblAnz2.Text =
"Positiv" Else lblAnz2.Text =
"Negativ oder Null"
End Sub

Private Sub cmdAnzeige3_Click(...) Handles ...
Dim x As Integer
x = –1
If x > 0 Then lblAnz3.Text =
"Positiv" Else If x = 0 Then _
lblAnz3.Text =
"Null" Else lblAnz3.Text = "Negativ"
End Sub

Private Sub cmdAnzeige4_Click(...) Handles ...
Dim x As Integer
x = –1
If x > 0 Then x = x + 1 : lblAnz4.Text =
"Positiv " & x Else _
x = x – 1 : lblAnz4.Text =
"Negativ oder Null, x = " & x
End Sub
End Class

Listing 2.12 Projekt »EinzeiligesIf«

Zur Erläuterung:

  • Die Integer-Variable x erhält jeweils den Wert –1. Für die Tests in den einzelnen Beispielen sollten Sie diesen Wert natürlich auch einmal ändern.
  • Beim ersten Beispiel wird nur etwas angezeigt, falls die Variable x negativ ist.
  • Beim zweiten Beispiel wird in jedem Falle etwas angezeigt.
  • Beim dritten Beispiel wird für den Fall, dass die Variable x nicht positiv ist, eine weitere Verzweigung durchlaufen. Man nennt diese Verzweigung auch eine innere Verzweigung, im Gegensatz zu einer äußeren Verzweigung. Ist die Variable x = 0, so wird wegen der inneren Verzweigung Null angezeigt, anderenfalls wird Negativ angezeigt.
  • Beim vierten Beispiel werden für beide möglichen Fälle jeweils zwei Anweisungen durchlaufen, die durch einen : (Doppelpunkt) voneinander getrennt sind.

Rheinwerk Computing - Zum Seitenanfang

2.4.2 If...Then...Else-BlockZur nächsten ÜberschriftZur vorigen Überschrift

Bei einfachen Entscheidungen und einzelnen Anweisungen ist das einzeilige If geeignet. Sobald mehrere Anweisungen auszuführen sind, wird der Programmcode schnell unübersichtlich. Für diese Zwecke ist ein If...Then...Else -Block wesentlich besser geeignet. Der Block hat folgenden Aufbau:

If Bedingung1 Then
Anweisungen1
[ ElseIf Bedingung2
Anweisungen2 ] ...
[ Else
AnweisungenX ]
End If

Das Programm verzweigt zu den Anweisungen hinter der ersten zutreffenden Bedingung. Falls keine Bedingung zutrifft, werden die Anweisungen hinter dem Else ausgeführt, sofern es diesen Else-Zweig gibt. Anderenfalls wird keine Anweisung durchgeführt. Ein If...Then...Else-Block endet immer mit einem End If.

Im nachfolgenden Programm im Projekt BlockIf werden vier verschiedene Fälle geprüft. Trifft keiner dieser Fälle zu, so wird der Else-Zweig ausgeführt:

Public Class Form1
Private Sub cmdAnzeige_Click(...) Handles ...
Dim x, y As Integer
x = 0
y = 0
If x >= 0 And y >= 0 Then
lblAnzeige.Text =
"Beide größer oder gleich Null"
ElseIf x >= 0 And y < 0 Then
lblAnzeige.Text =
"Nur X größer oder gleich Null"
ElseIf x < 0 And y >= 0 Then
lblAnzeige.Text =
"Nur Y größer oder gleich Null"
ElseIf x >= 0 Then
lblAnzeige.Text =
"Wird nie angezeigt"
Else
lblAnzeige.Text =
"Beide kleiner Null"
End If
End Sub
End Class

Listing 2.13 Projekt »BlockIf«


Rheinwerk Computing - Zum Seitenanfang

2.4.3 Select CaseZur nächsten ÜberschriftZur vorigen Überschrift

Eine Verzweigung kann in bestimmten Fällen auch mit Select Case ... gebildet werden. Diese Struktur vereinfacht eine Mehrfachauswahl, wenn nur ein Wert untersucht werden muss, und ist wie folgt aufgebaut:

Select Case Testausdruck
[ Case Ausdrucksliste1
Anweisungen1 ]
[ Case Ausdrucksliste2
Anweisungen2 ] ...
[ Case Else
AnweisungenX ]
End Select

Die Struktur Select Case ... verwendet nur einen Testausdruck, der am Beginn der Struktur ausgewertet wird. Sein Wert wird anschließend der Reihe nach mit den Werten der Ausdruckslisten verglichen. Eine Ausdrucksliste kann aus mehreren Ausdrücken oder einer Bereichsangabe mit dem Schlüsselwort To bestehen. Ein Ausdruck kann aus einem Wert oder einer Bedingung mit dem Schlüsselwort Is bestehen.

Bei der ersten Übereinstimmung wird der zugehörige Anweisungsblock ausgeführt und dann mit der nächsten Anweisung hinter dem End Select fortgefahren.

Der optionale Anweisungsblock hinter dem Case Else wird ausgeführt, falls vorher keine Übereinstimmung gefunden wurde.

Im nachfolgenden Programm im Projekt SelectCase werden ebenfalls vier verschiedene Fälle geprüft. Trifft keiner dieser Fälle zu, wird der Case Else-Zweig ausgeführt:

Public Class Form1
Private Sub cmdAnzeige_Click(...) Handles ...
Dim x As Integer
x = 16
Select Case x
Case 1, 3, 5, 7, 9
lblAnzeige.Text =
"Ungerade, Einstellig"
Case 2, 4, 6, 8
lblAnzeige.Text =
"Gerade, Einstellig"
Case Is < 1, Is > 20
lblAnzeige.Text =
"Kleiner 1 oder größer 20"
Case 11 To 15
lblAnzeige.Text =
"Größer gleich 11 und" &
" kleiner gleich 15"
Case Else
lblAnzeige.Text =
"Größer 15 und kleiner 21"
End Select
End Sub
End Class

Listing 2.14 Projekt »SelectCase«

In diesem Beispiel sind nur die Zahlen größer 15 und kleiner 21 in keiner Ausdrucksliste enthalten. Der entsprechende Text ist also im Case Else-Zweig zu finden.


Rheinwerk Computing - Zum Seitenanfang

2.4.4 Funktion IIfZur nächsten ÜberschriftZur vorigen Überschrift

Die Funktion IIf() ähnelt dem einzeiligen If...Then...Else, liefert allerdings im Unterschied zu diesem direkt einen Wert zurück. Ihre Syntax lautet:

IIf(Bedingung, True-Ausdruck, False-Ausdruck)

Sowohl True-Ausdruck als auch False-Ausdruck müssen angegeben werden. Im nachfolgenden Programm im Projekt FunktionIIf wird das Maximum der beiden Zahlen x und y ermittelt und ausgegeben:

Public Class Form1
Private Sub cmdAnzeige_Click(...) Handles ...
Dim x, y As Integer
x = 5
y = 3
lblAnzeige.Text = IIf(x > y, x, y)
End Sub
End Class

Listing 2.15 Projekt »FunktionIIf«


Rheinwerk Computing - Zum Seitenanfang

2.4.5 Funktion ChooseZur nächsten ÜberschriftZur vorigen Überschrift

Die Funktion Choose() gibt den Wert aus einer Liste zurück, dessen Position dem Indexwert entspricht. Die Positionen in der Liste beginnen allerdings bei 1, nicht bei 0. Die Syntax lautet:

Choose(Index, Ausdruck1, [Ausdruck2] ...)

Im nachfolgenden Programm im Projekt FunktionChoose wird eine Währung aus einer Liste von Währungen ausgewählt und ausgegeben:

Public Class Form1
Private Sub cmdAnzeige_Click(...) Handles ...
Dim x As Integer
x = 2
lblAnzeige.Text =
Choose(x, "US Dollar", "Pfund", "Euro")
End Sub
End Class

Listing 2.16 Projekt »FunktionChoose«

Zur Erläuterung:

  • Der Wert x = 2 führt zur Ausgabe von Pfund.

Rheinwerk Computing - Zum Seitenanfang

2.4.6 ÜbungenZur nächsten ÜberschriftZur vorigen Überschrift

Übung ÜSteuerbetrag

Schreiben Sie ein Programm, das zu einem eingegebenen Gehalt den Steuerbetrag berechnet und ausgibt, siehe Abbildung 2.23. In Tabelle 2.13 sind die Steuersätze angegeben.

Abbildung

Abbildung 2.23 Übung ÜSteuerbetrag

Tabelle 2.13 Übung ÜSteuerbetrag

Gehalt Steuersatz

bis einschl. 12.000 €

12 %

von 12.000 bis einschl. 20.000 €

15 %

von 20.000 bis einschl. 30.000 €

20 %

über 30.000 €

25 %

Übung ÜKranVerzweigung

Erweitern Sie die Übung ÜKran. Die Bewegung des Krans soll kontrolliert werden. Kein Teil des Krans darf zu groß oder zu klein werden. Der Kran darf sich nicht über die sinnvollen Begrenzungen hinaus bewegen. Nutzen Sie Bedingungen und Verzweigungen, um dies zu verhindern.



Ihre Meinung

Wie hat Ihnen das Openbook gefallen? Wir freuen uns immer über Ihre Rückmeldung. Schreiben Sie uns gerne Ihr Feedback als E-Mail an kommunikation@rheinwerk-verlag.de.

<< zurück
  Zum Rheinwerk-Shop
Zum Rheinwerk-Shop: Einstieg in Visual Basic 2012

Einstieg in Visual Basic 2012
Jetzt Buch bestellen


 Ihre Meinung?
Wie hat Ihnen das Openbook gefallen?
Ihre Meinung

 Buchempfehlungen
Zum Rheinwerk-Shop: Visual Basic 2012






 Visual Basic 2012


Zum Rheinwerk-Shop: Schrödinger programmiert C++






 Schrödinger
 programmiert C++


Zum Rheinwerk-Shop: IT-Handbuch für Fachinformatiker






 IT-Handbuch für
 Fachinformatiker


Zum Rheinwerk-Shop: Java ist auch eine Insel






 Java ist auch
 eine Insel


Zum Rheinwerk-Shop: Einstieg in Python






 Einstieg in Python


 Lieferung
Versandkostenfrei bestellen in Deutschland, Österreich und der Schweiz
InfoInfo





Copyright © Rheinwerk Verlag GmbH 2013
Für Ihren privaten Gebrauch dürfen Sie die Online-Version natürlich ausdrucken. Ansonsten unterliegt das Openbook denselben Bestimmungen, wie die gebundene Ausgabe: Das Werk einschließlich aller seiner Teile ist urheberrechtlich geschützt.
Alle Rechte vorbehalten einschließlich der Vervielfältigung, Übersetzung, Mikroverfilmung sowie Einspeicherung und Verarbeitung in elektronischen Systemen.


Nutzungsbestimmungen | Datenschutz | Impressum

Rheinwerk Verlag GmbH, Rheinwerkallee 4, 53227 Bonn, Tel.: 0228.42150.0, Fax 0228.42150.77, service@rheinwerk-verlag.de

Cookie-Einstellungen ändern