como mejorar lanzamiento dados

[dmgdani]

hola todos soy nuevo en este foro y espero aportar cosas hoy me toca a mi hacer la pregunta pero quizas sea yo otro dia el que te la responda.

Queria simular el lanzamiento de un dado e probado con el siguiente codigo pero los resultados son casi siempre los mismos es decir que son poco reales los resultados.

  Randomize
  numdado = Int(Rnd * 6) + 1


Habria alguna otra manera de poder obtener unos resultados mas normales al lanzamiento de un dado


tengo tambien otra duda como puedo calcual es el valor mas alto de cinco numeros
he probado con algunos ejemplos que he visto en el foro pero no e tenido muy buenos resultados.


un saludo a todos

[Miseryk]

Hola, tal vez, ésto sea de ayuda, es una función que se utiliza en el Argentum Online.

Código (vb) [Seleccionar] Expandir


Public Function RandomNumber(ByVal LowerBound As Long, ByVal UpperBound As Long) As Long
   'Initialize randomizer
   Randomize Timer
   
   'Generate random number
   RandomNumber = (UpperBound - LowerBound) * Rnd + LowerBound
End Function

'Forma de uso
Variable = RandomNumber(1, 6) 'Numero del 1 al 6


Igual se puede deducir haciendo Rnd * 1 y ver la disperción de valores del mismo. Suerte, hasta pronto.

[dmgdani]

muchas gracias aunque me sigue dando casi los mismos resultados que el
que puse arriba.

muchas gracias
un saludo