VB多功能计时器代码.docx
- 文档编号:3457282
- 上传时间:2022-11-23
- 格式:DOCX
- 页数:7
- 大小:15.25KB
VB多功能计时器代码.docx
《VB多功能计时器代码.docx》由会员分享,可在线阅读,更多相关《VB多功能计时器代码.docx(7页珍藏版)》请在冰豆网上搜索。
VB多功能计时器代码
frmTimer窗体控件:
commandbutton*2
picturebox*1
pictureclip(注:
图片剪切控件)*1
timer*3
(注:
此处只给出了控件类型,控件名祥见代码)
frmTimer的代码
OptionExplicit
PublictAsInteger,strAsString
PublichAsInteger,mAsInteger,sAsInteger
PrivateSubShow_LED(picTimerAsPictureBox,strAsString)
'显示图片的通用过程
DimsAsString*1
DimposAsInteger
DimnAsInteger
DimiAsInteger
Fori=1ToLen(str)
s=Mid(str,i,1)
n=-1
SelectCases
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
EndSelect
Ifn<>-1Then
picTimer.PaintPicturePCTimer.GraphicCell(n),pos,0
pos=pos+300
EndIf
Next
EndSub
PrivateSubcmdRestart_Click()'秒表的回零
h=0
m=0
s=0
str=""
cmdStart.Caption="开始"
Timer1.Enabled=False:
str="00:
00:
00"
Cls
CallShow_LED(picTimer,str)
EndSub
PrivateSubcmdStart_Click()'秒表的开始和暂停控制
IfcmdStart.Caption="开始"Then
h=0
m=0
s=0
cmdStart.Caption="暂停"
Timer1.Enabled=True
cmdRestart.Enabled=False
ExitSub
ElseIfcmdStart.Caption="暂停"Then
cmdStart.Caption="继续"
Timer1.Enabled=False
cmdRestart.Enabled=True
ExitSub
Else
cmdStart.Caption="暂停"
Timer1.Enabled=True
cmdRestart.Enabled=False
ExitSub
EndIf
EndSub
PrivateSubForm_Load()'窗体加载
CallmnuClock_Click
EndSub
PrivateSubmnuClock_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
EndSub
PrivateSubmnuCuntDwnClock_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
EndSub
PrivateSubmnuExit_Click()'退出选项
UnloadfrmTimer:
UnloadfrmSet
EndSub
PrivateSubmnuStopwatch_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
EndSub
PrivateSubTimer1_Timer()'秒表计时过程
str=""
s=s+1
Ifs=100Then'秒表数字显示的处理
s=0
m=m+1
Ifm=60Then
m=0
h=h+1
Ifh=24Then
h=0
EndIf
EndIf
EndIf
Ifh<10Then'数字显示格式的处理
str=str&0&h
Else:
str=str&h
EndIf
Ifm<10Then
str=str&":
"&0&m
Else:
str=str&":
"&m
EndIf
Ifs<10Then
str=str&":
"&0&s
Else:
str=str&":
"&s
EndIf
Cls
CallShow_LED(picTimer,str)
EndSub
PrivateSubTimer2_Timer()'倒计时计时过程
picTimer.Cls
str=""
t=h*3600+m*60+s
Ift>=1Then
s=s-1
Ifs=-1Then
s=59
m=m-1
EndIf
Ifm=-1Then
m=59
h=h-1
EndIf
Ifh<10Then
str=str&"0"&h
Else
str=str&":
"&h
EndIf
Ifm<10Then
str=str&":
"&"0"&m
Else
str=str&":
"&m
EndIf
Ifs<10Then
str=str&":
"&"0"&s
Else
str=str&":
"&s
EndIf
Cls
CallShow_LED(picTimer,str)
Else
picTimer.Visible=False
Cls
frmTimer.Print"时间到"
Timer2.Enabled=False
EndIf
EndSub
PrivateSubTimer3_Timer()'时钟显示过程
str=CStr(Now)
CallShow_LED(picTimer,str)
Cls
EndSub
frmTimer窗体控件:
text*3
commandbuton*1
label*3
(注:
控件名称参照代码)
frmSet的代码
OptionExplicit
PrivateSubcmdCuntStart_Click()
frmTimer.h=Val(txtInput(0))
frmTimer.m=Val(txtInput
(1))
frmTimer.s=Val(txtInput
(2))
IffrmTimer.h+frmTimer.m+frmTimer.s=0Then
CallMsgBox("输入错误,请重新输入",48,"多功能计时器")
Else
frmTimer.Timer2.Enabled=True
UnloadfrmSet
EndIf
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 多功能 计时器 代码