Visual Basic计时器：如何使用它安排任务
visualbasic是一种重要的、用户友好的编程语言。它附带了一系列控件，这些控件具有与其外观和行为相关的属性。今天，我们将在本初学者教程中介绍有用且重要的Visual Basic计时器控件。
在本教程中，我们假设您已经了解了编程的基础知识。如果没有，我们建议你去学习C或JavaScript等编程语言的基础知识。本课程可以帮助您了解如何.
什么是Visual Basic？
Visual Basic是由Microsoft开发的事件驱动编程语言和集成开发环境。它基于BASIC（初学者通用符号指令代码）语言。它是betwayapp下载安装最早引入GUI或图形用户界面的产品之一。VisualBasic程序员可以拖放对话框、文本字段、组合框等控件，而不必关注语法细节。随后，可以定义和修改外观和行为。它有时被称为快速应用程序开发环境，因为用户可以快速学习并实现该技术。事件驱动编程意味着每个对象可以对不同的事件做出反应，例如鼠标单击或鼠标滚动。你可以在本入门课程中学习VB的基础知识.
请注意，6.0是VB的旧版本。只有Windows 95、98、ME、NT和2000操作系统支持它。如果您的操作系统是Windows XP或更高版本，则需要下载最新版本。
到了解有关VBA的更多信息以及如何使用它，查看我们的简单教程。
如何在计算机上安装VB6
- 在计算机或笔记本电脑上运行Visualstudio 6 CD。安装程序将自动运行。
- 单击“我接受协议”旁边的复选框。这样做是为了接受许可协议和其他规则和条例。
- 然后单击下一步按钮。
- 系统将提示您输入姓名和公司信息。执行此操作并单击“下一步”按钮。
- 选择“自定义设置”选项。
- 选择以下选项。Microsoft Visual Basic 6.0、ActiveX、数据访问和图形。
- 你必须取消所有其他选项。安装完成后，将在台式机或笔记本电脑上安装VB6。
什么是Visual Basic计时器？
VB计时器控件有助于以特定的间隔重复运行一段代码。请注意，当您在窗体上绘制控件时，它仅在设计期间可见。它在运行时是隐藏的。让我们来看看计时器的属性(你可以在本VBA课程中了解更多有关它们的信息).
VB定时器的属性
- 滴答声事件
要执行的代码放在VB.Net中Timer控件的Tick事件中。每当Timer enable属性为True时，此事件将在每个间隔后触发。
- 区间性质
它用于设置后续滴答事件之间的毫秒数。它的值是32位整数，即VB.net中的1到2147483647。在VB6.0中，属性值为16位整数，有效值范围为0到65535。如果该值设置为0，则不会触发计时器事件。
- 启用属性
启用时设置为true。间隔毫秒后，滴答事件中的代码将重复执行。如果将enabled属性设置为false，计时器将停止。在VB6.0中，这是通过将Interval属性设置为0来实现的。
Visual Basic 6.0和Visual Basic.Net计时器之间的差异
在VB6.0中，计时器控件在设计时绘制在窗体上，在运行时不可见。在Visual Basic.Net中，计时器是在设计时添加到托盘中的组件。但是，作为组件，它没有父属性。
在Visual Basic 6.0中，可以通过将interval属性设置为0来禁用VB计时器控件。然而,在VB。净时，区间性质的最小值为1。您可以使用Enable属性来启用或禁用其功能。
让我们通过一个简单的例子来了解VB定时器的功能：
示例：使用计时器增加窗体的宽度
专用子cmdStart1_Click（）
Timer2.Enabled=True
端接头
专用子定时器2_定时器（）
Form2.宽度=Form2.宽度+1
端接头
一旦定时器每1毫秒启用一次，就会执行定时器过程中的代码。每次增加当前窗体的宽度时。
示例：数字时钟
这里是计时器的另一个示例。
专用子cmdPause1_Click（）
Timer2.Enabled=False
端接头
专用子cmdStart1_Click（）
Timer2.Enabled=True
端接头
专用子定时器2_定时器（）
Text=Time
端接头
这是一个使用Visual Basic定时器控件的数字时钟应用程序。您可以启动或暂停数字时钟。启动时钟时，它将显示当前时间。现在，让我们通过另一个示例来了解使用计时器的高级VB程序：
示例3：移动汽车的计时器
专用子命令1_Click1（）
如果Command11.Caption=“Start”，则
Command11。标题=“停止”
Timer3.Enabled=True
其他的
Command11.Caption=“开始”
imgCar.左=4500
imgCar.Top=150
Timer3.Enabled=False
如果结束
端接头
专用子定时器3_定时器（）
如果imgCar.Left>2050，则
imgCar.MoveimgCar.Left-10，imgCar.Top+5
如果结束
端接头
在本程序示例中，图像放置在指定位置。然后在每个时间间隔移动图像。这会产生动画效果。
想要更多的控制？让我们看另一个例子：
示例4：使用计时器控件的秒表应用程序
在本程序示例中，您可以选择启动、停止和重置秒表。
Dim small_sec为整数，sec1为整数，min1为整数
Dim hour1作为整数
专用子cmdReset1_单击（）
cmdStart1.Caption=“开始”
Timer1.Enabled=False
Timer2.Enabled=False
Timer3.Enabled=False
Text1.Text=格式（0，“00”）
Text2.Text=格式（0，“00”）
Text3.Text=格式（0，“00”）
端接头
专用子cmdStart1_Click（）
如果cmdStart1.Caption=“Start”，则
cmdStart1.Caption=“停止”
其他的
cmdStart1.Caption=“开始”
如果结束
如果cmdStart1.Caption=“停止”，则
Timer3.Enabled=True
Timer2.Enabled=True
Timer1.Enabled=True
其他的
Timer3.Enabled=False
Timer2.Enabled=False
Timer1.Enabled=False
如果结束
端接头
专用子定时器1_Timer1（）
如果txtMinute.Text<59，则
txtMinute.Text=格式（txtMinute.Text+1，“00”）
其他的
txtMinute.Text=格式（0，“00”）
如果结束
端接头
专用子定时器2_Timer1（）
如果txtSecond.Text<59，则
txtSecond.Text=格式（txtSecond.Text+1，“00”）
其他的
txtSecond.Text=格式（0，“00”）
如果结束
端接头
专用子定时器3_Timer1（）
如果txtMiniSecond。文本< 59
txtMiniSecond。文本(txtMiniSecond =格式。Text + 1， "00")
其他的
txtMiniSecond.Text=格式（0，“00”）
如果结束
端接头
在此程序中，最初文本字段设置为0。分钟增加到59分钟。之后，小时字段增加1。第二个是增加，直到它达到59。之后，分钟字段增加1。
示例5：在窗体上显示文本，直到停止计时器
私有的mint\u计数为整数
专用子cmdStart1_Click（）
薄荷糖计数=0
Cls
tmrTest.Enabled=True
端接头
专用子cmdStop1_Click（）
tmrTest.Enabled=False
端接头
专用子tmrTest_Timer1（）
造币厂数量=造币厂数量+1
打印“Timer.Count=“&mint\u Count”
端接头
变量mint_count设置为0。发生了两次操作。首先，mint_计数增加1。其次，执行print命令，该命令还显示mint_count的当前值。一旦您启动程序，这将每四分之一秒持续一次。单击停止按钮后，程序停止。
示例：VB中使用定时器的数字骰子程序
公开课表格1
尺寸n1，m1为整数
私有子Timer1_Tick（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理Timer1.Tick
m1=m1+10
如果m<1000，则
n1=Int（1+Rnd（）*6）
LblDice.Text=n
其他的
Timer1.Enabled=False
m1=0
如果结束
端接头
私有子RollDiceBtn1_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理RollDiceBtn1。Click
Timer1.Enabled=True
端接头
末级
要创建数字骰子，需要使用Rnd（）函数。这是一个随机函数，它生成0到1之间的数字。这里n1=Int（1+Rnd（）*6）生成随机数。当执行此程序时，数字将快速变化，并在某个数字处停止。
在进入下一阶段之前，我们建议您尝试一下这里给出的所有简单示例。尝试一下代码，看看结果如何。这将帮助您更加熟悉代码。当然，我们只是触及了冰山一角。使用Visual Basic Timer函数可以做更多的事情。
还有其他VBA功能，可以帮助您轻松使用任何Microsoft Office程序套件进行编程。例如，如果你愿意了解有关如何在Microsoft Access中使用VBA的详细信息，本课程将带您通过一个简单的5天课程完成。要使用VBA在Microsoft Excel中轻松自动化许多决策和视觉效果，您可以参加这个关于VBA for Excel的高质量培训计划. 一旦你学习了VBA的基础知识，它就打开了许多大门！
