Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BrasserCartes()
End Sub
Private Sub BrasserCartes()
AssignerCarte(1)
AssignerCarte(2)
AssignerCarte(3)
AssignerCarte(4)
AssignerCarte(5)
End Sub
Private Sub AssignerCarte(ByVal index As Integer)
Dim rand As New Random
Dim nbr_rand As Integer
Randomize()
nbr_rand = rand.Next(0, 52) + 1
If VerifierDoublon(nbr_rand) = True Then
If index = 1 Then
PTBCarte1.Image = imgCartes.Images(nbr_rand)
Return
End If
If index = 2 Then
PTBCarte2.Image = imgCartes.Images(nbr_rand)
Return
End If
If index = 3 Then
PTBCarte3.Image = imgCartes.Images(nbr_rand)
Return
End If
If index = 4 Then
PTBCarte4.Image = imgCartes.Images(nbr_rand)
Return
End If
If index = 5 Then
PTBCarte5.Image = imgCartes.Images(nbr_rand)
Return
End If
End If
End Sub
Private Function VerifierDoublon(ByRef nbr_rand) As Boolean
Dim tab_doublons(52) As Boolean
If (tab_doublons(nbr_rand)) Then
Return False
Else
tab_doublons(nbr_rand) = True
Return True
End If
End Function