VB制作时钟

我想用VB来制作一个时钟，和win7那种一样，就是：那种可以自动旋转指针的！不是用标签+时钟控件做成的那种……不需要左边的日历，有的话是最好。我其实就是想明白怎么来知道圆... 我想用VB来制作一个时钟，和win7那种一样，就是：

那种可以自动旋转指针的！不是用标签+时钟控件做成的那种……
不需要左边的日历，有的话是最好。
我其实就是想明白怎么来知道圆上的的六十个小点的坐标，做的时候不是需要一个直线吗，那需要两个点坐标，把它的坐标（终点）的改变写在timer事件中，怎么确定终点每次改变？展开

 我来答

1个回答

#热议# 在购买新能源车时，要注意哪些？

syx54
2014-04-20 · TA获得超过7379个赞

知道大有可为答主

回答量：6567

采纳率：83%

帮助的人：2784万

我也去答题访问个人页

关注

展开全部

稍微需要一点数学知识，使用Line1控件或者 Line方法：

Line1控件有4个属性：x1，x2，y1，y2，决定了它的两个端点在窗体上的坐标，也就确定了它在窗体上的位置。
使用Timer控件，1秒钟间隔一次，触发它的Timer事件，在Timer事件编写代码，计算每秒种应该转过6度角度，计算方法：一个端点的坐标不变，另一个端点的坐标，根据三角公式，使用VB提供的正弦，余弦等函数，进行计算，并根据结果，设置Line1控件的属性。
这样，就可以得到你需要的效果了。

追问

我也知道啊，可是按你说的不会算。
在每个时间点，他向下一个时间点的变化，变化是不相同的，不是吗？
他转过的角度是一定的，但是你怎么由一个点确定这一个点呢？你说的我都理解，但是具体怎么来执行？我也知道可能用三角函数，但是你怎么用它来确定具体坐标呢？
请详细说明，谢谢

追答

在你的窗体上添加一个Line1控件，和一个Timer1控件，代码如下，就这么简单：

Option Explicit
Dim Jd As Integer

Private Sub Form_Load()
   Timer1.Interval = 1000
   Line1.X1 = 3000
   Line1.X2 = 3000
   Line1.Y1 = 2000
   Line1.Y2 = 1000
   Jd = -90
End Sub

Private Sub Timer1_Timer()
   Jd = (Jd + 6) Mod 360
   Line1.X2 = Line1.X1 + Cos(Jd / 180 * 3.1415926) * 1000
   Line1.Y2 = Line1.Y1 + Sin(Jd / 180 * 3.1415926) * 1000
End Sub

你体验一下吧！