API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 11th, 2016
111
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 20.01 KB | None | 0 0
raw download clone embed print report
  1.   Option Explicit
  2.   Dim Instructions As String
  3.   Dim strCard As String
  4.   Dim strRightCards As String
  5.   Dim strLeftCards As String
  6.   Dim intNumberCardsDeck As Integer
  7.   Dim intRandomNumber As Integer
  8.   Dim counter As Integer
  9.   Dim StrDeck As String
  10.   Dim PlayerCard1 As String
  11.   Dim PlayerCard2 As String
  12.   Dim PlayerCard3 As String
  13.   Dim PlayerCard4 As String
  14.   Dim PlayerCard5 As String
  15.   Dim PlayerDeck As String
  16.   Dim ComputerDeck As String
  17.   Dim Clovers As String
  18.   Dim Diamonds As String
  19.   Dim Spades As String
  20.   Dim Hearts As String
  21.   Dim Trump As String
  22.   Dim TrumpSuit As String
  23.   Dim PlayerPoints As Integer
  24.   Dim ComputerPoints As Integer
  25.   Dim ComputerPlayedCard As String
  26.   Dim PlayerPlayedCard As String
  27.   Dim Points As Integer
  28.  
  29.  
  30. Private Sub cmdExit_Click()
  31.     Unload Me
  32. End Sub
  33. Private Sub cmdInstructions_Click()
  34.     lblTitle.Visible = True
  35.     Instructions = MsgBox("You will be dealt 5 cards with suits. One card will be shown as the trump suit. The trick will be played in turns. The highest card at the end of the trick wins. Each trick is worth 15 points. First person to 45 points wins hence the name of the game.", vbOKOnly, Instructions)
  36. End Sub
  37. Private Sub cmdPlay_Click()
  38.            
  39.     lblPlayerCards.Visible = True
  40.        
  41.     Clovers = "c"
  42.     Diamonds = "d"
  43.     Hearts = "h"
  44.     Spades = "s"
  45.    
  46.    
  47.     PlayerDeck = Mid(StrDeck, 1, 10)
  48.     ComputerDeck = Mid(StrDeck, 11, 10)
  49.     Debug.Print PlayerDeck
  50.     Trump = Mid(StrDeck, 50, 2)
  51.    
  52.     lblTrump.Caption = Trump
  53.     lblComputerCards = ComputerDeck
  54.     If InStr(1, Trump, Clovers) > 0 Then
  55.         TrumpSuit = "Clovers"
  56.     ElseIf InStr(1, Trump, Hearts) > 0 Then
  57.         TrumpSuit = "Hearts"
  58.     ElseIf InStr(1, Trump, Diamonds) > 0 Then
  59.         TrumpSuit = "Diamonds"
  60.     Else: TrumpSuit = "Spades"
  61.     End If
  62.    
  63.     PlayerCard1 = Mid(PlayerDeck, 1, 2)
  64.     PlayerCard2 = Mid(PlayerDeck, 3, 2)
  65.     PlayerCard3 = Mid(PlayerDeck, 5, 2)
  66.     PlayerCard4 = Mid(PlayerDeck, 7, 2)
  67.     PlayerCard5 = Mid(PlayerDeck, 9, 2)
  68.    
  69.     cmdPlayerCard1.Caption = PlayerCard1
  70.     cmdPlayerCard2.Caption = PlayerCard2
  71.     cmdPlayerCard3.Caption = PlayerCard3
  72.     cmdPlayerCard4.Caption = PlayerCard4
  73.     cmdPlayerCard5.Caption = PlayerCard5
  74.    
  75.     cmdPlayerCard1.Visible = True
  76.     cmdPlayerCard2.Visible = True
  77.     cmdPlayerCard3.Visible = True
  78.     cmdPlayerCard4.Visible = True
  79.     cmdPlayerCard5.Visible = True
  80.    
  81.     lblTrumpSuit = TrumpSuit
  82.    
  83.     If cmdPlayerCard1.Caption = "" And cmdPlayerCard2.Caption = "" And cmdPlayerCard3.Caption = "" And cmdPlayerCard4.Caption = "" And cmdPlayerCard5.Caption = "" Then
  84.     For counter = 1 To 200
  85.         intRandomNumber = Int((52 - 1 + 1) * Rnd + 1)
  86.         intRandomNumber = (intRandomNumber * 2) - 1
  87.    
  88.         'Take the card at position intRandomNumber and move it to the bottom of deck
  89.        'Do move the card if it's the card at bottom of the deck
  90.        If intRandomNumber <> 52 Then
  91.             strLeftCards = Left(StrDeck, intRandomNumber - 1)
  92.             strCard = Mid(StrDeck, intRandomNumber, 2)
  93.             strRightCards = Right(StrDeck, 104 - intRandomNumber - 1)
  94.            
  95.             'Put random card at the bottom of deck
  96.            StrDeck = strLeftCards + strRightCards + strCard
  97.         End If
  98.     Next counter
  99.     lblTrump.Caption = ""
  100.     PlayerDeck = Mid(StrDeck, 1, 10)
  101.     ComputerDeck = Mid(StrDeck, 11, 10)
  102.     Trump = Mid(StrDeck, 50, 2)
  103.     Debug.Print PlayerDeck
  104.     lblTrump.Caption = Trump
  105.     lblComputerCards = ComputerDeck
  106.    
  107.     PlayerCard1 = Mid(PlayerDeck, 1, 2)
  108.     PlayerCard2 = Mid(PlayerDeck, 3, 2)
  109.     PlayerCard3 = Mid(PlayerDeck, 5, 2)
  110.     PlayerCard4 = Mid(PlayerDeck, 7, 2)
  111.     PlayerCard5 = Mid(PlayerDeck, 9, 2)
  112.    
  113.     cmdPlayerCard1.Caption = PlayerCard1
  114.     cmdPlayerCard2.Caption = PlayerCard2
  115.     cmdPlayerCard3.Caption = PlayerCard3
  116.     cmdPlayerCard4.Caption = PlayerCard4
  117.     cmdPlayerCard5.Caption = PlayerCard5
  118.     lblPlayerPlayedCard.Caption = ""
  119.     lblComputerPlayedCard.Caption = ""
  120.    
  121.       If InStr(1, Trump, Clovers) > 0 Then
  122.         TrumpSuit = "Clovers"
  123.     ElseIf InStr(1, Trump, Hearts) > 0 Then
  124.         TrumpSuit = "Hearts"
  125.     ElseIf InStr(1, Trump, Diamonds) > 0 Then
  126.         TrumpSuit = "Diamonds"
  127.     Else: TrumpSuit = "Spades"
  128.     End If
  129.    
  130.     lblTrumpSuit = TrumpSuit
  131.     lblResult = ""
  132.     End If
  133.    
  134. End Sub
  135.  
  136. Private Sub cmdPlayerCard1_Click()
  137.     ComputerPlayedCard = Mid(ComputerDeck, Int((8 - 1 + 1) * Rnd + 1), 2)
  138.     PlayerPlayedCard = PlayerCard1
  139.     lblPlayerPlayedCard.Caption = PlayerPlayedCard
  140.     lblComputerPlayedCard.Caption = ComputerPlayedCard
  141.     cmdPlayerCard1.Caption = ""
  142.    
  143.     For PlayerPoints = 1 To 45
  144.         If InStr(1, Clovers, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Clovers) = 0 Then
  145.             lblResult.Caption = "Computer Wins"
  146.             ComputerPoints = ComputerPoints + 15
  147.         ElseIf InStr(1, Clovers, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Clovers) > 0 Then
  148.             lblResult.Caption = "Player Wins"
  149.             PlayerPoints = PlayerPoints + 15
  150.         ElseIf InStr(1, Hearts, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Hearts) = 0 Then
  151.             lblResult.Caption = "Computer Wins"
  152.                ComputerPoints = ComputerPoints + 15
  153.         ElseIf InStr(1, Hearts, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Hearts) > 0 Then
  154.             lblResult.Caption = "Player Wins"
  155.             PlayerPoints = PlayerPoints + 15
  156.         ElseIf InStr(1, Diamonds, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Diamonds) = 0 Then
  157.             lblResult.Caption = "Computer Wins"
  158.                ComputerPoints = ComputerPoints + 15
  159.         ElseIf InStr(1, Diamonds, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Diamonds) > 0 Then
  160.             lblResult.Caption = "Player Wins"
  161.             PlayerPoints = PlayerPoints + 15
  162.         ElseIf InStr(1, Spades, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Spades) = 0 Then
  163.             lblResult.Caption = "Computer Wins"
  164.                ComputerPoints = ComputerPoints + 15
  165.         ElseIf InStr(1, Spades, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Spades) > 0 Then
  166.             lblResult.Caption = "Player Wins"
  167.             PlayerPoints = PlayerPoints + 15
  168.         ElseIf PlayerPoints = 45 Then
  169.             lblResult.Caption = "Congratulations! You Win!"
  170.         ElseIf ComputerPoints = 45 Then
  171.             lblResult.Caption = "Aww, better luck next time!"
  172.         Else: lblResult.Caption = ""
  173.         End If
  174.     Next
  175.  
  176.    
  177. End Sub
  178.  
  179. Private Sub cmdPlayerCard2_Click()
  180.      ComputerPlayedCard = Mid(ComputerDeck, Int((8 - 1 + 1) * Rnd + 1), 2)
  181.      PlayerPlayedCard = PlayerCard2
  182.      lblPlayerPlayedCard.Caption = PlayerPlayedCard
  183.      lblComputerPlayedCard.Caption = ComputerPlayedCard
  184.      cmdPlayerCard2.Caption = ""
  185.      
  186.    For Points = 1 To 45
  187.         If InStr(1, Clovers, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Clovers) = 0 Then
  188.             lblResult.Caption = "Computer Wins"
  189.             ComputerPoints = ComputerPoints + 15
  190.         ElseIf InStr(1, Clovers, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Clovers) > 0 Then
  191.             lblResult.Caption = "Player Wins"
  192.             PlayerPoints = PlayerPoints + 15
  193.         ElseIf InStr(1, Hearts, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Hearts) = 0 Then
  194.             lblResult.Caption = "Computer Wins"
  195.                ComputerPoints = ComputerPoints + 15
  196.         ElseIf InStr(1, Hearts, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Hearts) > 0 Then
  197.             lblResult.Caption = "Player Wins"
  198.             PlayerPoints = PlayerPoints + 15
  199.         ElseIf InStr(1, Diamonds, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Diamonds) = 0 Then
  200.             lblResult.Caption = "Computer Wins"
  201.                ComputerPoints = ComputerPoints + 15
  202.         ElseIf InStr(1, Diamonds, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Diamonds) > 0 Then
  203.             lblResult.Caption = "Player Wins"
  204.             PlayerPoints = PlayerPoints + 15
  205.         ElseIf InStr(1, Spades, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Spades) = 0 Then
  206.             lblResult.Caption = "Computer Wins"
  207.                ComputerPoints = ComputerPoints + 15
  208.         ElseIf InStr(1, Spades, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Spades) > 0 Then
  209.             lblResult.Caption = "Player Wins"
  210.             PlayerPoints = PlayerPoints + 15
  211.         ElseIf PlayerPoints = 45 Then
  212.             lblResult.Caption = "Congratulations! You Win!"
  213.         ElseIf ComputerPoints = 45 Then
  214.             lblResult.Caption = "Aww, better luck next time!"
  215.         Else: lblResult.Caption = ""
  216.         End If
  217.     Next
  218. End Sub
  219.  
  220. Private Sub cmdPlayerCard3_Click()
  221.      ComputerPlayedCard = Mid(ComputerDeck, Int((8 - 1 + 1) * Rnd + 1), 2)
  222.      PlayerPlayedCard = PlayerCard3
  223.      lblPlayerPlayedCard.Caption = PlayerPlayedCard
  224.      lblComputerPlayedCard.Caption = ComputerPlayedCard
  225.      cmdPlayerCard3.Caption = ""
  226.      
  227.  For Points = 1 To 45
  228.         If InStr(1, Clovers, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Clovers) = 0 Then
  229.             lblResult.Caption = "Computer Wins"
  230.             ComputerPoints = ComputerPoints + 15
  231.         ElseIf InStr(1, Clovers, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Clovers) > 0 Then
  232.             lblResult.Caption = "Player Wins"
  233.             PlayerPoints = PlayerPoints + 15
  234.         ElseIf InStr(1, Hearts, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Hearts) = 0 Then
  235.             lblResult.Caption = "Computer Wins"
  236.                ComputerPoints = ComputerPoints + 15
  237.         ElseIf InStr(1, Hearts, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Hearts) > 0 Then
  238.             lblResult.Caption = "Player Wins"
  239.             PlayerPoints = PlayerPoints + 15
  240.         ElseIf InStr(1, Diamonds, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Diamonds) = 0 Then
  241.             lblResult.Caption = "Computer Wins"
  242.                ComputerPoints = ComputerPoints + 15
  243.         ElseIf InStr(1, Diamonds, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Diamonds) > 0 Then
  244.             lblResult.Caption = "Player Wins"
  245.             PlayerPoints = PlayerPoints + 15
  246.         ElseIf InStr(1, Spades, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Spades) = 0 Then
  247.             lblResult.Caption = "Computer Wins"
  248.                ComputerPoints = ComputerPoints + 15
  249.         ElseIf InStr(1, Spades, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Spades) > 0 Then
  250.             lblResult.Caption = "Player Wins"
  251.             PlayerPoints = PlayerPoints + 15
  252.         ElseIf PlayerPoints = 45 Then
  253.             lblResult.Caption = "Congratulations! You Win!"
  254.         ElseIf ComputerPoints = 45 Then
  255.             lblResult.Caption = "Aww, better luck next time!"
  256.         Else: lblResult.Caption = ""
  257.         End If
  258.     Next
  259. End Sub
  260.  
  261. Private Sub cmdPlayerCard4_Click()
  262.      ComputerPlayedCard = Mid(ComputerDeck, Int((8 - 1 + 1) * Rnd + 1), 2)
  263.      PlayerPlayedCard = PlayerCard4
  264.      lblPlayerPlayedCard.Caption = PlayerPlayedCard
  265.      lblComputerPlayedCard.Caption = ComputerPlayedCard
  266.      cmdPlayerCard4.Caption = ""
  267.      
  268.    For Points = 1 To 45
  269.         If InStr(1, Clovers, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Clovers) = 0 Then
  270.             lblResult.Caption = "Computer Wins"
  271.             ComputerPoints = ComputerPoints + 15
  272.         ElseIf InStr(1, Clovers, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Clovers) > 0 Then
  273.             lblResult.Caption = "Player Wins"
  274.             PlayerPoints = PlayerPoints + 15
  275.         ElseIf InStr(1, Hearts, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Hearts) = 0 Then
  276.             lblResult.Caption = "Computer Wins"
  277.                ComputerPoints = ComputerPoints + 15
  278.         ElseIf InStr(1, Hearts, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Hearts) > 0 Then
  279.             lblResult.Caption = "Player Wins"
  280.             PlayerPoints = PlayerPoints + 15
  281.         ElseIf InStr(1, Diamonds, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Diamonds) = 0 Then
  282.             lblResult.Caption = "Computer Wins"
  283.                ComputerPoints = ComputerPoints + 15
  284.         ElseIf InStr(1, Diamonds, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Diamonds) > 0 Then
  285.             lblResult.Caption = "Player Wins"
  286.             PlayerPoints = PlayerPoints + 15
  287.         ElseIf InStr(1, Spades, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Spades) = 0 Then
  288.             lblResult.Caption = "Computer Wins"
  289.                ComputerPoints = ComputerPoints + 15
  290.         ElseIf InStr(1, Spades, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Spades) > 0 Then
  291.             lblResult.Caption = "Player Wins"
  292.             PlayerPoints = PlayerPoints + 15
  293.         ElseIf PlayerPoints = 45 Then
  294.             lblResult.Caption = "Congratulations! You Win!"
  295.         ElseIf ComputerPoints = 45 Then
  296.             lblResult.Caption = "Aww, better luck next time!"
  297.         Else: lblResult.Caption = ""
  298.         End If
  299.     Next
  300. End Sub
  301.  
  302. Private Sub cmdPlayerCard5_Click()
  303.      ComputerPlayedCard = Mid(ComputerDeck, Int((8 - 1 + 1) * Rnd + 1), 2)
  304.      PlayerPlayedCard = PlayerCard5
  305.      lblPlayerPlayedCard.Caption = PlayerPlayedCard
  306.      lblComputerPlayedCard.Caption = ComputerPlayedCard
  307.      cmdPlayerCard5.Caption = ""
  308.      For Points = 1 To 45
  309.         If InStr(1, Clovers, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Clovers) = 0 Then
  310.             lblResult.Caption = "Computer Wins"
  311.             ComputerPoints = ComputerPoints + 15
  312.         ElseIf InStr(1, Clovers, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Clovers) > 0 Then
  313.             lblResult.Caption = "Player Wins"
  314.             PlayerPoints = PlayerPoints + 15
  315.         ElseIf InStr(1, Hearts, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Hearts) = 0 Then
  316.             lblResult.Caption = "Computer Wins"
  317.                ComputerPoints = ComputerPoints + 15
  318.         ElseIf InStr(1, Hearts, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Hearts) > 0 Then
  319.             lblResult.Caption = "Player Wins"
  320.             PlayerPoints = PlayerPoints + 15
  321.         ElseIf InStr(1, Diamonds, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Diamonds) = 0 Then
  322.             lblResult.Caption = "Computer Wins"
  323.                ComputerPoints = ComputerPoints + 15
  324.         ElseIf InStr(1, Diamonds, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Diamonds) > 0 Then
  325.             lblResult.Caption = "Player Wins"
  326.             PlayerPoints = PlayerPoints + 15
  327.         ElseIf InStr(1, Spades, ComputerPlayedCard) > 0 And InStr(1, PlayerPlayedCard, Spades) = 0 Then
  328.             lblResult.Caption = "Computer Wins"
  329.                ComputerPoints = ComputerPoints + 15
  330.         ElseIf InStr(1, Spades, ComputerPlayedCard) = 0 And InStr(1, PlayerPlayedCard, Spades) > 0 Then
  331.             lblResult.Caption = "Player Wins"
  332.             PlayerPoints = PlayerPoints + 15
  333.         ElseIf PlayerPoints = 45 Then
  334.             lblResult.Caption = "Congratulations! You Win!"
  335.         ElseIf ComputerPoints = 45 Then
  336.             lblResult.Caption = "Aww, better luck next time!"
  337.         Else: lblResult.Caption = ""
  338.         End If
  339.     Next
  340. End Sub
  341.  
  342. Private Sub cmdReset_Click()
  343.     For counter = 1 To 200
  344.         intRandomNumber = Int((52 - 1 + 1) * Rnd + 1)
  345.         intRandomNumber = (intRandomNumber * 2) - 1
  346.    
  347.         'Take the card at position intRandomNumber and move it to the bottom of deck
  348.        'Do move the card if it's the card at bottom of the deck
  349.        If intRandomNumber <> 52 Then
  350.             strLeftCards = Left(StrDeck, intRandomNumber - 1)
  351.             strCard = Mid(StrDeck, intRandomNumber, 2)
  352.             strRightCards = Right(StrDeck, 104 - intRandomNumber - 1)
  353.            
  354.             'Put random card at the bottom of deck
  355.            StrDeck = strLeftCards + strRightCards + strCard
  356.         End If
  357.     Next counter
  358.     lblTrump.Caption = ""
  359.     PlayerDeck = Mid(StrDeck, 1, 10)
  360.     ComputerDeck = Mid(StrDeck, 11, 10)
  361.     Trump = Mid(StrDeck, 50, 2)
  362.     Debug.Print PlayerDeck
  363.     lblTrump.Caption = Trump
  364.     lblComputerCards = ComputerDeck
  365.    
  366.     PlayerCard1 = Mid(PlayerDeck, 1, 2)
  367.     PlayerCard2 = Mid(PlayerDeck, 3, 2)
  368.     PlayerCard3 = Mid(PlayerDeck, 5, 2)
  369.     PlayerCard4 = Mid(PlayerDeck, 7, 2)
  370.     PlayerCard5 = Mid(PlayerDeck, 9, 2)
  371.    
  372.     cmdPlayerCard1.Caption = PlayerCard1
  373.     cmdPlayerCard2.Caption = PlayerCard2
  374.     cmdPlayerCard3.Caption = PlayerCard3
  375.     cmdPlayerCard4.Caption = PlayerCard4
  376.     cmdPlayerCard5.Caption = PlayerCard5
  377.     lblPlayerPlayedCard.Caption = ""
  378.     lblComputerPlayedCard.Caption = ""
  379.    
  380.       If InStr(1, Trump, Clovers) > 0 Then
  381.         TrumpSuit = "Clovers"
  382.     ElseIf InStr(1, Trump, Hearts) > 0 Then
  383.         TrumpSuit = "Hearts"
  384.     ElseIf InStr(1, Trump, Diamonds) > 0 Then
  385.         TrumpSuit = "Diamonds"
  386.     Else: TrumpSuit = "Spades"
  387.     End If
  388.    
  389.     lblTrumpSuit = TrumpSuit
  390.     lblResult = ""
  391. End Sub
  392.  
  393. Private Sub Form_Load()
  394.     Randomize
  395.     lblPlayerCards.Visible = False
  396.     cmdPlayerCard1.Visible = False
  397.     cmdPlayerCard2.Visible = False
  398.     cmdPlayerCard3.Visible = False
  399.     cmdPlayerCard4.Visible = False
  400.     cmdPlayerCard5.Visible = False
  401.    
  402.      'Unshuffled deck.  Note that I used A=10, B=Jack, C=Queen, D=King, E=Ace
  403.    'to identify suits h=hearts, d=Diamonds, c=Clubs, s=Spades
  404.    
  405.     StrDeck = "2h3h4h5h6h7h8h9hAhBhChDhEh2d3d4d5d6d7d8d9dAdBdCdDdEd2c3c4c5c6c7c8c9cAcBcCcDcEc2s3s4s5s6s7s8s9sAsBsCsDsEs"
  406.     Debug.Print StrDeck
  407.  
  408.     'call the subroutine to shuffle the deck
  409.    StrDeck = ShuffleWithSuits(StrDeck)
  410.    
  411.     Debug.Print StrDeck
  412.     Timer1.Enabled = True
  413.    
  414.     cmdPlay.Visible = False
  415.     cmdExit.Visible = False
  416.     cmdInstructions.Visible = False
  417.     cmdReset.Visible = False
  418.    
  419. End Sub
  420.  
  421. ' This function requires you to pass in a string of varying lengths and shuffles the characters along with their suit in
  422. ' that string and returns them.
  423. Private Function ShuffleWithSuits(StrDeck As String) As String
  424.    'Variable Table-------------------------------------------
  425.   ' strCard - String - the single, randomly selected card that gets shuffled to the back
  426.   ' strRightCards - String - all cards to the right of strCard
  427.   ' strLeftCards - String - all cards to the left of strCard
  428.   ' intNumberCardsDeck - integer - the number of cards in the deck to shuffle
  429.   ' counter - integer - to be used as a counter in a counted loop
  430.  
  431.    
  432.     'Determine the number cards in the deck
  433.    intNumberCardsDeck = Len(StrDeck) / 2
  434.  
  435.     'Shutffle cards the cards by randomly selecting a card and moving it to the back of the deck
  436.    For counter = 1 To 200
  437.         intRandomNumber = Int((52 - 1 + 1) * Rnd + 1)
  438.         intRandomNumber = (intRandomNumber * 2) - 1
  439.    
  440.         'Take the card at position intRandomNumber and move it to the bottom of deck
  441.        'Do move the card if it's the card at bottom of the deck
  442.        If intRandomNumber <> 52 Then
  443.             strLeftCards = Left(StrDeck, intRandomNumber - 1)
  444.             strCard = Mid(StrDeck, intRandomNumber, 2)
  445.             strRightCards = Right(StrDeck, 104 - intRandomNumber - 1) 'not sure if it should be -intRandomNubmer
  446.            
  447.             'Put random card at the bottom of deck
  448.            StrDeck = strLeftCards + strRightCards + strCard
  449.         End If
  450.     Next counter
  451.    
  452.     ' the Function is complete, returns the value stored in StrDeck to the function call
  453.    ShuffleWithSuits = StrDeck
  454.    
  455. End Function
  456.  
  457. Private Sub mnuFileClose_Click()
  458.     Unload Me
  459. End Sub
  460.  
  461. Private Sub mnuViewAbout_Click()
  462.     MsgBox "Developed by Jamal Raja" & " Version 1.0.0"
  463. End Sub
  464.  
  465. Private Sub Timer1_Timer()
  466. ProgressBar1.Value = ProgressBar1.Value + 5
  467. If (ProgressBar1.Value = ProgressBar1.Max) Then
  468.     Timer1.Enabled = False
  469.     ProgressBar1.Visible = False
  470.     cmdPlay.Visible = True
  471.     cmdExit.Visible = True
  472.     cmdInstructions.Visible = True
  473.     cmdReset.Visible = True
  474.    
  475. End If
  476. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!