[The-One]

Hello people!

Today i'm going to teach you beginners in vb.net how to make a progress bar.

Needs:
- Visual basic 2008/2010
- New Project
- 1 Form

What are we going to do?

I'm going to make the progressbar show values and when it reach's a value it pops a message box with the time (in seconds) how long it took to reach the value.

Okey, this is my GUI:
[img]http://i48.[censored].com/126bnd3.png[/img] (ALSO ADD A TIMER! )

Coding:

Double click the button1(Text=Start):

Code

If Timer1.Enabled = False Then ' If the timer isn't running do:
    Timer1.Start() ' Start the timer
    Button1.Text = "Stop" ' Change buttons text from start to stop
  Else ' If it is running do:
    Timer1.Stop() ' Stop the timer
    Button1.Text = "Start" ' Change buttons text from stop to start
    ProgressBar1.Value = 0 ' Change the progressbar's value to 0*
  End If

*= Make the progressbar's maximum value 10, if you can't find it, add ProgressBar1.Maximum = 10 to form1.load

Next, Form1.Load:

Code

' This is what we are going to use as a count system
Label1.Text = "0"
Label2.Text = "0"

After that, double click the timer (Timers interval= 500):

Code

Dim Nmr As Integer = 0 ' Define a integer
  ProgressBar1.Value = GRN(1, 11) ' Generate a random value
  Label1.Text = Label1.Text + 1 ' Count + 1
  If Label1.Text = 2 Then ' If count = 2 (500*2=1000 = 1 SEC)
    Label1.Text = 0 ' Count = 0 (restart counting)
    Label2.Text = Label2.Text + 1 ' Seconds + 1
  End If
  If ProgressBar1.Value = 10 Then ' If its 10
    Timer1.Stop() ' Stop the timer
    MsgBox("Maximum Reached In: " & Label2.Text & " Secconds.") 'Draw a message with the message and the secconds
  End If

And if u did it all right, you got 1 error at the GRN(GenerateRandomNumber)(Add this somewhere in your form class):

Code

Public Function GRN(ByVal min As String, ByVal max As String)
  Dim RD As New Random() ' Define RD as random class
  Dim RN As Integer ' Define Rn as a integer
  RN = RD.Next(min, max) ' Randomize a number between min & max
  Return RN ' Return the randomized number
    End Function

Full Source:
Spoiler (Click to View)

Code

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  If Timer1.Enabled = False Then
    Timer1.Start()
    Button1.Text = "Stop"
  Else
    Timer1.Stop()
    Button1.Text = "Start"
    ProgressBar1.Value = 0
  End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  Dim Nmr As Integer = 0
  ProgressBar1.Value = GRN(1, 11)
  Label1.Text = Label1.Text + 1
  If Label1.Text = 2 Then
    Label1.Text = 0
    Label2.Text = Label2.Text + 1
  End If
  If ProgressBar1.Value = 10 Then
    Timer1.Stop()
    MsgBox("Maximum Reached In: " & Label2.Text & " Secconds.")
  End If
    End Sub

    Public Function GRN(ByVal min As String, ByVal max As String)
  Dim RD As New Random()
  Dim RN As Integer
  RN = RD.Next(min, max)
  Return RN
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Label1.Text = "0"
  Label2.Text = "0"
    End Sub
End Class

Enjoy!
Rate,Comment etc. etc!

[Beck]

Nice source, mate :)

😉 I will check it out later if I ever get the time to.

[Mr. Mischief]

i already know this...
but will save it as a snippet just incase i forget.
thanks :D

[The-One]

Nice source, mate :)

😉 I will check it out later if I ever get the time to.

Thanks, good luck.

i already know this...
but will save it as a snippet just incase i forget.
thanks :D

Okey. No problem