VB程序设计怎么做数字时钟

1、添加一个“label控件”命名为label

2、添加一个“timer控件”命名为timer1

3、设置“timer1”的“Interval属性”为1000

使用到的代码：

Dim Min As Integer  '分钟

Dim Sec As Integer '秒

Private Sub Form_Load()

   Hour = 0

   Min = 0

   Sec = 0

   Label1Caption = "00 : 00 : 00"

End Sub

Private Sub Timer1_Timer()

   Dim strHour As String

   Dim strMin As String

   Dim strSec As String

   Sec = Sec + 1

   If Sec >= 60 Then

       Sec = 0

       Min = Min + 1

       If Min >= 60 Then

           Min = 0

           Hour = Hour + 1

           If Hour >= 24 Then

               Hour = 0

           End If

       End If

   End If

   If Hour < 10 Then

       strHour = "0" & Hour

   Else

       strHour = Hour

   End If

   If Min < 10 Then

       strMin = "0" & Min

   Else

       strMin = Min

   End If

   If Sec < 10 Then

       strSec = "0" & Sec

   Else

       strSec = Sec

   End If

   Label1Caption = strHour & " : " & strMin & " : " & strSec

End Sub

楼主，我觉得你的想法是很好的创意，我也打算做一个，但奈何时间不多，就只做了个开始，以后再慢慢完善吧。在form1中添加timer1,label1,添加以下代码即可

Private Sub Form_Load()

Timer1Interval = 1000

Label1FontSize = 30

End Sub

Private Sub Timer1_Timer()

Label1Caption = Now

End Sub

呵呵,本转一个VB吧主CBM666写的时钟代码

'添加 Line1 Line2 Line3 Timer1

Dim xx1%, yy1% '宣告变量xx1,yy1为整型(给圆心用的)

Private Sub Form_Load()

MeAutoRedraw = True '重画为真

'窗体置中

MeMove (ScreenWidth - MeWidth) \ 2, (ScreenHeight - meiheight) \ 2

'计算圆心的x轴 xx1

xx1 = MeWidth \ 2

'计算圆心的y轴 yy1

yy1 = (MeHeight - 405) \ 2

'将下面3根针的起点x1,y1全定位在圆心上

Line1X1 = xx1: Line1Y1 = yy1

Line2X1 = xx1: Line2Y1 = yy1

Line3X1 = xx1: Line3Y1 = yy1

'画钟的外匡让线条粗一点

MeDrawWidth = 5

'画一个圆

MeCircle (xx1, yy1), 950

Line2BorderWidth = 1 '秒针的粗度

Line2BorderColor = QBColor(12) '秒针的颜色

Line1BorderWidth = 2 '分针的粗度

Line1BorderColor = QBColor(14) '分针的颜色

Line3BorderWidth = 3 '时针的粗度

Line3BorderColor = QBColor(10) '时针的颜色

Timer1Interval = 500

End Sub

Private Sub Timer1_Timer()

MeCaption = Time '标题栏显示现在时间

' Second Hand '画秒针

'计算秒针的角度,每一秒是 360度除以60秒=6度, 所以要乘上6

sdeg = Second(Time) 6

'vb是以弧度为单位来计算,所以角度换算弧度是 314/180, 秒针跑了N度就乘上N

srad = (314 / 180) sdeg

'900是秒针的长度,以圆心(line2的x1,y1)为准,计算出在这个弧度时line2x2在什么位置

Line2X2 = Line2X1 + (900 Sin(srad))

'900是秒针的长度,以圆心(line2的x1,y1)为准,计算出在这个弧度时line2y2在什么位置

Line2Y2 = Line2Y1 - (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是以弧度为单位来计算,所以角度换算弧度是 314/180, 分针跑了N度就乘上N

mrad = (314 / 180) Mdeg 'vb是以弧度为单位来计算,所以角度换算弧度是 314/180, 分针跑了N度就乘上N

'750是分针的长度,以圆心(line1的x1,y1)为准,计算出在这个弧度时line1x2在什么位置

Line1X2 = (750 Sin(mrad)) + Line1X1

'750是分针的长度,以圆心(line1的x1,y1)为准,计算出在这个弧度时line1y2在什么位置

Line1Y2 = Line1Y1 - (750 Cos(mrad))

' Hour Hand '画时针

'计算时针的角度,每一小时时针跑30度,分针动时针也会动,所以还要加上分针移动所产生的时针移动

'分针转了1圈360度,时针才会前进1刻划=30度,所以比例是 30/360等于 1/12

hdeg = Hour(Time) 30 + (Mdeg / 12)

'vb是以弧度为单位来计算,所以角度换算弧度是 314/180, 时针跑了N度就乘上N

hrad = (314 / 180) hdeg

'500是时针的长度,以圆心(line3的x1,y1)为准,计算出在这个弧度时line3x2在什么位置

Line3X2 = (500 Sin(hrad)) + Line3X1

'500是时针的长度,以圆心(line3的x1,y1)为准,计算出在这个弧度时line3y2在什么位置

Line3Y2 = Line3Y1 - (500 Cos(hrad))

End Sub

以上就是关于VB程序设计怎么做数字时钟全部的内容，包括:VB程序设计怎么做数字时钟、如何用VB制作个多功能时钟、用vb设计一个可走动的机械式时钟，要求有时针、分针、秒针。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！