Formunuzda etrafa çarpip ses çikartan hareketli bir top - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > visual basic.net

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 29 March 2008, 18:16   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Formunuzda etrafa çarpip ses çikartan hareketli bir top

Formunuzda etrafa çarpip ses çikartan hareketli bir top

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
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
Şirin Hareketli Avatarlar umut Animasyonlar ve Gifler 0 10 December 2009 23:56

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.