Basit Olarak Yapabileceğimiz Bir Kodlama

Gerekenler :

Radio Buton
Timer

Youtube Link :


Linki acmazsa :

http://www.youtube.com/watch?v=b5S-uYXjCrg


Kod :


Kod:
Public Class Form1 Inherits System.Windows.Forms.Form Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RadioButton1.Text = "" RadioButton1.Width = 10 Timer1.Interval = 50 Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Static sx = 5, sy = 5, x = RadioButton1.Left, y = RadioButton1.Top If y = Me.ClientSize.Height Then 'Formun ustune veya altına ulaşıldı ise artımı ters cevir sy = -sy 'artış yonunu ters cevir Beep() End If If x = Me.ClientSize.Width Then 'Formun soluna veya sağına ulaşıldı ise artımı ters cevir. sx = -sx 'artış yonunu ters cevir Beep() End If x = x + sx y = y + sy RadioButton1.Left = x RadioButton1.Top = y End Sub End Class

__________________