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
|