永发信息网

vb怎么设置动态指针式秒表?

答案:1  悬赏:60  手机版
解决时间 2021-01-30 21:20
  • 提问者网友:人傍凄凉立暮秋
  • 2021-01-30 04:53
vb怎么设置动态指针式秒表?
最佳答案
  • 五星知识达人网友:归鹤鸣
  • 2021-01-30 05:27

Dim P As Single, SJ, SHI As Integer, FEN As Integer, MIAO As Integer

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
P = 3.1415926
End Sub

Private Sub Timer1_Timer()
SJ = Time
SHI = DatePart("H", SJ)
FEN = DatePart("N", SJ)
MIAO = DatePart("S", SJ)
If SHI >= 12 Then
SHI = SHI - 12
End If
Label5.Caption = FormatDateTime(SJ, 3)
Line2.X2 = 2760 + 1500 * Sin(P * (SHI * 30 + FEN / 2) / 180)
Line2.Y2 = 2760 - 1500 * Cos(P * (SHI * 30 + FEN / 2) / 180)
Line5.X2 = 2760 + 1920 * Sin(P * (FEN * 6 + MIAO / 10) / 180)
Line5.Y2 = 2760 - 1920 * Cos(P * (FEN * 6 + MIAO / 10) / 180)
Line1.X2 = 2760 + 2400 * Sin(P * MIAO * 6 / 180)
Line1.Y2 = 2760 - 2400 * Cos(P * MIAO * 6 / 180)
End Sub非常简单的。开始、暂停你自己高吧,暂停就是使 Timer1.Enabled = Fasle ,开始就是使 Timer1.Enabled = True 而已。

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