- 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
Ptsi Ara. 15, 2014 1:31 pm tarafından nonofthem
![[By_Admin İyi Forumlar Diler]](https://2img.net/r/ihimizer/img233/4033/admnfi7.gif "[By_Admin İyi Forumlar Diler]")
Mesaj Sayısı
Kayıt tarihi
Yaş
Nerden
Cinsiyet
Konu: Buttton YAKALAMA Oyunu 
