Вопрос Возможно ли реализовать этот снег?

Пользователь · Регистрация: 05.10.2011

Возможно ли это реализовать на VB? Помогите пожалуйста.

PHP код:



<script language="javascript1.2">

      grphcs=new Array(2);

Image0=new Image();

Image0.src=grphcs[0]="http://www.mastersite.org.ua/uploaded_imag
es/sneg1.gif";

Image1=new Image();

Image1.src=grphcs[1]="http://www.mastersite.org.ua/uploaded_imag
es/sneg2.gif";

      Amount=15;

Ypos=new Array();

Xpos=new Array();

Speed=new Array();

Step=new Array();

Cstep=new Array();

ns=(document.layers)?1:0;

ns6=(document.getElementById&&!document.all)?1:0;

      if (ns){

for (i = 0; i < Amount; i++){

var P=Math.floor(Math.random()*grphcs.length);

rndPic=grphcs[P];

document.write("<LAYER NAME='sn"+i+"' LEFT=0 TOP=0><img src="+rndPic+"></LAYER>");

}

}

else{

document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">');

for (i = 0; i < Amount; i++){

var P=Math.floor(Math.random()*grphcs.length);

rndPic=grphcs[P];//osw

document.write('<img id="si'+i+'" src="'+rndPic+'" style="position:absolute;top:0px;left:0px">');

}

document.write('</div></div>');

}

WinHeight=600;

WinWidth=(ns||ns6)?window.innerWidth-70:window.document.body.clientW
idth;

for (i=0; i < Amount; i++){

      Ypos[i] = Math.round(Math.random()*WinHeight);

      Xpos[i] = Math.round(Math.random()*WinWidth);

      Speed[i]= 1.2;

      Cstep[i]=0;

      Step[i]=Math.random()*0.1+0.
2;

}

function fall(){

var WinHeight=600;

var WinWidth=(ns||ns6)?window.innerWidth-70:window.document.body.clientW
idth;

var hscrll=(ns||ns6)?window.pageYOffset:document.body.scrollTop;

var wscrll=(ns||ns6)?window.pageXOffset:document.body.scrollLeft;

for (i=0; i < Amount; i++){

sy = Speed[i]*Math.sin(90*Math.PI/180);

sx = Speed[i]*Math.cos(Cstep[i]);

Ypos[i]+=sy;

Xpos[i]+=sx;

if (Ypos[i] > WinHeight){

Ypos[i]=-60;

Xpos[i]=Math.round(Math.random()*WinWidth);

Speed[i]=1;

}

if (ns){

document.layers['sn'+i].left=Xpos[i];

document.layers['sn'+i].top=Ypos[i]+hscrll;

}

else if (ns6){

document.getElementById("si"+i).style.left=Math.min(WinWidth
,Xpos[i]);

document.getElementById("si"+i).style.top=Ypos[i]+hscrll
;

}

else{

eval("document.all.si"+i).style.left=Xpos[i];

eval("document.all.si"+i).style.top=Ypos[i]+hscrll;

}

Cstep[i]+=Step[i];

}

setTimeout('fall()',40);

}

      window.onload=fall

//-->

</script>

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Хаки Падающий снег на javascript	Vector	Украшательства и интерфейс	13	11.12.2013 18:31
Хаки Падающий снег - snowstorm	Vector	Украшательства и интерфейс	14	19.12.2012 14:46
Хаки LD-vBSnow 1.0 - Снег на форуме	Vector	Украшательства и интерфейс	2	15.11.2011 11:23
Новости Дорогие производители! Обратите внимание на этот кабель!	Jeffry Dahmer	Новости Hardware	0	09.10.2010 10:26
Вопрос Window7 в стиле XP возможно ли ?	Piton331	Windows 7	1	04.03.2010 10:41