Results 1 to 4 of 4
  1. #1
    Join Date
    Apr 2004
    Posts
    4

    Unanswered: Random Number Generation

    I want to create a blackjack or 5 card draw game with access because here at work they have removed the games from all of the network pc's. I must now resort to this method. Can someone give me the code which would randomly generate data in a table, and then output to a text box on the main form? I can find nothing about this anywhere, so maybe you VB gurus can make it happen. THanks all. Eagerly awaiting your reply.

  2. #2
    Join Date
    Mar 2004
    Location
    belgium
    Posts
    290
    Dim MyValue
    Randomize ' Initialize random-number generator.

    MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.

    OR

    RND Function
    -------------
    Returns a Single containing a random number.

    Syntax -> Rnd[(number)]

    The optional number argument is a Single or any valid numeric expression.

    Return Values
    -------------
    If number is Less than zero Rnd generates
    =>The same number every time, using number as the seed.
    If number is Greater than zero Rnd generates
    =>The next random number in the sequence.
    If number is Equal to zero Rnd generates
    =>The most recently generated number.
    If number is Not supllied Rnd generates
    =>The next random number in the sequence.

    Remarks

    The Rnd function returns a value less than 1 but greater than or equal to zero.

    The value of number determines how Rnd generates a random number:

    For any given initial seed, the same number sequence is generated because each successive call to the Rnd function uses the previous number as a seed for the next number in the sequence.

    Before calling Rnd, use the Randomize statement without an argument to initialize the random-number generator with a seed based on the system timer.

    To produce random integers in a given range, use this formula:

    Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

    Here, upperbound is the highest number in the range, and lowerbound is the lowest number in the range.

    Note To repeat sequences of random numbers, call Rnd with a negative argument immediately before using Randomize with a numeric argument. Using Randomize with the same value for number does not repeat the previous sequence.

    Hope it is usefull

    emiel
    Last edited by emiel; 11-07-04 at 06:11.

  3. #3
    Join Date
    Oct 2003
    Location
    Ger
    Posts
    1,969
    Provided Answers: 1
    Try

    Randomize (Timer)
    yourRandNum = Rnd * (6 - 1)) + 1

  4. #4
    Join Date
    Oct 2003
    Location
    Ger
    Posts
    1,969
    Provided Answers: 1
    This will produce real numbers i.e with decimal points. Then you have to get the Int of those

    int( Rnd * (6- 1) + 1)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •