定时器
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
5.6定时器控件
5.6.1定时器（Timer）
定时器控件又称计时器或时钟控件，有规律地以一定地
时间间隔激发定时器时间而执行相同地程序代码。适合编 写不需要与用户进行交互就可直接执行的代码。如计时、 倒计时、动画等。定时器控件默认名称为Timer1、Timer2、 Timer3…。
在程序运行阶段，时钟控件不可见。因此位置并不重要，
双击即可创建完成， 时钟控件不能单独使用，必须与表单、容器类或者控件类 一同使用。
5.6.1定时器控件（Timer）
1．定时器控件的属性 （1）Name属性 （2）Interval属性 该属性设置或返回两次 Timer 事件间的时间间隔，取 值范围在0～64 767之间（包括这两个数值），单位为
ms（0.001s），表示计时间隔。若将Interval属性设置
产生Timer事件的两个条件：Enabled=True；Interval>0。
5.6.1定时器控件
2．定时器控件的事件 定时器控件只能响应Timer事件，当Enabled属性值为 True且Interval属性值大于0时，该事件以Interval属性 指定的时间间隔发生，需要定时执行的操作即放在该 事件过程中完成。 3．方法 Visual Basic没有为定时器控件提供有关的方法。
Private Sub Timer1_Timer() If Label1.FontSize<100 Then Label1.FontSize=Label1.FontSize*1.2 Else Label1.FontSize=10 End If End Sub
［例5.8］设计一个电子手表，当单击“开始” 按钮时，立体标签中显示黄底蓝字的系统时 间，如果单击“停止”按钮，则电子时钟停 止运行。
为0或负数，则时钟停止工作。 60 000ms为1min，如果把Interval属性设置为1 000，则 表明每秒钟发生一个计时器事件。
5.6.1定时器控件
（3）Enabled属性 Enabled 属性被设置为 True 而且 Interval 属性值大于 0 ， 则时钟控件开始工作； Enabled属性设置为False，则时钟控件无效，即计时器 停止工作
［解］第一步：创建新窗体Form1，在此窗体上创 建2个命令按钮Command1、Command2，1个定时器 Timer1和1个标签Label1。
第二步：设置对象的属性
对象类型 对象名 属性设置
窗体
标签
Form1
Label1
Caption
Caption
电子手表
空白
字体及颜色 黄底蓝字三号字 Borderstyle 1-Fixed Sginle(立体) 开始 停止 False
命令按钮 Command1 Caption 命令按钮 Command2 Caption 定时器 Timer1 Enabled
第三步：补充完成代码编写 Private Sub Form_Load() Timer1.Interval = 1000 '以秒为单位计时 End Sub Private Sub Timer1_Timer() '计时 Label1.Caption = Time$ ’取系统时间 End Sub Private Sub Command1_Click() '开始计时 Timer1.Enabled = True End Sub Private Sub Command2_Click() '停止计时 Timer1.Enabled = False End Sub
5.6.1定时器控件
【例5.7】Timer控件示例。用计时器可以实现字体的放 大，如图5-13所示。
图5-13 用计时器放大字体
5.6.1定时器控件
操作步骤如下 ： （1）窗体外观设计 在窗体ቤተ መጻሕፍቲ ባይዱ画一个标签，一个计时器 （2）事件过程代码设计
5.6.1定时器控件
“Form1”窗体控件的“Load”事件过程代码如下：
Private Sub Form_Load()
Label1.FontName="Roman"
Label1.Width=Width Label1.Height=Height Timer1.Interval=1000 End Sub
5.6.1定时器控件
“Timer1”时钟控件的“Timer1”事件过程代码如下：
5.6.1定时器（Timer）
定时器控件又称计时器或时钟控件，有规律地以一定地
时间间隔激发定时器时间而执行相同地程序代码。适合编 写不需要与用户进行交互就可直接执行的代码。如计时、 倒计时、动画等。定时器控件默认名称为Timer1、Timer2、 Timer3…。
在程序运行阶段，时钟控件不可见。因此位置并不重要，
双击即可创建完成， 时钟控件不能单独使用，必须与表单、容器类或者控件类 一同使用。
5.6.1定时器控件（Timer）
1．定时器控件的属性 （1）Name属性 （2）Interval属性 该属性设置或返回两次 Timer 事件间的时间间隔，取 值范围在0～64 767之间（包括这两个数值），单位为
ms（0.001s），表示计时间隔。若将Interval属性设置
产生Timer事件的两个条件：Enabled=True；Interval>0。
5.6.1定时器控件
2．定时器控件的事件 定时器控件只能响应Timer事件，当Enabled属性值为 True且Interval属性值大于0时，该事件以Interval属性 指定的时间间隔发生，需要定时执行的操作即放在该 事件过程中完成。 3．方法 Visual Basic没有为定时器控件提供有关的方法。
Private Sub Timer1_Timer() If Label1.FontSize<100 Then Label1.FontSize=Label1.FontSize*1.2 Else Label1.FontSize=10 End If End Sub
［例5.8］设计一个电子手表，当单击“开始” 按钮时，立体标签中显示黄底蓝字的系统时 间，如果单击“停止”按钮，则电子时钟停 止运行。
为0或负数，则时钟停止工作。 60 000ms为1min，如果把Interval属性设置为1 000，则 表明每秒钟发生一个计时器事件。
5.6.1定时器控件
（3）Enabled属性 Enabled 属性被设置为 True 而且 Interval 属性值大于 0 ， 则时钟控件开始工作； Enabled属性设置为False，则时钟控件无效，即计时器 停止工作
［解］第一步：创建新窗体Form1，在此窗体上创 建2个命令按钮Command1、Command2，1个定时器 Timer1和1个标签Label1。
第二步：设置对象的属性
对象类型 对象名 属性设置
窗体
标签
Form1
Label1
Caption
Caption
电子手表
空白
字体及颜色 黄底蓝字三号字 Borderstyle 1-Fixed Sginle(立体) 开始 停止 False
命令按钮 Command1 Caption 命令按钮 Command2 Caption 定时器 Timer1 Enabled
第三步：补充完成代码编写 Private Sub Form_Load() Timer1.Interval = 1000 '以秒为单位计时 End Sub Private Sub Timer1_Timer() '计时 Label1.Caption = Time$ ’取系统时间 End Sub Private Sub Command1_Click() '开始计时 Timer1.Enabled = True End Sub Private Sub Command2_Click() '停止计时 Timer1.Enabled = False End Sub
5.6.1定时器控件
【例5.7】Timer控件示例。用计时器可以实现字体的放 大，如图5-13所示。
图5-13 用计时器放大字体
5.6.1定时器控件
操作步骤如下 ： （1）窗体外观设计 在窗体ቤተ መጻሕፍቲ ባይዱ画一个标签，一个计时器 （2）事件过程代码设计
5.6.1定时器控件
“Form1”窗体控件的“Load”事件过程代码如下：
Private Sub Form_Load()
Label1.FontName="Roman"
Label1.Width=Width Label1.Height=Height Timer1.Interval=1000 End Sub
5.6.1定时器控件
“Timer1”时钟控件的“Timer1”事件过程代码如下：