(vb编程)制作秒表

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 10275
ClientLeft = 60
ClientTop = 450
ClientWidth = 13440
LinkTopic = "Form1"
ScaleHeight = 10275
ScaleWidth = 13440
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Left = 1440
Top = 4560
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim sngCX As Single, sngCY As Single '重置坐标
Dim blnBeginFlag As Boolean '是否初次Dim sngRClock As Single '时钟半径Dim intPreHr As Integer '前次小时Dim intPreMin As Integer '前次分
Dim intPreX As Integer '前次秒
Dim intPreY As Integer '前次分
Dim sngHLen As Single '时针长Dim sngMLen As Single '分针长Dim sngSLen As Single '秒针长Const pi = 3.1415926
Sub DrawClock() '画表盘的子程序Dim intI As Integer
Dim sngX As Single, sngY As Single
Circle (0, 0), sngRClock '时钟外圆
For intI = 0 To 60 '时钟刻度
sngX = (sngRClock - 50) * Sin(intI * pi / 30)
sngY = (sngRClock - 50) * Cos(intI * pi / 30)
If (intI Mod 5) = 0 Then '绘主刻度
DrawWidth = 4
PSet (sngX, sngY)
Else '绘次刻度
DrawWidth = 2
PSet (sngX, sngY)
End If
Next intI
DrawWidth = 1
'建立打印日期和星期的矩形框
Line (0.3 * sngRClock, 100)-(0.9 * sngRClock, -100) _
, , B Line (0.7 * sngRClock, 100)-(0.7 * sngRClock, -100)
FillStyle = 0 '填充
FillColor = vbBlack '黑色
Circle (0, 0), 70 '画中心的小圆
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Form1.AutoRedraw = True '窗体改变后可重绘
sngCX = ScaleWidth / 2
sngCY = ScaleHeight / 2
'使窗口中心为（0，0）
Scale (-sngCX, sngCY)-(sngCX, -sngCY)
blnBeginFlag = True
sngRClock = 1500 '时钟半径
sngHLen = sngRClock * 0.6 '时针长
sngMLen = sngRClock * 0.8 '分针长
sngSLen = sngRClock * 0.9 '秒针长
End Sub
Private Sub Timer1_Timer()
Dim intX As Integer, intY As Integer
Dim intHr As Integer, intMin As Integer
Dim intSec As Integer
Dim sngH As Single
Dim vntBlack, vntGray
'初次执行需绘表盘
If blnBeginFlag = True Then
DrawClock
End If
'填写日期和星期
CurrentX = 0.7 * sngRClock
CurrentY = 80
Print Day(Now) '日期
CurrentX = 0.35 * sngRClock
CurrentY = 80
Print WeekdayName(Weekday(Now)) '星期
intHr = Hour(Now)
intHr = intHr Mod 12 '使小时在0-11之间intMin = Minute(Now) '取得分
DrawWidth = 3 '时针和分针宽度vntBlack = vbBlack '黑色时针及分针
If blnBeginFlag = True Then
DrawMode = 13 'CopyPen绘图模式
sngH = intHr * 5 + intMin / 12
intX = sngHLen * Sin(sngH * pi / 30)
intY = sngHLen * Cos(sngH * pi / 30)
intPreHr = intHr
Line (0, 0)-(intX, intY), vntBlack '绘时针
intX = sngMLen * Sin(intMin * pi / 30)
intY = sngMLen * Cos(intMin * pi / 30)
Line (0, 0)-(intX, intY), vntBlack '绘分针
intPreMin = intMin
End If
If intPreMin <> intMin Then '如果分针改变
DrawMode = 10 'NotXorPen绘图模式sngH = intPreHr * 5 + intPreMin / 12
intX = sngHLen * Sin(sngH * pi / 30)
intY = sngHLen * Cos(sngH * pi / 30)
Line (0, 0)-(intX, intY), vntBlack '清除旧时针
intX = sngMLen * Sin(intPreMin * pi / 30)
intY = sngMLen * Cos(intPreMin * pi / 30)
Line (0, 0)-(intX, intY), vntBlack '清除旧分针
DrawMode = 13 'CopyPen绘图模式
sngH = intHr * 5 + intMin / 12
intX = sngHLen * Sin(sngH * pi / 30)
intY = sngHLen * Cos(sngH * pi / 30)
intPreHr = intHr
Line (0, 0)-(intX, intY), vntBlack '绘新时针
intX = sngMLen * Sin(intMin * pi / 30)
intY = sngMLen * Cos(intMin * pi / 30)
Line (0, 0)-(intX, intY), vntBlack '绘新分针
intPreMin = intMin
End If
intSec = Second(Now) '取得秒intX = sngSLen * Sin(intSec * pi / 30)
intY = sngSLen * Cos(intSec * pi / 30)
DrawWidth = 1
DrawMode = 10 'NotXorPen绘图模式vntGray = QBColor(8) '灰色秒针
Line (0, 0)-(intPreX, intPreY), vntGray
Line (0, 0)-(intX, intY), vntGray '绘新秒针
intPreX = intX
intPreY = intY
blnBeginFlag = False '已经执行过该程序End Sub。