devxlogo

Using Rnd Function

Using Rnd Function

Question:
Is there any way I can have a % chance in random events. (say you click on a button and you have a 30% chance of it doing one thing, a 20% chance of doing another, and a 50% chance of it doing another) I have no idea on how to use any of the random # generater commands.

Answer:
There are two commands/functions you need to use. The first is the Randomize statement… this initializes the random number generator. The second is the Rnd function, which will return a random number between 0 and 1, inclusive. Here’s an example of how you might use it to do your 30/20/50 determination:

Sub GetRandomNumber()   Dim tmp as Single   Randomize        ‘ Initialize generator   tmp = Rnd()   if tmp >= 0 And tmp  .3 And tmp 

devx-admin

Share the Post: