Hey I have a blackjack game and I am unsure on how to set the values of the cards can anyone help?
[CODE=vb]Option Explicit
Const NumItems As Integer = 53
Public Sub RandomizeCards( )
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
Dim o As Integer
Dim p As Integer
Dim tmp As Integer
...
EXotiX
Last Activity: Oct 30 '07, 01:37 PM
Joined: Jun 19 '07
Location:
-
Setting Values of Cards
-
Blackjack randomizing an array help
hey im new to vb6 and I am making a blackjack game but can not randomize the array correctly. Could you help please
[CODE=vb]Option Explicit
Const NumItems As Integer = 53
Public Sub RandomizeCards( )
Dim i As Integer
Dim j As Integer
Dim tmp As Integer
' Randomize the array.
Randomize
For i = 1 To NumItems - 1
' Pick a random entry....
No activity results to display