Waiting until loop finished.

[A.G.van Staveren]

Start learning VB 2005 EE and made a kind of Timing program.
Tried to show a text during time-call but it comes up only after the loop is
finished.
(TextBox2 in Sub Button1_Click)
I do not understand why.
Cannot find it either on internet.
Please can anyone explain to me the reason.
Here the code so far:
Public Class Form1

Dim Uitlezing As Single = 0

Dim Inlezing As Single = 0

Dim BeginTime As Double = 0

Dim FinishTime As Double = 0

Dim ElapsedTime As Single = 0

Dim Wachttijd As Single = 5

Dim Wachttext As String = ""

Dim TotalTime As Single = 0

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

TextBox2.Text = "Program Runs"

Call InitializeTimer(Uitlezing, Wachttijd)

Inlezing = Uitlezing

Uitlezing = 0

TextBox1.Text = "Waiting Time was" & " " & Str(Inlezing) & " Seconds."

End Sub

Private Sub InitializeTimer(ByRef Uitlezing As Single, ByRef Wachttijd As
Single)

ElapsedTime = 0

BeginTime = Microsoft.VisualBasic.DateAndTime.Timer

Do While ElapsedTime < Wachttijd

FinishTime = Microsoft.VisualBasic.DateAndTime.Timer

ElapsedTime = (FinishTime - BeginTime)

Loop

Uitlezing = ElapsedTime

End Sub

Private Sub Wait_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Wait.Click

Wachttext = MaskedTextBox1.Text

Wachttijd = Single.Parse(Wachttext)

Call InitializeTimer(Uitlezing, Wachttijd)

TotalTime = Inlezing + Uitlezing

TextBox2.Text = "Total Time is" & " " & Str(TotalTime) & " " & "Seconds"
End Sub
End Class

Many thanks,
Arie

[Jan Hyde]

"A.G.van Staveren" <a.************@chello.nl>'s wild
thoughts were released on Mon, 5 Feb 2007 16:46:24 +0100
bearing the following fruit:

>Start learning VB 2005 EE and made a kind of Timing program.

This group is for VB6, you need a group with 'dotnet' in the
name.

J

>Tried to show a text during time-call but it comes up only after the loop is
finished.
(TextBox2 in Sub Button1_Click)
I do not understand why.
Cannot find it either on internet.
Please can anyone explain to me the reason.
Here the code so far:
Public Class Form1

Dim Uitlezing As Single = 0

Dim Inlezing As Single = 0

Dim BeginTime As Double = 0

Dim FinishTime As Double = 0

Dim ElapsedTime As Single = 0

Dim Wachttijd As Single = 5

Dim Wachttext As String = ""

Dim TotalTime As Single = 0

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

TextBox2.Text = "Program Runs"

Call InitializeTimer(Uitlezing, Wachttijd)

Inlezing = Uitlezing

Uitlezing = 0

TextBox1.Text = "Waiting Time was" & " " & Str(Inlezing) & " Seconds."

End Sub

Private Sub InitializeTimer(ByRef Uitlezing As Single, ByRef Wachttijd As
Single)

ElapsedTime = 0

BeginTime = Microsoft.VisualBasic.DateAndTime.Timer

Do While ElapsedTime < Wachttijd

FinishTime = Microsoft.VisualBasic.DateAndTime.Timer

ElapsedTime = (FinishTime - BeginTime)

Loop

Uitlezing = ElapsedTime

End Sub

Private Sub Wait_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Wait.Click

Wachttext = MaskedTextBox1.Text

Wachttijd = Single.Parse(Wachttext)

Call InitializeTimer(Uitlezing, Wachttijd)

TotalTime = Inlezing + Uitlezing

TextBox2.Text = "Total Time is" & " " & Str(TotalTime) & " " & "Seconds"
End Sub
End Class

Many thanks,
Arie

Jan Hyde (VB MVP)

--
So I went to the dentist. He said "Say Aaah." I said "Why?" He said "My dog's died."

[Max]

You would get the same result in VB6 any way

I can't see anything in the do loop that updates the text box.
"Jan Hyde" <St***********@REMOVE.ME.uboot.comwrote in message
news:8i********************************@4ax.com...

"A.G.van Staveren" <a.************@chello.nl>'s wild
thoughts were released on Mon, 5 Feb 2007 16:46:24 +0100
bearing the following fruit:

>>Start learning VB 2005 EE and made a kind of Timing program.

This group is for VB6, you need a group with 'dotnet' in the
name.

J

