Başlangıç > Kodlar > Visual Basic 6 ile Zıplayan top yapımı

Visual Basic 6 ile Zıplayan top yapımı


Eklenecek nesneler; timer1, shape1
(timer1'in interval özelliğini 10 yapıyoruz)
(shape1'in shape özelliğini circle seçiyoruz)

Private Sub Timer1_Timer()
Static ax, ay
If IsEmpty(ax) Then
ax = 50
ay = 50
End If

If Shape1.Top <= 0 Or Shape1.Top >= Form1.ScaleHeight - Shape1.Height Then
ay = -ay
Beep
End If

If Shape1.Left <= 0 Or Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then
ax = -ax
Beep
End If

Shape1.Left = Shape1.Left + ax
Shape1.Top = Shape1.Top + ay
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: