تبلیغات
مرکز کدهای جاوا و اچ تی ام ال - تغییر رنگ بک گراند به طور اتوماتیک|کدهای کاربردی

تغییر رنگ بک گراند به طور اتوماتیک|کدهای کاربردی

شنبه 10 مهر 1389 08:16 ب.ظ   نویسنده : محمد      


مرتبط با کدهای کاربردی
این , کد رنگ بک گراند رو به طور مداوم تغییر میده البته برای استفاده پیشنهاد نمیشه
<!-- www.js.coo.ir -->
<!-- begin the script-->
<script language="JavaScript">
r=255;
g=255;
b=255;
flag=0;
t=new Array;
o=new Array;
d=new Array;
function hex(a,c)
{
t[a]=Math.floor(c/16)
o[a]=c%16
switch (t[a])
{
case 10:
t[a]='A';
break;
case 11:
t[a]='B';
break;
case 12:
t[a]='C';
break;
case 13:
t[a]='D';
break;
case 14:
t[a]='E';
break;
case 15:
t[a]='F';
break;
default:
break;
}
switch (o[a])
{
case 10:
o[a]='A';
break;
case 11:
o[a]='B';
break;
case 12:
o[a]='C';
break;
case 13:
o[a]='D';
break;
case 14:
o[a]='E';
break;
case 15:
o[a]='F';
break;
default:
break;
}
}
function ran(a,c)
{
if ((Math.random()>2/3||c==0)&&c<255)
{
c++
d[a]=2;
}
else
{
if ((Math.random()<=1/2||c==255)&&c>0)
{
c--
d[a]=1;
}
else d[a]=0;
}
return c
}
function do_it(a,c)
{
if ((d[a]==2&&c<255)||c==0)
{
c++
d[a]=2
}
else
if ((d[a]==1&&c>0)||c==255)
{
c--;
d[a]=1;
}
if (a==3)
{
if (d[1]==0&&d[2]==0&&d[3]==0)
flag=1
}
return c
}
function disco()
{
if (flag==0)
{
r=ran(1, r);
g=ran(2, g);
b=ran(3, b);
hex(1,r)
hex(2,g)
hex(3,b)
document.bgColor="#"+t[1]+o[1]+t[2]+o[2]+t[3]+o[3]
flag=50
}
else
{
r=do_it(1, r)
g=do_it(2,g)
b=do_it(3,b)
hex(1,r)
hex(2,g)
hex(3,b)
document.bgColor="#"+t[1]+o[1]+t[2]+o[2]+t[3]+o[3]
flag--
}
if (document.all)
setTimeout('disco()',50)
}</script>
<body onload="disco()">
<!--end of the script-->
<!-- www.js.coo.ir -->
  
آخرین ویرایش: دوشنبه 12 مهر 1389 07:12 ب.ظ
دیدگاه ها ()
چهارشنبه 28 شهریور 1397 08:20 ب.ظ

Kudos! Plenty of info!

cialis patent expiration buy cialis acheter cialis meilleur pri canadian discount cialis how much does a cialis cost cialis purchasing cialis dosage amounts what is cialis if a woman takes a mans cialis cialis generika
سه شنبه 13 شهریور 1397 09:55 ب.ظ

Thanks a lot, Great stuff.
northwest pharmacies online canadian pharmacies stendra canadian prescriptions online serc 24 mg canada medications cheap prescription drugs without prior prescription online pharmacies tech school trust pharmacy canada reviews canadian pharmaceuticals online candida viagra drugstore online shopping reviews
سه شنبه 13 شهریور 1397 05:17 ق.ظ

You suggested it superbly.
usa online pharmacy buy generic viagra online safely buying cheap viagra online uk viagra online buy viagra sample usa online pharmacy viagra online pharmacy levitra how can i buy viagra without seeing a doctor buy viagra without rx viagra order online
دوشنبه 12 شهریور 1397 09:31 ب.ظ

Incredible lots of beneficial material.
how to buy cialis online usa buy cialis online cialis per paypa ou acheter du cialis pas cher cialis sale online comprar cialis navarr free cialis chinese cialis 50 mg cilas cialis canada on line
دوشنبه 12 شهریور 1397 03:24 ق.ظ

Amazing many of beneficial information.
cialis generico lilly cialis uk next day buy generic cialis order cialis from india cialis sale online canadian drugs generic cialis cialis prices cialis lowest price buy cialis online legal comprar cialis 10 espa241a
سه شنبه 23 مرداد 1397 03:57 ق.ظ

Information nicely used.!
viagra to buy online uk sildenafil uk buy buy viagra without consultation viagra alternative viagra how to get a prescription sildenafil prices uk pharmacy usa online buy viagra online prescription viagra uk buy order sildenafil
دوشنبه 7 خرداد 1397 04:17 ق.ظ

Thanks! I like it.
cialis australian price cialis generico lilly wow cialis 20 cialis canada achat cialis en suisse buy online cialis 5mg generico cialis mexico price cialis wal mart pharmacy cialis for bph cialis super kamagra
سه شنبه 4 اردیبهشت 1397 07:37 ق.ظ

You suggested that wonderfully!
buy viagra no rx silagra buy viagra online without prescription how do i buy viagra online where can i buy viagra online viagra online pharmacy viagra cheap viagra online usa viagra usa pharmacy viagra buy online buy viagra uk next day delivery
جمعه 17 فروردین 1397 11:18 ب.ظ

Fine content. Kudos!
what is cialis what is cialis cialis generika cialis para que sirve cialis 5 effetti collaterali generic cialis ou trouver cialis sur le net cialis uk next day cialis mit grapefruitsaft cialis with 2 days delivery
جمعه 3 فروردین 1397 09:16 ب.ظ

Position nicely used!.
when will generic cialis be available cialis kamagra levitra only best offers 100mg cialis cialis for sale in europa safe dosage for cialis cialis 200 dollar savings card cialis 05 we recommend cialis info overnight cialis tadalafil generic cialis pill online
یکشنبه 26 شهریور 1396 04:54 ب.ظ
I am extremely impressed with your writing abilities as neatly
as with the layout to your weblog. Is this a paid
subject matter or did you modify it your self? Anyway stay up the nice quality
writing, it is rare to look a great blog like this one nowadays..
یکشنبه 15 مرداد 1396 11:19 ق.ظ
I'm amazed, I have to admit. Rarely do I come across a blog that's equally educative and amusing,
and let me tell you, you've hit the nail on the head. The issue is something which
too few people are speaking intelligently about.
Now i'm very happy I came across this during my hunt for something regarding this.
چهارشنبه 3 خرداد 1396 07:11 ب.ظ
You can certainly see your skills within the article
you write. The arena hopes for more passionate writers like you who aren't afraid to mention how they believe.
All the time follow your heart.
چهارشنبه 23 فروردین 1396 03:35 ق.ظ
Right now it appears like Expression Engine is the preferred blogging platform available right now.
(from what I've read) Is that what you are using on your blog?
یکشنبه 7 مهر 1392 06:53 ب.ظ

عالی هست
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر

درباره وبلاگ


نویسندگان

  • محمد (64)