Programalama > VISUAL BASIC

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



ali zeki kılıç / tl 11
rocatinho@gmail.com


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.