Visual Basic 6.0 Hazine Bulmaca Oyunu | Nvidia_

[Nvidia_]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Öncelikle Hazine Bulmaca Oyununu Yapmak için
Formumuza;

9 ADET BUTON(COMMAND BUTON)
1 ADET TEXTBOX
1 ADET LABEL ekliyoruz..[/COLOR] [/B]

Formumuzun Şekli Resimdeki Gibi Olmalı Dizimlerde Aynı Olması Lazım

Resim:

Oyunumuz için Gereken Kod Bu,

Dim Sayi As Integer
Dim Puan As Integer


Private Sub Command1_Click(Index As Integer)
If Command1(Index).Caption = "Yok" Then Exit Sub
If Index = Sayi Then
Command1(Index).Left = Label1.Left + Label1.Width
Puan = CInt(Text1.Text) + 900
Text1.Text = Puan
Label1.Visible = True
Command1(Index).Caption = "Buldunuz"
MsgBox "Aferin Hazineyi Buldunuz" & vbCrLf & "Hazine " & Index & " nolu butonun altındaydı", , "Tebrikler"
Call YeniOyun
Else
Command1(Index).Caption = "Yok"
Puan = Puan - 100
Text1.Text = Puan
End If
End Sub

Private Sub Form_Click()
Call ButonDiz
End Sub

Private Sub Form_Load()
Call YeniOyun
End Sub

Sub YeniOyun()

Dim i As Integer
For i = 0 To 8
Command1(i).Caption = "Command1"
Next

Call SayiUret
Call ButonDiz
End Sub

Sub ButonDiz()
Dim i As Integer
For i = 0 To 8
Randomize
Command1(i).Left = Rnd() * 10000
Command1(i).Top = Rnd() * 9000
Next
Label1.Left = Command1(Sayi).Left
Label1.Top = Command1(Sayi).Top

End Sub

Sub SayiUret()
Randomize
Sayi = Rnd() * 8

End Sub

​

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[RantezZ]

Ellerine Saglık..!!

 

[umit99]

Teşekkürler.

 

[kaptanmikro1]

Paylaşım için teşekkürler.