|
|
|
|  |
 | Waiting until loop finished. |  |  |  |
 |
(#1)
|
| Guest Posts: n/a |  Waiting until loop finished. -
06-04-2007, 10:35 AM
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 Cl*** 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 Cl*** Many thanks, Arie |
| |      |
 |  |  |
| |
| Re: Waiting until loop finished. | | | |
| |
(#2)
|
| Guest Posts: n/a | Re: Waiting until loop finished. -
06-04-2007, 10:35 AM
"A.G.van Staveren" <EMAIL REMOVED>'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 Cl*** 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 Cl*** > >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." |
| | |
| | |
| Re: Waiting until loop finished. | | | |
| |
(#3)
|
| Guest Posts: n/a | Re: Waiting until loop finished. -
06-04-2007, 10:35 AM
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" <EMAIL REMOVED> wrote in message news:EMAIL REMOVED... > "A.G.van Staveren" <EMAIL REMOVED>'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 Cl*** 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 Cl*** >> >>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." > |
| | |
| | |
| Re: Waiting until loop finished. | | | |
| |
(#4)
|
| Guest Posts: n/a | Re: Waiting until loop finished. -
06-04-2007, 10:35 AM
"Max" <EMAIL REMOVED>'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" <EMAIL REMOVED> wrote in message >news:EMAIL REMOVED.. . >> "A.G.van Staveren" <EMAIL REMOVED>'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 Cl*** 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 Cl*** >>> >>>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) |
| | |
| | |
 |
« Previous Thread
|
Next Thread »
| Thread Tools | |
| Display Modes | |
Linear Mode
| |
