Hi guys/girls i need help on my black jack code a.s.a.p. i got some of the code done but i don't think its right


Dim a() As Integer 'Declare a as integer
Dim c As Integer 'Declare c as Integer
Dim inx, secc, k, levl, tm, totl, rund, rund1 As Byte 'Declare as 1 character
Dim op As Boolean ' Declare op as boolean (True or False)
Dim movl(63) As Integer ' Declare movl as integer
Dim movt(63) As Integer ' Declare movt as integer

Private Sub cmdHit_Click()
If cmdHit Then Randomize images 'when the command hit is clicked, it shuffles the cards
'image will move to the measurements given
Image60.Move 16, 416, 100, 145
Image58.Move 16, 416, 100, 145
Image6.Move 344, 400, 100, 145
Image7.Move 344, 400, 100, 145
Image8.Move 344, 400, 100, 145

End Sub
Private Sub cmdStartGame_Click()
'image will move to the measurements given
Image2.Move 216, 152, 100, 145
Image1.Move 336, 152, 100, 145
Image60.Move 224, 400, 100, 145
Image58.Move 344, 400, 100, 145
End Sub


Private Sub Form_Load()
Label2.FontSize = 15 'Label 2 will change font size to 15
End Sub


Private Sub Shuffle_Click()
'image will move to the measurements given
Image3.Move 16, 176, 100, 145
Image4.Move 16, 176, 100, 145
Image5.Move 16, 176, 100, 145
Image6.Move 16, 176, 100, 145
Image7.Move 16, 176, 100, 145
Image8.Move 16, 176, 100, 145
Image9.Move 16, 176, 100, 145
Image10.Move 16, 176, 100, 145
Image11.Move 16, 176, 100, 145
Image12.Move 16, 176, 100, 145
Image12.Move 16, 176, 100, 145
Image13.Move 16, 176, 100, 145
Image14.Move 16, 176, 100, 145
Image15.Move 16, 176, 100, 145
Image16.Move 16, 176, 100, 145
Image17.Move 16, 176, 100, 145
Image18.Move 16, 176, 100, 145
Image19.Move 16, 176, 100, 145
Image21.Move 16, 176, 100, 145
Image22.Move 16, 176, 100, 145
Image23.Move 16, 176, 100, 145
Image24.Move 16, 176, 100, 145
Image25.Move 16, 176, 100, 145
Image26.Move 16, 176, 100, 145
Image27.Move 16, 176, 100, 145
Image28.Move 16, 176, 100, 145
Image29.Move 16, 176, 100, 145
Image30.Move 16, 176, 100, 145
Image31.Move 16, 176, 100, 145
Image32.Move 16, 176, 100, 145
Image33.Move 16, 176, 100, 145
Image34.Move 16, 176, 100, 145
Image35.Move 16, 176, 100, 145
Image36.Move 16, 176, 100, 145
Shuffle.Enabled = True
End Sub


so that's the code i got and i have all the images of the cards on my form and is that the right way to do it or am i way off?? can some one help me with my code please

Member Avatar for iamthwee

The shuffle part could be reduced by using a for loop.

whats a for loop srry but im not a expert at visual basic

Member Avatar for iamthwee

a for loop is like... :lol:

for start to end step amount

can some one help me finish the game add me to msn nadia.marquez@hotmail.com (my sisters email my email got messed up) pleasee!~!!

Member Avatar for iamthwee

We don't do homework.

Blackjack has always been my fav casino I dont know if its the rush of the game or the fact of instant action , I also like three
card poker but my luck is not be very good on it honestly , I like playing blacjack quite a bit in online casinos so if
anybody knows of any good blackjack casinos with good bonuses let me know
<a href="http://www.playblackjack.com">play blackjack</a>

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.