[Tut]VB 2008 Wecker erstellen

[Jay Niize]

Hallo Elitepvpers! Heute zeige ich euch, wie ihr einen Wecker erstellt. Gleichzeitig, könnt ihr euch nicht nur wach machen lassen, sondern auch als Timer benutzen, das wenn ihr z.B euch um 15:00 mit einem Freund trefft, dann kann man einstellen, dass er eine Warnung abgibt. Let's Goo!

Zuerst einmal startet ihr Visual Basic 2008 Express Edition und macht eine neue Windows Forms anwendung, die Ihr Wecker nennt.

Nun fügt ihr 2 Timer, 1 Textbox Steuerelement und ein Label hinzu. Das Label nennt ihr bei Text mal Time. SO kann es Aussehen :

 Spoiler

Dann macht ihr einen Doppelklick auf die Form, sodass ihr in den Code-Editor kommt. Dort gebt ihr nun Timer1.start() ein.

 Spoiler

Das bedeuted, dass wenn die Form Startet,das der Timer gleich eingeschaltet wird! Wir gehen nun zurück zur Form, und wieder mit Doppelklick auf den Timer1. Dort tragen wir folgendes ein : Label1.text = Format(TimeOfDay)

 Spoiler

Das Label1.text = bedeuted, dass Der text von Label1 das nachfolgende von dem Gleichzeichen wird. Format(TimeOfDay) bedeuted, dass das Format des Textes Die Time of Day(Zeit vom Tag ; Uhrzeit). Im großen und ganzen bedeuted, das der Text von Label1 die Uhrzeit sein soll.

Nun gehen wir wieder zurück zur Form, und klicken einmal auf den Timer2.Rechts bei den Eigenschaften, seht ihr Interval, was den Wert 100 hat. Wir ändern diesen in 1 Sekunde, also 1000.Wir machen wieder ein Doppelklick auf die Form und geben unter Timer1.start, Timer2.Start() ein. Nun startet der zweite Timer! Und nun wieder zurück zur Form und klicken doppelt auf den zweiten Timer, und geben folgendes ein :

PHP Code:

If TextBox1.Text = Label1.Text Then
MsgBox("Aufstehen! Steh auf man^^")
Else 


 Spoiler

Wörtlich übersetzt heisst das : Wenn die Textbox den Text des Labels hat, dann kommt ein Dialogfeld mit dem Inhalt "Aufstehen! Steh auf man^^", ansonsten passiert nichts.

Credits
Geschrieben von Jusikid

Danke an Daron, für die Bilder

MFG

[antihackers]

Thx sowas kann ich gebrauchen ^^

#edit
sry habn fehler entdeckt
bei der if anweisung fehlt das end if
schätze mal das Else sollte End if sein oder ElseIf ka
Schätze ma End If
kann ja ma passieren xD

[Jay Niize]

nein, das habe ich extra weggelassen, da bei mir die End if Anweisung automatisch erscheint

[antihackers]

ja ok aber wenn man dne code zb reinkopiert kommt das nicht und ich schätze das das viele eifnach nur kopieren