Visual Basic中定时器Visual Basic是一种重要的、用户友好的编程语言。它附带了一系列控件,这些控件具有与其外观和行为相关的属性。今天,我们来看一看有用的和重要的Visual Basic计时器控制,在这个初学者的水平教程。

我们假设在本教程中,你已经知道编程的基础知识。如果没有,我们建议你去学习编程语言的基础,比如C或JavaScript。这门课程可以帮助你如何做

什么是Visual Basic中?

Visual Basic是一种事件驱动编程语言和集成开发环境,由微软开发。必威真人投注它是基于BASIC(初学者通用符号指令代码)语言。这是第一个产品引进GUI或图形用户界面中的一个。而不是侧重于语法细节,在Visual Basic程序员可以拖放控件一样的对话框,文本框,组合框等。随后的外观和行为可以被定义和修改。它有时被称为快速应用程序开发环境,因为用户可以快速学习技术和实现它。必威真人投注事件驱动编程装置,每个对象可以不同的事件,例如鼠标点击或鼠标翻转反应。您可以在这门入门课程中学习VB的基础知识

请注意,6.0是一个老版本的VB。它是由仅在Windows 95,98,ME,NT和Windows 2000操作系统的支持。如果你的操作系统是Windows XP或更高版本,你需要下载最新版本。

了解更多关于VBA和如何使用它,看看我们的简单教程。

如何在你的电脑上安装VB6

  1. 在您的计算机或笔记本电脑上运行Visualstudio 6 CD。安装程序将自动运行。
  2. 单击“我接受协议”旁边的复选框。“这样做是为了接受许可协议和其他规章制度。
  3. 然后单击next按钮。
  4. 系统会提示您输入您的姓名和公司信息。完成此操作并单击next按钮。
  5. 选择“自定义设置”选项。
  6. 选择以下选项。微软Visual Basic 6.0, ActiveX,数据访问和图形。
  7. 你必须取消所有其他选项。此设置后,将在您的台式机或笔记本电脑上安装VB6。

什么是Visual Basic中定时器?

VB的定时器控制有助于在特定时间间隔重复运行的一段代码。请注意,当您在窗体上绘制控制它在设计时是唯一可见的。它在运行时隐藏。让我们通过一个定时器的属性(可以了解他们在这个过程中VBA)。

VB计时器的属性

要执行的代码放在在VB.Net Timer控件的Tick事件。无论何时,定时器使属性为True此事件是每间隔后触发。

它是用来设定随后蜱事件之间的毫秒数。它的值是32位整数,即1至2147483647在VB.net。在VB 6.0的属性的值是16位整数,范围从0到65535的情况下,值被设置为0的计时器事件将不被触发有效的值。

当启用时设置为true。在Tick事件中的代码将间隔毫秒每当经过反复执行。如果将Enabled属性设置为false,定时器将停止。在VB 6.0,这是由Interval属性设置为0来实现的。

的Visual Basic 6.0和Visual Basic.Net定时器之间的区别

在VB 6.0中,定时器控件在设计时绘制在窗体上,在运行时不可见。而在Visual Basic . net中,定时器是一个在设计时添加到托盘中的组件。但是,作为一个组件,它没有父属性。

In Visual Basic 6.0, it’s possible to disable a VB timer control by setting the interval property to 0. However, in VB.Net, the minimum value of the interval property is 1. You can use the Enable property to enable or disable its functionality.

让我们通过一个简单的例子来了解VB定时器的功能:

例如:使用定时器增加表单的宽度

私人小组cmdStart1_Click()
Timer2。启用= True
终止子
私人潜艇Timer2_Timer ()
Form2。宽度= Form2。宽度+ 1
终止子

一旦定时器启动每隔1个毫秒的定时器过程内代码被执行。每当电流形式的宽度增加。

例如:数字时钟

下面是定时器的另一个例子。

私人小组cmdPause1_Click()
Timer2.Enabled =假
终止子
私人小组cmdStart1_Click()
Timer2。启用= True
终止子
私人潜艇Timer2_Timer ()
txtTime.Text =时间
终止子

这是一个使用Visual Basic计时器控制的数字时钟应用程序。您可以启动或暂停数字时钟。当您启动时钟时,它将显示当前时间。现在让我们来看看另一个使用timer的高级VB程序的例子:

实施例3:定时器移动的汽车

私人小组Command1_Click1()
如果Command11.Caption =“开始”,然后
Command11.Caption = “停止”
Timer3。启用= True
其他
Command11.Caption = “开始”
imgCar.Left = 4500
imgCar。来p = 150
Timer3.Enabled =假
万一
终止子
私人小组Timer3_Timer()
如果imgCar.Left> 2050然后
imgCar.MoveimgCar.Left  -  10,imgCar.Top + 5
万一
终止子

在这个程序示例中,图像被放置在指定的位置。然后每隔一段时间就移动图像。这就产生了动画。

想要更多的控制?让我们看另一个例子:

示例4:使用计时器控制的秒表应用程序

在这个程序示例中,您有启动、停止和重新设置秒表的选项。

