كود عرض ممتع لخلفية الصفحة - 3 من مارس 2011 - تعلم كيف تتعامل مع موقع ucoz - منتديات الباسلة
أهلاً بك ضيف | RSS
منتديات الباسلة
الرئيسية | تعلم كيف تتعامل مع موقع ucoz | التسجيل | دخول
 
الرئيسية » 2011 » مارس » 3 » كود عرض ممتع لخلفية الصفحة
3:42 AM
كود عرض ممتع لخلفية الصفحة
<BODY onload=disco()>
<SCRIPT language=JavaScript>
<!--
//you can assign the initial color of the background here
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>

الفئة: شرح استخدام موقع ucoz | مشاهده: 336 | أضاف: RozaBasil | الترتيب: 0.0/0
إضافة تعليق يستطيع فقط المستخدمون المسجلون
[ التسجيل | دخول ]
[ فئة القسم ]
شرح استخدام موقع ucoz [22]
لتسهيل التعامل مع مواقع ucozبطريقة سلسة
نجوم البلاك بيري [4]
برامج وثيمات وخلفيات مستجدة
تحميل الملفات والصور والمجلدات [1]
مراكز تحميل لملفات والصور والمجلدات والفلاشات والفديو

[ التصويت ]
قيم موقعي
مجموع الردود: 124

[ شات الباسلة ]
200

[ إحصائية ]

المتواجدون الآن: 1
زوار: 1
مستخدمين: 0

[ سلة التسويق ]
عربة التسوق فارغة

[ بحث ]

[ التقويم ]
«  مارس 2011  »
إثثأرخجسأح
 123456
78910111213
14151617181920
21222324252627
28293031

[ أرشيف السجلات ]

[ أصدقاء الموقع ]
  • منتديات الباسلة القديم

  • صناديق الاثتثمار المغربي

  • اخبار الجزيرة .
    أختر لغة المنتدى من هنا
    تحميل الصور والملفات

    .
    .
    Copyright MyCorp © 2016
    .