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;
Fuat ŞENGÜL
Fuat ŞENGÜL Samsun Havza ilçesinde 23.05.1990 da doğdu. Bilgisayar ile lise öğreniminde tanışan yazar Pascal, C/C++, Assembly ve Visual Basic dilleriyle birlikte yazılıma adım attı. 2008 yılında Fırat Üniversitesi Teknik Eğitim Fakültesi Bilgisayar öğretmenliğini kazandı. Öğrenimi sırasında web ve masaüstü yazılımları konusunda projelere imza atan yazar 2012 yılında mezun oldu. Mezuniyetten sonra Fırat Üniversitesi Teknoloji Fakültesi Yazılım Mühendisliğinde Yüksek Lisans öğrenimine başladı. <p>Yazar C/C++, C#, Asp.Net, Matlap, Jquery, Css ve Html gibi programlama dillerine hakim ve bu diller ile projeler üretmeye devam etmektedir. Bilişim Teknolojileri öğretmeni olarak görev yapmaktadır.
Yorum Yaz

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

EMEK VERMİŞ YAZMIŞSINIZ BEÐENMEMEK NE HADDİMİZE
evet güzel bir çalışma eline sağlık
vatan dediğin bu aslanlar birde bu aslanları doğuran aslan analar.eyw
ç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:
gayet güsel olmuş ellerinize sağlık:gul:
tşk ederim arkadaşlar,,,
çok güzel bi çalışma olmuş ellerine sağlık:gul:
ya arkadaşlar ben yeni başlıyorum ve nereden başlayacağıbı bilmiyorum nasıl başlamalıyım visiul basic e
Merhaba Gerçekten güzel bi paylaşim. Acaba bunu asp sayfalara nasıl uygularız.
çok güzel bişeymiş.. yakında yapıcağım projede kullanırım teşekkürler :gul:
:sasir::kirp::hayret::gul::D
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
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
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
Çok güzel olmuş.:kirp:
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