Zufälliges Objekt einfügen

[Michael_H]

Hallo
Ich möchte eine Art Kartenspiel programmieren, wobei man am Anfang 5 zufällige Karten bekommt. Ich habe aber leider keine Ahnung wie ich das machen soll.
Ich habe zwar gehört das ich eine Tabelle mit den Karten erstellen soll/kann weiß aber nicht wie das geht.
Danke für jede Hilfe
Michael

 

[Da Hacker]

Herzlich Willkommen im Forum, Michael_H!

Mir ist nur die Möglichkeit bekannt, dass du eine Variable deklarieren, dieser einen Zufallswert geben und je nach Wert eine andere Karte anzeigen kannst.

Als vereinfachter Code:

Dim Zufallswert as Integer

Randomize Timer 'Zufallsgenerator initialisieren
Zufallswert = CInt(Rnd(1) * 5) Zufallszahl von 0 bis 5 generieren und zu Integer konvertieren
Select Case Zufallswert 'Werte abfragen
Case 0 'Bei 0
'Diese Karte anzeigen
Case 1 'Bei 1
'Diese Karte anzeigen
Case 2 'Bei 2
'Diese Karte anzeigen
Case 3 'Bei 3
'Diese Karte anzeigen
Case 4 'Bei 4
'Diese Karte anzeigen
Case 5 'Bei 5
'Diese Karte anzeigen
End Select

Ich hoffe ich konnte helfen.

Ciao:
Da' Hacker

 

[ulki]

Und wenn du auch noch anderen Mitspielern Karten geben willst und diese dann gespeichert werden müssen, sollte diese Aufgabe dann ein Array erledigen. Weiß allerdings leider die Syntax nicht wie sowas in VB realisiert wird. Bin mir aber sicher, das es soetwas gibt.

@all einer von euch kennt doch sicher die Syntax für Arrays?

ulki

 

[Michael_H]

Hallo
Danke für die freundliche Begrüssung und die rasche Antwort.
Das hat wunderbar geklappt, vielen, vielen Dank.
Schöne Grüße
Michael

 

[Da Hacker]

Hallo!

@Michael_H: Freut mich, dass es geklappt hat.

@ulki: Natürlich.
Wenn es jemanden interessiert, dann hier mal ein Beispiel.
Deklariert wird ein Array folgendermaßen:

Dim/Public Karten(3,19) 'Maximal 4 Spieler(Array fängt bei 0 an), jeder davon hat 20 Karten

Um jetzt Zuweisungen vorzunehmen:

Karten(0,0) = imgKarteHerzAss.Picture 'Spieler1 hat als erste Karte ein Handle auf ein Image-Steuerelement.

Naja, so läuft das halt mit den Arrays.

Ciao:
Der wegen einem Mädchen gut gelaunte: Da' Hacker