VISUAL BASIC / Mause Kaçırma Oyunu

[HZ.CİN]

VISUAL BASIC / Mause Kaçırma Oyunu
2 Tane Timer Ekliyorsunuz Birde Shape Nesnesi Ekliyorsunuz Sonra Oyunun Tadına Bakıyorsunuz. Kendi Yapımımdır... Made By Reis / Azk

Private Sub Form_DblClick()
Timer1.Enabled = True
Timer2.Enabled = True
 
 
End Sub
 
Private Sub Form_Load()
Shape1.Height = 135
Shape1.Width = 255
Shape1.BackStyle = 1
Shape1.BorderStyle = 1
Shape1.BorderWidth = 2
Shape1.BorderColor = &H80000004
Shape1.BackColor = &H80FF&
Shape1.DrawMode = 13
Shape1.FillStyle = 7
Shape1.Shape = 3
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
y1 = Y
 
Form1.Show
 
 
 
If Shape1.Left = X And Shape1.Top = Y Then
MsgBox "Kaybettin", vbCritical, "Soft Program"
End If
End Sub
 
Private Sub Timer1_Timer()
If Shape1.Left = X1 And Shape1.Top = y1 Then
MsgBox "Kaybettin", vbCritical, "Soft Program"
Timer1.Enabled = False
Timer2.Enabled = False
c = 0
 
 
End If
 
If Shape1.Left > X1 Then
For i = Shape1.Left To X1 Step -1
Shape1.Left = i
Next
End If
 
If Shape1.Top > y1 Then
For k = Shape1.Top To y1 Step -1
Shape1.Top = k
Next
End If
 
For i = Shape1.Left To X1
Shape1.Left = i
Next
 
For k = Shape1.Top To y1
Shape1.Top = k
 
Next
 
 
End Sub
 
Private Sub Timer2_Timer()
c = c + 10
  Form1.Caption = "Puan : " & c
 
If c = 100 Then
Timer1.Interval = 4
 
End If
 
If c = 200 Then
Timer1.Interval = 3
 
End If
 
If c = 300 Then
Timer1.Interval = 2
 
End If
 
If d = 400 Then
Timer1.Interval = 1
End If
 
End Sub