Greetings,
In order to make our shuffle work etc. We need to be able to put our full array of cards and put them into another temperary array.
The problem is that we aren't able to acces the array outside our class deck in wich we want to make our shuffle work. Would u mind checking our shuffle code aswel? ( mind that we need to use an array and not a list)
Tnx
Here is our code:
In order to make our shuffle work etc. We need to be able to put our full array of cards and put them into another temperary array.
The problem is that we aren't able to acces the array outside our class deck in wich we want to make our shuffle work. Would u mind checking our shuffle code aswel? ( mind that we need to use an array and not a list)
Tnx
Here is our code:
Public Class Card
#Region "structures"
'Een eige type/structuur maken "CardProperty"
Public Structure CardProperty
Dim soort As String
Dim score As Integer
Dim rang As Integer
Dim front As String
Dim back As String
Dim schudden As Boolean
End Structure
#End Region
#Region "Declarations"
Public deck(52) As CardProperty
#End Region
#Region "Functions"
'Maakt de kaarten en zet ze in goede volgorde
Public Function Createcards() As CardProperty
'Declaratie van x,y: twee tellers voor de lussen
Dim x As Integer
Dim y As Integer
'harten
For x = 1 To 13 Step +1
'toewijzen van rang, soort en afbeelding van de kaart
deck(x).rang = x
deck(x).soort = "harten"
deck(x).front = "C:\Documents and Settings\sskev\My Documents\Visual Studio 2008\Projects\BlackJackGame\BlackJackGame\images\harten" & x & ".jpg"
'Score toewijzen aan de kaart
'Nog geen rekening gehouden met aas
If x < 10 Then
deck(x).score = x
ElseIf x > 10 Then
deck(x).score = 10
End If
Next x
'klaveren
For x = 14 To 26 Step +1
'toewijzen van rang, soort en afbeelding van de kaart
deck(x).rang = (x - 13)
deck(x).soort = "klaveren"
deck(x).front = "C:\Documents and Settings\sskev\My Documents\Visual Studio 2008\Projects\BlackJackGame\BlackJackGame\images\klaveren" & (x - 13) & ".jpg"
'Score toewijzen aan de kaart
'Nog geen rekening gehouden met aas
If (x - 13) < 10 Then
deck(x).score = (x - 13)
ElseIf (x - 13) > 10 Then
deck(x).score = 10
End If
Next x
'ruiten
For teller = 27 To 40 Step +1
'toewijzen van rang, soort en afbeelding van de kaart
deck(x).rang = (x - 26)
deck(x).soort = "ruiten"
deck(x).front = "C:\Documents and Settings\sskev\My Documents\Visual Studio 2008\Projects\BlackJackGame\BlackJackGame\images\ruiten" & (x - 26) & ".jpg"
'Score toewijzen aan de kaart
'Nog geen rekening gehouden met aas
If (x - 26) < 10 Then
deck(x).score = (x - 26)
ElseIf (x - 26) > 10 Then
deck(x).score = (10)
End If
Next teller
'schoppen
For x = 40 To 52 Step +1
'toewijzen van rang, soort en afbeelding van de kaart
deck(x).rang = (x - 39)
deck(x).soort = "schoppen"
deck(x).front = "C:\Documents and Settings\sskev\My Documents\Visual Studio 2008\Projects\BlackJackGame\BlackJackGame\images\schoppen" & (x - 39) & ".jpg"
'Score toewijzen aan de kaart
'Nog geen rekening gehouden met aas
If (x - 39) < 10 Then
deck(x - 39).score = (x - 39)
ElseIf (x - 39) > 10 Then
deck(x - 39).score = 10
End If
Next x
'Kaarten zijn niet geschud en achterkant is overal zelfde afbeelding
For y = 1 To 52
deck.schudden = False
deck
Next y
Return deck(52)
End Function
#End Region
End Class
Public Class Deck
Public Sub Shuffle(ByVal deck() As Card.Cardproperty)
Dim max As Integer
Dim teller As Integer
Dim r As Random = new Random()
Dim tempDeck As Card.Cardproperty
max = UBound(deck)
For teller = LBound(deck) To max
max = r.Next(0, teller)
tempDeck = deck(teller)
deck(teller) = deck(max)
deck(max) = tempDeck
Next
End Sub
End Class
