Buttton YAKALAMA Oyunu

Konu: Buttton YAKALAMA Oyunu C.tesi Ağus. 21, 2010 8:13 pm

- dizayn kısmına bir adet button ve Timer ekleyin

Dim x, y As Integer
Private Sub Button1_Click

Timer1.Stop()
MsgBox("tebrikler")
Button1.Width = Button1.Width - (Button1.Width * 20 / 100)
Button1.Height = Button1.Height - (Button1.Height * 20 / 100)

If Button1.Width <= 50 And Button1.Height <= 50 Then
Timer1.Interval = 350
MsgBox("SEVİYE 2 ")

End If
If Button1.Width <= 40 And Button1.Height <= 40 Then
Timer1.Interval = 10
MsgBox("SEVİYE 3 ")

End If
Timer1.Start()

End Sub

Private Sub Form1_Load(
Timer1.Start()
End Sub

Private Sub Timer1_Tick
Randomize()
x = Rnd() * 300
y = Rnd() * 300
Button1.Location = New Point(x, y)
End Sub
End Class<u></u><b></b>

KADİR SELEN

Konu: Geri: Buttton YAKALAMA Oyunu C.tesi Ağus. 21, 2010 11:32 pm

Biz Bu programla iyi Kekliyoduk Bebeleri

Konu: Geri: Buttton YAKALAMA Oyunu Paz Ağus. 22, 2010 8:49 am