Question

你好，我想问一下你那有VB课程设计的多功能计时器的答案吗，要求有时钟，秒表和倒计时功能，还有最初的...

你好，我想问一下你那有VB课程设计的多功能计时器的答案吗，要求有时钟，秒表和倒计时功能，还有最初的界面我不知道是怎么弄得，能不能帮帮忙呢^_^

Answer 1

Option Explicit
Public t As Integer, str AsString
Public h As Integer, m AsInteger, s As Integer

Private SubShow_LED(picTimer As PictureBox, str As String)
'显示图片的通用过程
Dim s As String * 1
Dim pos As Integer
Dim n As Integer
Dim i As Integer
For i = 1 To Len(str)
s = Mid(str, i, 1)
n = -1
Select Case s
Case "0" To "9"
n = CInt(s)
Case ":"
n = 10
Case "-"
n = 11
Case "."
n = 12
Case "a", "A"
n = 13
Case "p", "P"
n = 14
Case " "
n = 15
End Select
If n <> -1 Then
picTimer.PaintPicturePCTimer.GraphicCell(n), pos, 0
pos = pos + 300
End If
Next
End Sub

Private SubcmdRestart_Click() '秒表的回零
h = 0
m = 0
s = 0
str = ""
cmdStart.Caption = "开始"
Timer1.Enabled = False: str ="00:00:00"
Cls
Call Show_LED(picTimer, str)
End Sub

Private Sub cmdStart_Click()'秒表的开始和暂停控制
If cmdStart.Caption = "开始" Then
h = 0
m = 0
s = 0
cmdStart.Caption = "暂停"
Timer1.Enabled = True
cmdRestart.Enabled = False
Exit Sub
ElseIf cmdStart.Caption = "暂停" Then
cmdStart.Caption = "继续"
Timer1.Enabled = False
cmdRestart.Enabled = True
Exit Sub
Else
cmdStart.Caption = "暂停"
Timer1.Enabled = True
cmdRestart.Enabled = False
Exit Sub
End If
End Sub

Private Sub Form_Load() '窗体加载
Call mnuClock_Click
End Sub

Private Sub mnuClock_Click()'时钟
picTimer.Cls
Me.Cls
Timer1.Enabled = False
Timer2.Enabled = False
cmdStart.Visible = False
cmdRestart.Visible = False
frmTimer.Caption = "时钟"
Timer3.Enabled = True
picTimer.Visible = True
Cls
End Sub
Private SubmnuCuntDwnClock_Click() '倒计时
picTimer.Cls
Me.Cls
Timer1.Enabled = False
Timer3.Enabled = False
cmdStart.Visible = False
cmdRestart.Visible = False
frmSet.Visible = True
frmTimer.Caption = "倒计时钟"
picTimer.Visible = True
End Sub

Private Sub mnuExit_Click()'退出选项
Unload frmTimer: Unload frmSet
End Sub

Private Sub mnuStopwatch_Click()'秒表
picTimer.Cls
Me.Cls
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
cmdStart.Visible = True
cmdRestart.Visible = True
frmTimer.Caption = "秒表"
picTimer.Visible = True
End Sub

Private Sub Timer1_Timer() '秒表计时过程
str = ""
s = s + 1
If s = 100 Then '秒表数字显示的处理
s = 0
m = m + 1
If m = 60 Then
m = 0
h = h + 1
If h = 24 Then
h = 0
End If
End If
End If

If h < 10 Then '数字显示格式的处理
str = str & 0 & h
Else: str = str & h
End If
If m < 10 Then
str = str & ":" & 0 &m
Else: str = str & ":" & m
End If
If s < 10 Then
str = str & ":" & 0 &s
Else: str = str & ":" & s
End If
Cls
Call Show_LED(picTimer, str)
End Sub

Private SubTimer2_Timer() '倒计时计时过程
picTimer.Cls
str = ""
t = h * 3600 + m * 60 + s
If t >= 1 Then
s = s - 1
If s = -1 Then
s = 59
m = m - 1
End If
If m = -1 Then
m = 59
h = h - 1
End If
If h < 10 Then
str = str & "0" & h
Else
str = str & ":" & h
End If
If m < 10 Then
str = str & ":" &"0" & m
Else
str = str & ":" & m
End If
If s < 10 Then
str = str & ":" &"0" & s
Else
str = str & ":" & s
End If
Cls
Call Show_LED(picTimer, str)
Else
picTimer.Visible = False
Cls
frmTimer.Print "时间到"
Timer2.Enabled = False
End If
End Sub

Private Sub Timer3_Timer() '时钟显示过程
str = CStr(Now)
Call Show_LED(picTimer, str)
Cls
End Sub

Option Explicit
Private SubcmdCuntStart_Click()
frmTimer.h = Val(txtInput(0))
frmTimer.m = Val(txtInput(1))
frmTimer.s = Val(txtInput(2))
If frmTimer.h + frmTimer.m + frmTimer.s = 0Then
Call MsgBox("输入错误，请重新输入", 48,"多功能计时器")
Else
frmTimer.Timer2.Enabled = True
Unload frmSet
End If
End Sub

Answer 2

我也求这个，快被逼疯了，楼主还有答案吗(눈_눈)

Answer 3

怎么给你