Naum Sei Como...

[Guest - tito -]

Procurei aqui nos tópicos e não localizei nada a respeito, ou quase nada.

Bom, eu gostaria de pegar uma variavel x contendo os caracteres

de A à Z e através desta gerar uma senha de 6 digitos de ordem

desconhecida e de impossível duplicação.

Bom, no delphi eu utilizava o random mais no Vb com Rnd só

obtive numeros e não sequencia de letras...

se possível aguardo respostas...

Vlws...

[Fabson]

acho que isso resolve ...

Private Sub gerar_senha_Click()

Dim i As Integer

Dim Senha As String

Senha = ""

For i = 1 To 6

Randomize

Senha = Senha + Chr((Int(Rnd * 26) + 65))

Next i

MsgBox Senha

End Sub

qualquer coisa

fts@salioni.com.br

[Guest - tito -]

Cara,...me ajudou e muito,...

mas sem querer abusar, teria como me explicar passo a passo o seu

código?!..

se sim muito obrigado, se não também obrigado,...

Victor

[Fabson]

a idéia é: o RND não sorteia letras e sim numeros, o comando Int(RND * 26) sorteia um numero de 1 a 26. você sabe que cada letra tem um codigo ASC, por exemplo a letra "A" o codigo ASC é 65 a "B" é 66 e sucessivamente ... então eu sorteio um numero entre 1 e 26 que é a quantidade do alfabeto e somo 65 e transformo em letra através do comando chr().

imagine que você executou o programa e ele sorteou o numero 10 + 65 = 75 o ASC de 75 é "K" se ele sortear o numero 4 + 65 = 69 que é a letra E e assim ele faz por 6 vezes e aguarda na string senha.

se fosse fazer passo a passo ficaria assim:

Private Sub gerar_senha_Click()

Dim i As Integer

Dim numero_sorteado as integer

Dim Senha As String

Senha = ""

For i = 1 To 6

Randomize

numero_sorteado = int(Rnd*26)

numero_sorteado = numero_sorteado + 65

Senha = Senha + Chr(numero_sorteado)

Next i

MsgBox Senha

End Sub