1. Registered User
Join Date
Apr 2004
Posts
4

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. Registered User
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. Registered User
Join Date
Oct 2003
Location
Ger
Posts
1,969
Try

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

4. Registered User
Join Date
Oct 2003
Location
Ger
Posts
1,969