Visual Basic Code , VB.NET Code, VB Code
  Home   :  Code   :  Forums   :  Submit   :  Mailing List   :  About   :  Contact


Need help with poker hands code!


Need help with poker hands code!

Author
Message
MORITSUKI
MORITSUKI
Forum God
Forum God (417 reputation)Forum God (417 reputation)Forum God (417 reputation)Forum God (417 reputation)Forum God (417 reputation)Forum God (417 reputation)Forum God (417 reputation)Forum God (417 reputation)Forum God (417 reputation)

Group: Forum Members
Posts: 1, Visits: 1
Here is what I have so far

 Public Class PokerHands



Sub InputFormat() 'Function to remove space and change characters to UPPER CASE

InputDisplay.Text = InputDisplay.Text.Replace(" ", "").Replace(",","").ToUpper

End Sub



Sub FourOfaKind() 'Four of a Kind



End Sub



Sub ThreeOfaKind() 'Three of a Kind



End Sub



Sub Pair() 'A pair



End Sub



Sub Flush() 'A flush



End Sub



Sub Straight() ' A straight, if ace is low



End Sub



Sub AceStraight() 'An ace-high straight; 10, J, Q, K, A



End Sub





Private Sub InputDisplay_TextChanged(ByVal sender As Object, e As EventArgs) Handles InputDisplay.TextChanged







End Sub



Private Sub Button1_Click(ByValsender As Object, e As EventArgs) Handles Button1.Click

Dim hands(4, 13) As Integer 'Example: If (2,11) = 1 then is JD

Dim SuitsValue() As String = {"S", "D", "C", "H"}



Dim FaceValue() As String = {"2", "3", "4", "5", "6", "7", "8", "9", "T", "J", "Q", "K", "A"}

End Sub





End Class





Hi here is what I have my code so far. I am simply stuck as how to make the program reads the user input and then display the correpsonding deck. For example: if the user input "aH, AS, 2D, 3C, 4C" the program will return ace of hearts, ace of spades, two of diamonds, three of clubs, and four of clubs? Also how can the program will recognize that the first letter (substring (0,1) is the FaceValue and the second letter substring(1,1) is the SuitsValue? I understand I will need a loop function to determine all five. I am sorry if I am asking stupid questions here but I am really stuck!!!



Thank you very much!

Mark
Mark
Forum God
Forum God (139K reputation)

Group: Moderators
Posts: 1.1K, Visits: 11K
Moved to proper forum.
GO


Similar Topics


Reading This Topic


Login
Existing Account
Email Address:


Password:


Social Logins

Select a Forum....

















A1VBCode Forums


Search