JavaScript经典例子--地球自转

最新推荐文章于 2023-08-14 08:56:30 发布

heling0223

最新推荐文章于 2023-08-14 08:56:30 发布

阅读量1.2k

点赞数

分类专栏： JavaScript 文章标签： javascript vbscript function 360 html

JavaScript 专栏收录该内容

19 篇文章 0 订阅

订阅专栏

这是一个JavaScript例子，显示的效果就是，地球在自转，代码如下：

<html>
<head>
    <title></title>
</head>
<body bgcolor="#000000" text="#FFFFFF">
    <p id="idInsertObject"></p>
</body>
<script languate="VBScript" type="text/VBScript">
    Dim pubOrbits_X(255, 255)
    Dim pubOrbits_Y(255, 255)
    Dim pubSpanObjects(255)
    Dim pubColors(255)
    Dim pubStepOn
    Dim pubWorkOn
    Dim pubX
    Dim pubY
    Dim pubScale
    Dim pubTime

    Sub window_onload()
      CreateObjects
      CreateColors
      CreateOrbits pubOrbits_X, pubOrbits_Y
      NewSkyrocket
      ShowSkyrocket
    End Sub

    Sub NewSkyrocket()
      pubX= 200
      pubY= 200
      pubScale = 2 'Rnd * 2 + 2
      pubTime = window.setTimeout("ShowSkyrocket", 1)
    End Sub

    Sub ShowSkyrocket()
      If pubWorkOn <= 255 Then
          pubWorkOn = (pubWorkOn + 1) mod 256
          ViewObjects pubScale, pubWorkOn, pubX, pubY
          pubTime = window.setTimeout("ShowSkyrocket", 1)
        Else
          pubWorkOn = 0
          ViewObjects pubScale, pubWorkOn, pubX, pubY
          NewSkyrocket
      End If
    End Sub

    Sub ViewObjects(pScale, pIndex, pX, pY)
      For tIndex = 0 To 255
        If pIndex < 256 Then
          With pubSpanObjects(tIndex).style
            .color = pubColors(tIndex)
            .top = pubOrbits_Y(tIndex, pIndex) * pScale + pY
            .left = pubOrbits_X(tIndex, pIndex) * pScale + pX
          End With
        End If
      Next
    End Sub

    Sub CreateObjects()
      For tIndex = 0 To 255
        Set pubSpanObjects(tIndex) = document.createElement("SPAN")
        With pubSpanObjects(tIndex)
          .innerText = "*"
        End With
        With pubSpanObjects(tIndex).style
          .position = "absolute"
          .color = Rgb(0, 0, 0)
        End With
        idInsertObject.insertAdjacentElement "beForeEnd", pubSpanObjects(tIndex)
      Next
    End Sub

    Sub CreateColors()
      Dim tColor(2)
      For tColorIndex = 0 To 255
        tColor(0) = Rnd : tColor(1) = Rnd : tColor(2) = Rnd
        tColor(Int(Rnd*3)) = 1
        pubColors(tColorIndex) = rgb(tColor(0) * 255, tColor(1) * 255, tColor(2) * 255)
      Next
    End Sub

    Sub CreateOrbits(pOrbits_X(), pOrbits_Y())
      tAxis_YZ = 0
      tAxis_R = 100
      For tOrbitsIndex = 0 To 255
        tAxis_XY = Int(Rnd * 360)
        tAxis_ZX = Int(Rnd * 360)
        For tLightIndex = 0 To 255
          tTempZX = tAxis_ZX + (tLightIndex * 360) / 255
          GetOrbits tAxis_XY, tAxis_YZ, tTempZX, tAxis_R, tOrbits_X, tOrbits_Y
          pOrbits_X(tOrbitsIndex, tLightIndex) = tOrbits_X
          pOrbits_Y(tOrbitsIndex, tLightIndex) = tOrbits_Y
        Next
      Next
    End Sub

    Sub GetOrbits(pAxis_XY, pAxis_YZ, pAxis_ZX, pAxis_R, pOrbits_X, pOrbits_Y)
      tAxis_XY = RadianGetByAngle(pAxis_XY)
      tAxis_YZ = RadianGetByAngle(pAxis_YZ)
      tAxis_ZX = RadianGetByAngle(pAxis_ZX)
      pOrbits_X = pAxis_R * Cos(tAxis_XY) * Sin(tAxis_ZX)
      pOrbits_Y = pAxis_R * Sin(tAxis_XY) * Cos(tAxis_YZ)
    End Sub

    Function RadianGetByAngle(pAngle)
      RadianGetByAngle =pAngle * 3.1415926 / 180
    End Function
</script>
</html>

heling0223

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
1
评论
JavaScript经典例子--地球自转

这是一个JavaScript例子，显示的效果就是，地球在自转，代码如下： Dim pubOrbits_X(255, 255) Dim pubOrbits_Y(255, 255) Dim pubSpanObjects(255) Dim pubColors(255) Dim
复制链接

扫一扫

专栏目录