como mejorar lanzamiento dados

Iniciado por dmgdani, 17 Febrero 2012, 01:54 AM

0 Miembros y 1 Visitante están viendo este tema.

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

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

Código (vb) [Seleccionar]

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.
Can you see it?
The worst is over
The monsters in my head are scared of love
Fallen people listen up! It's never too late to change our luck
So, don't let them steal your light
Don't let them break your stride
There is light on the other side
And you'll see all the raindrops falling behind
Make it out tonight
it's a revolution

CL!!!

dmgdani

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

muchas gracias
un saludo