Programalama > VISUAL BASIC.NET

1 radiobutton ve 1 timer ekleyin.


Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "
    

 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 <= 0 Or y + RadioButton1.Height >= Me.ClientSize.Height Then
   'Formun üstüne veya altına ulaşıldı ise artımı ters çevir
   sy = -sy 'artış yönünü ters çevir
   Beep()
  End If
  If x <= 0 Or x + RadioButton1.Width >= Me.ClientSize.Width Then
   'Formun soluna veya sağına ulaşıldı ise artımı ters çevir.
   sx = -sx 'artış yönünü ters çevir
   Beep()
  End If
  x = x + sx
  y = y + sy
  RadioButton1.Left = x
  RadioButton1.Top = y
 End Sub
End Class