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:
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
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
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