Jaja die gute alte Schulzeit, lang ist es her und dennoch kommt es einen manchmal so vor als würde die Zeit, die man damals in der Schule verbracht hat reichen fürs Leben *lach*.
Spaß beiseite, im Augenblick hab ich bei der GPB-Berlin, dass Modul Visual Basic 2010 und muss sagen das hat es mir irgendwie angetan..
Freue mich auch sehr auf Woche Zwei :P und nein ich möchte immer noch kein FIAN werden *lach*.
Programmieren macht mir zwar sehr viel Spaß, aber den ganzen Tag hätte ich auch keine Lust darauf.
Jedenfalls hier ein Beispiel Quellcode aus ner Übung die ich Zuhause mache :).
#Texteinbindung in VB
Dim Aus() As String
Aus = System.IO.File.ReadAllLines("aus.txt")
#Eine Select Case Anwendung
Select Case CheckAus
Case chkAus.Checked = False
txtAus.Text = Aus((Rnd() * UBound(Aus)) + LBound(Aus))
If txtAus.Text = "-" Then
txtZustandAus.Text = "-"
txtAnz3.Text = "-"
Else
txtZustandAus.Text = Zustand((Rnd() * UBound(Zustand)) + LBound(Zustand))
txtAnz3.Text = AnzahlAus((Rnd() * UBound(AnzahlAus)) + LBound(AnzahlAus))
End If
End select
#Auffangen von Fehlern
Try
Catch ex As InvalidCastException
MessageBox.Show("Fehler: Bitte Tragen sie den richtigen Wert ein!" & ex.Message)
End Try
Gruß
René
Keine Kommentare:
Kommentar veröffentlichen