Tilfældigt tal

Dim randTal as Integer

randTal = rnd(2*6) + 1 'Giver 2 random tal mellem 1 og 6

hov skulle være et svar :O)

Jamen det skulle være mellem 1000 og 100.000

randTal = rnd(1*99.000) + 1001 'Giver 1 random tal mellem 1000 og 100.000

tubber << Den tager ikkt et tilfældigt... Den forhøjer bare med en...!

øhm hvad mener du ? forhøjer med en ?

det er ikke sikkert du skal have . i dit tal.... 99000 istedet for 99.000

Det virker heller ikke... Det eneste tal den skriver er 1002

Du får det samme svar her:

lav = 1000 '
hoj=  100000 '
num = Int(Rnd * (hoj - lav + 1)) + lav

Michael

hov det er sådan her :O)

randTal = (rnd*99.000) + 1001 'Giver 1 random tal mellem 1000 og 100.000

Int(rnd*99.000) + 1001 'Giver 1 random tal mellem 1000 og 100.000

For i = 1 To 10000
randTal = Int(Rnd * 99000) + 1001
List1.AddItem randTal
Next i

Den laver 10000 tal der er random mellem 1000 og 100.000

Hmm... Nu ved jeg godt at jeg går over i noget andet men... Hvordan gør jeg sådan, at når man trykker på en knap, er der en progressbar der begynder at tælle og efter eks. 15 sek. er den helt oppe?

med en timer der kører hvor du tager og siger at 100% = 100 og så siger du 15 sekunder = 100%

Så får du et regnestykker der siger 15/100 = 0,15 sekuner * 1000 da timeren er i millisekunder......

altså dit timer interval er : 150

Så må det være noget der ligner lidt :

Private Sub Timer1_Timer()
Progressbar1.Value = Progressbar1.Value + 1
End Sub

Private Sub Form_Load()
Progressbar1.Min = 0
Progressbar1.Max = 100
Progressbar1.Value = 0
End Sub

Jeg ved dog ikke om den For Next løkke venter med at kører vidre til timeren er sluttet....

tubber << Der er ikke en property der hedder 'value' på en progressbar...

Men det virker alligevel

Men når den er færdig skriver den "Invalid property value"... why

Fejlen er i denne linie:
ProgressBar1.Value = ProgressBar1.Value + 1

Og så når den er helt oppe, skal den udføre et stykke kode.

Det er fordi din value løber over max value hvis din
Progressbar1.Max = 100
og din Progressbar1.Value = 101 så kommer den der fejl....

hmm... hvodan kan man rette det?

Btw - når du bruger rnd så husk lige at brug randomize inden...

Har fundet ud af det:

Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
End Sub

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