vb Comando Randomize E A Funcção Rnd

[Sayfor 0]

Private sub cmdgeranum_click( )

RANDOMIZE

numGerado = CINT(RND * 10)

msgbox numGerado

end sub

*O número 10 indica o último número do intervalo que será gerado pela função RND.

Caso você deseje gerar números do intervalo entre 0 e 100, basta substituir o número 10 pelo número 100.

*Na linha onde a função RND foi usada, perceba que usamos a função CINT. Com isto o computador irá gerar números do intervalo entre 0 e 10 SEM AS CASAS DECIMAIS, ou seja, SERÃO GERADOS SOMENTE NÚMEROS INTEIROS

[Ablank 7]

kra muito obrigado tava precisando dessa função t amo =*

//Yours Ablankzin

[Sayfor 0]

Disponha se precisar de ajuda é só postar aqui e se eu demorar a responder manda MP

[Nostradamus 6]

Podemos fazer uma bem mais estruturada também

Fiz um exemplo também:

Função RND

[sirr dark urban 0]

Muito bom esse tutorial.

É bem útil, hehe.

Parabéns

[The Bol 0]

Olá Sayfor!

Desenvolvi uma função parecida, porém você pode escolher um valor mínimo para o Random.

Observe:

 

Private Function Random(Minimo As Long, Maximo As Long) As StringDim Tmp As LongDo While Tmp < Minimo     Tmp = Rnd(9) * MaximoLoopRandom = TmpEnd Function

 

Espero que tenha ajudado.

Abraços,

//Bol~ (Esperando reativação da conta Boleta)

[Sayfor 0]

Olá Sayfor!

Desenvolvi uma função parecida, porém você pode escolher um valor mínimo para o Random.

Observe:

 

Private Function Random(Minimo As Long, Maximo As Long) As StringDim Tmp As LongDo While Tmp < Minimo     Tmp = Rnd(9) * MaximoLoopRandom = TmpEnd Function

 

Espero que tenha ajudado.

Abraços,

//Bol~ (Esperando reativação da conta Boleta)

 

<{POST_SNAPBACK}>

 

 

Boa função =]

Parabens

[Caicheiro 7]

Naum intendo de progrmaçao, vc poderia de dizer para q serve issu?

[Nostradamus 6]

@Caicheiro

Para gerar números randômicos.