>>Tried to show a text during time-call but it comes up only after the loop
is
finished.
(TextBox2 in Sub Button1_Click)
I do not understand why.
Cannot find it either on internet.
Please can anyone explain to me the reason.
Here the code so far:
Public Class Form1

Dim Uitlezing As Single = 0

Dim Inlezing As Single = 0

Dim BeginTime As Double = 0

Dim FinishTime As Double = 0

Dim ElapsedTime As Single = 0

Dim Wachttijd As Single = 5

Dim Wachttext As String = ""

Dim TotalTime As Single = 0

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

TextBox2.Text = "Program Runs"

Call InitializeTimer(Uitlezing, Wachttijd)

Inlezing = Uitlezing

Uitlezing = 0

TextBox1.Text = "Waiting Time was" & " " & Str(Inlezing) & " Seconds."

End Sub

Private Sub InitializeTimer(ByRef Uitlezing As Single, ByRef Wachttijd As
Single)

ElapsedTime = 0

BeginTime = Microsoft.VisualBasic.DateAndTime.Timer

Do While ElapsedTime < Wachttijd

FinishTime = Microsoft.VisualBasic.DateAndTime.Timer

ElapsedTime = (FinishTime - BeginTime)

Loop

Uitlezing = ElapsedTime

End Sub

Private Sub Wait_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Wait.Click

Wachttext = MaskedTextBox1.Text

Wachttijd = Single.Parse(Wachttext)

Call InitializeTimer(Uitlezing, Wachttijd)

TotalTime = Inlezing + Uitlezing

TextBox2.Text = "Total Time is" & " " & Str(TotalTime) & " " & "Seconds"
End Sub
End Class

Many thanks,
Arie

Jan Hyde (VB MVP)

--
So I went to the dentist. He said "Say Aaah." I said "Why?" He said "My
dog's died."

[Jan Hyde]

"Max" <no****@spamcatchers.com>'s wild thoughts were
released on Tue, 6 Feb 2007 22:00:36 +1100 bearing the
following fruit:

>You would get the same result in VB6 any way

That's not necessarily true at all.

J

>I can't see anything in the do loop that updates the text box.

>"Jan Hyde" <St***********@REMOVE.ME.uboot.comwrote in message
news:8i********************************@4ax.com.. .

>"A.G.van Staveren" <a.************@chello.nl>'s wild
thoughts were released on Mon, 5 Feb 2007 16:46:24 +0100
bearing the following fruit:

>>>Start learning VB 2005 EE and made a kind of Timing program.

This group is for VB6, you need a group with 'dotnet' in the
name.

J

>>>Tried to show a text during time-call but it comes up only after the loop
is
finished.
(TextBox2 in Sub Button1_Click)
I do not understand why.
Cannot find it either on internet.
Please can anyone explain to me the reason.
Here the code so far:
Public Class Form1

Dim Uitlezing As Single = 0

Dim Inlezing As Single = 0

Dim BeginTime As Double = 0

Dim FinishTime As Double = 0

Dim ElapsedTime As Single = 0

Dim Wachttijd As Single = 5

Dim Wachttext As String = ""

Dim TotalTime As Single = 0

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

TextBox2.Text = "Program Runs"

Call InitializeTimer(Uitlezing, Wachttijd)

Inlezing = Uitlezing

Uitlezing = 0

TextBox1.Text = "Waiting Time was" & " " & Str(Inlezing) & " Seconds."

End Sub

Private Sub InitializeTimer(ByRef Uitlezing As Single, ByRef Wachttijd As
Single)

ElapsedTime = 0

BeginTime = Microsoft.VisualBasic.DateAndTime.Timer

Do While ElapsedTime < Wachttijd

FinishTime = Microsoft.VisualBasic.DateAndTime.Timer

ElapsedTime = (FinishTime - BeginTime)

Loop

Uitlezing = ElapsedTime

End Sub

Private Sub Wait_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Wait.Click

Wachttext = MaskedTextBox1.Text

Wachttijd = Single.Parse(Wachttext)

Call InitializeTimer(Uitlezing, Wachttijd)

TotalTime = Inlezing + Uitlezing

TextBox2.Text = "Total Time is" & " " & Str(TotalTime) & " " & "Seconds"
End Sub
End Class

Many thanks,
Arie

Jan Hyde (VB MVP)

--
So I went to the dentist. He said "Say Aaah." I said "Why?" He said "My
dog's died."

Jan Hyde (VB MVP)

--
"Eating Disorders" by Anna Rexia (Neil Enns)