RANDOMIZE

KAIBOLL 29/12/2009 19:49:46
#330704
Estou com uma dúvida sobre rnd..peuei um exemplo aui no site para gerar números aleatórios com intervalos...[ô]funciona[Ô], coloque com 3 números só que o número 2 num escala 100 tentativas ele sempre é o dobro dos outros dois...talvez num ficou claro, mas peguem o exemplo em anexo e click no botao Command2 e vejam o código tá bem simples.
LLAIA 30/12/2009 20:01:09
#330795
cara não tá claro o seu problema. o que a gente tem que fazer pra simular a sua questão.
EDERMIR 30/12/2009 23:36:03
#330810 Resposta escolhida
Tente esta fórmula:
Form1.Caption = Int((maiorvalor - menorvalor + 1) * Rnd + menorvalor)
Randomize
KAIBOLL 31/12/2009 00:22:02
#330811
se neste seu código vou executar...de 10 tentativas a probabilidade de dá o número é 90 %
TECLA 31/12/2009 09:38:24
#330825
Seguindo a dica do colega EDERMIR, altere a função conforme abaixo:
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
     Randomize[txt-color=#007100] [ô] inicializar la semilla[/txt-color]
     Aleatorio = CLng((Maximo - Minimo) * Rnd + Minimo)
End Function
KAIBOLL 31/12/2009 10:34:34
#330829
TECLA ele sorteia sim ... o que eu quero dizer é o seguinte...se eu coloco o valorminimo = 1 e valormaximo = 3 , é pra me mostrar como resultado 1,2 ou 3 num é isso? só que eu coloquei no exemplo acima...o número 2 sai com muita mais frequencia do que o 1 ou o 3....no exemplo que mostrei acima mandei executar esse código 100 vezes e como resultado aparecer quantas vezes o número foi sorteado o npumero 2 e o numero 3....e é impossível o número 1 sair com mais frequencia que o número 2...pegue o exemplo e faça o teste, basta clica no botão command2

obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar