RANDOMIZAR NOMES

USUARIO.EXCLUIDOS 10/04/2007 08:09:57
#210915
Blz pessoal?!

To com uma dificuldadezinha aqui, eu consegui fazer um randomizer para números e tal... blz... mas precisa randomizar nomes em uma label...

tem alguma forma de se fazer isso?!

vlws
VBAPRENDE 10/04/2007 08:30:54
#210921
Você poderia fazer o seguinte criaria uma tabela no banco de dados da seguinte forma, Campos (codigo e nome) ai quanto fazer randomizer você rondomiza em sima do codigo e bsca o nome. O numero que for gerado é o que você busca no banco de dados. Coloca para gerar o numero entre os codigos que você tem em seu banco de dados.

Espero ter ajudado !!!
USUARIO.EXCLUIDOS 10/04/2007 08:48:39
#210927
Entao cara blz?!

é que assim, eu to criando um jogo de rpg baseado em turno e não quero usar o BD por enquanto, é como se fosse um super trunfo, ele gera a maioria das coisas via código, um exemplo, o ataque e a defesa do Monstro é gerado baseando-se no nível do mesmo!

Então eu precisaria de um código que randomizasse nomes e depois disso eu iria criar um código para relacionar os níveis aos nomes e assim o resto das informações seriam relacionadas ao nome e ao nível do monstro.

por enquanto eu não vou usar BD porque eu pre-defini os personagens com armas, ataques, defesas e magias, se caso eu for fazer um sisteminha de troca de equipamento sim, ai eu vou usar um BD, mas por enquanto não!!

Vlw pela dica...
FABIO.LOUREIRO 10/04/2007 08:49:26
#210928 Resposta escolhida
Private Sub Form_Load()

Dim chr_Array(35)
Dim chave As String

chr_Array(0) = "0"
chr_Array(1) = "1"
chr_Array(2) = "2"
chr_Array(3) = "3"
chr_Array(4) = "4"
chr_Array(5) = "5"
chr_Array(6) = "6"
chr_Array(7) = "7"
chr_Array(8) = "8"
chr_Array(9) = "9"
chr_Array(10) = "a"
chr_Array(11) = "b"
chr_Array(12) = "c"
chr_Array(13) = "d"
chr_Array(14) = "e"
chr_Array(15) = "f"
chr_Array(16) = "g"
chr_Array(17) = "h"
chr_Array(18) = "i"
chr_Array(19) = "j"
chr_Array(20) = "k"
chr_Array(21) = "l"
chr_Array(22) = "m"
chr_Array(23) = "n"
chr_Array(24) = "o"
chr_Array(25) = "p"
chr_Array(26) = "q"
chr_Array(27) = "r"
chr_Array(28) = "s"
chr_Array(29) = "t"
chr_Array(30) = "u"
chr_Array(31) = "v"
chr_Array(32) = "w"
chr_Array(33) = "x"
chr_Array(34) = "y"
chr_Array(35) = "z"

Randomize
chave = ""
Do While Len(chave) < 6
num = chr_Array(Int(35 * Rnd))
chave = chave + num
Loop

MsgBox chave
End Sub
USUARIO.EXCLUIDOS 10/04/2007 08:55:18
#210930
Crie um vetor com o tamanho de posicoes iguais ao numero de Nomes q deseja sortear. Preencha o vetor com os nomes.
Agora é so sortear um numero de 0 ate o numero de nomes -1.
Sendo assim, vc acessa o vetor na posicao sorteada e pronto... random de nomes.
Nao tenho de kbça agora o codigo de random com limite...
veja este link: http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=5437
'mas acho q é isso:
Randomize
nRandom = int(50 * rnd + 1)
'onde 50 é o numero maximo do Random
FABIO.LOUREIRO 10/04/2007 08:57:02
#210931
ou melhor, coloque um label no form

Private Sub Form_Load()

Dim chr_Array() As Variant
Dim chave As String

ReDim chr_Array(Len(Label1.Caption))
    For i = 1 To Len(Label1.Caption)
        chr_Array(i) = Mid(Label1.Caption, i, 1)
    Next
        
Randomize
chave = ""
Do While Len(chave) < Len(Label1.Caption)
    num = chr_Array(Int(Len(Label1.Caption) * Rnd))
    chave = chave + num
Loop

MsgBox chave
End Sub
USUARIO.EXCLUIDOS 10/04/2007 09:19:43
#210939
Galera obrigado pelas ajudas, vou utilizar o que o Fabio Loureiro posto achei interessante e funcionou de acordo com o que eu estava precisando! grato
Tópico encerrado , respostas não são mais permitidas
Voltar