欢迎光临
我们一直在努力

送段代码给大家

建站超值云服务器,限时71元/月

下面的代码是调用的directx的组件实现的时钟。它有三根指针,会实时地随系统时间的改变而改变。
不过我没有做刻度,因为我觉得用程序画出来的刻度不漂亮,用photoshop画一口钟作为背景要漂亮多了。

<html>
<head>
<title>指针式时钟</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#ffffff" text="#000000">
<div id="layclock" style="position:absolute; width:101; height:101px; z-index:2; left: 203px; top: 101px">
  <object id="dacontrol" width=101 height=101 align=left hspace=0
   classid="clsid:b6ffc24c-7e13-11d0-9b47-00c04fc2f51d">
  </object>
  <script language="vbscript">
<!–
  set m = dacontrol.pixellibrary
  pi = 3.14159265359
  sub window_onload
    a = time
    min1 = minute(time)
    hr1 = hour(time)
    sec1 = second(time)
    set xpos = m.mul(m.danumber(150), m.cos(m.mul(m.localtime,m.danumber(0.3))))
    set ypos = m.mul(m.danumber(35), m.cos(m.mul(m.localtime,m.danumber(0.5))))
    set clock = m.overlay(hands(hr1,min1,sec1),hands(hr1,min1,sec1))
    dacontrol.image = clock
    dacontrol.start
  end sub
  function hands(hr,min,sec)
    set bvr60 = m.danumber(60)
    set secfrommidnight = m.add(m.danumber(hr*3600+min*60+sec),m.localtime)
    set secbvr = m.mod(secfrommidnight,bvr60)
    set minbvr = m.mod(m.div(secfrommidnight,bvr60),bvr60)
    set hrbvr = m.mod(m.div(secfrommidnight,m.danumber(3600)),m.danumber(12))
    ptssec = array( -10, -2, 42, -1, 42, 1, -10,2 )
    ptsmin = array(-7, -2, 36, -1, 36, 1, -7, 2 )
    ptshr = array(-5, -3, 32, -1, 32, 1, -5, 3 )
    set temp1 = m.mul(m.danumber(-pi/30),m.sub(secbvr,m.danumber(15)))
    set temp2 = m.mul(m.danumber(-pi/30),m.sub(minbvr,m.danumber(15)))
    set temp3 = m.mul(m.danumber(-pi/6),m.sub(hrbvr,m.danumber(3)))
    set imgsec = m.polyline(ptssec).fill(m.defaultlinestyle,m.solidcolorimage(m.cyan))
    set imgsec = imgsec.transform(m.rotate2anim(temp1))
    set imgmin = m.polyline(ptsmin).fill(m.defaultlinestyle,m.solidcolorimage(m.yellow))
    set imgmin = imgmin.transform(m.rotate2anim(temp2))
    set imghr = m.polyline(ptshr).fill(m.defaultlinestyle,m.solidcolorimage(m.green))
    set imghr = imghr.transform(m.rotate2anim(temp3))
    set hands = m.overlay(imgsec,m.overlay(imgmin,imghr))
  end function
–>
</script></div>
</body>
</html>

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 送段代码给大家
分享到: 更多 (0)

相关推荐

  • 暂无文章