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 Neues in Visual Basic 2008
12 Beispielprojekte
A Installation
B Lösungen der Übungsaufgaben
Stichwort

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

Spacer
 <<   zurück
Einstieg in Visual Basic 2008 von Thomas Theis
Inkl. zahlreicher Beispiele und Uebungen
Buch: Einstieg in Visual Basic 2008

Einstieg in Visual Basic 2008
geb., mit DVD
442 S., 24,90 Euro
Galileo Computing
ISBN 978-3-8362-1192-5
Online bestellenJetzt online bestellen
* versandkostenfrei in (D) und (A)
Pfeil B Lösungen der Übungsaufgaben
  Pfeil B.1 Lösungen der Übungsaufgaben aus Kapitel 1
    Pfeil B.1.1 Lösung p0102
  Pfeil B.2 Lösungen der Übungsaufgaben aus Kapitel 2
    Pfeil B.2.1 Lösung p0202
    Pfeil B.2.2 Lösung p0205
    Pfeil B.2.3 Lösung p0206
    Pfeil B.2.4 Lösung p0207
    Pfeil B.2.5 Lösung p0208
    Pfeil B.2.6 Lösung p0210
    Pfeil B.2.7 Lösung p0213
    Pfeil B.2.8 Lösung p0214
    Pfeil B.2.9 Lösung p0222, zwei Alternativen
    Pfeil B.2.10 Lösung p0223
    Pfeil B.2.11 Lösung p0228
    Pfeil B.2.12 Lösung p0232
    Pfeil B.2.13 Lösung p0233
    Pfeil B.2.14 Lösung p0234
    Pfeil B.2.15 Lösung p0235
    Pfeil B.2.16 Lösung p0236
    Pfeil B.2.17 Lösung p0243
  Pfeil B.3 Lösungen der Übungsaufgaben aus Kapitel 4
    Pfeil B.3.1 Lösung p0403
    Pfeil B.3.2 Lösung p0411
    Pfeil B.3.3 Lösung p0412
    Pfeil B.3.4 Lösung p0425
    Pfeil B.3.5 Lösung p0426
  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 p0403  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0403 
   Private Sub frm0403_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 ... 
      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 p0411  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0411 
   Private Sub frm0411_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 & vbCrLf 
      lblA.Text &= "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 p0412  Zur nächsten ÜberschriftZur vorigen Überschrift

Public Class frm0412 
   Private Sub frm0412_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 T.GetUpperBound(0) 
         For j = 0 To T.GetUpperBound(1) 
            lblFeld.Text &= "( " 
            For k = 0 To T.GetUpperBound(2) 
               T(i, j, k) = Rnd() * 10 + 20 
               lblFeld.Text &= T(i, j, k) & " " 
            Next 
            lblFeld.Text &= ") " 
         Next 
         lblFeld.Text &= vbCrLf 
      Next 
 
      MinWert = T(0, 0, 0) 
      For i = 0 To T.GetUpperBound(0) 
         For j = 0 To T.GetUpperBound(1) 
            For k = 0 To T.GetUpperBound(2) 
               If T(i, j, k) < MinWert Then 
                  MinWert = T(i, j, k) 
               End If 
            Next 
         Next 
      Next 
 
      lblA.Text = "Minimum: " & MinWert & vbCrLf 
      lblA.Text &= "an Position:" & vbCrLf 
      For i = 0 To T.GetUpperBound(0) 
         For j = 0 To T.GetUpperBound(1) 
            For k = 0 To T.GetUpperBound(2) 
               If T(i, j, k) = MinWert Then 
                  lblA.Text &= _ 
                     i & ", " & j & ", " & k & vbCrLf 
               End If 
            Next 
         Next 
      Next 
   End Sub 
End Class

Galileo Computing - Zum Seitenanfang

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

Public Class frm0425 
   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 p0426  topZur vorigen Überschrift

Public Class frm0426 
   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 2008






Einstieg in Visual Basic 2008
bestellen
 Ihre Meinung?
Wie hat Ihnen das <openbook> gefallen?
Ihre Meinung

 Buchtipps
Zum Katalog: Visual Basic 2008






 Visual Basic 2008


Zum Katalog: Einstieg in Visual C++ 2008






 Einstieg in
 Visual C++ 2008


Zum Katalog: Einstieg in Visual C# 2008






 Einstieg in
 Visual C# 2008


Zum Katalog: Visual C# 2008






 Visual C# 2008


Zum Katalog: Visual C# - Video-Training






 Visual C# -
 Video-Training


Zum Katalog: Einstieg in PHP 5 und MySQL 5






 Einstieg in PHP 5
 und MySQL 5


 Shopping
Versandkostenfrei bestellen in Deutschland und Österreich
InfoInfo





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