zana
/
BlackjackGUI
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Test

master
CrystalMoogle 2024-10-22 20:21:58 +01:00
parent 14787c3753
commit 9877b71b07
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
BlackjackGUI/Game.vb
View File

@ -190,14 +190,9 @@
End Function End Function
Shared Function CreateDeck() As List(Of (String,String)) Shared Function CreateDeck() As List(Of (String,String))
Dim response As New List(Of (String, String))
Dim nums As String() = {"A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K"} Dim nums As String() = {"A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K"}
Dim suits As String() = {"Hearts", "Diamonds", "Spades", "Clubs"} Dim suits As String() = {"Hearts", "Diamonds", "Spades", "Clubs"}
For Each suit As String In suits Dim response As List(Of (String, String)) = (From suit In suits From num In nums Select (suit, num)).ToList()
For Each num As String In nums
response.Add((suit, num))
Next
Next
Return Utilities.Shuffle(response) Return Utilities.Shuffle(response)
End Function End Function
End Class End Class