www.lansociety.org

Randomize

For n = 1 To 52

Do
koll = 0
valor(n) = 13 * Rnd(1) + 0.5
farg(n) = 4 * Rnd(1) + 0.5
For i = 1 To n - 1
If valor(n) = valor(i) And farg(n) = farg(i) Then
koll = 1
End If
Next i
Loop While (koll = 1)
Next n

Dim valor(53) As Integer
Dim farg(53) As Integer
Dim koll As Integer
Dim tal As Integer
Dim p As Integer
Private Sub Command1_Click()
Randomize

For n = 1 To 52

Do
koll = 0
valor(n) = 13 * Rnd(1) + 0.5
farg(n) = 4 * Rnd(1) + 0.5
For i = 1 To n - 1
If valor(n) = valor(i) And farg(n) = farg(i) Then
koll = 1
End If
Next i
Loop While (koll = 1)
Next n

End Sub

Private Sub Command2_Click()
p = 52 * Rnd(1) + 0.5

If farg(p) = 1 Then
List1.AddItem "ruter"
End If

If farg(p) = 2 Then
List1.AddItem "Klöver"
End If

If farg(p) = 3 Then
List1.AddItem "spader"
End If

If farg(p) = 4 Then
List1.AddItem "hjärter"
End If

If valor(p) = 1 Then
List1.AddItem "ess"
End If

If valor(p) = 2 Then
List1.AddItem "Två"
End If

If valor(p) = 3 Then
List1.AddItem "Tre"
End If

If valor(p) = 4 Then
List1.AddItem "Fyra"
End If

If valor(p) = 5 Then
List1.AddItem "Fem"
End If

If valor(p) = 6 Then
List1.AddItem "Sex"
End If

If valor(p) = 7 Then
List1.AddItem "Sju"
End If

If valor(p) = 8 Then
List1.AddItem "Åtta"
End If

If valor(p) = 9 Then
List1.AddItem "Nio"
End If

If valor(p) = 10 Then
List1.AddItem "Tio"
End If

If valor(p) = 11 Then
List1.AddItem "Knekt"
End If

If valor(p) = 12 Then
List1.AddItem "DAM"
End If

If valor(p) = 13 Then
List1.AddItem "Kung"
End If

End Sub

Picture1.Picture = LoadPicture("M:\Mina dokument\vb\kort\card" + stal + ".bmp")