vb课程设计设计时钟

㈠ 用vb程序设计一个电子时钟

label字体什么的自己改吧，主要功能实现了
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Timer2.Enabled = False
Timer2.Interval = 500

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Not IsDate(Text1.Text) Then
MsgBox "时间格式错误，正确应为:MM:SS"
Else
Text1.Locked = True
Timer2.Enabled = True
End If
End If
End Sub

Private Sub Timer2_Timer()
Dim lTime As Integer
Static LblColor As Boolean
lTime = DateDiff("s", Time, Text1.Text)
If lTime <= 0 Then
If LblColor = True Then
Label1.BackColor = vbRed
LblColor = False
Else
Label1.BackColor = vbWhite
LblColor = True
End If
End If
End Sub

㈡ VB程序设计中 关于时钟的设计

添加一个timer控件，然后代码如下
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim a As Date
a = #1/1/2011#
Label1.Caption = Time
Label2.Caption = "离2011-1-1的剩余时间为回" + Str((a - Date)) + "天" + Str(Hour(Time)) + "小时" + Str(Minute(Time)) + "分钟答" + Str(Second(Time)) + "秒"
End Sub

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

1、添加一个“控件”命名为label
2、添加一个“timer控件”命名为timer1
3、设置“timer1”的“Interval属性”为1000
使用到的代码：

DimHourAsInteger'小时
DimMinAsInteger'分钟
DimSecAsInteger'秒
PrivateSubForm_Load()
Hour=0
Min=0
Sec=0
Label1.Caption="00:00:00"
EndSub

PrivateSubTimer1_Timer()
DimstrHourAsString
DimstrMinAsString
DimstrSecAsString
Sec=Sec+1
IfSec>=60Then
Sec=0
Min=Min+1
IfMin>=60Then
Min=0
Hour=Hour+1
IfHour>=24Then
Hour=0
EndIf
EndIf
EndIf
IfHour<10Then
strHour="0"&Hour
Else
strHour=Hour
EndIf
IfMin<10Then
strMin="0"&Min
Else
strMin=Min
EndIf
IfSec<10Then
strSec="0"&Sec
Else
strSec=Sec
EndIf
Label1.Caption=strHour&":"&strMin&":"&strSec
EndSub

㈣ 如何用VB设计如图所示的时钟

提供个做好钟的代码，自己修改为适合给出图片的效果。

OptionExplicit
DimaAsInteger,bAsInteger,radAsDouble
Dimi

PrivateSubForm_Load()
a=Me.ScaleWidth2'圆心X坐标
b=Me.ScaleHeight2'圆心Y坐标
rad=Atn(1)/45'1角度的弧度数
Me.DrawWidth=3
Timer1.Interval=500
EndSub

PrivateSubTimer1_Timer()
Dimangle1AsDouble,angle2AsDouble,angle3AsDouble
angle1=((Hour(Now)Mod12)*30+Minute(Now)/2-90)*rad'时针的角度
angle2=(Minute(Now)*6+Second(Now)/10-90)*rad'分针的角度
angle3=(Second(Now)*6-90)*rad'秒针的角度
Cls'清除画面，以便画下一秒的状态
CircleDemo
Me.Circle(a,b),1000,vbYellow'画石英钟轮廓
'[object.]Circle[Step](x,y),radius[,color]
Fori=1To12
Me.CurrentX=a-IIf(i<7,115,170)+1100*Cos((i*30-90)*rad)'刻度X坐标
Me.CurrentY=b-90+1100*Sin((i*30-90)*rad)'刻度Y坐标
Printi'画刻度
Next
Me.Line(a,b)-(a+300*Cos(angle1),b+250*Sin(angle1)),vbBlue'画时针
Me.Line(a,b)-(a+400*Cos(angle2),b+550*Sin(angle2)),vbBlue'画分针
Me.Line(a,b)-(a+600*Cos(angle3),b+600*Sin(angle3)),vbRed'画秒针
EndSub

