[VB.NET] Kleines Erinnerungsprogramm

01/25/2011 13:34 .Coding#1

Tag,
wers braucht o�.
Ihr braucht:
1 Timer [Intervall 1000]
1 Label (nichts drauf, dort wird die Uhrzeit stehen)
1 Textbox (Dort kommt die gewollte Uhrzeit, bspw: 19:00:00 - geht aber nur bei mit am Ende 00 die Sekunden, weil jede Sekunde aktualisiet wird)

Code:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'label1 hat die aktuelle Uhrzeit        
Label1.Text = TimeOfDay
'Timer1 wird gestartet
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       'jede Sekunde die aktualisiert wird (Intervall ist ja 1000) wird die Uhrzeit aktualisiert
 Label1.Text = TimeOfDay
'wenn textbox1.text und label1.text gleich sind (label1 hat Uhrzeit, textbox1 wann erinnert werden soll, dann kommt ne Message (MsgBox) )      
  If Label1.Text = TextBox1.Text Then
            MsgBox("Erinnerung..")
        End If
    End Sub
End Class

Also, einfach in der Textbox1 die Uhrzeit eingeben wann erinnert werden soll (bsp: 13:37:00)

MfG

01/26/2011 18:49 n00byplay#2

Wenn du schon schreibst, dass es sich um ein Tutorial f�r VB.NET handelt, dann benutz auch die zugeh�rigen Klassen und nicht die alte VB-Laufzeitbibliothek.
DateTime w�re f�r den Abruf der Uhrzeit die bessere Alternative. Diese .NET-Klasse bietet auch Konvertierungsfunktionen in Strings und von Strings in eine Zeit. In diesem Fall ist auch der Vergleich mit Hilfe von Strings unsch�n gel�st, dem Benutzer wird keine Wahl �ber das Format der Zeit gelassen, und er muss Sekunden angeben (auch wenn's nur 00 ist).
Auch wenn's einfach nur ein kleines Tool ist, sollte die M�glichkeit die Erinnerung ein- und ausschalten gegeben werden.

Hier ist meine L�sung dazu (die nat�rlich auch noch verbessert werden k�nnte):

Spoiler

PHP Code:


			

Option Explicit On

Public Class Form1

    Private erinnerungsDatum As System.DateTime
    Private erinnern As System.Boolean = False

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        REM Dem Label zu Beginn eine Zeit zuweisen
        lblZeit.Text = DateTime.Now.ToString("HH:mm:ss")
    End Sub


    Private Sub btnStatusAendern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStatusAendern.Click
        If Not erinnern Then
            REM Text in ein DateTime-Objekt umwandeln
            REM Wenn dieser das falsche Format hat, den Benutzer darauf hinweisen
            If Not DateTime.TryParse(txtErinnerung.Text, erinnerungsDatum) Then
                MessageBox.Show("Das Format der Urzeit ist falsch", "Fehler")
                Exit Sub
            End If

            btnStatusAendern.Text = "Alarm ausschalten"
            txtErinnerung.Enabled = False

            erinnern = True
        Else
            btnStatusAendern.Text = "Alarm anschalten"
            txtErinnerung.Enabled = True
            erinnern = False
        End If
    End Sub

    Private Sub tmrUpdate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrUpdate.Tick
        REM Zeit erneuern
        lblZeit.Text = DateTime.Now.ToString("HH:mm:ss")

        REM Nur wenn Erinnerungen an
        If erinnern Then
            If DateTime.Now >= erinnerungsDatum Then
                btnStatusAendern.Text = "Alarm anschalten"
                txtErinnerung.Enabled = True
                erinnern = False
                MessageBox.Show("Die Erinnerung", "Erinnerungsprogramm")
            End If
        End If
    End Sub
End Class

Ich finde du solltest Dir bei deinem n�chsten Tutorial mehr M�he geben und da es sich eher um ein Anf�nger-Tutorial handelt, die Bedienung von Visual Studio und das Hinzuf�gen der einzelnen Komponenten n�her beschreiben, und nicht einfach den Code posten.

MfG,
n00byplay

01/26/2011 19:16 Anfang!#3

Das ist doch kein Tutorial..
Eventuell k�nnte man das als Code Snippet, aber sicher nicht als Tutorial bezeichnen.

1. Du erkl�rst nichts.
2. Welchen Lerneffekt soll das f�r Einsteiger haben?