none
Rechnen mit der Zeit RRS feed

 > 

  • Frage

  • Question
    Anmelden
    0
    Anmelden
    Hallo,
    mir läuft im wahrsten Sinne des Wortes die Zeit davon.

    Ich möchte ein Erinnerungsfunktion machen. Wenn ich also das Formular starte, wird die aktuelle Uhrzeit ermittelt. Für meinen Test habe ich 45 Minuaten als feste Größe eingegenen z.B. eine Schulstunde.

    Nach diesen 45 Minuten soll eine MessageBox mich erinnern.
    Das mit der aktuellen Uhrzeit habe ich hinbekommen.
    Die Addition der Zeitspanne X (hier 45 Minuten) auch.
    Die Ausgabe an den Button 4, der Stratzeit  + Zeitspanne ausgeben soll funktioniert auch, allerdings mit einem Problem, genauso wie sich die aktuelle Uhrezit ändert, änder sich dieser Wert auch.
    Eigentlich wollte ich aber meinen Alarm daran festmachen, dass irgendwann der Inhalt von Button2 = Inhalt Button4 ist. Da komme ich so aber nicht hin.
    Die Abfrage habe ich nch gar nicht im Code drin. 
    Try
            Timer1.Interval = 1000
            Timer1.Enabled = True

            Button2.Text = TimeOfDay

            Dim TestStunden As Integer = 0
            Dim TestMinuten As Integer = 45
            Dim TestSekunden As Integer = 0

            Dim Alarm As New TimeSpan(TestStunden, TestMinuten, TestSekunden)
            Button3.Text = Alarm.ToString

            Dim restart As String = TimeOfDay.AddMinutes(TestMinuten)
            Button4.Text = restart

        Catch ex As Exception
            'MsgBox("Fehler " & ex.Message)
        End Try


    Ich weiß, dass es nur falsch sein kann, wenn ich TimeOfDay.Add(TestMinutes) schreibe weil sich TimeOfDay nun mal ändert.
    Mein Problem ist es also TimeOfDay zu ermitteln und dann unveränderlich als Variable zu definieren.
    Wie geht das?
    D
    Liebe Grüße Stefan
    Sonntag, 2. August 2009 16:38
    |

Antworten

  • Question
    Anmelden
    0
    Anmelden
    Hallo,

    habs selber hinbekommen und schreibe die Antwort mal auf, falls jemand anders ein ähnliches Problem hat.
    Try
            Timer1.Interval = 1000
            Timer1.Enabled = True

            Button2.Text = TimeOfDay


            Dim TestStunden As Integer = 0
            Dim TestMinuten As Integer = 1
            Dim TestSekunden As Integer = 0

            Dim Alarm As New TimeSpan(TestStunden, TestMinuten, TestSekunden)
            Button3.Text = Alarm.ToString

            Static restart As String = TimeOfDay.AddMinutes(TestMinuten)
            Button4.Text = restart

            If Button2.Text = Button4.Text Then
                MsgBox("Alarm")
            End If

        Catch ex As Exception
            'MsgBox("Fehler " & ex.Message)
        End Try
    Liebe Grüße Stefan
    Sonntag, 2. August 2009 16:49
    |