Random

[FinalFantasy]

Ho creato qst funzione...volevo dei vostri pareri sull'attendibilità del mio random

Public Function Rand(Precisione As Integer) As String
    Dim fattore, lung As Variant
    fattore = ((Hour(Now) * Minute(Now) * Second(Now)) + (Day(Now) * Month(Now) * Year(Now))) * Second(Now)
    If Len(fattore) <= Precisione Then
        lung = Precisione - Len(fattore)
        fattore = Precisione * lung * Left("751515736364393928145142617317252892624815964891793139749785825154677486962446832285638379", lung + Precisione)
    End If
    Rand = Right(fattore, Precisione)
End Function

Ditemi anke come ottimizzarlo al meglio...grazie

[xegallo]

rnd non ti piaceva?

p.s.: un roandom che da attendibilità è una contraddizione in termini

[FinalFantasy]

Boh...nn conoscevo il comando

[xegallo]

adesso capirai l'inutilità del tuo lavoro

p.s.: random è una funzione non un comando

[yyzyyz]

Originariamente inviato da FinalFantasy
Boh...nn conoscevo il comando

un esempio:

Dim num, min, max As Integer

Private Sub Command1_Click()
min = 1
max = 100
num = Int(Rnd(min) * max)
Label1.Caption = num
End Sub

ù

ciao gente.

[tas]

yyzyyz, non mi risulta sia corretto il tuo esempio, guardati la guida di VB a proposito dell'argomento (facoltativo) di Rnd. Piuttosto:

Dim min As Integer
Dim max As Integer
Dim num As Integer

min = 1
max = 100

Randomize
num = Int((max - min + 1) * Rnd + min)

Debug.Print num

[yyzyyz]

:master: ho provato con tutti e 2 i sistemi, ottengo sempre numeri random, purtroppo nn ho la guida disponibile sottomano.

Dim min As Integer
Dim max As Integer
Dim num, num2 As Integer

Private Sub Command1_Click()
min = 1
max = 100
Randomize
num = Int((max - min + 1) * Rnd + min)
num2 = Int(Rnd(min) * max)

Label1.Caption = num
Label2.Caption = num2
End Sub

[tas]

Guarda qui:
http://msdn.microsoft.com/library/de...l/vafctRnd.asp

[FinalFantasy]

ma il mio random, almeno, lo avete provato? :master:

[yyzyyz]

nell'esempio danno questo:

Dim MyValue
MyValue = Int((6 * Rnd) + 1)

mi piacerebbe sentire l'opinione di xegallo, x sapere dove sto sbagliando.

ps. finalFantasy meglio RND