Visual Basic / Visual Basic Kod Bankası ( Code ekran koruyucu )
Visual Basic Kod Bankası ( Code ekran koruyucu )
|
 |
Yazar: by_Coder
Eklenme:
03/02/08
Okunma:
342 |
|
|
| |
| |
|
|
'Öncelikle formunuza 3 adet label, 3 adet timer, 1 adet module, 1 adet text ekleyin;
'text1in multiline özelliğini true yapın ve textine aşağıdaki karakterleri yapıştırın; veya herhangi bir resim dosyasını notepad ile açtığınızda çıkan karakterleride kullanabilirsiniz...
aRÆÄ òòò\]^æ¿ëÿÿçèèµÍÎÊÏøÿşşĞ–iğßCž‘)£´¿Û´‰Œwn3µÕçÁ³Ilmm»¸FGG*,-ÙÙÙ|~{ãã㺺¹£??şÿ½ÿÿÿ, RÆ ÿà'Ždižhª®lë¾p,Ïtmßx®ï|ïÿÀ pH,ȤrÉl:ŸĞ¨tJZ¯Ø¬vËíz¿à°xL.›Ïè´zÍn»ßğ¸|N¯Ûïø¼~Ïïûÿ€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ;¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏĞ_ Ö×ØÑÚÛÜ’áßêììäãİôõöqëë;üè0 0í5 V ŽÂ½‡#f±@±â;9t3šÁ ó>pàPÑ‚?~-ÿ8”Ȳe/ Èœ©aÂ25@À;9s(ž`A†‘“žë8"@ ç‚J]ÊAé 0±Õ¥×¯§œB '.œ€ h¨]@!B… "P€ —[qà(Œ¬@!C
ó6`j5*ş„bØĞ5€À 9`È!@H§Œ#È5 ‡`C‹Î˜Üv h@‚Ú f6`P vmä<br />
ˆ {f„ sh° ò¢U£J… ù ÇJ`°àT ‚êÅÀpúæÑàÃ#ÊpASv1íŞl öîÔ¶a¿Ž_ûAœjóç7ğ»|׌€Pt Q$€ÿy# `Iç' E‰gá…~l°[8ÀräĞ'"{ˆhâ‰&Ú'“[)P35ÔÄ@U xŽIpp`CM€ L™ãO] †H& G T0’ŽTàÁ÷EğNZóÅ— Š\¢;¨Ÿ?5E97 èOR w]šßEè|s& 0ı×6xæ9Yáˆ5NÁ¤ä „v hAnVîFåm§í& N%vi饵İÇ`<ˆCM a"ĞÜ@éL·Ò xSIÙ…)…טİhT+À 8…öêëˆñ³@{ò½ö@¥'2ğ@–˜Ú[ªeꛕ dÒÿ@?•«$˜“£‡ykçX 8¤
•wØ08Âp¥3"%˜TP‡”ï“Œ« ı&#339;úA¢ÖhàÀ¯oá”S <ÍD[±˜nÙlüŽ:¿µæpº @HgÉ$`Ž¿#0–ƒe+8Ñd•qe…p@&#381;Ñ{ËÌJÁ5&· G[ŸˆÑrØ@³ªá¶ÄmñN`‡e ĞÁ%åsÊ,O!ş:¦³ÁÜ] ËûÕ6*.“@Re·ÔÜX Öž[…em#ş´Ò-!Á:ìq(B>ê,ğZ¼3é|±cuÿläğvqïÍT[Ö à”ŽÓÕ˜ »ql I. ÇGÅ’ÁÍ%8ğàžQ$LòúÍ ìİD;ÍoµyFİD;ä÷<ÎMËⶕ?RPùo¿í†Ó D ùÄù‘3ìVw‰Ûlj m"d”9;
ğqíŞzArÀ*TŒä?ù€L¾;19 Pkš® üUà*<hWyj£Âh: À €èåØëF ~Ä=úÌH [Ô±r£d k3ÄçÆ4©] R“?Èá¨,ø&;#710;ƒF¸æ‰ O¢ ÒÔğ''^$˜ÑHÚa¸;‰` #8²Âÿ©äG`"&#8225;„nu Ğ_«€<;@G çAŠK¡6Õ–ßø°6¹Ñ\5p“›p bˆM£ÈÇ(òù‘Y(z@÷¨º˜Ä; (¬F ’?‘éFDIŠÀØ F¡\ï :ŸùÁC)Š Q*ÑKà ¨®NÁ¤S p’ô! ”ƒs¬£YŽ)êÑ+T üĞBŸcYÉ:“sÀÁ2à
T À2Î!ËRŠ´‹^Br+]õa… Íä! Qc$gZã â˜sèåDÉg “ ue–…3ÏîŞÑ´YŽIs †y$Ï+HñG¦00¸&#8224; s|ÔÀ\31-áÿÆJ"¤Ìp™¸hj‘¤–.%û4¡SVN©Ë˜±$ö²¢àvÄî^R9Ò
zVÀ †˜bÜAÉá¹Âı=ˆ9Lò(àªHÈä&#352;zÑgdt£”OnB¸ ‘’t&'Miü:Ê¥–rH + 50@Ó<اáˆóÄÀSQà§3 j ˆºƒ£Š‘ J}`S3ğÔÁ)°®\ *9¬ŠU©«ÊZ8şG<rÌ&YráÍØŞ‚¸0U ñûax#—š ;GÕd ¡3«XK
¢’‡· ôE³ e ”)O@ğu‚ìس#«ó2ËŒe p{Y¸&#338;áwÿd“¨²|c&#376;˜õÅXv‚¿óPI.©EZ¨+“ø½5&#8216;—²‹[^à v€·g¼ı Ìş ³‹LPg_°Ì¬UZ+ )q€@ªÀ˜M¿' •<PÀ8†™`¯ƒÕo§Êâ²ØiaVÇ7žC¬ †i¨‘£Ú… º6¼Ã &•>@¦;6&ºI?†ÕÌŞhÉ&#8250;iQßC¹Š~‚"Õ‚?ˆ ¦æ戕ƳØ@“Ö\´İÉ-âËMn´–^´¬9}êËÒÔÄêHGjî*À$ ıÀŽ€ê UÑ »şZ£yÜÈ’Ô™ÿ²ƒ¦3ip•%¦‘ _’g€NrpÇC;ùÀU=0jD Fë;@ó,8øÉÄà³hS8à!Ã_ÀgmS—cÙgLìáµ–î³Tñ-@ à%†N ŽAûA2BÑĞÎ}ŽŒD~qœæÜP…±A[Çye‹ppÇOQj’D ¤$@Õ«ÖèM P_ŞT Ãà‚Éæ8×ÌEw7cú
NpØcòüØÉ"A¦#Cd ÉÎÌÚ¸ uZ÷PáÖäRµm8ë ˆ&#8250;ùÖ® ¯ğ’ ¨àUÛ
ïSXG+|‡I·Æ€†7 ÜÊ€: …¢û4é4èœbÙ
*á†,B1 ÿÍÛÇ9œ07Àw¼Ğä땃8Ã1A¾‚¢`€çğPÂK Ê´«F~’uË5±ÚaÙ»¼fK[şˆ±¸‹%â
ĞÀ¨@ Æ6Bë i“1Óy©‡§ .í Ş6¶nÙ$#Ô.œì` ™”BQíï {«
Dúx\Œ}í›àãMÒR›Àoɇ[0ŸË µE &#402;6 'Ú̹s ¢VӹхUKŽ¼7¹Ò;áôFPh+dšŒÚ`\¬Ä T>Çš\e³Õ,Âø^EøQ¿‰y &a ´V÷¬nŒÙ¢ ߨğŞ«%È×jâzœ„®·±,\"wÿäğ1Ü7}†@!:A
7UœÑÚ;C>C2QA Àäg
í¢+ÁEHãBÆ䀩Á Û5İæo7Á-6!H+ rnÁâ{ğ5’Ô!”2°åEŽP[25²Î¶&#382;·?ØaÅq$Bx Bb½ĞƒH
¬†:"ğëR 2.¶†:êókC‚<¨+ú¢Àhx #t1))ÂT2òFûp >˜ÍepGEQ[¼#¢<Äaq·ã' @ 5"£T…‚@kàâ$"äùQ—aEa'j†Hk–G:Ò$-(äÒ$ C!Mì°zÿŒRlÅ š8‚%À;‘&?¡U…'s<Rž§;L¡Ê4Ïaã°ˆ&;#8216;€ ʈ*Ô0}D6ˆ€ Žø’ˆ6Á…Ç *è'Ğ$e&#402;#…0PYd S'39G¤_áÊ¢H”äã#ÄA+Kñ-†ğ$’qñH”±2
ó!&B¢3Ü„£0`ø¶;/Àc¡†çn¸† "ï¶K¢=(u%2}Ã4ì8i-P
I´ 'ğ#D3`:±aÀ>]31(µZn¡@2ØT¦+“175mŠ@
–¶#YTZ‡€x ›6ãOÿ+à0‰O€!Eãb à‘AM ÀyZàn
E *G ˆ£sÎ’>„÷ ÁòtşaÍÇö “““3‡“D•g^²gñ;áûÈç !NQŒCk8ÊÁui€8á’/°_xP ŠâbRÙ+”0w{]ù; “³;A
6@ L´¹– –X€' p
)’8 0§7öGZã{®³UÆ„T2é…cñ}‹6Y Ó$óĞ)Sà 5Áy1)«U"*ÕQãÃߤpU鎻E‡ +!*…¸øõ–%@ùe–&#8216;X¥ ¼7šI "còş3 Јÿ* ´Y µ9 Wp<br />
j
—'´™'#uğG µ¦%ƒà5¡’û„TÇÁXï >}Ç! ö9)åY¹±J4&psqlê°ZûG?'@AStT"Ÿp#ñhÙ^@H „CcttUŠˆ@BK’€` X&#353;¥ Ј ª¥¼Iğ ;JGÎ¥4+$o z ÅjP‚0>¨;xó…‚
`L©QžƒHì±k¿¬;““õÅCÖ!BÔPplÓ Hº2w€Šm1şÀmX!#¡ÿp
ÍX½8À}‚ğ¤m0A8¹DVÔPBĞ$ÿ¢j›T"†Od¡¥´j `Ö@«Î5¦µº;¥ÖĞI¾âŸĞÂ(w)ƒ ñ©¶,”Ä:ğ=ïQE"!ME„ éÓcµ ñQ§[Q
ëğBøq`’l€Ž#0# ‚k´ÈÃ1J± ¥I&EmĞ©™Ñ€²ó ¥r¤Fj‡(æªéÚK4,e4^Fa½Ú°ut«T¦;±k
Ù+1|Q>@â0ë`‚ 4—
` DªHxÆ":gÚ5£V =Ä19ÿñ ò›×$ ÿª
'----------------------
'Module içine aşağıdaki kodları yazın;
Declare Function ShowCursor Lib "user32" (ByVal fShow As Integer) As Integer
Sub HideMouse() 'mouse gizle
While ShowCursor(False) >= 0
Wend ;
End Sub
Sub showmouse() 'mouse göster ;
While ShowCursor(True) < 0
Wend ;
End Sub
'----------------------
' form içine de aşağıdaki kodları yazın;
Dim a, b, c, harf
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then showmouse: End 'ESC tuşuyla mouse gösteri çağır ve ekran koruyucuyu kapat
End Sub
Private Sub Form_Load()
If App.PrevInstance Then 'Ekran koruyucu çalışıyorsa
Unload Me'kapat
End If
HideMouse 'mouse gizleyi çağır
Me.BorderStyle = 0 'formun başlığı ve çerçevesi kaldırılıyor
Me.BackColor = &H0& 'formun arkaplan rengi siyah yapılıyor
Me.FillColor = &HC000& 'formun dolgu rengi yeşil yapılıyor
Me.ForeColor = &HFF00& 'formun yazı rengi açık yeşil yapılıyor
label1.BackStyle = 0 'label1 arkaplanı transparan yapılıyor
label1.ForeColor = &HFF00& 'label1 yazı rengi açık yeşil yapılıyor
label2.BackStyle = 0 'label2 arkaplanı transparan yapılıyor
label2.ForeColor = &HA000& 'label2 yazı rengi yeşil yapılıyor
label3.BackStyle = 0 'label3 arkaplanı transparan yapılıyor
label3.ForeColor = &H5000& 'label3 yazı rengi koyu yeşil yapılıyor
'ekran çözünürlüğüne göre formun ve labelların boyutları ayarlanıyor
Me.Width = Screen.Width
label1.Width = Me.Width
label2.Width = Me.Width
label3.Width = Me.Width
Me.Height = Screen.Height
label1.Height = Me.Height
label2.Height = Me.Height
label3.Height = Me.Height
label1.top = 180
label2.top = 0
label3.top = 0
label1.left = 0
label2.left = 0
label3.left = 0
'timerların fasılaları ayarlanıyor
Timer1.Interval = 10
Timer2.Interval = 22
Timer3.Interval = 23456
End Sub
Private Sub Timer1_Timer()
FillColor = RGB(Rnd * 205, Rnd * 205, Rnd * 205) 'rastgele RGB renkleri seçiliyor
FillStyle = 1
Circle (Rnd * Width, Rnd * Height), Rnd * Width, RGB(Rnd * 255, Rnd * 255, Rnd * 255) 'rastgele boyut ve renk seçiliyor
c = Len(Text1.Text) 'c, text1.textin karakter sayısına eşitleniyor
a = Int(Rnd * 101) 'a, rastgele bir tam sayıya eşitleniyor
If a = 0 Then a = 1 'eğer a, 0a eşitse 1e eşitleniyor
b = Int(Rnd * a + a) 'b, a ile ilişikli rastgele bir sayıya eşitleniyor
b = b * a 'b, b ile a çarpımına eşitleniyor
If b > c Then b = b - a - a 'eğer b, c den büyükse b den 2 defa a çıkartılıyor
harf = Mid(Text1.Text, b, 1) 'harf, text1.textin, b'inci harfinden başlayan 1 karaktere eşitleniyor
label2.Caption = label2.Caption & harf 'label2 nin ardına harfe atanan karakter ekleniyor
label3.Caption = label3.Caption & harf 'label3 Ün ardına harfe atanan karakter ekleniyor
End Sub
Private Sub Timer2_Timer()
la1.Caption = label1.Caption & harf 'label1 in ardına harfe atanan karakter ekleniyor
FillColor = RGB(Rnd * 205, Rnd * 205, Rnd * 205) 'rastgele RGB renkleri seçiliyor
FillStyle = 1
Circle (Rnd * Width, Rnd * Height), Rnd * Width, RGB(Rnd * 255, Rnd * 255, Rnd * 255) 'rastgele boyut ve renk seçiliyor
End Sub
Private Sub Timer3_Timer()
label1.Caption = "" 'label1 siliniyor
label2.Caption = "" 'label2 siliniyor
label3.Caption = "" 'label3 siliniyor
End Sub
leedut
leedut@gmail.com
|
| |
|
