بازی جور چین با قابلیت random

[mariya2007]

سلام.من بازی جورچین میخواهم ولی قابلیت random را داشته باشد یعنی با کلیک بر دکمه بازی به طور random عوض شودواگر کابر درست انتخاب کرده باشد به ان امتیاز بدهد. با تشکر

[majidgh]

من یه کد تو vb 6 نوشتم که موقع لود شدن فرم تو چند تا label اعداد بین 1 تا تعداد لیبل ها رو به صورت random می نویسه ببین فکر کنم به دردت بخورا فقط یه کم باید تغییرش بدی




PrivateSub Form_Load()
For i = 1 To Label1.Count
Call rndnumber
Do
Call test
LoopWhile (n = 1)
Label1(i - 1).Caption = rndnum
Next
For i = 1 To Label1.Count
Next
EndSub
PrivateSub rndnumber()
Do
rndnum = Int(Rnd * 10) + 1
Randomize Timer
LoopWhile (rndnum > 9)
End
Sub
PrivateSub test()
n = 0

For
j = 1 To i - 1
If Label1(j - 1).Caption = rndnum Then

n = 1
EndIf
If n = 1 Then
Call rndnumber
EndIf
Next j
End
Sub