Visual Basic 6 (VB6)

k....im making a game....how to i make a minimum/maximum value with a progress bar?

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
End If
End Sub

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace WindowsFormsApplication6
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void timer1_Tick(object sender, EventArgs e)
{
if (progressBar1.Value <= progressBar1.Maximum)
{
progressBar1.Value += 1;
textBox1.Text = Convert.ToString(progressBar1.Value);
}
if (progressBar1.Value >= progressBar1.Maximum)
{
timer1.Enabled = false;
}
}
private void button1_Click(object sender, EventArgs e)
{
timer1.Enabled = true;
timer2.Enabled = false;
timer3.Enabled = false;
timer4.Enabled = false;
}

private void Form1_Load(object sender, EventArgs e)
{
timer1.Enabled = false;
timer2.Enabled = false;
timer3.Enabled = false;
timer4.Enabled = false;
}
private void button2_Click(object sender, EventArgs e)
{
timer2.Enabled = true;
timer1.Enabled = false;
timer3.Enabled = false;
timer4.Enabled = false;
}

private void timer2_Tick(object sender, EventArgs e)
{
if (progressBar1.Value > progressBar1.Minimum)
{
progressBar1.Value -= 1;
textBox1.Text = Convert.ToString(progressBar1.Value);
}

if (progressBar1.Value == progressBar1.Minimum)
{

timer2.Enabled = false;
}
}

private void button3_Click(object sender, EventArgs e)
{
timer3.Enabled = true;
timer1.Enabled = false;
timer2.Enabled = false;
timer4.Enabled = false;
}

private void timer3_Tick(object sender, EventArgs e)
{
if (progressBar1.Value <= progressBar1.Maximum)
{
progressBar1.Value += 1;
textBox1.Text = Convert.ToString(progressBar1.Value);
timer3.Enabled = false;
}

if (progressBar1.Value >= progressBar1.Maximum)
{
timer3.Enabled = false;
}
}

private void timer4_Tick(object sender, EventArgs e)
{
if (progressBar1.Value > progressBar1.Minimum )
{
progressBar1.Value -= 1;
textBox1.Text = Convert.ToString(progressBar1.Value);
timer4.Enabled = false;
}

if (progressBar1.Value == progressBar1.Minimum )
{

timer4.Enabled = false;
}
}

private void button4_Click(object sender, EventArgs e)
{
timer4.Enabled = true;
timer1.Enabled = false;
timer2.Enabled = false;
timer3.Enabled = false;
}
}
}

Thank you very much for providing me with the progressive bar codes. It is working now perfectly. If I may ask once again. I have a database of some items. I wish as I scroll over the database, I be able to view its picture on the other side of the form. In other words, can I include images and view them individually withing a database record.
Thanks again for the good work you are doing for us.

Steve

i hope that you will also post or show the image of what is the overview of your created program so that user like me can imagine what it looks like.. thanks...

This Is The Right Code By just Pressing A Button And it loads.

Private Sub Command1_Click()
Timer1.Enabled = True

End Sub

Private Sub Form_Load()
Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
ProgressBar1.Value = 0

Unload Form1 (add this if you want a form to show when the progress bar is finished loading.)
Form2.Show
End If
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
MsgBox "Done :)"
Exit Sub
Else
ProgressBar1.Value = ProgressBar1.Value + 1
End If

End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Timer1.Enabled = True Then
ProgressBar1.Value = ProgressBar1.Value + 1
End If
If ProgressBar1.Value = 100 Then
Unload Me
Form2.Show
End If

End Sub
---------------------------
Ok Here , in coding.
if We input our coding with out form2 it gives us error.
We Must Hide or Exit form1 to run it correctly ...
---------------------------
Here i m Uploading an example.
http://www.2shared.com/file/11150640/587a6c3c/Prograss_Bar_Example.html
---------------------------
i was Just Visiting Sites So i thought to participate here in codeguru.
--------------------------
i hope Example with help ya.
Thanks
Y!Corrupt

well this is how i do it...

im using a timer for every specific time interval the progress bar increases in value

Private Sub Timer1_Timer()

If Timer1.Enabled = True Then
ProgressBar1.Value = ProgressBar1.Value + 1
End If
If ProgressBar1.Value = 100 Then
Unload Me
End If

End Sub

~This code here tells the program to add "1" to the value of the progress bar for every "interval" property that the timer is set to... (interval = 1000 is equal to 1 second....) i set my timer to interval = "5" this is a fast interval im telling you...

okay so for every 5 units of interval, my progressbar increases it's value by one.. but what if the progressbar is full?? or in 100%? then i made an if statement telling that if the value of progressbar1 is 100 the timer will be disabled(.Enabled=false) and the form will be unloaded... or it is upto you what will happen next once the progress bar is full.. ^_^ i hope this helps... ^_^

this code is the right one

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1 + 10
If ProgressBar1.Value = ProgressBar1.Max Then
ProgressBar1.Value = ProgressBar1.Min
Else
End If
If ProgressBar1 = Max Then
Unload Me
Form2.Show
End If
End Sub

1. I can't find any ProgressBar properties called Increment. How do I do this?

2. Where this code should be put?
If ProgressBar1.Value = ProgressBar1.Maximum Then
ProgressBar1.Value = ProgressBar1.Minimum
MsgBox("The progress bar has reached its maximum value", MsgBoxStyle.Information, "Progress Bar")
Else
ProgressBar1.Increment(+10)
End If

(I am using VB6)

Tq.

The Progress Bar:
The progress bar is very useful and looks professional in programs, here I will show you the main syntax’s for it, including an example code.
In this page, the progress bar’s maximum will be 100 and its minimum will be 0.
Syntax:

Progressbar1.
.Value
.Increment(Number)
.Maximum
.Minimum

The “Value” syntax is at what point the progress bar is at, eg. If the progress bar was half full the value would be half the maximum the progress bar can reach.

The “Increment” syntax is how much it goes up by when the syntax is used, eg. Progressbar1.Increment (+10)
This would make the value of the progress bar 10, and it will move the green bar to 10.

The “Maximum” is how high the value of the progress bar can reach and the “Minimum” is how low it can reach.
E.g. If the minimum was 50 and the maximum was 150, the value and increment would start from 50 and go up to 150.

Example Code:

If ProgressBar1.Value = ProgressBar1.Maximum Then
ProgressBar1.Value = ProgressBar1.Minimum
MsgBox("The progress bar has reached its maximum value", MsgBoxStyle.Information, "Progress Bar")
Else
ProgressBar1.Increment(+10)
End If

Put this code in a button and place a progress bar and keep the name the same, when it reaches its maximum (Default Max = 100, Min = 0) it will go back to its minimum and display a message box.

So on a button type this:
Progressbar1.Increment(Progressbar1.Maximum / 10)
This will increment the progress bar 1/10th of its maximum.
Progressbar1.Increment(10)
This will just increment it by 10, but if your minimum is above 10 then it will not work.

Hope this helps.