Seite 1 von 1
Visual Basic Problem
#1 _FloKo_
geschrieben 15. Dezember 2007 - 16:20
Hallo, ich habe als Anfänger in Visual Basic ein Programm erstellt, mit dem Ich immer am Vortag sehe welche Fächer ich am nächsten Tag habe. Der Code sieht so aus, es gibt jedoch ein Fehler wenn ich es starten will, was ist falsch?
Select Case Day(Date)
Case Else
MsgBox "1.Stunde: Englisch, 2.Stunde: Deutsch, 3.Stunde: Französisch, 4.Stunde: Sozialkunde, 5.Stunde: Rechnungswesen, 6.Stunde: Wirtschaft", 64, Date
Case Monday
MsgBox "1.Stunde: Frei!!!, 2.Stunde: Rechnungswesen, 3.Stunde: Wirtschaft, 4.Stunde: Geschichte, 5.Stunde: Mathe, 6.Stunde: Kunst", 64, Date
Case Tuesday
MsgBox "1.Stunde: Wirtschaft, 2.Stunde: Französisch, 3.Stunde: Deutsch, 4.Stunde: Reli, 5.Stunde: Physik, 6. und 7.Stunde: Frei!!!, 8.und 9.Stunde: Sport", 64, Date
Case Wednesday
MsgBox "1.Stunde: Wirtschaft, 2.Stunde: Mathe, 3.Stunde: Reli, 4.Stunde: Bio, 5.Stunde: Englisch, 6.Stunde: Französisch", 64, Date
Case Thursday
MsgBox "1.Stunde: Physik, 2.Stunde: Bio, 3.Stunde: Englisch, 4.Stunde: Mathe, 5.Stunde: Geschichte, 6.Stunde: Deutsch", 64, Date
End Select
End Sub
Select Case Day(Date)
Case Else
MsgBox "1.Stunde: Englisch, 2.Stunde: Deutsch, 3.Stunde: Französisch, 4.Stunde: Sozialkunde, 5.Stunde: Rechnungswesen, 6.Stunde: Wirtschaft", 64, Date
Case Monday
MsgBox "1.Stunde: Frei!!!, 2.Stunde: Rechnungswesen, 3.Stunde: Wirtschaft, 4.Stunde: Geschichte, 5.Stunde: Mathe, 6.Stunde: Kunst", 64, Date
Case Tuesday
MsgBox "1.Stunde: Wirtschaft, 2.Stunde: Französisch, 3.Stunde: Deutsch, 4.Stunde: Reli, 5.Stunde: Physik, 6. und 7.Stunde: Frei!!!, 8.und 9.Stunde: Sport", 64, Date
Case Wednesday
MsgBox "1.Stunde: Wirtschaft, 2.Stunde: Mathe, 3.Stunde: Reli, 4.Stunde: Bio, 5.Stunde: Englisch, 6.Stunde: Französisch", 64, Date
Case Thursday
MsgBox "1.Stunde: Physik, 2.Stunde: Bio, 3.Stunde: Englisch, 4.Stunde: Mathe, 5.Stunde: Geschichte, 6.Stunde: Deutsch", 64, Date
End Select
End Sub
Anzeige
#2
geschrieben 15. Dezember 2007 - 17:26
man hast du nen geilen stundenplan ^^
was fürn fehler kommt denn genau? (grad kein vb zur hand)
1. heißt es nicht case default?
2. muss case else/default nicht am ende stehen?
3. gibt es bei vb nicht auch solche break-anweisungen? such mal in der msdn/bei google nach ein paar beispielen der richtigen verwendung oder nimm if-then-else-anweisungen. die sind einfacher *gg*
was fürn fehler kommt denn genau? (grad kein vb zur hand)
1. heißt es nicht case default?
2. muss case else/default nicht am ende stehen?
3. gibt es bei vb nicht auch solche break-anweisungen? such mal in der msdn/bei google nach ein paar beispielen der richtigen verwendung oder nimm if-then-else-anweisungen. die sind einfacher *gg*
Dieser Beitrag wurde von sibbl bearbeitet: 15. Dezember 2007 - 17:27
#3
geschrieben 18. Dezember 2007 - 15:58
1.
Du benutzt also schon mal die falsche Funktion, wenn du den Wochentag haben willst.
2.
Monday, Tuesday,... was soll das sein? Hast du das irgendwo definiert?
3.
Case Else musst du am Schluss hinsetzen, weil die anderen Cases sonst gar nie ausgewertet werden.
Zitat
Die Day-Funktion gibt den Tag des Monats als ganze Zahl (1 bis 31) aus einem angegebenen Datum zurück.
Du benutzt also schon mal die falsche Funktion, wenn du den Wochentag haben willst.
2.
Monday, Tuesday,... was soll das sein? Hast du das irgendwo definiert?
3.
Case Else musst du am Schluss hinsetzen, weil die anderen Cases sonst gar nie ausgewertet werden.
Dieser Beitrag wurde von Nighthawk bearbeitet: 18. Dezember 2007 - 15:59
#4 _FloKo_
geschrieben 18. Dezember 2007 - 17:51
tut mir leid ich bin anfänger, ich weiß weder welche funktion ich benutzen muss noch was ich wo definieren muss. könntest du mal den richtigen code posten?
#5
geschrieben 20. Dezember 2007 - 13:30
Select Case Weekday(Date.Now().AddDays(1))
Case FirstDayOfWeek.Monday
MessageBox.Show("morgen ist Montag")
Case FirstDayOfWeek.Tuesday
MessageBox.Show("morgen ist Dienstag")
Case FirstDayOfWeek.Wednesday
MessageBox.Show("morgen ist Mittwoch")
Case FirstDayOfWeek.Thursday
MessageBox.Show("morgen ist Donnerstag")
Case FirstDayOfWeek.Friday
MessageBox.Show("morgen ist Freitag")
Case Else
MessageBox.Show("Partytime")
End Select
by the way: microsoft bietet grad 2 ebooks kostenlos zum thema visual basic an
Microsoft Visual Basic 2005 - Das Entwicklerbuch und
Microsoft Visual Basic 2005 - Das Entwicklerbuch 2
falls du sie nicht finden solltest, pm schicken. ich hab sie mir runtergeladen. und ich weiß nicht, ob du schon vs 2008 installiert hast, aber wenn nicht, dann mach das mal. express version ist ja kostenlos und ich finde für einsteiger ist es noch ein wenig freundlicher geworden!
Dieser Beitrag wurde von bLaCkRaBbIt bearbeitet: 20. Dezember 2007 - 13:46
Thema verteilen:
Seite 1 von 1

Hilfe
Neues Thema
Antworten
Nach oben



