Visual Basic Timer.Visual Basic是一种重要和用户友好的编程语言。它附带了一个与他们的外观和行为有关的属性的曲目。今天,我们在这个初学者的级别教程中查看有用和重要的视觉基本定时器控制。

我们在本教程中假设您已经知道编程的基础知识。如果没有,我们建议你去了解C编程语言(如C或JavaScript)的基础知识。本课程可以帮助您向您展示如何

什么是Visual Basic?

Visual Basic是一种事件驱动的编程语言和Microsoft开发的集成开发环境。bob外围官网它基于基本(初学者通用符号指令代码)语言。它是介绍GUI或图形用户界面的第一个产品之一。Visual Basic程序员可以拖放对话框,文本字段,组合框等,而不是专注于语法细节,而不是专注于语法细节。随后可以定义和修改外观和行为。它有时被称为快速应用程序开发环境,因为用户可以快速学习技术并实现它。bob外围官网事件驱动的编程意味着每个对象可以对不同的事件作出反应,例如鼠标点击或鼠标滚动。你可以在本介绍课程中了解VB的基础知识

请注意,6.0是VB的旧版本。它仅由Windows 95,98,ME,NT和2000操作系统提供支持。如果您的操作系统是Windows XP或更高版本,则需要下载最新版本。

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

如何在计算机上安装VB6

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

什么是视觉基本计时器?

VB定时器控件有助于以特定的时间间隔重复运行一段代码。请注意,当您在窗体上绘制控件时,它只在设计期间可见。它在运行时被隐藏。让我们来看看计时器的属性(可以在这个VBA课程中了解更多有关它们的信息)。

VB计时器的属性

要执行的代码放在VB.Net中的计时器控件的Tick事件中。当Timer enable属性为True时,此事件将在每个间隔后触发。

它用于在后续勾选事件之间设置毫秒的数量。其值是VB.NET中的32位整数I. 1至2147483647。在VB 6.0中,属性的值是16位整数,有效值范围为0到65535.如果该值设置为0,则不会触发计时器事件。

启用时设置为true。在每次经过间隔毫秒后,勾选事件中的代码将重复执行。如果将启用属性设置为false,则计时器将停止。在VB 6.0中,通过将间隔属性设置为0来实现这一点。

Visual Basic 6.0与Visual Basic.NET定时器之间的差异

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

在Visual Basic 6.0中,可以通过将interval属性设置为0来禁用VB计时器控件。然而,在VB。Net时,interval属性的最小值为1。您可以使用Enable属性来启用或禁用其功能。

让我们了解VB Timer的功能使用一个简单的示例:

示例:使用计时器增加表单的宽度

私有子cmdstart1_click()
timer2.enabled = true
结束子
私有子Timer2_Timer()
form2.width = form2.width + 1
结束子

每1毫秒启用计时器时,执行计时器过程中的代码。每次增加当前形式的宽度。

示例:数字时钟

这是定时器的另一个例子。

私有子cmdpause1_click()
timer2.enabled = false.
结束子
私有子cmdstart1_click()
timer2.enabled = true
结束子
私有子Timer2_Timer()
txttime.text = time.
结束子

这是一种使用Visual Basic Timer Control的数字时钟应用程序。您可以启动或暂停数字时钟。启动时钟时,它将显示当前时间。现在让我们使用Timer与另一个示例一起前进到高级VB程序:

例3:移动车的计时器

私有子命令1_click1()
如果command11.caption =“开始”那么
Command11。标题=“停止”
timer3.enabled = true
别的
command11.caption =“开始”
imgcar.left = 4500.
imgcar.top = 150.
timer3.enabled = false.
万一
结束子
私有子Timer3_Timer()
如果imgcar.left> 2050那么
imgcar.moveimgcar.left  -  10,imgcar.top + 5
万一
结束子

在该程序示例中,图像位于指定位置。然后在每次间隔时,移动图像。这导致动画。

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

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

在此程序示例中,您可以启动,停止和重置秒表的选项。

