注册 登录
编程论坛 VB6论坛

这段代码怎么解释啊

a13582220882 发布于 2013-09-21 19:52, 501 次点击
alfsec = ((ss - 15) / 30) * Pi '设置秒针每次转动的角度
  alfmin = ((mm + ss / 60 - 15) / 30) * Pi '设置分针每次转动的角度
  alfhour = ((hh + mm / 60 + ss / 3600 - 15) / 6) * Pi '设置时针每次转动的角度
  PicTime.Refresh '刷新图片
3 回复
#2
lanyingjie2013-10-31 11:04
大概是一个控制表针的程序吧,我也不知道太多。
#3
风吹过b2013-10-31 17:03
alfsec = ((ss - 15) / 30) * Pi '设置秒针每次转动的角度
ss 是当前秒  , 0 秒时,指针在正上方,
而 坐标系里, 0 的方向在 水平方向,
水平方向变为正上方,需要减掉 15 秒。
完整的公式是  ((ss*-15)/60) * (Pi*2)
                秒      一圈   一周                        
是把每秒走动的角度换成弧度。计算机里全是用 弧度。360度=2Pi 弧度
  alfmin = ((mm + ss / 60 - 15) / 30) * Pi '设置分针每次转动的角度
同样计算分针的角度,需要增加秒针进去进行修正。
  alfhour = ((hh + mm / 60 + ss / 3600 - 15) / 6) * Pi '设置时针每次转动的角度
同理
  PicTime.Refresh '刷新图片
#4
liugongaoo2013-11-01 21:21






alfsec = ((ss - 15) / 30) * Pi '
ss    0
0
15
  ((ss*-15)/60) * (Pi*2)
                                                 
3602Pi
  alfmin = ((mm + ss / 60 - 15) / 30) * Pi '

  alfhour = ((hh + mm / 60 + ss / 3600 - 15) / 6) * Pi '

  PicTime.Refresh '



1