Programalama > VISUAL BASIC

Etiketler: güzel, bir, ekran, koruyucu

Ort. 0
Puan ver:
Dim a As Long

Private Sub Timer1_Timer()
Line (800, 800)-(800, 800 + a), Int(Rnd * 65000)
Line (2000, 800)-(2000, 800 + a), Int(Rnd * 65000)
Line (3000, 800)-(3000, 800 + a), Int(Rnd * 65000)
Line (4000, 800)-(4000, 800 + a), Int(Rnd * 65000)
Line (5000, 800)-(5000, 800 + a), Int(Rnd * 65000)
Line (6000, 800)-(6000, 800 + a), Int(Rnd * 65000)
Line (7000, 800)-(7000, 800 + a), Int(Rnd * 65000)
Line (8000, 800)-(8000, 800 + a), Int(Rnd * 65000)
Line (9000, 800)-(9000, 800 + a), Int(Rnd * 65000)
Line (10000, 800)-(10000, 800 + a), Int(Rnd * 65000)
Line (11000, 800)-(11000, 800 + a), Int(Rnd * 65000)
Line (12000, 800)-(12000, 800 + a), Int(Rnd * 65000)
Line (13000, 800)-(13000, 800 + a), Int(Rnd * 65000)
Line (14000, 800)-(14000, 800 + a), Int(Rnd * 65000)
Line (15000, 800)-(15000, 800 + a), Int(Rnd * 65000)
Line (800, 800)-(800 + a, 800), Int(Rnd * 65000)
Line (800, 2000)-(800 + a, 2000), Int(Rnd * 65000)
Line (800, 3000)-(800 + a, 3000), Int(Rnd * 65000)
Line (800, 4000)-(800 + a, 4000), Int(Rnd * 65000)
Line (800, 5000)-(800 + a, 5000), Int(Rnd * 65000)
Line (800, 6000)-(800 + a, 6000), Int(Rnd * 65000)
Line (800, 7000)-(800 + a, 7000), Int(Rnd * 65000)
Line (800, 8000)-(800 + a, 8000), Int(Rnd * 65000)
Line (800, 9000)-(800 + a, 9000), Int(Rnd * 65000)
Line (800, 10000)-(800 + a, 10000), Int(Rnd * 65000)
Line (800, 11000)-(800 + a, 11000), Int(Rnd * 65000)
a = a + 50
End Sub


ümit balci
umit.balci@mynet.com


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.