WinFuture-Forum.de: Visual Basic Problem - WinFuture-Forum.de

Zum Inhalt wechseln

Nachrichten zum Thema: Entwicklung
Seite 1 von 1

Visual Basic Problem


#1 _FloKo_

  • Gruppe: Gäste

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
0

Anzeige



#2 Mitglied ist offline   sibbl 

  • Gruppe: aktive Mitglieder
  • Beiträge: 377
  • Beigetreten: 30. Dezember 06
  • Reputation: 3
  • Wohnort:localhost

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*

Dieser Beitrag wurde von sibbl bearbeitet: 15. Dezember 2007 - 17:27

0

#3 Mitglied ist offline   Nighthawk 

  • Gruppe: aktive Mitglieder
  • Beiträge: 73
  • Beigetreten: 28. Dezember 03
  • Reputation: 0
  • Wohnort:CH

geschrieben 18. Dezember 2007 - 15:58

1.

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

0

#4 _FloKo_

  • Gruppe: Gäste

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?
0

#5 Mitglied ist offline   bLaCkRaBbIt 

  • Gruppe: aktive Mitglieder
  • Beiträge: 1.396
  • Beigetreten: 08. November 04
  • Reputation: 2
  • Geschlecht:Männlich
  • Wohnort:Karlsbad

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

0

Thema verteilen:


Seite 1 von 1

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0