Hoi,
Ik werk mee aan dit spel en we geraken er nog niet uit. Dit is denk ik een simpel probleem, maar het lukt dus niet. Zoals al eerder vermeld hebben we een class Card gemaakt met daarin de functie CreateCard(). Hier word een array met de 52 kaarten gevuld.
Nu willen we op verschillende plekken deze array gaan oproepen in andere classen en in de main form. Als test hebben we een kaart proberen weer te geven in een picturebox. Dit lukt met onderstaande code:
Dim myCard As Card = New Card
myCard.Createcards()
Dim myProperty As Card.CardProperty = myCard.deck(52)
Dim myImage = Image.FromFile(myProperty.front)
ptbDealer.Image = New System.Drawing.Bitmap(myImage)
We dachten dan dat het oproepen van de hele array Deck binnen classe card geen probleem kon zijn, maar dit lukt ons totaal niet. Weet iemand de oplossing?
Hieronder misschien voor de duidelijkheid de classe card:
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 = "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 = "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 x = 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 = "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 x
'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 = "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
.back = "images\back.jpg"
Next y
Return deck(52)
End Function
#End Region
End Class