منتديات سوفتوير فور ويندوز
أهلا وسهلا بك زائرنا الكريم, أنت لم تقم بتسجيل الدخول بعد!
يشرفنا أن تقوم بالدخول أو التسجيل إذا رغبت بالمشاركة في المنتدى
منتديات سوفتوير فور ويندوز
أهلا وسهلا بك زائرنا الكريم, أنت لم تقم بتسجيل الدخول بعد!
يشرفنا أن تقوم بالدخول أو التسجيل إذا رغبت بالمشاركة في المنتدى
منتديات سوفتوير فور ويندوز
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.


منتديات سوفتوير فور ويندوز عروض المصارعة أسبوعي و شهري,أفلام أجنبي و عربي و هندي و الكارتون و الصور و برامج
 
الرئيسيةالبوابةأحدث الصورالتسجيلدخول

 

 : كود تساقط الثلج

اذهب الى الأسفل 
كاتب الموضوعرسالة
نواس
مشرف العام
مشرف العام
نواس


عدد المساهمات : 31
نقاط : 99
تاريخ التسجيل : 07/09/2011

: كود تساقط الثلج  Empty
مُساهمةموضوع: : كود تساقط الثلج    : كود تساقط الثلج  Emptyالثلاثاء أكتوبر 04, 2011 4:03 am


كود تساقط الثلج

<TABLE border=0 cellSpacing=1 cellPadding=3 width="90%" align=center>

<TR>
<td class=quote align=left><TABLE border=0 cellSpacing=1 cellPadding=0 width="90%" align=center>


<TR>
<td>الرمز:</TD></TR>
<TR align=middle>
<td class=code>
//Here you can add your own picture for snow. Just change the url
var

snowsrc="[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]"
//how many snowflakes there will be (currently 12)
var no =40;
//How fast will the snow disappear (0 is never)
var hidesnowtime = 0;
//The height the snow will reach before it disappears ("windowheight" or "pageheight")
var snowdistance = "pageheight";
///////////////////////////////End of Settings///////////////////////////////////
var ie4up = (document.all) ? 1 : 0;
var ns6up = (document.getElementById&&!document.all) ? 1 : 0;
function iecompattest()
{
return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
}
var dx, xp, yp;
var am, stx, sty;
var i, doc_width = 800, doc_height = 600;

if (ns6up)
{
doc_width = self.innerWidth;
doc_height = self.innerHeight;
}
else
if (ie4up)
{
doc_width = document.body.clientWidth;
doc_height = document.body.clientHeight;
}
dx = new Array();
xp = new Array();
yp = new Array();
am = new Array();
stx = new Array();
sty = new Array();
for (i = 0; i < no; ++ i)
{
dx[i] = 0;
xp[i] = Math.random()*(doc_width-50);
yp[i] = Math.random()*doc_height;
am[i] = Math.random()*20;
stx[i] = 0.02 + Math.random()/10;
sty[i] = 0.7 + Math.random();
if (ie4up||ns6up)
{
if (i == 0)
{

document.write("[url=http://wwe4up.own0.com/a href=][/url]
");
}
else
{

document.write("
");
}
}
}
function snowIE_NS6()
{
doc_width = ns6up?window.innerWidth-10 : iecompattest().clientWidth-10;

doc_height=(window.innerHeight &&
snowdistance=="windowheight")? window.innerHeight : (ie4up &&
snowdistance=="windowheight")? iecompattest().clientHeight : (ie4up
&& !window.opera && snowdistance=="pageheight")?
iecompattest().scrollHeight : iecompattest().offsetHeight;
for (i = 0; i < no; ++ i)
{
yp[i] += sty[i];
if (yp[i] > doc_height-50)
{
xp[i] = Math.random()*(doc_width-am[i]-30);
yp[i] = 0;
stx[i] = 0.02 + Math.random()/10;
sty[i] = 0.7 + Math.random();
}
dx[i] += stx[i];
document.getElementById("dot"+i).style.top=yp[i]+"px";
document.getElementById("dot"+i).style.left=xp[i] + am[i]*Math.sin(dx[i])+"px";
}
snowtimer=setTimeout("snowIE_NS6()", 10);
}
function hidesnow()
{
if (window.snowtimer) clearTimeout(snowtimer)
for (i=0; i0)
setTimeout("hidesnow()", hidesnowtime*1000)
}


</TD></TR></TABLE></TD></TR></TABLE>

: كود تساقط الثلج  754517
ضع رد ليظهر لك


الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
: كود تساقط الثلج
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات سوفتوير فور ويندوز :: تطويـــر منتديات vb و احلى منتدى مجاني :: أفضل أكواد html-
انتقل الى: