Betinget sannsynlighet i VB

[mack_]

Hei! Holder på å lage et 5 stud pokerspill i VB, men får det ikke helt til. Jeg får til å trekke ut alle de ulike kortene, men jeg får ikke til at alle kortene alltid blir ulike. Kort fortklart er det en mulighet for at to (eller flere) av kortene på bordet blir like. Noen som kan hjelpe? Jeg vet at dette ble veldig kort, så bare spør hvis dere lurer på noe.

[tZar]

Putt alle kortene i et array, trekk ut random kort og fjern det fra arrayet. Trekk ut random kort fra arrayet på nytt, fjern det fra arrayet osv osv?

[Moskus]

Kanskje lage en dobbel array som kan markere om kortet er plukket ut eller ikke?

Dim Cards(54, 1) as Object

 

La oss videre si at du har alle farge- og nummer kombinasjonene i en array.

for i = 0 to 54
   Cards(i, 0) = aColor(i)  'Eksempel: aColor(i) = "Hjerter4"
   Cards(i, 1) = FALSE 'Kortet er IKKE trukke ut enda

 

Når kortet trekkes ut, er det bare å sette Cards(et_kort, 1) = TRUE. Deretter gjelder det å bare trekke ut kort som er merket false, men det er jo en enkel sak.