VB 编写简易的小时钟【新手教学】

3721

添加 Line1 Line2 Line3 Timer1 Dim xx1%, yy1%    '宣告变量xx1,yy1为整型(给圆心用的)
Private Sub Form_Load()
     Me.AutoRedraw = True '重画为真
     '窗体置中
     Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - meiheight) \ 2
     '计算圆心的x轴 xx1
     xx1 = Me.Width \ 2
     '计算圆心的y轴 yy1
     yy1 = (Me.Height - 405) \ 2
     '将下面3根针的起点x1,y1全定位在圆心上
     Line1.X1 = xx1: Line1.Y1 = yy1
     Line2.X1 = xx1: Line2.Y1 = yy1
     Line3.X1 = xx1: Line3.Y1 = yy1
     '画钟的外匡让线条粗一点
     Me.DrawWidth = 5
     '画一个圆
     Me.Circle (xx1, yy1), 950
     Line2.BorderWidth = 1 '秒针的粗度
     Line2.BorderColor = QBColor(12) '秒针的颜色
   
     Line1.BorderWidth = 2 '分针的粗度
     Line1.BorderColor = QBColor(14) '分针的颜色
   
     Line3.BorderWidth = 3 '时针的粗度
     Line3.BorderColor = QBColor(10) '时针的颜色
     Timer1.Interval = 500
End SubPrivate Sub Timer1_Timer()
     Me.Caption = Time    '标题栏显示现在时间
     ' Second Hand '画秒针
     '计算秒针的角度,每一秒是 360度除以60秒=6度, 所以要乘上6
     sdeg = Second(Time) * 6
     'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 秒针跑了N度就乘上N
     srad = (3.14 / 180) * sdeg
     '900是秒针的长度,以圆心(line2的x1,y1)为准,计算出在这个弧度时line2.x2在什么位置
     Line2.X2 = Line2.X1 + (900 * Sin(srad))
     '900是秒针的长度,以圆心(line2的x1,y1)为准,计算出在这个弧度时line2.y2在什么位置
     Line2.Y2 = Line2.Y1 - (900 * Cos(srad))     ' Minute Hand '画分针
     '计算分针的角度,每一分是360度除以60分=6度, 所以要乘上6,秒针动分针也会动,所以还要加上秒针移动所产生的分针移动.
     '秒针转了1圈360度,分针才会前进1分钟=6度,所以比例是 6/360等于 1/60
     Mdeg = Minute(Time) * 6 + (sdeg * 1 / 60)
     'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 分针跑了N度就乘上N
     mrad = (3.14 / 180) * Mdeg 'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 分针跑了N度就乘上N
     '750是分针的长度,以圆心(line1的x1,y1)为准,计算出在这个弧度时line1.x2在什么位置
     Line1.X2 = (750 * Sin(mrad)) + Line1.X1
     '750是分针的长度,以圆心(line1的x1,y1)为准,计算出在这个弧度时line1.y2在什么位置
     Line1.Y2 = Line1.Y1 - (750 * Cos(mrad))     ' Hour Hand '画时针
     '计算时针的角度,每一小时时针跑30度,分针动时针也会动,所以还要加上分针移动所产生的时针移动.
     '分针转了1圈360度,时针才会前进1刻划=30度,所以比例是 30/360等于 1/12
     hdeg = Hour(Time) * 30 + (Mdeg / 12)
     'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 时针跑了N度就乘上N
     hrad = (3.14 / 180) * hdeg
     '500是时针的长度,以圆心(line3的x1,y1)为准,计算出在这个弧度时line3.x2在什么位置
     Line3.X2 = (500 * Sin(hrad)) + Line3.X1
     '500是时针的长度,以圆心(line3的x1,y1)为准,计算出在这个弧度时line3.y2在什么位置
     Line3.Y2 = Line3.Y1 - (500 * Cos(hrad))
End Sub

fxianggan

一个小时钟就这么复杂呀  我要努力了  

︶￣＂成人礼

支持 哈哈 {:3_232:}

kingluluj

哇，这样在幻灯里能变吧

linyuntai

' Second Hand '画秒针
' Minute Hand '画分针
' Hour Hand '画时针

（我是菜鸟，请问）是不是全面没有注释号啊？

五月天

好复杂 好复杂~~~~~~~~~~~~