VB.NET

VB.NET RSS

Timer Control Help

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Nov 2006

Posts: 2

Reputation: Panachski is an unknown quantity at this point

Solved Threads: 0

Panachski

Offline

Newbie Poster

Timer Control Help

Nov 6th, 2006

Hi, I am a newcomer to Visual Studio 2005 and am having trouble making a timer which will work out the time it takes to download a file. The file is 45 kb and the user can change the speed with a scrollbar, which is called hsbSpeed, from 1 – 10 kbps. The timer will then work out the download time and count down to zero.

I was thinking along the line of this:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Counter = (45 \ hsbSpeed.Value) - 1
          txtCount.Text = Counter
Counter = (45 \ hsbSpeed.Value) - 1
          txtCount.Text = Counter

but it only subtracts once and stops. I tried using a loop but that also didn’t work :

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
 Counter = 45 \ hsbSpeed.Value
              Do While (Counter > 0)
                  Counter = Counter - 1
              Loop
              txtCount.Text = Counter
 Counter = 45 \ hsbSpeed.Value
              Do While (Counter > 0)
                  Counter = Counter - 1
              Loop
              txtCount.Text = Counter

Any ideas on how to solve this?

•

Join Date: Jul 2006

Posts: 229

Reputation: DavidRyan is an unknown quantity at this point

Solved Threads: 11

DavidRyan

Offline

Posting Whiz in Training

Re: Timer Control Help

Nov 6th, 2006

I haven't done any VB coding myself, but this:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
              Do While (Counter > 0)
                  Counter = Counter - 1
              Loop
              txtCount.Text = Counter
              Do While (Counter > 0)
                  Counter = Counter - 1
              Loop
              txtCount.Text = Counter

Looks like it will keep iterating down until the variable Counter is equal to zero, and then it will set the Text value of txtCount to 0.
Try this:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
               Do While (Counter > 0)
                  Counter = Counter - 1
                  txtCount.Text = Counter
              Loop
               Do While (Counter > 0)
                  Counter = Counter - 1
                  txtCount.Text = Counter
              Loop

You will probably also want to slow the loop down so that it only loops once per second. Perhaps pull the system time at the start of the loop and then wait at the end of the loop until the system time is equal to that time + 1.

Please anyone, correct me if I am wrong. It is the best way for me to learn.

•

Join Date: Dec 2002

Posts: 461

Reputation: waynespangler is on a distinguished road

Solved Threads: 56

waynespangler waynespangler is offline

Offline

Posting Pro in Training

Re: Timer Control Help

Nov 6th, 2006

Your file is 45kb and say your speed is set to 5kb. You are setting your counter to 45/5 every time. Set a variable called say "BytesLeft". After you have read 5kb subtract it from you "BytesLeft".
Try something like this:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Imports System.Threading
 
Public Class Form1
    Private BytesLeft As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        BytesLeft = 45
        Do While BytesLeft
            txtCount.Text = (BytesLeft \ hsbSpeed.Value) - 1
            txtCount.Refresh()
            Thread.Sleep(1000)
            BytesLeft -= hsbSpeed.Value
        Loop
    End Sub
End Class
Imports System.Threading

Public Class Form1
    Private BytesLeft As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        BytesLeft = 45
        Do While BytesLeft
            txtCount.Text = (BytesLeft \ hsbSpeed.Value) - 1
            txtCount.Refresh()
            Thread.Sleep(1000)
            BytesLeft -= hsbSpeed.Value
        Loop
    End Sub
End Class

•

Join Date: Nov 2006

Posts: 2

Reputation: Panachski is an unknown quantity at this point

Solved Threads: 0

Panachski

Offline

Newbie Poster

Re: Timer Control Help

Nov 8th, 2006

Thanks for the help guys, I had tried something similar to the code that you gave me David but it didn't work. We have to explain our coding and show the lecturer how so the code that you kindly showed me Wayne was a bit too complicated. In the end I figured out a different way to do it but thanks all the same.