AJUDA COM RAND - NUMERO ALERTORIO SEM REPETICAO

GABRIEL 12/04/2013 00:03:18
#421822
Fala pessoal
preciso gerar um rand de 10 e um de 20 numero, aleartoriamente, mais nao pode ser repetir

alguem tem alguma sugestao pra me ajudar ???

agradeço quem puder me dar uma luz

abraços
TUNUSAT 12/04/2013 08:27:51
#421827
Gabriel,

Veja se é isto que você procura:

[ô]------------------------------------------------------

Private Sub Form_Load()
   Dim qtde As Integer
   Dim lista(9) As Integer
   Dim n As Byte
   Dim i As Byte
   Dim blnTesta As Boolean
   Dim strLista As String


    Randomize Timer
   
    While qtde < 10
        [ô]Gera número aleatório entre 1 e 10
        n = Int(1 + rnd * 10)
        blnTesta = True
                
        [ô]Verifica se o número sorteado existe na lista
        For i = 0 To UBound(lista)
         
            [ô]Se não existir, adiciona na lista
            If lista(i) = n Then
                blnTesta = False
                Exit For
            End If
        
        Next
        
        If blnTesta Then
            lista(qtde) = n
            qtde = qtde + 1
        End If
        
    Wend
   
    For i = 0 To UBound(lista)
        strLista = strLista & lista(i) & [Ô];[Ô]
    Next

    MsgBox strLista

End Sub


[ô]------------------------------------------------------
NETMANIA 12/04/2013 13:39:17
#421856
Se você puder usar uma sequência aleatória de letras e números, você pode gerar um hash MD5, alimentando a informação com um número aleatório, mais a data (no formato dd/mm/aaaa) e hora (no formato hh:mi:ss) tudo junto. Como o código sempre possui 32 caracteres e usando uma [Ô]frase[Ô] conforme descrito acima, a chance de ter um valor duplicado é praticamente zero.
Faça seu login para responder
Voltar