Archief - BlackJack in VB.net

Gegroet,

Heeft er iemand de code of het project voor het spel BlackJack in VB.net.


Mvg

Weet er iemand hoe ik een Array maak van mijn deck kaarten.
Volgens mij moeten ze soort, waarde en image weergeven.

Weet er iemand hoe ik een Array maak van mijn deck kaarten.
Volgens mij moeten ze soort, waarde en image weergeven.

Google

Geen dank.

Ik heb een gehele Blackjack geschreven 3 jaar geleden.
Wel zonder Database en het was niet OOP
Moest je nog geinteresseerd zijn kan ik eens zoeken naar het project.
Ik kan wel niet beloven dat ik ze vind

Ik heb het gevoel dat dit een schoolopdracht is..

Misschien moet ge zélf eens wat code maken? het is niet cool om te stoefen met andermans code.. ;-)

Als ze het moeten uitleggen lopen ze toch tegen de lamp

Voorlopig heb ik buiten mijn mainform dus een klasse cards gemaakt waarin de kaarten opgesteld worden en in een array gestoken.

Hoe plaats ik nu 2 random kaarten op mijn scherm vanuit de array? ( ik heb 2 pictureboxen voor dealer en player)
Hoe shuffle ik mijn kaarten?

Public Class Cards

#Region "structures"

'Een eige type/structuur maken "CardPropertie"
Private Structure CardPropertie
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"

Private deck(51) As CardPropertie

#End Region

#Region "Functions"

'Maakt de kaarten en zet ze in goede volgorde

Public Function Createcards() As String

'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 = "Img\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 = "Img\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 = "Img\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 = "Img\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 = "Img\back.jpg"
Next y

End Function

#End Region

End Class

Ik denk wel da u manier van kaarten aan maken beter kan...

Ipv structure gebruik een klasse Card...

ipv string "Soort" gebruik een enum.

En ipv een string back en front, wrm ni gwn een image ???

Anyway het schudden...
Ik weet niet direct de beste manier maar eentje die wel zal werken is:

Ge maakt nen tempArray aan.
dan maakte aan de hand van ne random een voor een items uit uw array "deck" en stopt die in de tempArray.

Op die manier zitten ze random in een nieuwe array.

Je kan dat mss op verschillende manieren doen:

Maar hier een voorbeeld aan de hand van LISTS, je gaat wel wat moeten zoeken voor arrays dan, maar dat moet wel lukken!

private List<string> Lijst = new List<string>();
public Form1()
{
InitializeComponent();

fillList();
addListToListBox();
}

private void fillList()
{
for (int i = 0; i <= 100; i++)
{
Lijst.Add("test" + i);
}
}

Klik om te vergroten...

private void button1_Click(object sender, EventArgs e)
{
shuffle();
addListToListBox();
}

Klik om te vergroten...

private void shuffle()
{
List<string> tempList = new List<string>();
Random r = new Random();
int aantal = Lijst.Count;
for (int i = 0; i < aantal; i++)
{
int randomWaarde = r.Next(0, Lijst.Count-1);
tempList.Add(Lijst[randomWaarde]);
Lijst.RemoveAt(randomWaarde);
}
Lijst = tempList;
}

Klik om te vergroten...

private void addListToListBox()
{
listBox1.Items.Clear();
foreach (string s in Lijst)
{
listBox1.Items.Add(s);
}
}

Klik om te vergroten...

Btw sorry dat het C#.net is ipv VB.net
Maar t principe ist zelfde.

Die addListToListBox is btw gwn om te testen of u shuffle effectief werkt...

Ok, alvast bedankt voor de hulp die je al gaf.
Die shuffle even helemaal ter zijde.

Hoe druk ik nu een image ( kaart) vanuit mijn array af in mijn picturebox?

Mvg

serieus, google ...
Let me google that for you

Krueger zei:

serieus, google ...
Let me google that for you

Klik om te vergroten...

Ik weet ook wel hoe je een image in een picturebox plaats. Ik weet alleen niet hoe ik een een image uit mijn array afdruk.

pulpman zei:

Ik weet ook wel hoe je een image in een picturebox plaats. Ik weet alleen niet hoe ik een een image uit mijn array afdruk.

Klik om te vergroten...

Uw array is een verzameling van Images...
Dus je haalt het n'de element uit uw array en zet dat in de picturebox

iets als

picBox.Image = uwArray[uwIndex] as Image;
ofzo...

Maareuhm... Zon dingen vind je direct op google...

T forum is hier geen "ik vraag hier alles en ze maken wel heel mijn programma voor mij" forum he ...
We willen u gerust helpen, maar daarvoor moet gezelf ook moeite doen

google maar eens op "how itterate array" ofzo

Iterate Arrays with For Each - developer Fusion - ASP.NET, C# Programming, VB.NET, .NET Framework, Java and Visual Basic Tutorials
bijvoorbeeld