## Deal Playing Card Decks FunctionMath Probability Class

```Public Function DealPlayingCardDecks( _
ByRef rDeck() As Variant _
, Optional ByVal vNumDecks As Variant _
, Optional ByVal vUseJokers As Variant _
) As Boolean```

### Deal Playing Cards Deal one or more decks of playing cards (where each card is represented by a string) into an array.

Example:
```    Assuming
Dim avarDeck() As Variant
Rnd(-1) =  0.224007
for example
DealPlayingCardDecks(avarDeck(), 1, False) = True
leaves
LBound(avarDeck) = 0
UBound(avarDeck) = 52
IsEmpty(avarDeck(0)) = True
avarDeck(1) = "KC"
avarDeck(2) = "2D"
...
avarDeck(51) = "7C"
avarDeck(52) = "7A"```
Note: The call to the Visual Basic Rnd function in the above example seeds the Visual Basic random number generator so that the sample results can be reproduced. There is generally no need to call the Rnd function within your programs since Entisoft Tools initializes the Visual Basic random number generator once with "Randomize" statement.
```    DealPlayingCardDecksSample Subroutine
ShuffleVariantVector Function
SpellPlayingCard Function
RandomLongGenerator Function```
rDeck: A dynamic array of Variant values into which the deck(s) of cards will be dealt. Function will always reinitialize this array, even if it otherwise has a problem and returns False.

vNumDecks: The number of decks of playing cards which are to be dealt. vNumDecks defaults to 1 (one) if it is missing or Null or cannot be fixed up to a number. Function does nothing and returns False if vNumDecks is not between 1 (one) and 8 (eight).

vUseJokers: Determines whether two Joker cards will be dealt along with each deck. vUseJokers defaults to False if it is missing or Null or cannot be fixed up to a number.

Summary: Each card is represented by a two- or three-character string that describes the number of the card and its suite. The card abbreviation is composed of one value from each of the following tables:
Card Numbers:

```    1      Joker
2..10  Numbered cards 2 through 10
J      Jack
Q      Queen
K      King
A      Ace```
Card Suites:
```    A  Aces
C  Clubs
D  Diamonds