Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı

Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı

Gökhan KILIÇ-Recep TÜRK
 
AnasayfaKapıTakvimGaleriSSSKayıt OlGiriş yap
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» Leman Sam-Kıyamam Sana
Çarş. Mart 17, 2010 5:48 pm tarafından BTA

» Leman Sam-Rüzgar
Çarş. Mart 17, 2010 5:47 pm tarafından BTA

» Komik Videolar 3
Çarş. Mart 17, 2010 5:44 pm tarafından BTA

» Komik Videolar 2
Çarş. Mart 17, 2010 5:43 pm tarafından BTA

» Komik Videolar 1
Çarş. Mart 17, 2010 5:41 pm tarafından BTA

» Leman Sam - Anladım
Salı Mart 09, 2010 6:32 pm tarafından BTA

» Alışveriş Merkezinde Kız Kavgası
Ptsi Mart 08, 2010 11:35 am tarafından BTA

» Canı Sıkılan Anket Çözmeye
Cuma Mart 05, 2010 12:29 am tarafından BTA

» Samsung B3410W Ch@t
Perş. Mart 04, 2010 11:34 pm tarafından BTA

Tarıyıcı
 Kapı
 Indeks
 Üye Listesi
 Profil
 SSS
 Arama
Forumlar
Ortaklar
bedava forum

Paylaş | 
 

 Zıplayan Top

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
BTA
Admin
avatar

Mesaj Sayısı : 244
Points : 732
Reputation : 0
Kayıt tarihi : 28/02/10
Yaş : 25
Nerden Nerden : TOKAT/Reşadiye

MesajKonu: Zıplayan Top   Perş. Mart 04, 2010 1:06 pm

Zıplayan Top

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
Sayfa başına dön Aşağa gitmek
http://resadiye-eml.yetkinforum.biz
 
Zıplayan Top
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı :: Programlama :: Visual Basic Dilinde Hazır Programlar-
Buraya geçin: