Posted on 2002-07-26
Hi Guys - Just writting some to shuffle up a pack of cards - I have made this to set myself up, but want to know what would be the best way - I wanted to display its progress on a progress bar and slider, as well as calculate the time taken... Any ideas ?
I also have an image list for all the cards. Hearts, Spades etc. So I wanted to show the end result in an image combo box.
If you don't like the code you welcome to change it... :)
Private Type tCard
Card As String
Suit As String
Private mstrCards(1 To 52) As tCard
Private Sub Form_Load()
Private Sub LoadCards()
Dim pstrCards As String
Dim pstrSuits As String
Dim pstrCardArray() As String
Dim pstrSuitArray() As String
Dim i As Integer
Dim x As Integer
x = 1
pstrCards = ",Ace,Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten,Jack,Queen,King"
pstrCardArray = Split(pstrCards, ",")
pstrSuits = ",Hearts,Clubs,Diamonds,Spades"
pstrSuitArray = Split(pstrSuits, ",")
Do While Not x = 5
For i = 1 To 13
mstrCards(i).Card = pstrCardArray(i)
mstrCards(x).Suit = pstrSuitArray(x)
x = x + 1