SubCircleDemo()
DimRadius,r,g,b,Xpos,redius,Ypos
'将红色设置为随机数。
r=255*Rnd
'将绿色设置为随机数。
g=255*Rnd
'将蓝色设置为随机数。
b=255*Rnd
'将x坐标设置在窗体中间。
Xpos=ScaleWidth/2
'将y坐标设置在窗体中间。
Ypos=ScaleHeight/2
'将半径设置在窗体高度的0到50%之间。
Radius=((Ypos*0.9)+1)*Rnd
'用随机颜色画圆。
Circle(Xpos,Ypos),Radius,RGB(r,g,b)
EndSub

㈤ 用vb设计时钟

'用一个标签控件来和一个自计时器控件简单的模拟一下

Private Sub Form_Load()
With Label1
.Width = 1935 '宽度
.Height = 455 '高度
.BackColor = vbBlack '背景黑色
.ForeColor = vbGreen '文字绿色
.Alignment = 2 '文字居中
.FontBold = True '粗体显示
.FontSize = 20 '字体大小,还可以去下载个液晶字体设置一下FontName
.Caption = Time
End With
Timer1.Interval = 1000 '计时器间隔时间为1秒
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

㈥ vb课程设计时钟模拟表盘属性设置

Const PI = 3.1415926
Dim BaseX As Integer, BaseY As Integer, R As Integer
Private Sub DrawClock()
Cls
Call biaopan
DrawLine BaseX, BaseY, BaseX + (R - 8) * Sin(Second(Time) * PI / 30), BaseY - (R - 8) * Cos(Second(Time) * PI / 30), 0
DrawLine BaseX, BaseY, BaseX + (R - 18) * Sin(Minute(Time) * PI / 30), BaseY - (R - 30) * Cos(Minute(Time) * PI / 30), 1
DrawLine BaseX, BaseY, BaseX + (R - 50) * Sin(Hour(Time) * PI / 30), BaseY - (R - 50) * Cos(Hour(Time) * PI / 30), 2
End Sub
Private Sub Form_Load()
Me.ScaleMode = 3
Me.Width = 5505
Me.Height = 5475
End Sub
Private Sub biaopan()
Dim i As Integer
BaseX = Me.ScaleWidth / 2
BaseY = Me.ScaleHeight / 2
If BaseX > BaseY Then R = BaseX * 0.6
If BaseX < BaseY Then R = BaseY * 0.6
For i = 0 To 360 Step 6
If i Mod 30 = 0 Then
Me.DrawWidth = 2
DrawLine BaseX + (R - 3) * Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180), BaseX + (R - 8) * Sin(i * PI / 180), BaseY - (R - 8) * Cos(i * PI / 180), 3
Else
Me.PSet (BaseX + (R - 3) * Sin(i * PI / 180), BaseY - (R - 3) * Cos(i * PI / 180)), vbBlue
End If
Next i
Me.DrawWidth = 1
Me.Circle (BaseX, BaseY), R, vbRed
End Sub
Private Sub DrawLine(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer, Flag As Integer)
Static OldSX1 As Integer, OldSX2 As Integer, OldSY1 As Integer, OldSY2 As Integer
Static OldMX1 As Integer, OldMX2 As Integer, OldMY1 As Integer, OldMY2 As Integer
Static OldHX1 As Integer, OldHX2 As Integer, OldHY1 As Integer, OldHY2 As Integer
Select Case Flag
Case 0
Me.DrawWidth = 1
Me.Line (OldSX1, OldSY1)-(OldSX2, OldSY2), BackColor
Me.Line (x1, y1)-(x2, y2)
OldSX1 = x1
OldSX2 = x2
OldSY1 = y1
OldSY2 = y2
Case 1
Me.DrawWidth = 2
Me.Line (OldMX1, OldMY1)-(OldMX2, OldMY2), BackColor
Me.Line (x1, y1)-(x2, y2)
OldMX1 = x1
OldMX2 = x2
OldMY1 = y1
OldMY2 = y2
Case 2
Me.DrawWidth = 3
Me.Line (OldHX1, OldHY1)-(OldHX2, OldHY2), BackColor
Me.Line (x1, y1)-(x2, y2)
OldHX1 = x1
OldHX2 = x2
OldHY1 = y1
OldHY2 = y2
Case Else
Me.Line (x1, y1)-(x2, y2)
End Select
End Sub
Private Sub Form_Resize()
Cls
Call biaopan
End Sub
Private Sub Timer1_Timer()
Call DrawClock
Label1.Caption = Time()
End Sub