将Smark_sec作为整数,sec1为整数,min1为整数
昏暗时刻1作为整数
私有子CMDRESET1_CLICK()
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 =“开始”那么
cmdstart1.caption =“停止”
别的
cmdstart1.caption =“开始”
万一
如果cmdstart1.caption =“停止”那么
timer3.enabled = true
timer2.enabled = true
timer1.enabled = true
别的
timer3.enabled = false.
timer2.enabled = false.
timer1.enabled = false.
万一
结束子

    
私有子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 = Format(0, "00")
万一
结束子

    
私有子定时器3_Timer1()
如果txtMiniSecond。文本< 59
txtMiniSecond。文本(txtMiniSecond =格式。Text + 1, "00")
别的
txtminisecond.text =格式(0,“00”)
万一
结束子

在这个程序中,最初将文本字段设置为0.分钟增加到59.之后,小时场比下降1.秒增加到它达到59.之后,在进行59之后。

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

私有mint_count作为整数
私有子cmdstart1_click()
mint_count = 0.
CLS.
tmrtest.enabled = true
结束子
私有子cmdstop1_click()
tmrtest.enabled = false
结束子
私有子TMRTEST_TIMER1()
mint_count = mint_count + 1
打印“计时器。count =”&mint_count
结束子

变量mint_count设置为0.两个操作发生。首先,mint_count递增1.其次,打印命令执行,该命令还会显示mint_count的当前值。一旦您启动程序,这将继续每隔季度。单击“停止”按钮时,程序停止。

示例:使用VB中使用计时器的数字骰子程序

公共阶级形式1
Dim N1,M1为整数
私有子Timer1_Tick(Byval Sender作为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 AS SOMENT.OBJECT,BYVAL EASS SOSTEM.EVENTARG)处理ROLLDICEBTN1.CLICK
timer1.enabled = true
结束子
结束类

要创建数字骰子,您需要使用RND()函数。这是一个随机函数,它在0到1之间生成数字。这里n1 = int(1 + rnd()* 6)产生随机数。执行此程序时,数字将快速更改,并将停止在一定数量。

我们建议您在进入下一个级别之前,先尝试一下这里给出的所有简单示例。尝试一下代码,看看结果如何。这将帮助您更加熟悉代码。当然,我们才刚刚触及到冰山一角。使用Visual Basic计时器函数,您可以做更多的事情。

还有其他VBA功能,有助于缓解您的编程与任何Microsoft Office套件的程序。例如,如果你愿意了解有关如何使用Microsoft Access的VBA如何使用VBA的更多信息这门课程在一个简单的5天课程中走过它。要使用VBA可轻松自动化Microsoft Excel中的许多决策和视觉效果,您可以在VBA上取得这种高质量的培训计划,以获得Excel。一旦你学习VBA的基础知识,它就会打开许多​​门!

Excel VBA的顶级课程

解锁Excel VBA和Excel宏
Leila Gharani.
4.7 (26,250)
畅销书
完成Web自动化与Excel VBA
丹尼尔强
4.6 (727)
畅销书
Microsoft Excel VBA简介
凯尔·佩
4.5 (1,143)
精通Microsoft Excel宏和Excel VBA
凯尔·佩
4.5 (11,290)
畅销书
终极Excel VBA.
马克塔尔伯特
4.6 (3,157)
Excel VBA编程 - 完整指南
Boris Paskhaver.
4.6 (3,690)
Excel VBA宏:超消歧Excel VBA编程
格兰特赌博
4.6 (963)
畅销书
Excel Macros&Excel VBA编程为初学者编程
Andreas Exadaktylos
4.5 (829)
收视率最高
Excel与Microsoft Excel VBA用户表单
凯尔·佩
4.5 (1,160)
Excel VBA练习和现实世界项目
Karen Tateosyan.
4.5 (215)
基于项目的Excel VBA课程
布朗顿布朗
4.7 (132)

更多Excel VBA课程

Excel VBA学生还学习

赋予你的团队。引领行业。

通过Udemy为Business获取组织的在线课程和数字学习工具库的订阅。

请求演示