Random value for a progressbar...

[WILLIAMXXX]

Heej

Hoe kan je een progressbar een random value geven???
Mijn progressbar heeft een minimum van 0 en een maximum van 1000.
Heb zelf al wat geprobeerd lukt niet echt...

 

[RonaldGJ]

Dat is niet zo moeilijk, ik heb het even geprobeerd en bij mij doet ie het!:thumb:
Je moet even een Button en een Progressbar op je form zetten en deze code erbij doen:

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

Private Sub Form_Load()
Randomize
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
For a = 0 To 100
ProgressBar1.Value = Rnd * a
Next
End Sub

Wil je het niet op tijd hebben dan maak je er simpelweg van:

Private Sub Command1_Click()
For a = 0 To 100
ProgressBar1.Value = Rnd * a
Next
End Sub

Private Sub Form_Load()
Randomize
End Sub

Elke keer als je nu op de knop drukt wordt er random een value gekozen voor de progressbar!

Succes ermee!!
Ronald!

 

[WILLIAMXXX]

Bedankt...

Het enigste is dat die minimaal 10 seconden bezig is met een value te maken dan gaan ze heel snel meer value krijgen en weer minder...
Als je dan ergens klikt slaat die gelijk vast...
Hij moet het in minder dan 1/100 seconden doen...

En ik heb nu als code:

If Label26.Text = 10 Then
Dim a As Integer
For a = 0 To 1000
ProgressBar1.Value = Rnd() * a
Next
End If

Ik heb er 1000 staan maar als er 100 staat gaat het wel in een honderste seconde...

 

[RonaldGJ]

Je wilt dus bijvoorbeeld:

10 seconden lang, gaat ie om de 1 seconde een random value geven.
Zijn die 10 seconden voorbij dan moet ie:

10 seconden lang om de 0.01 seconde een random value geven.
Zijn die 10 seconden voorbij dan moet ie weer:

10 seconden lang, om de 1 seconde een random value geven.

Bedoel je zoiets???

 

[RonaldGJ]

Als dat zo is heb ik hier even een code voor je.. Bij mij werkt het:thumb: !

Je maakt 2 Timers, 1 Textbox (kun je op visible = false zetten), 1 Command en 1 Progressbar. Als je die hebt neergezet en je zet er de volgende code in zou hij moeten werken. Succes ermee en tot later!

Grtz Ronald!

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

Private Sub Form_Load()
Randomize
Timer1.Enabled = False
Timer2.Enabled = False
Timer1.Interval = 1000
Timer2.Interval = 1000
Text1.Text = "0"
End Sub

Private Sub Timer1_Timer()
For a = 0 To 100
ProgressBar1.Value = Rnd * a
Next
End Sub

Private Sub Text1_Change()
If Text1.Text = 11 And Timer1.Interval = 1000 Then
Timer1.Interval = 100
Text1.Text = "0"
ElseIf Text1.Text = 11 And Timer1.Interval = 100 Then
Timer1.Interval = 1000
Text1.Text = "0"
End If
End Sub

Private Sub Timer2_Timer()
Text1.Text = Text1.Text + 1
End Sub

 

[WILLIAMXXX]

Nee, zo bedoel ik het niet...

Hij gaat heel erg schokkerig als ik 1000 neer zet...
Hij doet er heel lang over om dan weer een andere waarde neer te zetten...
Minimaal 30 seconden dat is naturrlijk te lang, zodra ik meer als 100 opgeef duurt het vreselijk lang

 

[RonaldGJ]

1000 betekent 1 seconde, dus 100 is 0,1 = één hondertste seconde??

Ik snap niet helemaal wat er aan de hand is?

 

[WILLIAMXXX]

Ow het is al goed, Ik weet niet hoe het kwam of ik een fout maakte of iets dergelijks of ik deed het express ofso? Maar nu heb ik als code:

      If Label26.Text = 10 Then
            Dim a As Integer
            For a = 0 To 1000
            Next
            ProgressBar1.Value = Rnd() * a
        End If

Ik heb Next dus voor de stijging van de value staan en nu gaat het in één honderste seconde...

 

[RonaldGJ]

Gelukkig dat de zaak opgelost is! Op naar de volgende vraag dan maar:thumb: !!

Ronald.

 

[WILLIAMXXX]

Ja, zal er gauw weer eens bedenken

 

[ninjaplayer]

Kan dat ook met getallen?

Bijv. Je hebt een Button1 en een TextBox1. Druk op Button1 en er verschijnt een willekeurig getal van 0 t/m 9 in TextBox1.

 

[RonaldGJ]

Natuurlijk kan dat!!:thumb:

Het werkt eigenlijk hetzelfde alleen dan neem je niet de value van de progressbar, maar de Text van de Textbox!
Oftewel:

Private Sub Command1_Click()
For a = 0 To 9
Text1.Text = Rnd * a
Next
End Sub

Private Sub Form_Load()
Randomize
End Sub

Greetz, Ronald!

 

[ninjaplayer]

Natuurlijk kan dat!!:thumb:

Weet je misschien hoe dat moet?

 

[RonaldGJ]

Zie bericht dat ik aangepast heb !

Grtz Ronald!