当前位置: 移动技术网 > IT编程>开发语言>.net > 调用DirectX的组件实现的时钟

调用DirectX的组件实现的时钟

2018年10月13日  | 移动技术网IT编程  | 我要评论

僵尸医生迅雷下载,昨梦录阅读答案,宝贝笨女人

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


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

<body bgcolor="#ffffff" text="#000000">
<p 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></p>
</body>
</html>


如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复

相关文章:

验证码:
移动技术网