[VB.NET] Kleines Erinnerungsprogramm

[.Coding]

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)

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

[n00byplay]

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

[Anfang!]

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?