Dim small_sec为整数,sec1为整数,min1为整数
昏暗hour1作为整数
私人小组cmdReset1_Click()
cmdStart1。标题= "开始"
Timer1。启用= False
Timer2.Enabled =假
Timer3.Enabled =假
Text1。文本=格式(0,"00")
Text2。文本=格式(0,"00")
Text3.Text =格式(0, “00”)
终止子

    
私人小组cmdStart1_Click()
如果cmdStart1.Caption =“开始”,然后
cmdStart1。标题=“停止”
其他
cmdStart1。标题= "开始"
万一
如果cmdStart1.Caption =“停止”然后
Timer3。启用= True
Timer2。启用= True
Timer1。启用= True
其他
Timer3.Enabled =假
Timer2.Enabled =假
Timer1。启用= False
万一
终止子

    
私人潜艇Timer1_Timer1 ()
如果txtMinute.Text <59然后
txtMinute。文本(txtMinute =格式。文本+ 1,"00")
其他
txtMinute.Text =格式(0, “00”)
万一
终止子

    
私人潜艇Timer2_Timer1 ()
如果txtSecond。文本< 59
txtSecond.Text =格式(txtSecond.Text + 1, “00”)
其他
txtSecond.Text =格式(0, “00”)
万一
终止子

    
私人小组Timer3_Timer1()
如果txtMiniSecond.Text <59然后
txtMiniSecond.Text =格式(txtMiniSecond.Text + 1, “00”)
其他
txtMiniSecond。文本=格式(0,"00")
万一
终止子

在这个程序中,最初文本字段被设置为0。每分钟增加到59分钟。之后,小时字段增加1。第二名增加到59名。之后分钟字段增加1。

例5:表单,直到你停止计时器上显示文本

私人mint_Count作为整数
私人小组cmdStart1_Click()
mint_Count = 0
Cls
tmrTest。启用= True
终止子
私人潜艇cmdStop1_Click ()
tmrTest。启用= False
终止子
私人小组tmrTest_Timer1()
mint_Count = mint_Count + 1
打印”计时器。Count = " &mint_Count
终止子

变量mint_count设置为0,两个操作发生。首先,mint_count由1.其次,打印命令执行时,这也显示mint_count的当前值递增。一旦你启动的程序这延续了第二的每季度。在点击停止按钮,程序停止。

例子:数字骰子程序使用的定时器在VB

中公开课Form1
Dim n1, m1为整数
私有子Timer1_Tick(ByVal发件人为系统。)处理Timer1.Tick
M1 = M1 + 10
若m <1000然后
n1 = Int(1 + Rnd() * 6)
LblDice.Text =正
其他
Timer1。启用= False
m1 = 0
万一
终止子
私人小组RollDiceBtn1_Click(BYVAL发件人为System.Object的,BYVALË作为System.EventArgs)把手RollDiceBtn1.Click
Timer1。启用= True
终止子
结束课

要创建数字骰子,你需要使用赛第一轮()函数。这是产生数字0和1之间这里N1 = INT(1 +了Rnd()* 6)生成随机数的随机函数。当执行该程序,数字将快速改变,将在一定数目停止。

我们建议您去尝试所有移动到一个新的水平之前,这里给出的简单例子。更改代码,看看有什么结果。这将帮助你更加舒适的代码。当然,我们只是触及了冰山一角。有这么多,你可以用Visual Basic中定时器功能做。

还有其他的VBA功能,可以帮助您轻松地使用任何Microsoft Office程序套件进行编程。例如,如果你愿意的话了解更多关于如何使用VBA与Microsoft Access,本课程通过一个简单的5天课程来指导你。使用VBA来轻松地自动化许多您的决策制定和可视化的Microsoft Excel,您可以采取这种高质量的培训计划上VBA为Excel。一旦你了解VBA的基础,它会打开很多门!

高级课程在Excel VBA

解锁Excel的VBA和Excel宏
莱拉Gharani
4.6 (22571)
畅销书
法师的Microsoft Excel宏和Excel VBA
凯尔皮尤
4.5 (9983)
畅销书
Excel的VBA练习和真实世界的项目
凯伦Tateosyan
4.7 (176)
介绍微软Excel VBA
凯尔皮尤
4.7 (1020)
Excel的VBA:如何编写宏像一个专业
保罗·凯利
4.3 (991)
最终Excel VBA
马克Talbert
4.7 (2975)
Excel的VBA - 完整的Excel VBA课程入门
艾伦·默里
4.3 (1239)
Excel VBA编程完整指南
鲍里斯Paskhaver
4.6 (3399)
完整的Web自动化与Excel VBA
丹尼尔强
4.7 (634)
畅销书
最终的Excel VBA阵列课程
丹尼尔强
4.6 (423)
Excel与Microsoft Excel VBA用户表单
凯尔皮尤
4.5 (1017)

更多Excel的VBA课程

Excel中VBA的学生还学

让你的团队。领导行业。

获取订阅的在线课程和数字学习工具库与您Udemy组织业务。

申请演示