[Tut]VB 2008 Wecker erstellen

07/10/2010 07:28 Jay Niize#1
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 :

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

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)

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 
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
07/11/2010 09:26 antihackers#2
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
07/11/2010 14:46 Jay Niize#3
nein, das habe ich extra weggelassen, da bei mir die End if Anweisung automatisch erscheint :o
07/11/2010 17:00 antihackers#4
ja ok aber wenn man dne code zb reinkopiert kommt das nicht und ich schätze das das viele eifnach nur kopieren