Visual Basic中定时器Visual Basic是一个重要的和用户友好的编程语言。它配备了具有与它们的外观和行为性质的控件清单。今天,我们就来看看有用和重要的Visual Basic定时器控制,在这种初学者的水平教程。

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

什么是Visual Basic中?

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

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

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

如何在计算机上安装VB6

  1. 您的电脑或笔记本电脑上运行的VisualStudio 6 CD。安装程序会自动运行。
  2. 点击旁边的复选框“我接受协议”。这样做是为了接受许可协议和其他规章制度。
  3. 然后单击Next按钮。
  4. 系统将提示您输入您的姓名和公司信息。这样做,然后单击下一步按钮。
  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中,定时器是被添加到所述托盘在设计时的组件。但是,作为一个组件它没有Parent属性。

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.Enabled =真
结束小组
私人小组Timer2_Timer()
Form2.Width = Form2.Width + 1
结束小组

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

例如:数字时钟

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

私人小组cmdPause1_Click()
Timer2.Enabled =假
结束小组
私人小组cmdStart1_Click()
Timer2.Enabled =真
结束小组
私人小组Timer2_Timer()
txtTime.Text =时间
结束小组

这是使用Visual Basic中定时器控制的数字时钟应用程序。您可以开始或暂停数字时钟。当您启动时钟,它会显示当前时间。现在,让我们在使用定时器另一个例子先进的VB程序的举动:

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

私人小组Command1_Click1()
如果Command11.Caption =“开始”,然后
Command11。标题=“停止”
Timer3.Enabled =真
其他
Command11.Caption = “开始”
imgCar.Left = 4500
imgCar.Top = 150
Timer3.Enabled =假
万一
结束小组
私人小组Timer3_Timer()
如果imgCar.Left> 2050然后
imgCar.MoveimgCar.Left  -  10,imgCar.Top + 5
万一
结束小组

在此程序例中,图像被放置在一个指定位置。然后间隔图像每个时刻被移动。这导致动画。

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

实施例4:应用秒表其使用定时器控制

在这个程序例子中,你必须启动,停止和复位秒表的选项。

昏暗small_sec作为整数,秒-1为整数,MIN1作为整数
昏暗hour1作为整数
私人小组cmdReset1_Click()
cmdStart1.Caption = “开始”
Timer1.Enabled =假
Timer2.Enabled =假
Timer3.Enabled =假
Text1.Text =格式(0, “00”)
Text2.Text =格式(0, “00”)
Text3.Text =格式(0, “00”)
结束小组

    
私人小组cmdStart1_Click()
如果cmdStart1.Caption =“开始”,然后
cmdStart1.Caption = “停止”
其他
cmdStart1.Caption = “开始”
万一
如果cmdStart1.Caption =“停止”然后
Timer3.Enabled =真
Timer2.Enabled =真
Timer1.Enabled =真
其他
Timer3.Enabled =假
Timer2.Enabled =假
Timer1.Enabled =假
万一
结束小组

    
私人小组Timer1_Timer1()
如果txtMinute.Text <59然后
txtMinute.Text =格式(txtMinute.Text + 1, “00”)
其他
txtMinute.Text =格式(0, “00”)
万一
结束小组

    
私人小组Timer2_Timer1()
如果txtSecond.Text <59然后
txtSecond.Text =格式(txtSecond.Text + 1, “00”)
其他
txtSecond.Text =格式(0, “00”)
万一
结束小组

    
私人小组Timer3_Timer1()
如果txtMiniSecond.Text <59然后
txtMiniSecond.Text =格式(txtMiniSecond.Text + 1, “00”)
其他
txtMiniSecond.Text =格式(0, “00”)
万一
结束小组

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

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

私人mint_Count作为整数
私人小组cmdStart1_Click()
mint_Count = 0
CLS
tmrTest.Enabled =真
结束小组
私人小组cmdStop1_Click()
tmrTest.Enabled = FALSE
结束小组
私人小组tmrTest_Timer1()
mint_Count = mint_Count + 1
打印 “定时器。数=” &mint_Count
结束小组

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

例如:数码骰子程序中使用定时器在VB

公共类Form1中
昏暗的N1,M1作为整数
私人小组Timer1_Tick(BYVAL发件人为System.Object的,BYVALË作为System.EventArgs)把手Timer1.Tick
M1 = M1 + 10
若m <1000然后
N1 = INT(1 +了Rnd()* 6)
LblDice.Text =正
其他
Timer1.Enabled =假
M1 = 0
万一
结束小组
私人小组RollDiceBtn1_Click(BYVAL发件人为System.Object的,BYVALË作为System.EventArgs)把手RollDiceBtn1.Click
Timer1.Enabled =真
结束小组
末级

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

我们建议您在进入下一个级别之前先尝试这里给出的所有简单示例。试试代码,看看结果如何。这将帮助您更熟悉代码。当然,我们只是触及了冰山一角。有这么多你可以做的Visual Basic计时器功能。

还有其他的VBA功能,有助于缓和与任何程序的Microsoft Office套件的编程。举例来说,如果你想了解更多有关如何使用VBA与Microsoft Access本课程将引导您完成它在一个简单的5天课程。使用VBA来轻松地自动许多在Microsoft Excel中的决策和视觉效果,你可以采取这种高质量的培训计划上VBA为Excel。一旦你了解VBA的基础,它会打开很多门!

在Excel VBA热门课程

介绍到Microsoft Excel VBA
凯尔皮尤
4.7 (979)
终极Excel的VBA数组课程
丹尼尔强
4.5 (408)
解锁Excel的VBA和Excel宏
莱拉Gharani
4.6 (21557)
畅销书
掌握microsoftexcel宏和Excel VBA
凯尔皮尤
4.5 (9640)
畅销书
终极Excel的VBA
马克塔尔伯特
4.5 (2959)
Excel的VBA编程 - 完全指南
鲍里斯Paskhaver
4.6 (3303)
完成Web自动化与Excel VBA
丹尼尔强
4.6 (616)
畅销书
Excel的VBA练习和真实世界的项目
卡伦Tateosyan
4.6 (164)
终极Excel的VBA用户窗体与Access数据库
M.穆斯塔法·努尔加利
4.5 (90)
完整的Excel VBA课程,为初学者
艾伦·默里
4.3 (1225)

更多Excel的VBA课程

Excel中VBA的学生还学

使您的团队。引领行业。

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

申请演示