Randomize

[zed]

hi,
ich möchte einen butten der per knopfdruck eine zufallszahl ausspuckt und bei wiederholtem drücken eine "andere" zahl ausgibt. ich habs mit randomize(time) oder halt randomize time probiert (in c++ gehts), aber es kommt immer die selbe zahl und das ist KEIN zufall oder es ist wirklich zufall (bei einer 16stelligen zahl?????????)

 

[Quentin]

http://www.vb-seminar.de/vb_17.htm

Function Zufallszahl(ByVal min, ByVal max)
Randomize 'Zufallsgenerator initialisieren
z = Rnd 'Zufallszahl (liegt zwischen 0 und 1)
Zufallszahl = Int(min + (max - min + 1) * z)
End Function

oder

myVar = Rnd(10)

hoffe sowas in der richtung hilft dir weiter


http://www.vbexplorer.com/random/random_numbers_1.asp

Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function


funktionsaufruf: myFunnyVar = Rand(1, 16)


wichtig: Private Sub Form_Load()
'Initialize the random # generator.
Randomize
End Sub

gruß
q

 

[zed]

leider nein,
eine einzelne zahl is ok,
aber ich hab ne schleife:

for i=0 to 15 step 1
stringx = stringx + trim(str(rand(0,9)))
next i

und das geht nicht! leider(er zeigt immer die gleiche zahl an)
though thanks

 

[Thomas Kuse]

randomize
stringx=""
for i=0 to 15 step 1 
   stringx = stringx + trim(str(rnd*10))
next i

das geht nich??

 

[zed]

Dim zahl As String
Dim FinalString As String
Public Function Rand(ByVal Low As Long, ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Private Sub cmdGenerate_Click()'---< Random number with lenght=16 >---
i = 0
Randomize Time
While i < 16
zahl = zahl + Trim(Str(Rand(0, 9)))
i = i + 1
Wend

'---< String Output >---
txtAusgabe.Text = zahl
End Sub

formload hab ich randomize

 

[Quentin]

Dim zahl As String
Dim FinalString As String
Public Function Rand(ByVal Low As Long, ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
Private Sub cmdGenerate_Click()'---< Random number with lenght=16 >---
i = 0
Randomize Time
While i < 16
Randomize
zahl = zahl + Trim(Str(Rand(0, 9)))
i = i + 1
Wend

'---< String Output >---
txtAusgabe.Text = zahl
End Sub

probier mal bei jedem neuen aufruf ein randomize zu machen...

vielleicht gehts ja...

regards

 

[zed]

nö das war auch meine idee, aber nja, man weiss ja wie das so mit den computern ist, though thx

 

[kle-ben]

Wäre cool wenn jemand eine Lösung für dieses Problem hätte.
Hab nämlich genau das selbe Problem und komm nicht weiter.
Danke

 

[Merlin_78]

Wenn ich euer Problem richtig verstanden hab, könnte das eine Lösung sein:

Private Sub cmdRandom_Click()
Dim i As Integer
Dim stringx As String
Randomize
stringx = ""
For i = 0 To 15
stringx = stringx + LTrim(Str(Int(10 * Rnd)))
Next i
End Sub

 

[kle-ben]

Nein das funktioniert auch nicht, jetzt gibts jedesmal die gleiche zahl und nicht immer die selbe Zahlenreihe aber danke.