Numero Aleatorio

[Lucas Phillip]

aew... eu to com problema em fazer o vb criar um numero aleatorio de 1 a 20.. ai eu pesquisei aqui no forum e achei essa função:

    Dim a As Integer
    a = Round(20 * Rnd(1), 0)
    While a = 0
        a = Round(20 * Rnd(1), 0)
    Wend

so q estava vindo sempre os mesmos numeros, em vez de vir aleatorio, então eu pesquisei denovo e descobri q a função rnd não gera realmente um numero aleatorio e q para gerar, eu devia usar a função randomize antes... mas não veio com exemplo de como eu faço isso.. ai tentei usa antes, mas nem deu mt certo..

então alguém ai pode me ajudar a criar um função pra sortear um numero de 1 a 20?

vlw

[Graymalkin]

Rnd() gera sim um número aleatório. O que você precisa é simplesmente chamar Randomize antes para renovar a semente geradora de números aleatórios. Exemplo:

randomize
valor = int(rnd()*20)+1
msgbox valor

Ok?

Graymalkin

[Lucas Phillip]

ae.. vlw

[Guest Guest]

Rnd() gera sim um número aleatório. O que você precisa é simplesmente chamar Randomize antes para renovar a semente geradora de números aleatórios. Exemplo:

randomize
valor = int(rnd()*20)+1
msgbox valor

Ok?

Graymalkin

e se o RND tiver dentro de um loop é preciso colocar o randonize ou cada loop ele criara outro numero.

[Graymalkin]

e se o RND tiver dentro de um loop é preciso colocar o randonize ou cada loop ele criara outro numero.

Não, não precisa. Você só precisa chamar o Randomize uma vez (a cada execução do programa).

Abraços,

Graymalkin

[Guest Fernando Mallz]

Mas como criar varios numeros aleatorios e q não tenha nehum numero igual a outro?

[kuroi]

esse é um codigo q o graymalkin postou aqui no forum há algum tempo, q faz isso q você quer. ai é so você adaptar:

Dim pessoas As New Collection
    
    Do While pessoas.Count <> 32
        n = Int(Rnd() * 32) + 1
        achou = False
        For Each pessoa In pessoas
            If pessoa = n Then
                achou = True
            End If
        Next pessoa
        
        If Not achou Then
            pessoas.Add n
        End If
    Loop
    
    grupo = 1
    For i = 1 To 32 Step 4
        Debug.Print "Grupo nº " & grupo & ": ", pessoas(i), pessoas(i + 1), pessoas(i + 2), pessoas(i + 3)
        grupo = grupo + 1
    Next i[/code]