UC知道vb作业 好心人帮忙做下 急~~谢谢
来源：百度知道 编辑：UC知道 时间：2024/06/04 09:03:13
实验九 定时器
一、实验目的
1．掌握定时器控键的用法。
2．熟悉定时器控键的属性。
二、实验内容
编写一个程序利用计时器计时。
三、实验步骤与指导
1．设计界面
在窗体上添加四个命令按钮，一个标签，一个计时器控件。初始界面如图2－9－1所示。
图2－9－1 初始界面
2．设置属性，如表2－9－1所示。
表2－9－1 属性设置
对象 属性 属性值
Command1 Caption 开始计时
Command2 Caption 停止
Command3 Caption 重新开始
Label1 BorderStyle 1-Fixed Single
Label1 Caption 0
Timer1 enable true
Timer1 interval 400
设置属性后的界面如图2－9－2所示
图2－9－2 设置属性后的界面
3． 编写程序代码
分别完成相应的功能
注意：在Timer的事件中完成主要的操作
4．运行程序
单击“开始计时”命令按钮，程序运行效果如图2－9－3所示。
图2－9－3 程序运行效果
一、实验目的
1．掌握定时器控键的用法。
2．熟悉定时器控键的属性。
二、实验内容
编写一个程序利用计时器计时。
三、实验步骤与指导
1．设计界面
在窗体上添加四个命令按钮，一个标签，一个计时器控件。初始界面如图2－9－1所示。
图2－9－1 初始界面
2．设置属性，如表2－9－1所示。
表2－9－1 属性设置
对象 属性 属性值
Command1 Caption 开始计时
Command2 Caption 停止
Command3 Caption 重新开始
Label1 BorderStyle 1-Fixed Single
Label1 Caption 0
Timer1 enable true
Timer1 interval 400
设置属性后的界面如图2－9－2所示
图2－9－2 设置属性后的界面
3． 编写程序代码
分别完成相应的功能
注意：在Timer的事件中完成主要的操作
4．运行程序
单击“开始计时”命令按钮，程序运行效果如图2－9－3所示。
图2－9－3 程序运行效果
Dim a, b As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Label1.Caption = "0" :a=0:b=0 : Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Command1.Caption = "START"
Command2.Caption = "STOP"
Command3.Caption = "RESTART"
Label1.Caption = "0"
Timer1.Interval = 400
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
a = a + 1
If a = 60 Then
a = 0
b = b + 1
End If
Label1.Caption = "分：" & b & "秒:" & a
End Sub
没有图，只能作成这样了那个分就没有加上限,
图呢？
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private