HAPPY
27-11-2006, 19:26
Karýþýk karakterler ve renkli eðik çizgiler kullanýlarak yapýlmýþ güzel bir ekran koruyucu
'Ö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:ŸÐ¨tJ*Z¯Ø¬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ä
ˆ {f„ sh° ò¢U£J… ù ÇJ`°àT ‚êÅÀpúæÑàÃ#ÊpASv1íÞl öîÔ¶a¿Ž_ûAœjóç7ð»|׌€Pt Q$€ÿy# `Iç' E‰gá…~l°[8ÀräÐ'"{ˆhâ‰&Ú'“[)P3?5ÔÄ@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·Ò xS*IÙ…)…טÝhT+À 8…öêëˆñ³@{ò½ö@¥'2ð@–˜Ú[ªeꛕ dÒÿ@?•«$˜“£‡ykçX 8¤
•wØ08Âp?¥3"%˜TP‡?”ï“Œ« ýœúA¢ÖhàÀ¯oá”S <ÍD[±˜nÙlüŽ:¿µæpº @HgÉ$`Ž¿#0–ƒe+8?Ñd•qe…p@ ŽÑ{ËÌ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“??Èá¨,?øˆƒF¸æ‰ O¢ ÒÔð''^?$˜ÑHÚa¸‰` #8²Âÿ©äG`"‡„n??u Ð_«€<@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¸† s|ÔÀ\31-áÿÆJ"¤Ìp™¸hj‘¤–.%û?4¡SVN©Ë˜±$ö²¢àvÄî^R9Ò
zVÀ †˜bÜAÉá¹Âý=ˆ9Lò(àªHÈäŠ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¸?Œáwÿd“¨?²|cŸ˜õÅXv‚ ¿óPI.©EZ¨+“ø½5‘—²‹[^à v€·g¼ý Ìþ ³‹LPg_°Ì¬UZ+ )q€@ªÀ˜M¿' •<PÀ8†™`¯ƒÕo§Êâ²*ØiaVÇ7žC¬ †i¨‘£Ú… ?º6¼Ã? &•>@¦6&ºI?†ÕÌÞhÉ›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×ÌE?w7cú
NpØcòüØÉ"A¦#Cd ÉÎÌÚ¸ ?uZ÷PáÖäRµm8ë ˆ›ùÖ® ¯ð’ ¨à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 ƒ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²Î¶ž·?ØaÅq$Bx Bb½ÐƒH
¬†:"ðëR 2.¶†:êókC‚<¨+ú¢Àh?x #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ã°ˆ‘€ ʈ*Ô0}D6?ˆ€ Žø’ˆ6Á…Ç *è'Ð$eƒ#…0PYd S'39G¤_áÊ¢H”äã#ÄA+Kñ-†ð$’qñH”±2
ó!&?B¢3Ü„£0`ø¶;/Àc¡†çn¸†? "ï¶?K¢=(u%2}Ã4ì8?i-P
I´ 'ð#D3`:±aÀ>]31(µZn¡@2ØT¦+“175mŠ@
–¶#YT?Z‡€x ›6ãOÿ+à0‰O€!Eãb à‘A??M À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–‘X¥ ¼7šI "còþ3 Јÿ* ´Y µ9 Wp
j
—'´™'?#uðG µ¦%ƒ*à5¡’û„TÇÁXï >}Ç! ö9)åY¹±J4&psqlê°ZûG??'@AStT"Ÿp?#ñhÙ^?@H „CcttUŠˆ@BK’€?` Xš¥ Ј ª¥¼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)ƒ ñ©*¶,”Ä:ð=ïQ?E"!ME„ éÓcµ ñQ§[Q
ëðBøq`’l€Ž#0# ‚k´ÈÃ1J± ¥I&E?mЩ?™Ñ€²ó ¥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
'Ö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:ŸÐ¨tJ*Z¯Ø¬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ä
ˆ {f„ sh° ò¢U£J… ù ÇJ`°àT ‚êÅÀpúæÑàÃ#ÊpASv1íÞl öîÔ¶a¿Ž_ûAœjóç7ð»|׌€Pt Q$€ÿy# `Iç' E‰gá…~l°[8ÀräÐ'"{ˆhâ‰&Ú'“[)P3?5ÔÄ@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·Ò xS*IÙ…)…טÝhT+À 8…öêëˆñ³@{ò½ö@¥'2ð@–˜Ú[ªeꛕ dÒÿ@?•«$˜“£‡ykçX 8¤
•wØ08Âp?¥3"%˜TP‡?”ï“Œ« ýœúA¢ÖhàÀ¯oá”S <ÍD[±˜nÙlüŽ:¿µæpº @HgÉ$`Ž¿#0–ƒe+8?Ñd•qe…p@ ŽÑ{ËÌ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“??Èá¨,?øˆƒF¸æ‰ O¢ ÒÔð''^?$˜ÑHÚa¸‰` #8²Âÿ©äG`"‡„n??u Ð_«€<@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¸† s|ÔÀ\31-áÿÆJ"¤Ìp™¸hj‘¤–.%û?4¡SVN©Ë˜±$ö²¢àvÄî^R9Ò
zVÀ †˜bÜAÉá¹Âý=ˆ9Lò(àªHÈäŠ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¸?Œáwÿd“¨?²|cŸ˜õÅXv‚ ¿óPI.©EZ¨+“ø½5‘—²‹[^à v€·g¼ý Ìþ ³‹LPg_°Ì¬UZ+ )q€@ªÀ˜M¿' •<PÀ8†™`¯ƒÕo§Êâ²*ØiaVÇ7žC¬ †i¨‘£Ú… ?º6¼Ã? &•>@¦6&ºI?†ÕÌÞhÉ›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×ÌE?w7cú
NpØcòüØÉ"A¦#Cd ÉÎÌÚ¸ ?uZ÷PáÖäRµm8ë ˆ›ùÖ® ¯ð’ ¨à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 ƒ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²Î¶ž·?ØaÅq$Bx Bb½ÐƒH
¬†:"ðëR 2.¶†:êókC‚<¨+ú¢Àh?x #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ã°ˆ‘€ ʈ*Ô0}D6?ˆ€ Žø’ˆ6Á…Ç *è'Ð$eƒ#…0PYd S'39G¤_áÊ¢H”äã#ÄA+Kñ-†ð$’qñH”±2
ó!&?B¢3Ü„£0`ø¶;/Àc¡†çn¸†? "ï¶?K¢=(u%2}Ã4ì8?i-P
I´ 'ð#D3`:±aÀ>]31(µZn¡@2ØT¦+“175mŠ@
–¶#YT?Z‡€x ›6ãOÿ+à0‰O€!Eãb à‘A??M À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–‘X¥ ¼7šI "còþ3 Јÿ* ´Y µ9 Wp
j
—'´™'?#uðG µ¦%ƒ*à5¡’û„TÇÁXï >}Ç! ö9)åY¹±J4&psqlê°ZûG??'@AStT"Ÿp?#ñhÙ^?@H „CcttUŠˆ@BK’€?` Xš¥ Ј ª¥¼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)ƒ ñ©*¶,”Ä:ð=ïQ?E"!ME„ éÓcµ ñQ§[Q
ëðBøq`’l€Ž#0# ‚k´ÈÃ1J± ¥I&E?mЩ?™Ñ€²ó ¥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
