Dim mazzo(0 To 3, 0 To 12) As String
Dim riga As Integer, colonna As Integer
Dim seme As String, carta As String
Dim i As Integer, j As Integer, cont As Integer, l As Integer
Private Sub Cmdestrai_Click()
Dim pict As String
Randomize
seme = Int(Rnd * 4)
carta = Int(Rnd * 13)
Select Case seme
Case 0
seme = "cuori"
Case 1
seme = "quadri"
Case 2
seme = "fiori"
Case 3
seme = "picche"
End Select
Select Case carta
Case 0
carta = "asso"
Case 1
carta = "due"
Case 2
carta = "tre"
Case 3
carta = "quattro"
Case 4
carta = "cinque"
Case 5
carta = "sei"
Case 6
carta = "sette"
Case 7
carta = "otto"
Case 8
carta = "nove"
Case 9
carta = "dieci"
Case 10
carta = "jack"
Case 11
carta = "donna"
Case 12
carta = "re"
End Select
pict = carta & " di " & seme
Form2.pctimg.Picture = LoadPicture(App.Path & "\img\" & pict & ".jpg")
Form2.Caption = pict
Form2.Show
End Sub
Private Sub Form_Load()
For i = 0 To 3
For j = 0 To 12
Select Case i
Case 0
seme = "cuori"
Case 1
seme = "quadri"
Case 2
seme = "fiori"
Case 3
seme = "picche"
End Select
Select Case j
Case 0
carta = "asso"
Case 1
carta = "due"
Case 2
carta = "tre"
Case 3
carta = "quattro"
Case 4
carta = "cinque"
Case 5
carta = "sei"
Case 6
carta = "sette"
Case 7
carta = "otto"
Case 8
carta = "nove"
Case 9
carta = "dieci"
Case 10
carta = "jack"
Case 11
carta = "donna"
Case 12
carta = "re"
End Select
mazzo(i, j) = carta & " di " & seme
cont = cont + 1
List1.AddItem cont & " - " & mazzo(i, j)
Next j
Next i
List1.AddItem "53 - matta nera"
List1.AddItem "54 - matta rossa"
End Sub
Private Sub List1_Click()
Dim image As String
l = Len(List1.Text)
image = Trim(Mid(List1.List(List1.ListIndex), 5, l))
Form2.pctimg.Picture = LoadPicture(App.Path & "\img\" & image & ".jpg")
Form2.Caption = image
Form2.Show
End Sub