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