Гонки Прогресс баров, как увеличивать значение неодинаково для всех

@Max6991 · Регистрация: 08.02.2012

Может быть вопрос глупый, но я загорелся идей сделать программу «Гонки Прогресс баров». Не подскажите как такое реализовать? Не знаю с чего начинать

@edward_freedom · 08.02.2012, 23:24

.

@Max6991 · 08.02.2012, 23:28 **[ТС]**

Я впервые работаю с прогрессбаром так что меня интересует как:
1)изменять положение прогрессбаров, не одинаково;
2)определить «победителя» (прогрессбар первый достигший конца)

Памирыч · 09.02.2012, 04:56

Max6991, прибавлять к значению каждого прогрессбара случайное число в диапазоне от 0 до, скажем, 5 (при максисмум прогресса - 100)
Но только эти "рыжие клячи" будут иногда засыпать на ходу, да и потом, с Random или Rnd большого разрыва в результатах, ИМХО, не дадут

@Max6991 · 09.02.2012, 19:24 **[ТС]**

они сдвигаются один раз и останавливаются. Я что-то не так делаю?

VB.NET

 ProgressBar1.Maximum = 100
        ProgressBar2.Maximum = 100
        ProgressBar3.Maximum = 100
        ProgressBar4.Maximum = 100
        ProgressBar5.Maximum = 100
        ProgressBar5.Maximum = 100
        ProgressBar7.Maximum = 100
        ProgressBar8.Maximum = 100
        ProgressBar9.Maximum = 100
 
        ProgressBar1.Value = 0
        ProgressBar2.Value = 0
        ProgressBar3.Value = 0
        ProgressBar4.Value = 0
        ProgressBar5.Value = 0
        ProgressBar5.Value = 0
        ProgressBar7.Value = 0
        ProgressBar8.Value = 0
        ProgressBar9.Value = 0
 
        Do
            ProgressBar1.Value += Fix(Rnd(10) + 1)
            ProgressBar2.Value += Fix(Rnd(10) + 1)
            ProgressBar3.Value += Fix(Rnd(10) + 1)
            ProgressBar4.Value += Fix(Rnd(10) + 1)
            ProgressBar5.Value += Fix(Rnd(10) + 1)
            ProgressBar5.Value += Fix(Rnd(10) + 1)
            ProgressBar7.Value += Fix(Rnd(10) + 1)
            ProgressBar8.Value += Fix(Rnd(10) + 1)
            ProgressBar9.Value += Fix(Rnd(10) + 1)
        Loop While ProgressBar1.Value = 100 Or ProgressBar2.Value = 100 Or ProgressBar3.Value = 100 Or ProgressBar4.Value = 100 Or ProgressBar5.Value = 100 Or ProgressBar6.Value = 100 Or ProgressBar7.Value = 100 Or ProgressBar8.Value = 100 Or ProgressBar9.Value = 100

@XIST · 09.02.2012, 19:31

В таймере это делай...

@Max6991 · 09.02.2012, 19:38 **[ТС]**

DM_AND, можно поподробней, я новичок

@XIST · 09.02.2012, 19:42

Кидаешь таймер на форму.
Enable = true.
Interval = 100

VB.NET

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
       
 
        Do
            ProgressBar1.Value += Fix(Rnd(10) + 1)
            ProgressBar2.Value += Fix(Rnd(10) + 1)
            ProgressBar3.Value += Fix(Rnd(10) + 1)
            ProgressBar4.Value += Fix(Rnd(10) + 1)
            ProgressBar5.Value += Fix(Rnd(10) + 1)
            ProgressBar5.Value += Fix(Rnd(10) + 1)
            ProgressBar7.Value += Fix(Rnd(10) + 1)
            ProgressBar8.Value += Fix(Rnd(10) + 1)
            ProgressBar9.Value += Fix(Rnd(10) + 1)
        Loop While ProgressBar1.Value = 100 Or ProgressBar2.Value = 100 Or ProgressBar3.Value = 100 Or ProgressBar4.Value = 100 Or ProgressBar5.Value = 100 Or ProgressBar6.Value = 100 Or ProgressBar7.Value = 100 Or ProgressBar8.Value = 100 Or ProgressBar9.Value = 100

@Max6991 · 09.02.2012, 19:54 **[ТС]**

Ошибку выдает

@XIST · 09.02.2012, 20:06

Все работает, кроме того что один из них получает значение > 100

Памирыч · 09.02.2012, 20:10

У меня с rnd какой-то бред вышел - они ползут одинаково.
Попробовал с Random:

VB.NET

    Dim R As New Random
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            ProgressBar1.Value += R.NextDouble * 3
            ProgressBar2.Value += R.NextDouble * 3
            ProgressBar3.Value += R.NextDouble * 3
            ProgressBar4.Value += R.NextDouble * 3
            ProgressBar5.Value += R.NextDouble * 3
            ProgressBar6.Value += R.NextDouble * 3
            ProgressBar7.Value += R.NextDouble * 3
        Catch ex As Exception
            sender.stop()
        End Try
    End Sub

