time lag problems

[starcraft]

why when i add time lag to my program in the code ->

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox1.Text = "5"
      
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        System.Threading.Thread.Sleep(1000)
        TextBox1.Text = "4"
        System.Threading.Thread.Sleep(1000)
        TextBox1.Text = "3"
        System.Threading.Thread.Sleep(1000)
        TextBox1.Text = "2"
        System.Threading.Thread.Sleep(1000)
        TextBox1.Text = "1"
        System.Threading.Thread.Sleep(1000)
        TextBox1.Text = "Finished"
    End Sub

it does modify the textbox1.text to 4/3/2/1 it just waits 5 seconds and puts finished
what do i change?

 

[mutant]

The texbox doesnt have time to print the text becuase it goes to sleep right away so you need to call DoEvents before every sleep so it can finish:

textbox1.Text = "5"
Application.DoEvents()
System.Threading.Thread.Sleep(1000)
textbox1.Text = "4"
Application.DoEvents()
System.Threading.Thread.Sleep(1000)
textbox1.Text = "3"
Application.DoEvents()
System.Threading.Thread.Sleep(1000)
textbox1.Text = "2"
Application.DoEvents()
System.Threading.Thread.Sleep(1000)
textbox1.Text = "1"
Application.DoEvents()
System.Threading.Thread.Sleep(1000)
textbox1.Text = "DONE"

Also I suggest that you use timer for this kind of thing, it doesnt require you to put the thread to sleep so your application can respond during that time.

 

[starcraft]

how do i do that?

 

[Divil]

Read up on timers in MSDN. There are three types of timer in the framework, you want the Windows Forms one in this case.

 

[dynamic_sysop]

you could do this :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = 5
        Dim x As Integer

        For x = 1 To 5
            TextBox1.Text = i
            i = i - 1
            Application.DoEvents()
            Threading.Thread.Sleep(1000)
        Next

    End Sub

or better still as Divil says use a timer , eg :

Dim x As Integer = 5
 /// made available to all subs ^^^
 ///
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim i As Integer
        TextBox1.Text = x
        For i = 1 To 4
            With Timer1
                .Interval = 1000
                .Enabled = True
                .Start()
            End With
        Next

    End Sub

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

        TextBox1.Text = x
        x = x - 1
        If x < 1 Then
            Timer1.Stop()
            x = 5
        End If
    End Sub

 

[starcraft]

thanks alot, and can a clock time the interval between to operations i wont my program to compensate for lag on the computer