Vb.net Amaçsız Top Oyun Yapımı Giriş

[buzcannn]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Basit Olarak Yapabileceğimiz Bir Kodlama

Gerekenler :

Radio Buton
Timer

Youtube Link :



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 <= 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

 

[Montesquiie]

Teşekkürler..