登 录
【编程游戏】贺岁霓虹灯。（第一名奖励10000可用分）
效果图
评分
参观
[目前Firefox中好使，其他浏览器需复制到本地，存为html文件看效果] <html><br /> <head><br /> <title></title><br /> </head><br /> <body bgcolor="#000000" text="#FFFFFF"><br /> <p id="idInsertObject"></p><br /> </body><br /> <script languate="VBScript" type="text/VBScript"><br /> Dim pubOrbits_X(255, 255)<br /> Dim pubOrbits_Y(255, 255)<br /> Dim pubOrbits_Z(255, 255)<br /> Dim pubSpanObjects(255)<br /> Dim pubColors(255, 255)<br /> Dim pubStepOn<br /> Dim pubWorkOn<br /> Dim pubX<br /> Dim pubY<br /> Dim pubScale<br /> Dim pubTime<br /> Sub window_onload()<br /> CreateObjects<br /> CreateColors<br /> CreateOrbits pubOrbits_X, pubOrbits_Y, pubOrbits_Z<br /> NewSkyrocket<br /> ShowSkyrocket<br /> End Sub<br /> Sub NewSkyrocket()<br /> pubX= 300<br /> pubY= 300<br /> pubScale = 2 'Rnd * 2 + 2<br /> pubTime = window.setTimeout("ShowSkyrocket", 1)<br /> End Sub</p> <p> Sub ShowSkyrocket()<br /> If pubWorkOn <= 255 Then<br /> pubWorkOn = (pubWorkOn + 1) mod 256<br /> ViewObjects pubScale, pubWorkOn, pubX, pubY<br /> pubTime = window.setTimeout("ShowSkyrocket", 33)<br /> Else<br /> pubWorkOn = 0<br /> ViewObjects pubScale, pubWorkOn, pubX, pubY<br /> NewSkyrocket<br /> End If<br /> End Sub</p> <p> Sub ViewObjects(pScale, pIndex, pX, pY)<br /> For tIndex = 0 To 255<br /> If pIndex < 256 Then<br /> With pubSpanObjects(tIndex).style<br /> tSize = (pubOrbits_Z(tIndex, pIndex) + 200) * 10 / 200<br /> 'tLongLight = (pubOrbits_Z(tIndex, pIndex) + 200) * 64 / 200<br /> 'tShowLight = (pubOrbits_Z(tIndex, pIndex) + 200) * 100 / 200<br /> tLight = (pubOrbits_Z(tIndex, pIndex) + 200) * 170 / 200<br /> .color = pubColors(tIndex, tLight)<br /> .top = pubOrbits_Y(tIndex, pIndex) * pScale * (tSize / 10) + pY - (tSize / 2)<br /> .left = pubOrbits_X(tIndex, pIndex) * pScale * (tSize / 10) + pX - (tSize / 2)<br /> .fontsize = tSize & "px"<br /> .zindex = tSize<br /> End With<br /> End If<br /> Next<br /> End Sub<br /> Sub CreateObjects()<br /> For tIndex = 0 To 255<br /> Set pubSpanObjects(tIndex) = document.createElement("SPAN")<br /> With pubSpanObjects(tIndex)<br /> .innerText = "*"<br /> End With<br /> With pubSpanObjects(tIndex).style<br /> .position = "absolute"<br /> .color = Rgb(0, 0, 0)<br /> End With<br /> idInsertObject.insertAdjacentElement "beForeEnd", pubSpanObjects(tIndex)<br /> Next<br /> End Sub<br /> Sub CreateColors()<br /> Dim tColor(2)<br /> For tColorIndex = 0 To 63<br /> tColor(0) = Rnd * 0.5 + 0.5 : tColor(1) = Rnd * 0.5 + 0.5 : tColor(2) = Rnd * 0.5 + 0.5<br /> tColor(Int(Rnd*3)) = 1<br /> For tLightIndex = 0 To 255<br /> pubColors(tColorIndex, tLightIndex) = rgb(tColor(0) * tLightIndex, tColor(1) * tLightIndex, tColor(2) * tLightIndex)<br /> Next<br /> Next<br /> For tColorIndex = 64 To 255<br /> tColor(0) = Rnd : tColor(1) = Rnd : tColor(2) = Rnd<br /> tColor(Int(Rnd*3)) = 1<br /> For tLightIndex = 0 To 255<br /> pubColors(tColorIndex, tLightIndex) = rgb(tColor(0) * tLightIndex, tColor(1) * tLightIndex, tColor(2) * tLightIndex)<br /> Next<br /> Next<br /> End Sub<br /> Sub CreateOrbits(pOrbits_X(), pOrbits_Y(), pOrbits_Z())<br /> tAxis_YZ = 0<br /> tAxis_R = 50<br /> For tOrbitsIndex = 0 To 63<br /> tAxis_XY = Int(Rnd * 360)<br /> tAxis_ZX = Int(Rnd * 360)<br /> For tLightIndex = 0 To 255<br /> tTempZX = (tAxis_ZX + (tLightIndex * 360) / 255) Mod 360<br /> GetOrbits tAxis_XY, tAxis_YZ, tTempZX, tAxis_R, tOrbits_X, tOrbits_Y, tOrbits_Z<br /> pOrbits_X(tOrbitsIndex, tLightIndex) = tOrbits_X<br /> pOrbits_Y(tOrbitsIndex, tLightIndex) = tOrbits_Y<br /> pOrbits_Z(tOrbitsIndex, tLightIndex) = tOrbits_Z<br /> Next<br /> Next<br /> tAxis_R = 100<br /> For tOrbitsIndex = 64 To 255<br /> tAxis_XY = Int(Rnd * 360)<br /> tAxis_ZX = Int(Rnd * 360)<br /> For tLightIndex = 0 To 255<br /> tTempZX = (tAxis_ZX + (tLightIndex * 360) / 255) Mod 360<br /> GetOrbits tAxis_XY, tAxis_YZ, tTempZX, tAxis_R, tOrbits_X, tOrbits_Y, tOrbits_Z<br /> pOrbits_X(tOrbitsIndex, tLightIndex) = tOrbits_X<br /> pOrbits_Y(tOrbitsIndex, tLightIndex) = tOrbits_Y<br /> pOrbits_Z(tOrbitsIndex, tLightIndex) = tOrbits_Z<br /> Next<br /> Next<br /> End Sub</p> <p> Sub GetOrbits(pAxis_XY, pAxis_YZ, pAxis_ZX, pAxis_R, pOrbits_X, pOrbits_Y, pOrbits_Z)<br /> tAxis_XY = RadianGetByAngle(pAxis_XY)<br /> tAxis_YZ = RadianGetByAngle(pAxis_YZ)<br /> tAxis_ZX = RadianGetByAngle(pAxis_ZX)<br /> 'pOrbits_X = pAxis_R * Cos(tAxis_XY) * Sin(tAxis_ZX)<br /> 'pOrbits_Y = pAxis_R * Sin(tAxis_XY) * Cos(tAxis_YZ)<br /> 'pOrbits_Z = pAxis_R * Cos(tAxis_ZX)<br /> pOrbits_X = pAxis_R * Cos(tAxis_XY) * Sin(tAxis_ZX)<br /> pOrbits_Y = pAxis_R * Sin(tAxis_XY) * Cos(tAxis_YZ)<br /> pOrbits_Z = pAxis_R * Cos(tAxis_ZX) * Cos(tAxis_XY)'Cos(tAxis_YZ)<br /> End Sub</p> <p> Function RadianGetByAngle(pAngle)<br /> RadianGetByAngle =pAngle * 3.1415926 / 180<br /> End Function<br /> </script><br /> </html><br /> 参观
[目前Firefox中好使，其他浏览器需复制到本地，存为html文件看效果]
抱歉!评论已关闭.
.gif)