内容正文:
第8课 使用定时器控件
教学目的:
(1) 了解时间函数和日期函数
(2) )熟悉定时器控件的用法。
教学重点和难点:
时间函数和日期函数,定时器控件的用法教学过程:
一、引入
计算机内部有一个时钟,启动计算机后,WINDOWS会读取这个时钟的时间,在任务栏右侧显示出来,使用VB的时间和日期函数,也可以编一个显示日期和时间的程序。另外,利用工具箱的定时器控件,还可以使程序按一定的时间间隔来完成一些事情,比如定时让计算机发出声音等。
2、 新授
1. 设计程序界面并设置对象的属性:绘制程序界面并设置对象的属性。
2. 编写程序代码
编写“显示时间和日期”程序的代码。
用Timer控件作定时器其interval属性设为1000,用label控件label1显示文字、label2作计数。
Timer控件的代码是
Label2.Caption = Label2.Caption + 1
If Label2.Caption = 1 Then
Label1.Caption = "aaa"
End If
If Label2.Caption = 3 Then
Label1.Caption = "bbb"
End If
If Label2.Caption = 5 Then
Label1.Caption = "ccc"
End If
If Label2.Caption = 3 Then
Timer1.Enabled = False
End If
label2的visible属性改为false
3、设置定时器控件:
添加定时器控件
[巩固练习]
Timer控件的代码是
Label2.Caption = Label2.Caption + 1
If Label2.Caption = 1 Then
Label1.Caption = "aaa"
End If
If Label2.Caption = 3 Then
Label1.Caption = "bbb"
End If
If Label2.Caption = 5 Then
Label1.Caption = "ccc"