Вроде по-разному ползут.

Сообщение от DM_AND

значение > 100

А мы и показываем только принцип, автор если надо и исключение отловит и обозначит в мессиджбоксе, какой Прогрессбар пригнал первым

@XIST · 09.02.2012, 20:16

Сообщение от Памирыч

У меня с rnd какой-то бред вышел - они ползут одинаково.
Попробовал с Random:

VB.NET

    Dim R As New Random
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            ProgressBar1.Value += R.NextDouble * 3
            ProgressBar2.Value += R.NextDouble * 3
            ProgressBar3.Value += R.NextDouble * 3
            ProgressBar4.Value += R.NextDouble * 3
            ProgressBar5.Value += R.NextDouble * 3
            ProgressBar6.Value += R.NextDouble * 3
            ProgressBar7.Value += R.NextDouble * 3
        Catch ex As Exception
            sender.stop()
        End Try
    End Sub

Вроде по-разному ползут.

А мы и показываем только принцип, автор если надо и исключение отловит и обозначит в мессиджбоксе, какой Прогрессбар пригнал первым

Да, т.к. так ничего можно не понять)
с rnd да, только заметил, значения одинаковы...

@Max6991 · 09.02.2012, 20:19 **[ТС]**

DM_AND, что бы я не делал, один из них все равно получает > 100

Памирыч · 09.02.2012, 20:24

Max6991, там у него в коде опечатка, пятый прогресс дважды в коде, вместо 6-го

@Max6991 · 09.02.2012, 20:28 **[ТС]**

Памирыч, я это изменил, но не помогло

Памирыч · 09.02.2012, 20:30

Max6991, попробуй код с Random

@XIST · 09.02.2012, 20:30

Поставь рандом, как Памирыч написал, так нормально будет...

@Max6991 · 09.02.2012, 20:33 **[ТС]**

Памирыч, не понял(

Памирыч · 09.02.2012, 20:37

Max6991, Пост 11

@Max6991 0 / 0 / 0 Регистрация: 08.02.2012 Сообщений: 8
	09.02.2012, 20:19 [ТС]	13
	DM_AND, что бы я не делал, один из них все равно получает > 100 0

Памирыч Почетный модератор 21366 / 9100 / 1082 Регистрация: 11.04.2010 Сообщений: 11,014
	09.02.2012, 20:24	14
	Max6991, там у него в коде опечатка, пятый прогресс дважды в коде, вместо 6-го 0

@Max6991 0 / 0 / 0 Регистрация: 08.02.2012 Сообщений: 8
	09.02.2012, 20:28 [ТС]	15
	Памирыч, я это изменил, но не помогло 0

@XIST 1274 / 979 / 137 Регистрация: 01.10.2009 Сообщений: 3,092 Записей в блоге: 1
	09.02.2012, 20:30	17
	Поставь рандом, как Памирыч написал, так нормально будет... 0

@Max6991 0 / 0 / 0 Регистрация: 08.02.2012 Сообщений: 8
	09.02.2012, 20:33 [ТС]	18
	Памирыч, не понял( 0

@edward_freedom 1568 / 1447 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	08.02.2012, 23:24	2
	. Изображения 0

@Max6991 0 / 0 / 0 Регистрация: 08.02.2012 Сообщений: 8
	08.02.2012, 23:28 [ТС]	3
	Я впервые работаю с прогрессбаром так что меня интересует как: 1)изменять положение прогрессбаров, не одинаково; 2)определить «победителя» (прогрессбар первый достигший конца) 0

Памирыч Почетный модератор 21366 / 9100 / 1082 Регистрация: 11.04.2010 Сообщений: 11,014
	09.02.2012, 04:56	4
	Max6991, прибавлять к значению каждого прогрессбара случайное число в диапазоне от 0 до, скажем, 5 (при максисмум прогресса - 100) Но только эти "рыжие клячи" будут иногда засыпать на ходу, да и потом, с Random или Rnd большого разрыва в результатах, ИМХО, не дадут 0

@XIST 1274 / 979 / 137 Регистрация: 01.10.2009 Сообщений: 3,092 Записей в блоге: 1
	09.02.2012, 19:31	6
	В таймере это делай... 0

@Max6991 0 / 0 / 0 Регистрация: 08.02.2012 Сообщений: 8
	09.02.2012, 19:38 [ТС]	7
	DM_AND, можно поподробней, я новичок 0

@XIST 1274 / 979 / 137 Регистрация: 01.10.2009 Сообщений: 3,092 Записей в блоге: 1
	09.02.2012, 20:06	10
	Все работает, кроме того что один из них получает значение > 100 0

Памирыч Почетный модератор 21366 / 9100 / 1082 Регистрация: 11.04.2010 Сообщений: 11,014
	09.02.2012, 20:30	16
	Max6991, попробуй код с Random 0

Памирыч Почетный модератор 21366 / 9100 / 1082 Регистрация: 11.04.2010 Сообщений: 11,014
	09.02.2012, 20:37	19
	Max6991, Пост 11 2