timer

Vierkant

Grünschnabel
Hi Bin absoluter neuling daher bitte ich um nachsicht! Google jetzt schon 3 stunden rum und finde einfach nichts vernünftiges, vielleicht könnt ihr mir helfen und zwar:

Ich benutze Visual Basic 2005

ich will das man in eine Textbox1 die startzeit únd in Textbox2 die Minuten (Wie lange der Timer laufen soll) eingiebt. dann soll man auf einen Button klicken und in der Progressbar kann man den verlauf des Timers betrachten.
Das habe ich bereits:
PHP:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim dt As DateTime

        If DateTime.TryParse(TextBox1.Text, dt) And IsNumeric(TextBox2.Text) Then

            TextBox3.Text = dt.AddMinutes(TextBox2.Text).ToString("HH:mm:ss")

        Else
            MsgBox("Zeitformat ungültig!")

        End If
        TextBox100.Text = (+1)
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)

        Timer1.Enabled = True

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged


    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        



    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox100.Text = 0
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim dt As DateTime

        If DateTime.TryParse(TextBox6.Text, dt) And IsNumeric(TextBox5.Text) Then

            TextBox4.Text = dt.AddMinutes(TextBox5.Text).ToString("HH:mm:ss")

        Else
            MsgBox("Zeitformat ungültig!")

        End If
        TextBox101.Text = (+1)
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim dt As DateTime

        If DateTime.TryParse(TextBox9.Text, dt) And IsNumeric(TextBox8.Text) Then

            TextBox7.Text = dt.AddMinutes(TextBox8.Text).ToString("HH:mm:ss")

        Else
            MsgBox("Zeitformat ungültig!")

        End If
        TextBox102.Text = (+1)
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim dt As DateTime

        If DateTime.TryParse(TextBox12.Text, dt) And IsNumeric(TextBox11.Text) Then

            TextBox10.Text = dt.AddMinutes(TextBox11.Text).ToString("HH:mm:ss")

        Else
            MsgBox("Zeitformat ungültig!")

        End If
        TextBox103.Text = (+1)
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Dim dt As DateTime

        If DateTime.TryParse(TextBox15.Text, dt) And IsNumeric(TextBox14.Text) Then

            TextBox13.Text = dt.AddMinutes(TextBox14.Text).ToString("HH:mm:ss")

        Else
            MsgBox("Zeitformat ungültig!")

        End If
        TextBox104.Text = (+1)
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim dt As DateTime

        If DateTime.TryParse(TextBox18.Text, dt) And IsNumeric(TextBox17.Text) Then

            TextBox16.Text = dt.AddMinutes(TextBox17.Text).ToString("HH:mm:ss")

        Else
            MsgBox("Zeitformat ungültig!")

        End If
        TextBox105.Text = (+1)
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Dim dt As DateTime

        If DateTime.TryParse(TextBox21.Text, dt) And IsNumeric(TextBox20.Text) Then

            TextBox19.Text = dt.AddMinutes(TextBox20.Text).ToString("HH:mm:ss")

        Else
            MsgBox("Zeitformat ungültig!")

        End If
        TextBox106.Text = (+1)
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Dim dt As DateTime

        If DateTime.TryParse(TextBox24.Text, dt) And IsNumeric(TextBox23.Text) Then

            TextBox22.Text = dt.AddMinutes(TextBox23.Text).ToString("HH:mm:ss")

        Else
            MsgBox("Zeitformat ungültig!")

        End If
        TextBox107.Text = (+1)
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox101.Text = 0
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox102.Text = 0
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox103.Text = 0
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox104.Text = 0
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        TextBox105.Text = 0
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        TextBox106.Text = 0
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox107.Text = 0
        Dim l, m, n, o, p, q, r, s, t As Int64

        l = TextBox100.Text
        m = TextBox101.Text
        n = TextBox102.Text
        o = TextBox103.Text
        p = TextBox104.Text
        q = TextBox105.Text
        r = TextBox106.Text
        s = TextBox107.Text
        t = l + m + n + o + p + q + r + s
        TextBox25.Text = (t)
    End Sub

    Private Sub TextBox25_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox25.TextChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub
End Class
Bei mir (Der Code den ich bei gefügt habe) soll das unabhängig 8X passieren; Allso nicht erschrecken.
Ich habe mir bereits ein Visual basic Buch bestellt doch leider ist es noch nicht bei mir.
Danke im Vorraus für eure Hilfe
Gruß Jürgen
 
Zurück