52 Card Deck Maker

Category:

Office/VBA

Type:

Snippets

Difficulty:

Beginning

Author:

Patrick

Version Compatibility: Visual Basic 6, Visual Basic 5, Visual Basic.NET

More information:

I was playing around with some BlackJack and Poker analysis in Excel. This base code for building a deck of cards will populate a variable with face name, suit, blackjack value, and Poker rankings.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Base 1

Code:

Sub DeckMaker()

Dim BasicDeck(52, 4)
'Created by Patrick.day.b@bayer.com 05/12/05

'Basic Deck:  Each card sequentially indexed 1 to 52
                'The first modifier is FaceValue
                'the second modifier is Suit
                'the third modifier is value in BlackJack
                'the 4th modifier is Value in Poker
                
 For Index = 1 To 13
    Select Case Index
        Case 1
            FaceValue = "Ace"
            CardValueBJ = 11
            CardValuePoker = 13
        Case 2
            FaceValue = "2"
            CardValueBJ = 2
            CardValuePoker = 1
        Case 3
            FaceValue = "3"
            CardValueBJ = 3
            CardValuePoker = 2
        Case 4
            FaceValue = "4"
            CardValueBJ = 4
            CardValuePoker = 3
        Case 5
            FaceValue = "5"
            CardValueBJ = 5
            CardValuePoker = 4
        Case 6
            FaceValue = "6"
            CardValueBJ = 6
            CardValuePoker = 5
        Case 7
            FaceValue = "7"
            CardValueBJ = 7
            CardValuePoker = 6
        Case 8
            FaceValue = "8"
            CardValueBJ = 8
            CardValuePoker = 7
        Case 9
            FaceValue = "9"
            CardValueBJ = 9
            CardValuePoker = 8
        Case 10
            FaceValue = "10"
            CardValueBJ = 10
            CardValuePoker = 9
        Case 11
            FaceValue = "Jack"
            CardValueBJ = 10
            CardValuePoker = 10
        Case 12
            FaceValue = "Queen"
            CardValueBJ = 10
            CardValuePoker = 11
        Case 13
            FaceValue = "King"
            CardValueBJ = 10
            CardValuePoker = 12
        End Select
        
    BasicDeck(Index, 1) = FaceValue
    BasicDeck(Index, 2) = "Hearts"
    BasicDeck(Index, 3) = CardValueBJ
    BasicDeck(Index, 4) = CardValuePoker
    
    BasicDeck(Index + 13, 1) = FaceValue
    BasicDeck(Index + 13, 2) = "Clubs"
    BasicDeck(Index + 13, 3) = CardValueBJ
    BasicDeck(Index + 13, 4) = CardValuePoker
 
    BasicDeck(Index + 26, 1) = FaceValue
    BasicDeck(Index + 26, 2) = "Diamonds"
    BasicDeck(Index + 26, 3) = CardValueBJ
    BasicDeck(Index + 26, 4) = CardValuePoker
    
    BasicDeck(Index + 39, 1) = FaceValue
    BasicDeck(Index + 39, 2) = "Spades"
    BasicDeck(Index + 39, 3) = CardValueBJ
    BasicDeck(Index + 39, 4) = CardValuePoker
    
 Next Index

End Sub