Renklerin Dansı

Bu dersimizde güzel bir program yapacağız.

Kullanılacak:
1 Adet Label , 1 adet Timer


Private Sub Form_Load()

Timer1.Interval = 10

AutoRedraw = True

Label1.AutoSize = True

End Sub



Private Sub Timer1_Timer()

Dim x, y

Static i

i = (i + 1) Mod 360

y = ScaleHeight / 2 + ScaleHeight / 2 * Sin(i * 3.1415 / 180)

x = ScaleWidth / 2 + ScaleWidth / 2 * Cos(i * 3.1415 / 180)

Label1.Top = y

Label1.Left = x

Line (ScaleWidth / 2, ScaleHeight / 2)-(x, y), i * 10

Label1 = i

End Sub



Kolay gelsin. İnşallah beğenmişsinizdir.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 13 yıl önce
EMEK VERMİŞ YAZMIŞSINIZ BEÐENMEMEK NE HADDİMİZE
• 12 yıl önce
evet güzel bir çalışma eline sağlık
• 12 yıl önce
vatan dediğin bu aslanlar birde bu aslanları doğuran aslan analar.eyw
• 12 yıl önce
çok teşekkürler paylaşım için :kirp: ben daha çok yeniyim, acemiyim bu kodları nereye yapıştıracağımızıda belirtseniz çok güzel olur :-dusun:
• 12 yıl önce
gayet güsel olmuş ellerinize sağlık:gul:
• 12 yıl önce
tşk ederim arkadaşlar,,,
• 12 yıl önce
çok güzel bi çalışma olmuş ellerine sağlık:gul:
• 12 yıl önce
ya arkadaşlar ben yeni başlıyorum ve nereden başlayacağıbı bilmiyorum nasıl başlamalıyım visiul basic e
• 12 yıl önce
Merhaba Gerçekten güzel bi paylaşim. Acaba bunu asp sayfalara nasıl uygularız.
• 12 yıl önce
çok güzel bişeymiş.. yakında yapıcağım projede kullanırım teşekkürler :gul:
• 12 yıl önce
:sasir::kirp::hayret::gul::D
• 12 yıl önce
aklına sağlık:D çok guzel olmuş bi de resmını değiştir tamam mı i? alınmaaa :gul::gul::gul: yeni çalışmalarınızı beklıporum
• 12 yıl önce
aklına sağlık :D çok guzel olmuş yenı çalışmalrınızı beklıorum :gul::gul::gul::gul: bided su resmını değiştirirsen çok sevınıcem
• 12 yıl önce
aklına sağlık :D çok guzel olmuş yenı çalışmalrınızı beklıorum :gul::gul::gul::gul: bided su resmını değiştirirsen çok sevınıcem
• 11 yıl önce
Çok güzel olmuş.:kirp:
• 9 yıl önce
Ben VB 2005 Express kullanıyorum da bende hata verdi deyimler yüzünden bunun VB 2005 Express için olanını yazar mısın???

Yukarı Git