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 B Lösungen der Übungsaufgaben
Pfeil B.1 Lösung der Übungsaufgabe aus Kapitel 1
Pfeil B.1.1 Lösung ÜName
Pfeil B.2 Lösungen der Übungsaufgaben aus Kapitel 2
Pfeil B.2.1 Lösung ÜDatentypen
Pfeil B.2.2 Lösung ÜGültigkeitsbereich
Pfeil B.2.3 Lösung ÜRechenoperatoren
Pfeil B.2.4 Lösung ÜVergleichsoperatoren
Pfeil B.2.5 Lösung ÜLogischeOperatoren
Pfeil B.2.6 Lösung ÜOperatoren
Pfeil B.2.7 Lösung ÜPanelZeitgeber
Pfeil B.2.8 Lösung ÜKran
Pfeil B.2.9 Lösung ÜSteuerbetrag, zwei Alternativen
Pfeil B.2.10 Lösung ÜKranVerzweigung
Pfeil B.2.11 Lösung ÜKranOptionen
Pfeil B.2.12 Lösung ÜForNext1
Pfeil B.2.13 Lösung ÜForNext2
Pfeil B.2.14 Lösung ÜDoLoop
Pfeil B.2.15 Lösung ÜZahlenraten
Pfeil B.2.16 Lösung ÜSteuertabelle
Pfeil B.2.17 Lösung ÜListenfeld
Pfeil B.3 Lösungen der Übungsaufgaben aus Kapitel 4
Pfeil B.3.1 Lösung ÜEnabled
Pfeil B.3.2 Lösung ÜDatenfeldEindimensional
Pfeil B.3.3 Lösung ÜDatenfeldMehrdimensional
Pfeil B.3.4 Lösung ÜProzeduren
Pfeil B.3.5 Lösung ÜFunktionen
Pfeil B.4 Lösungen der Übungsaufgaben aus Kapitel 8
Pfeil B.4.1 Lösung zur Übung Projektverwaltung
Pfeil B.4.2 Lösung zur Übung Mietwagen


Galileo Computing - Zum Seitenanfang

B.3 Lösungen der Übungsaufgaben aus Kapitel 4 Zur nächsten ÜberschriftZur vorigen Überschrift


Galileo Computing - Zum Seitenanfang

B.3.1 Lösung ÜEnabled Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class Form1
    Private Sub Form1_Load(...) Handles MyBase.Load
        lstLand.Items.Add("Liechtenstein")
        lstLand.Items.Add("Malta")
        lstLand.Items.Add("Andorra")
        lstLand.Items.Add("San Marino")
        lstLand.Items.Add("Monaco")
    End Sub

    Private Sub lstLand_SelectedIndexChanged(...
            ) Handles lstLand.SelectedIndexChanged
        If lstLand.SelectedItems.Count > 0 Then
            cmdLöschen.Enabled = True
        Else
            cmdLöschen.Enabled = False
        End If
    End Sub

    Private Sub cmdLöschen_Click(...) Handles ...
        lstLand.Items.RemoveAt(lstLand.SelectedIndex)
    End Sub
End Class

Galileo Computing - Zum Seitenanfang

B.3.2 Lösung ÜDatenfeldEindimensional Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class Form1
    Private Sub Form1_Load(...) Handles MyBase.Load
        Randomize()
    End Sub

    Private Sub cmdMinima_Click(...) Handles ...
        Dim T(9) As Integer
        Dim MinWert As Integer
        Dim i As Integer

        ' Feld füllen
        lstZahl.Items.Clear()
        For i = 0 To 9
            T(i) = Rnd() * 10 + 20
            lstZahl.Items.Add(T(i))
        Next i

        MinWert = T(0)
        For i = 0 To 9
            If T(i) < MinWert Then
                MinWert = T(i)
            End If
        Next i

        lblA.Text = "Minimum: " & MinWert &
            ", an Position:" & vbCrLf
        For i = 0 To 9
            If T(i) = MinWert Then
                lblA.Text &= i & vbCrLf
            End If
        Next i
    End Sub
End Class

Galileo Computing - Zum Seitenanfang

B.3.3 Lösung ÜDatenfeldMehrdimensional Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class Form1
    Private Sub Form1_Load(...) Handles MyBase.Load
        Randomize()
    End Sub

    Private Sub cmdAnzeigen_Click(...) Handles ...
        Dim T(5, 2, 3) As Integer
        Dim i, j, k As Integer
        Dim MinWert As Integer

        lblFeld.Text = ""
        For i = 0 To 5
            For j = 0 To 2
                lblFeld.Text &= "( "
                For k = 0 To 3
                    T(i, j, k) = Rnd() * 10 + 20
                    lblFeld.Text &= T(i, j, k) & " "
                Next k
                lblFeld.Text &= ") "
            Next j
            lblFeld.Text &= vbCrLf
        Next i

        MinWert = T(0, 0, 0)
        For i = 0 To 5
            For j = 0 To 2
                For k = 0 To 3
                    If T(i, j, k) < MinWert Then
                        MinWert = T(i, j, k)
                    End If
                Next k
            Next j
        Next i

        lblA.Text = "Minimum: " & MinWert &
            ", an Position:" & vbCrLf
        For i = 0 To 5
            For j = 0 To 2
                For k = 0 To 3
                    If T(i, j, k) = MinWert Then
                        lblA.Text &= "Zeile " & i &
                            ", Gruppe " & j &
                            ", Element " & k & vbCrLf
                    End If
                Next k
            Next j
        Next i
    End Sub
End Class

Galileo Computing - Zum Seitenanfang

B.3.4 Lösung ÜProzeduren Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class Form1
    Private Sub cmdAnzeigen_Click(...) Handles ...
        Dim x, y As Double
        x = 5.6
        y = 3.0
        mittelwert(x, y)
    End Sub

    Sub mittelwert(ByVal a As Double,
                   ByVal b As Double)
        Dim c As Double
        c = (a + b) / 2
        lblA.Text = c
    End Sub
End Class

Galileo Computing - Zum Seitenanfang

B.3.5 Lösung ÜFunktionen topZur vorigen Überschrift

Public Class Form1
    Private Sub cmdAnzeigen_Click(...) Handles ...
        Dim x, y As Double
        x = 5.6
        y = 3.0
        lblA.Text = mittelwert(x, y)
    End Sub

    Function mittelwert(ByVal a As Double,
                        ByVal b As Double) As Double
        mittelwert = (a + b) / 2
    End Function
End Class


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