15问答网 > VB计时器怎么用

VB计时器怎么用

2025-01-02 07:17:41

推荐回答（5个）

回答1：

需要准备的工具：电脑，VB6.0程序设计软件。

1、首先打开VB6.0程序设计软件，到程序新建工程主界面，如下图：

2、然后双击新建工程里的”标准 exe“进入工程1（forml）如下图:

3、在左边工具栏窗体上先加载一个计时器控件如图：

4、加载好计时器控件后，我们在当前计时器控件下面加载一个标签。

5、为了使加载的标签在运行时能把它看清楚，通过修改右边属性”Bordarstyle"里面的属性”0“改选为”1“使标签边框凹陷下去，如图：

6、接下来，我们将当前标签右边的属性名称改为”L1“如图:

7、我们开始修改计时器的属性，接下来我们把计时器控件当前的”interval“的属性设置成”1000“ 毫秒，就是1秒钟让它产生一次事件，如图 :

8、双击计时器控件，开始编写计时器程序，”L1.caption=time”如图：

9、然后返回“form"窗口，点击运行，一个简单的计时器软件就做好了。

回答2：

需要准备的工具：电脑，VB6．0程序设计软件。

1、打开VB6．0，新建一个工程，在窗体中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，添加一个计时器控件，添加一个文本框，将界面设置成下图：

2、将文本框的Text属性清空，将字体Font属性调整为小四，便于观察，将背景色属性Backcolor调为浅、黄色。

3、双击“设置倒计时”命令按钮，进入代码编辑窗口，输入如下代码：

a＝InputBox（＂请输入倒计时时间（以分为单位）：＂，＂倒计时输入框＂

4、双击“启动倒计时”命令按钮，进入代码编辑窗口，输入如下代码：

Timer1．Interval＝1000＇设置计时器为一秒发生一次

Timer1．Enabled＝True＇激活计时器

If a < 60 Then

m＝a

Else

h＝s＼60

m＝aMod60

EndIf

m＝m－1

s＝60

5、双击“计时器”控件，进入代码编辑窗口，输入如下代码：

s＝s－1

If s = 0 And m <> 0 Then

s＝60

m＝m－1

EndIf

If m = 0 And h <> 0 Then

h＝h－1

m＝59

s＝60

6、VB6．0制作倒计时计时器在代码编辑窗口的通用段进行变量定义：

Dim h As Integer，m As Integer，s As Integer＇分别存储时分秒

Dim a AsInteger

7、双击窗体，进入代码编辑器，在Form＿Load事件中写入代码：

Timer1．Enabled＝False＇先关闭计时器

8、关闭代码窗口，按下F5运行程序，单击“设置倒计时”命令按钮，弹出输入对话框，此时输入分钟数为1，确定，如图：

9、单击“启动倒计时”命令按钮，文本框显示倒计时时间，并时刻变动，至此实现了倒计时功能，如图：

回答3：

Timer控件使用：

Timer 控件响应时间的流逝。它们独立于用户，编程后可用来在一定的时间间隔执行操作。此控件的一个一般用处是检查系统时钟，判断是否该执行某项任务。对于其它后台处理，Timer 控件也非常有用。

每个 Timer 控件都有 Interval
属性，指定定时器事件之间的毫秒数。除非禁止此属性，否则定时器在大致相等的时间间隔不断接受事件（称作定时器事件会更贴切）。

在为 Timer 控件编程时应考虑对 Interval 属性的几条限制：

如果应用程序或其它应用程序正在进行对系统要求很高的操作─ 例如长循环、高强度的计算或者正在访问驱动器、网络或端口─ 则应用程序定时器事件的间隔可能比
Interval 属性指定的间隔长。
间隔的取值可在 0 到 64,767 之间（包括这两个数值），这意味着即使是最长的间隔也不比一分钟长多少（大约 64.8 秒）。
间隔并不一定十分准确。要保证间隔准确，应在需要时才让定时器检查系统时钟，而不在内部追踪积聚的时间。
系统每秒生成 18 个时钟信号─ 所以即使用毫秒衡量 Interval 属性，间隔实际的精确度不会超过 18 分之一秒。

每个 Timer 控件必须要与窗体关联。因此要创建定时器应用程序就必须至少创建一个窗体（如果不需要窗体完成其它操作就不必使窗体可见）。

在窗体上放置 Timer 控件：

在窗体上放置 Timer 控件的方法与绘制其它控件的方法相同：单击工具箱中的定时器按钮并将它拖动到窗体上。

Timer 控件只在设计时出现在窗体上，所以可以选定这个控件，查看属性，编写事件过程。运行时，定时器不可见，所以其位置和大小无关紧要。

初始化 Timer 控件：

Timer 控件有两个关键属性。

数字钟应用程序示例：

包含一个定时器和一个有边框的标签。

应用程序中的唯一过程是定时器的事件过程：

Private Sub Timer1_Timer ()
   If lblTime.Caption <> CStr(Time) Then
      lblTime.Caption = Time
   End If
End Sub

过程调用内在的 Time 函数来显示系统时间。此函数返回一个 Variant，以日期/时间数值 (VarType 7) 的形式包含当前时间。将它赋予某个字符串变量或属性时，比如赋予本例中的 Caption 属性时，Visual Basic 将用“控制面板”中指定的格式将其转换成一个字符串。若要用其它格式显示，可使用 Format 函数。

回答4：

你好，计时器控件英文名叫Timer VB中图标是一个闹钟的样子

这个控件主要用来定时刷新/操作某样指令

它属性如下
Enabled ：设置计时器True为可用。如果为False 则不可用。
Interval：设置计时器执行时间，1000为1秒，最大为60000即1分。

一般在Button或其他可操作控件中对这两个属性进行设置
如：在Button中添加 timer1.enabled=false
然后在Timer中添加你想操作的命令：
Private Sub Timer1_Timer()
Button1.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '取系统当前时间为按钮的标题
End Sub

回答5：

加入Timer1控件后
Timer1.Enabled = True '设置计时器True为可用。如果为False 则不可用。
Timer1.Interval = 1000'设置计时器执行时间，1000为1秒，最大为60000即1分。

然后再timer1的事件里写入要执行的代码。

有不懂的补充！呵

最新问答

《梦想的力量》课题中力量的含义指什么

中国人寿保险股份有限公司苏州市分公司第二营销服务部怎么样？

初一英语填空求解急急急急急急

9⼀16÷5⼀8和9⼀16X5⼀8谁大？

人人网怎样不让陌生人来访问？？

为什么 CAD设置 @相对坐标后相对前一个点来定的尺寸准度有偏差的呢！求解！