SISTEMA DE RANDOM
Estou trabalhando em um projeto onde preciso utilizar números aleatórios e converte-los para base 6 , já que o projeto teria que simular uma parada de dados.
No entanto o comando random do VB se mostrou repetitivo e obvio demais.
Me aconselharam a utilizar o segundo do windows como multiplicador para o random , fazendo assim com que os números fossem sempre modificados , no entanto não encontrei jeito de fazer isso , alguem ai pode me ajudar?
Desde já grato pela colaboração....
No entanto o comando random do VB se mostrou repetitivo e obvio demais.
Me aconselharam a utilizar o segundo do windows como multiplicador para o random , fazendo assim com que os números fossem sempre modificados , no entanto não encontrei jeito de fazer isso , alguem ai pode me ajudar?
Desde já grato pela colaboração....
se você usou a função RND, tente colocar acima desta função RANDOMIZE :
Espero ter ajudado,
Harry Potter (pauloharrypotter@hotmail.com ==>
Randomize
num = int(rnd(1)*10)
Espero ter ajudado,
Harry Potter (pauloharrypotter@hotmail.com ==>
Experimente assim :
Public Function Aleatorio(ByVal Min As Long, ByVal max As Long) As Long
Randomize Timer
Aleatorio = CLng(Rnd * (max - Min)) + Min
End Function
onde Min e Max são os valores minimos e m[áximos que podem ser gerados
Abs
Public Function Aleatorio(ByVal Min As Long, ByVal max As Long) As Long
Randomize Timer
Aleatorio = CLng(Rnd * (max - Min)) + Min
End Function
onde Min e Max são os valores minimos e m[áximos que podem ser gerados
Abs
Tópico encerrado , respostas não são mais permitidas