Galileo Computing < openbook > Galileo 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
A Installation und technische Hinweise
B Lösungen der Übungsaufgaben
Stichwort

Download:
- ZIP, ca. 7,8 MB
Buch bestellen
Ihre Meinung?

Spacer
<< zurück
Einstieg in Visual Basic 2010 von Thomas Theis
Inkl. Visual Studio Express Editions
Buch: Einstieg in Visual Basic 2010

Einstieg in Visual Basic 2010
2., akt. und erw. Aufl., Klappbroschur, mit DVD
467 S., 24,90 Euro
Galileo Computing
ISBN 978-3-8362-1541-1
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


Galileo Computing - Zum Seitenanfang

2.4 Verzweigungen Zur nächsten ÜberschriftZur vorigen Ü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().


Galileo Computing - Zum Seitenanfang

2.4.1 Einzeiliges If…Then…Else Zur nächsten ÜberschriftZur vorigen Überschrift

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

If Bedingung Then Anweisungen1 [ Else Anweisungen2 ]

If…Then…Else

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.

Unterstrich

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.

Galileo Computing - Zum Seitenanfang

2.4.2 If…Then…Else-Block Zur nächsten ÜberschriftZur vorigen Überschrift

Mehrzeilig, Block

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 As Integer
        Dim 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«


Galileo Computing - Zum Seitenanfang

2.4.3 Select Case Zur nächsten ÜberschriftZur vorigen Überschrift

Mehrfachauswahl

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

To, Is

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.

End Select

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

Case Else

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.


Galileo Computing - Zum Seitenanfang

2.4.4 Funktion IIf Zur nächsten ÜberschriftZur vorigen Überschrift

Liefert Wert

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 As Integer
        Dim y As Integer
        x = 5
        y = 3
        lblAnzeige.Text = IIf(x > y, x, y)
    End Sub
End Class

Listing 2.15 Projekt »FunktionIIf«


Galileo Computing - Zum Seitenanfang

2.4.5 Funktion Choose Zur nächsten ÜberschriftZur vorigen Überschrift

Wert aus Liste

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.

Galileo Computing - Zum Seitenanfang

2.4.6 Übungen topZur vorigen Überschrift

Übung ÜSteuerbetrag

Übung ÜSteuerbetrag

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


Tabelle 2.14 Ü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 %


Abbildung 2.23 Übung ÜSteuerbetrag

Übung ÜKranVerzweigung

Ü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.



Ihr Kommentar

Wie hat Ihnen das <openbook> gefallen? Wir freuen uns immer über Ihre freundlichen und kritischen Rückmeldungen.






<< zurück
  Zum Katalog
Zum Katalog: Einstieg in Visual Basic 2010

Einstieg in Visual Basic 2010
Jetzt bestellen


 Ihre Meinung?
Wie hat Ihnen das <openbook> gefallen?
Ihre Meinung

 Buchempfehlungen
Zum Katalog: Visual Basic 2010






 Visual Basic 2010


Zum Katalog: Windows Presentation Foundation






 Windows Presentation
 Foundation


Zum Katalog: Silverlight 4






 Silverlight 4


Zum Katalog: Einstieg in Visual C# 2010






 Einstieg in
 Visual C# 2010


Zum Katalog: Visual C# 2010






 Visual C# 2010


Zum Katalog: Einstieg in PHP 5.3 und MySQL 5.4






 Einstieg in PHP 5.3
 und MySQL 5.4


Zum Katalog: PHP 5.3 und MySQL 5.4






 PHP 5.3 und
 MySQL 5.4


 Shopping
Versandkostenfrei bestellen in Deutschland und Österreich
InfoInfo




Copyright © Galileo Press 2010
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.


[Galileo Computing]

Galileo Press, Rheinwerkallee 4, 53227 Bonn, Tel.: 0228.42150.0, Fax 0228.42150.77, info@galileo-press.de