㈦ vb课程设计时钟模拟要求可以修改时间显示时间

㈧ VB程序设计中，如何设计一个时钟，并且时间与系统同步

添加一个Timer控件和一个标签控件，在timer控件里写入：
label1.caption=time
就可以了

㈨ 在VB中设计这个时钟!!!

给个Clock代码参考：

OptionExplicit
DimaAsInteger,bAsInteger,radAsDouble
Dimi

PrivateSubForm_Load()
a=Me.ScaleWidth2'圆心X坐标
b=Me.ScaleHeight2'圆心Y坐标
rad=Atn(1)/45'1角度的弧度数
Me.DrawWidth=3
EndSub

PrivateSubTimer1_Timer()
Dimangle1AsDouble,angle2AsDouble,angle3AsDouble
angle1=((Hour(Now)Mod12)*30+Minute(Now)/2-90)*rad'时针的角度
angle2=(Minute(Now)*6+Second(Now)/10-90)*rad'分针的角度
angle3=(Second(Now)*6-90)*rad'秒针的角度
Cls'清除画面，以便画下一秒的状态
Me.Circle(a,b),1000'画石英钟轮廓
Fori=1To12
Me.CurrentX=a-IIf(i<7,115,170)+800*Cos((i*30-90)*rad)'刻度X坐标
Me.CurrentY=b-90+800*Sin((i*30-90)*rad)'刻度Y坐标
Printi'画刻度
Next
Me.Line(a,b)-(a+300*Cos(angle1),b+250*Sin(angle1)),vbBlue'画时针
Me.Line(a,b)-(a+400*Cos(angle2),b+550*Sin(angle2)),vbBlue'画分针
Me.Line(a,b)-(a+600*Cos(angle3),b+600*Sin(angle3)),vbRed'画秒针
EndSub

㈩ 用VB做时钟

'画一单选钮，value值为true，作为圆心，画一个圆shape1，话三更直线，时针Line1，分针Line2，秒针Line3,放一定时器Timer1，时间间隔Interval值500
'画一标签Label1,修改index值为0，这一步很重要。
'圆下面画一标签 Label2，用来显示时间
'复制以下代码

Dim X!, Y!, R!, i% '圆心，半径
Private Sub Form_Load() '窗体加载时初始化
X = Option1.Left + 100 '圆心
Y = Option1.Top + 100
Line1.X1 = X '三根针同一个圆心
Line1.Y1 = Y
Line2.X1 = X
Line2.Y1 = Y
Line3.X1 = X
Line3.Y1 = Y
R = 2500 '半径
'-----圆的左上宽高----------------------------
Shape1.Left = X - R - 200
Shape1.Top = Y - R - 200
Shape1.Width = 2 * R + 400
Shape1.Height = 2 * R + 400
'-----12个数字标签值及位置--------------------------
For i = 0 To 11
If i > 0 Then Load Label1(i): Label1(i).Visible = True '复制标签
Label1(i).Top = Y + R * Sin((i - 3) * (30 * 3.14 / 180)) '标签位置
Label1(i).Left = X + R * Cos((i - 3) * (30 * 3.14 / 180))
Label1(i).Caption = i '标签文字
Next i
Label1(0).Caption = 12
End Sub

Private Sub Timer1_Timer() '定时器
Dim S!, F!, M!, K As Date '时分秒
K = Time
Label2.Caption = K '显示时间
M = Second(K) '秒
F = Minute(K) + M / 60 '分
S = Hour(K) + F / 60 '时
If S > 12 Then S = S - 12 '12小时制
Line1.X2 = X + 0.8 * R * Cos((S - 3) * (30 * 3.14 / 180)) '时针位置
Line1.Y2 = Y + 0.8 * R * Sin((S - 3) * (30 * 3.14 / 180))
Line2.X2 = X + 0.9 * R * Cos((F - 15) * (6 * 3.14 / 180)) '分针位置
Line2.Y2 = Y + 0.9 * R * Sin((F - 15) * (6 * 3.14 / 180))
Line3.X2 = X + R * Cos((M - 15) * (6 * 3.14 / 180)) '秒针位置
Line3.Y2 = Y + R * Sin((M - 15) * (6 * 3.14 / 180))
End Sub