Guest User

Untitled

a guest
Jan 15th, 2019
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.61 KB | None | 0 0
  1. Function isStraight(ByVal Player As String)
  2. Dim h1, h2, h3, h4, h5 As String
  3. h1 = 0
  4. h2 = 1
  5. h3 = 2
  6. h4 = 3
  7. h5 = 4
  8. Dim z1, z2 As String
  9. If Player = "P1" Then
  10. z1 = P1Card1
  11. z2 = P1Card2
  12. ElseIf Player = "P2" Then
  13. z1 = P2Card1
  14. z2 = P2Card2
  15. End If
  16. Dim cntr As Integer = 0
  17. Do
  18. cntr = cntr + 1
  19. h1 = h1 + 1
  20. h2 = h2 + 1
  21. h3 = h3 + 1
  22. h4 = h4 + 1
  23. h5 = h5 + 1
  24. If A(FC1, FC2, FC3, FC4, FC5) Or A(FC5, FC1, FC2, FC3, FC4) Or A(FC4, FC5, FC1, FC2, FC3) Or A(FC3, FC4, FC5, FC1, FC2) Then
  25.  
  26. End If
  27. Loop
Add Comment
Please, Sign In to add comment