怎么用VB做石英钟

在窗体上添加一个名为label1的Label控件和一个名为Timer1的Timer控件，详细代码如下：

Const PI = 31415926

Private Sub Form_Load()

Scale (-100, 100)-(100, -100)

Label1Caption = Time

Timer1Interval = 10

form1BackColor = &HFFFFFF

End Sub

Private Sub Form_Paint()

Call MyDraw

End Sub

Public Sub MyDraw()

Cls

Scale (-100, 100)-(100, -100)

For i = 0 To 2 PI Step PI / 30

form1DrawWidth = 3

PSet (60 Cos(-i), 60 Sin(-i)), vbGreen

Next i

For i = 0 To 2 PI Step PI / 6

form1DrawWidth = 6

PSet (60 Cos(-i), 60 Sin(-i)), vbRed

Next i

End Sub

Private Sub Timer1_Timer()

form1Caption = Time

Label1Caption = Time

s = Second(Time) PI / 30

DrawWidth = 2

Line (0, 0)-(55 Cos(-Second(Time) (PI / 30) + PI / 2), 55 Sin(-Second(Time) (PI / 30) + PI / 2)), vbBlue

m = Minute(Time)

m1 = (m + s / 60) (PI / 30) - PI / 2

DrawWidth = 3

Line (0, 0)-(45 Cos(-m1), 45 Sin(-m1)), vbBlack

h = Hour(Time)

h1 = (h + (m 60 + s) / 3600) PI / 6 - PI / 2

DrawWidth = 35

Line (0, 0)-(25 Cos(-h1), 35 Sin(-h1)), vbGreen

End SubConst PI = 31415926

Private Sub Form_Load()

Scale (-100, 100)-(100, -100)

Label1Caption = Time

Timer1Interval = 10

form1BackColor = &HFFFFFF

End Sub

Private Sub Form_Paint()

Call MyDraw

End Sub

Public Sub MyDraw()

Cls

Scale (-100, 100)-(100, -100)

For i = 0 To 2 PI Step PI / 30

form1DrawWidth = 3

PSet (60 Cos(-i), 60 Sin(-i)), vbGreen

Next i

For i = 0 To 2 PI Step PI / 6

form1DrawWidth = 6

PSet (60 Cos(-i), 60 Sin(-i)), vbRed

Next i

End Sub

Private Sub Timer1_Timer()

form1Caption = Time

Label1Caption = Time

s = Second(Time) PI / 30

DrawWidth = 2

Line (0, 0)-(55 Cos(-Second(Time) (PI / 30) + PI / 2), 55 Sin(-Second(Time) (PI / 30) + PI / 2)), vbBlue

m = Minute(Time)

m1 = (m + s / 60) (PI / 30) - PI / 2

DrawWidth = 3

Line (0, 0)-(45 Cos(-m1), 45 Sin(-m1)), vbBlack

h = Hour(Time)

h1 = (h + (m 60 + s) / 3600) PI / 6 - PI / 2

DrawWidth = 35

Line (0, 0)-(25 Cos(-h1), 35 Sin(-h1)), vbGreen

End Sub

Private

Sub

Form_Load()

Form1AutoRedraw

=

True

Form1Height

=

3500

Form1Width

=

3500

Form1Scale

(-100,

100)-(100,

-100)

'这里VB是以正X和负Y开始原始坐标,就是Y坐标和我们平时画的相反

Line1X1

=

0:

Line1Y1

=

0

Line2X1

=

0:

Line2Y1

=

0

Line3X1

=

0:

Line3Y1

=

0

Line1BorderColor

=

RGB(0,

0,

0)

Line1BorderWidth

=

3

Line2BorderColor

=

RGB(0,

0,

255)

Line2BorderWidth

=

2

Line3BorderColor

=

RGB(255,

0,

0)

Shape1Top

=

95

'这里因为Y坐标是相反的,所以要正数

Shape1Left

=

-95

Line3BorderWidth

=

1

Shape1BorderStyle

=

3

Shape1BorderWidth

=

3

Shape1Width

=

190

Shape1Height

=

190

Shape1BorderColor

=

RGB(0,

0,

255)

Timer1Interval

=

1000

End

Sub

Private

Sub

Timer1_Timer()

sx

=

Cos((180

-

6

Second(Time))

314159

/

180)

65

'COS。不知道怎么说

sy

=

Sin((180

-

6

Second(Time))

314159

/

180)

65

'同上,的秒针反方向转了

Line3X2

=

sx

Line3Y2

=

sy

mx

=

Cos((180

-

6

Minute(Time))

314159

/

180)

65

my

=

Sin((180

-

6

Minute(Time))

314159

/

180)

65

Line2X2

=

mx

Line2Y2

=

my

hx

=

Cos((180

-

(30

Hour(Time)

+

30

Minute(Time)

/

60))

314159

/

180)

40

hy

=

Sin((180

-

(30

Hour(Time)

+

30

Minute(Time)

/

60))

314159

/

180)

40

Line1X2

=

hx

Line1Y2

=

hy

Form1CurrentX

=

-2

Form1CurrentY

=

80

Form1Print

"12"

Form1CurrentX

=

75

Form1CurrentY

=

-8

Form1Print

"3"

Form1CurrentX

=

-80

Form1CurrentY

=

-8

Form1Print

"9"

End

Sub

3个标签，2个按钮，1个计时器控件

Private Sub Command1_Click() '开始/暂停

If Timer1Enabled = True Then

Timer1Enabled = False

Else

Timer1Enabled = True

End If

End Sub

Private Sub Command2_Click() '停止清0

Label1 = "0"

Label2 = "0"

Label3 = "0"

Timer1Enabled = False

End Sub

Private Sub Form_Load() '初始设置

Label3 = "0"

Label2 = "0"

Label1 = "0"

Timer1Interval = 1000

Timer1Enabled = False

End Sub

Private Sub Timer1_Timer()

Label3 = Label3 + 1

If Label3 = 60 Then

Label3 = "0"

Label2 = Label2 + 1

If Label2 = 60 Then

Label2 = "0"

Label1 = Label1 + 1

End If

End If

End Sub

需要准备的工具：电脑，VB60程序设计软件。

1、首先打开VB60程序设计软件，到程序新建工程主界面，如下图：

2、然后双击新建工程里的”标准 exe“进入工程1（forml）如下图:

3、在左边工具栏窗体上先加载一个计时器控件 如图：

4、加载好计时器控件后，我们在当前计时器控件下面加载一个标签。

5、为了使加载的标签在运行时能把它看清楚，通过修改右边属性”Bordarstyle"里面的属性”0“改选为”1“使标签边框凹陷下去 ，如图：

6、接下来，我们将当前标签右边的属性名称改为”L1“如图:

7、我们开始修改计时器的属性，接下来我们把计时器控件当前的”interval“的属性设置成”1000“ 毫秒，就是1秒钟让它产生一次事件，如图 :

8、双击计时器控件，开始编写计时器程序，”L1caption=time”如图：

9、然后返回“form"窗口，点击运行，一个简单的计时器软件就做好了。

以上就是关于怎么用VB做石英钟全部的内容，包括:怎么用VB做石英钟、vb 时钟代码、如何用VB程序做计时器等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！