duvida, codigo aleatorio com palavras pré definidas...

[skylopirata]

como fazer um codigo aleatorio com os valores pré definidos, já dei uma olhada no forum... sei como utilizar o (ramdonmize) mais somente como gerar codigos com NUMEROS aleatorios, não com palavras pré denifidas. ex:

determinei 10 nomes de frutas. para o programa escolher alguma quando o usuario clicar no botao, "ok"

o usuario clica.

o programa escolher alguma... e mostra na tela

ex: maça, abacaxi, melao, melancia..... qual comando deve utilizar para fazer esse codigo?

Obrigado pela ajuda pessoal.

Abraçosss.. :rolleyes:

[Jonathan Queiroz]

Você pode armazenar os nomes de frutas num array com posições de 0 a 10, gerar um número nesse intervalo e puxar o valor novamente

[skylopirata]

amigos seria alguma coisa parecida com isso ?

Dim x As Byte

Dim fruta (1 To 5) As String

fruta(1) = "teste1"

fruta(2) = "teste2"

fruta(3) = "teste3"

fruta(4) = "teste4"

fruta(5) = "teste5"

Randomize

x = Int(Rnd * 5) + 1

For i = 1 To 5

Text1.Text = serial(i)

Next

imaginei alguma coisa assim??? mais só esta aparecendo o teste 5, alguém tem alguma ideia para me ajudar??

grato.

perdao, ali onde esta escrito serial = fruta

correção

[kuroi]

você randomizou no x mas nem usou ele...

seria assim:

Randomize
x = Int(Rnd * 5) + 1

Text1.Text = fruta(x)[/code]
mas nesse caso ele vai retornar uma unica fruta random
por acaso você queria q ele trouxesse todas numa ordem random??
se for, você vai ter q retirar cada um do array cada vez q você fizer o rnd.
tipo assim, faca o primero rnd, e ele encontra o valor 3 tres por exemplo. pegue a fruta 3, e troque com o ultimo indice. em seguida faca o rnd assumindo q o vetor tem uma posicao a menos e assim por diante.

Editado Maio 21, 2009 por kuroi

[skylopirata]

pessoal valeu pela ajuda.

Funcionou perfeitamente.

Grato pela ajuda!