vb编写2分钟倒计时的程序
VB定时器控件的应用实例与研究
VB定时器控件的应用实例与研究[摘要] VB中的定时器控件具有灵活多变、易于控制等特点,在应用程序的开发中,利用VB定时器控件可以实现时间控制、随机控制、动画设计和游戏设计等制作。
VB定时器控件和其他控件相结合,可以制作既灵活又实用的应用程序。
[关键词] VB 定时器控制TimerVB中的定时器控件(Timer)是一个在程序运行时不可见的控件,在程序运行时,每隔若干时间(通过Interval属性设置)执行一次Timer事件中的相应代码。
定时器控件最核心的属性是Enabled和Interval属性。
利用Enabled可以设置定时器控件是否可用,其取值只有逻辑值True和False两种。
利用Interval属性可以设置定时器控件激活Timer事件的时间间隔,其单位为毫秒,其取值范围为0-65535,当取值为0时,定时器控件不可用。
由于定时器控件具有灵活多变、易于控制等特点,可以应用于时间控制、随机控制、动画制作、游戏制作等应用程序的开发中。
一、时间控制1.整点播时器在实际工作中,有时需要利用计算机实现整点报时的功能,以提醒用户及时知晓当前时间。
整点播时器的功能是:若当前系统时间为整点时(即当前时刻的分钟数和秒数均为0),弹出对话框提示“现在是北京时间X点整”。
在设计整点报时器时,定时器控件Timer1的Interval属性应设置为1000(1000毫秒=1秒),Timer1的timer事件代码如下:Private Sub Timer1_Timer()If Second(Time()) = 0 And Minute(Time()) = 0 Thena = MsgBox(“现在是北京时间” + Str(Hour(Time())) + “点整”)End IfEnd Sub2.倒计时器在实际生活中,有时需要通过倒计时的方法,让观众随时了解当前距正式活动(比赛)的时间差。
比如奥运会倒计时、开幕式倒计时等等。
倒计时器的功能是:先在文本框text1中输入倒计时的时间(形式为hh:mm:ss),当单击“开始倒计时”按钮command1时,每隔一秒钟,文本框text1中的时间倒退一秒钟,直到时间为0(00:00:00)时,弹出对话框提示“时间到”。
vb6.0时间控件timer详解
vb6.0时间控件timer详解通过引发Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。
语法Timer说明Timer 控件用于背景进程中，它是不可见的************************以下是他的属性****************Enabled 属性返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。
语法object.Enabled [= boolean]Enabled 属性的语法包含下面部分：部分描述object 对象表达式，其值是“应用于”列表中的一个对象。
如果object 被省略，则与活动窗体模块相联系的窗体被认为是object。
boolean 一个用来指定object 是否能够对用户产生的事件作出反应的布尔表达式。
设置boolean 的设置为：设置描述True （缺省）允许object 对事件作出反应。
False 阻止object 对事件作出反应。
Enabled 属性示例该例子使一个CommandButton 控件有效而不管TextBox 控件是否包含文本。
要试用此例，先将下面的代码粘贴到带有CommandButton 和TextBox 控件的一个窗体的声明部分，然后按下F5 键并在文本框中随意输入一些内容。
Private Sub Form_Load ()Text1.Text = "" ' 清除文本框的内容。
Command1.Caption = "Save" ' 在按钮上放置标题。
End SubPrivate Sub Text1_Change ()If Text1.Text = "" Then '查看文本框是否为空。
Command1.Enabled = False '使按钮无效。
ElseCommand1.Enabled = True '使按钮有效。
下课倒计时软件的设计
下课倒计时软件的设计作者：任江明来源：《电脑知识与技术》2013年第20期摘要：在计算机屏幕上显示出下课剩余时间，时间到时弹出对话框，随之播放选择的音乐。
关键词：倒计时；播放音乐；对话框中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2013）20-4618-02对于一名老师来说，把握下课的时间很重要，上课过程中需要了解一下时间，从而掌握教学进度。
那么如何在电脑桌面上显示上课剩余时间呢？我利用VB编写了一个倒计时的程序。
功能主要有：1）能实时显示上课剩余时间；2）在结束时能够弹出对话框来提醒；3）能选择音乐文件，在时间结束时播放。
4）窗口较小，不会影响其它软件的使用和显示。
需解决的难题是：如何使程序运行窗口和结束时的弹出窗口总是在最前面。
1 程序的编写程序中涉及到如下几个控件：一个标签（用于显示倒计时的数字），一个下拉列表框（用于选择从倒计时的初始值，默认值是45分钟），两个按钮（一个用于开始计时和取消计时，另一个用于选择打开音乐文件），一个定时器（产生timer事件），一个通用对话框（当action属性为1或用showopen方法时产生“打开”对话框，选择所需要的音乐文件），一个媒体播放控件windowsmediaplayer（用于播放音乐）。
通用对话框不是标准控件，只是一种ActiveX控件，在VB编程中需要通过选择“工程”→“部件”命令加载Microsoft Common Dialog Control 6.0部件，工具箱上会出现通用对话框图标。
如下是这个程序所涉及的代码：先建立一个通用模块，用于设置运行时的程序窗口在最前面的函数。
Public Declare Function SetWindowPos Lib "user32" （ByVal hWnd As Long， ByVal hWndInsertAfter As Long， ByVal X As Long， ByVal Y As Long， ByVal cx As Long， ByVal cy As Long， ByVal wFlags As Long） As Long…下面是各个控件的代码Dim t As Date …定义一个全局变量tPrivate Sub Form_Load（）SetWindowPos Me.hWnd， -1， 0， 0， 0， 0，3 …设置窗口总在最前面 For i = 1 To 99Combo1.AddItem iNext iEnd SubPrivate Sub Command1_Click（）…用于设置和取消计时的按钮If Command1.Caption = "设置" Thent = Time …记录点击设置时的时间Timer1.Interval = 1000 …计时器开始运行WindowsMediaPlayer1.Controls.stop …媒体播放器停止播放Combo1.Enabled = FalseCommand1.Caption = "取消"ElseCombo1.Enabled = TrueCommand1.Caption = "设置"End IfEnd SubPrivate Sub Command2_Click（）…选择音乐的按钮CommonDialog1.Action = 1WindowsMediaPlayer1.URL = CommonDialog1.FileName …播放音乐的文件就是通过通用对话框选择的文件。
02VB-数字钟
数字钟本单元课程有助于学生巩固前面课程所掌握的一些操作方法和部分基础概念。
一，复习启动与退出VB的方法二，复习VB窗口的组成:标题栏、菜单栏、标准工具栏、工具箱、工程资源管理器、属性窗口、窗体布局、代码窗口、对象窗口……图1 “数字钟”程序在VB设计状态下的画面三，本实例对象选取及其初始状态设计。
本例连同窗体在内，一共用到四个对象。
以下是这些对象的名称和需要设置的属性（利用属性窗口设置）。
窗体（Form，用于显示信息、盛放其他控件）1，名称frmClock(代码设计中用于区别于其他窗体)2，Caption 数字钟（在窗体标题栏中显示的文字）3，BorderStyle 1-Fixed Single（边框样式1，运行时不能改变窗体大小）4，窗体的大小可以手工拖放窗体边框来调整，此处按以下数据设置Height 2130 （高度）Width 3945（宽度）5，在屏幕上的位置可以在窗口布局区手工拖放来调整，此处按以下数据设置Left 7860（窗体左边框离屏幕左边的距离）Top 6150（窗体上边框离屏幕上边的距离）●标签（LABEL控件，可以显示文字等信息）本例有两个LABEL控件第一个LABEL控件用来显示日期1，名称lblDate（代码设计中用于区别于其他控件）2，Alignment 2-Center(文字居中显示)3，AutoSize True(根据所显示的内容需要，自动调整本身大小尺寸) 4，BorderStyle 0-None(无边框)5，Caption 空白无字6，Font 宋体、小三号（标签上所显示文字的字体和字号）7，标签的大小可以手工拖放标签边框来调整，此处按以下数据设置Height 300（高度）Width 165（宽度）8，在窗体上的位置可以在窗体上手工拖放来调整，此处按以下数据设置Left 1845（控件左边框离窗体左边框的距离）Top 240 （控件上边框离窗体上边框的距离）第二个LABEL控件用来显示时间1，名称lblTime（代码设计中用于区别于其他控件）2，Alignment 2-Center(文字居中显示)3，AutoSize True(根据所显示的内容需要，自动调整本身大小尺寸) 4，BorderStyle 1-Fixed Single(有边框)5，Caption 空白无字6，Font 宋体、初号（标签上所显示文字的字体和字号）7，标签的大小可以手工拖放标签边框来调整，此处按以下数据设置Height 900（高度）Width 495（宽度）8，在窗体上的位置可以在窗体上手工拖放来调整，此处按以下数据设置Left 1680（控件左边框离窗体左边框的距离）Top 720 （控件上边框离窗体上边框的距离）●计时器（Timer）控件1，名称Timer1（代码设计中用于区别于其他控件）2，Interval 1000(1000毫秒，即1秒，两次调用本控件的间隔时间)) 3，在窗体上的位置可以在窗体上手工拖放来调整，此处按以下数据设置Left 3360（控件左边框离窗体左边框的距离）Top 1200（控件上边框离窗体上边框的距离）以上工作完成后，可得以下画面：图2 设计状态下的窗体、控件画面上海市南洋模范中学陆慈晖VB 教案选——数字钟 3 四，代码的设计（红色文字是注释，可不输入） 1,先完成以下代码，然后运行，注意观察显示时间之前有何异常，分析其原因。
vb延时函数
vb延时函数
在vb 中，可以使用Thread.Sleep 函数来实现延时。
该函数会使当前线程暂停指定的时间长度。
以下介绍的是vb延时函数：
以下是示例代码：
vb
Imports System.Threading
' 延时函数
Sub Delay(milliseconds As Integer)
Thread.Sleep(milliseconds)
End Sub
' 使用延时函数
Sub Main()
Console.WriteLine("开始延时")
Delay(3000) ' 延时3 秒
Console.WriteLine("延时结束")
End Sub
在上述代码中，Thread.Sleep 函数用于使程序暂停执行一段时间（以毫秒为单位）。
通过调用Delay 子例程并传入希望延时的毫秒数，可以在程序中实现相应的延时效果。
总结：以上介绍的是vb延时函数。
请注意，由于Thread.Sleep 会阻塞当前线程，因此在实际应用中，尤其是在UI 程序中，长时间的延时操作可能导致界面无响应，应慎重使用。
对于需要定时操作或异步处理的情况，建议使用定时器或异步任务来代替延时函数。
visual basic延时语句
visual basic延时语句Visual Basic是一种面向对象的编程语言，它提供了一种延时执行的方法。
延时语句是在运行时暂停程序的执行一段时间，然后继续执行下面的代码。
下面是一些常用的Visual Basic延时语句：1. 使用Sleep函数进行延时：Sleep函数是Windows API的一部分，可以使程序暂停执行指定的时间，单位是毫秒。
以下是使用Sleep函数进行延时的示例代码：```System.Threading.Thread.Sleep(1000)```2. 使用Timer控件进行延时：Timer控件是Visual Basic中的一个组件，它可以设置一个定时器，当定时器到达指定的时间间隔时触发一个事件。
以下是使用Timer 控件进行延时的示例代码：```vbPrivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickTimer1.Enabled = False' 执行需要延时的代码Timer1.Enabled = TrueEnd Sub```3. 使用DoEvents函数进行延时：DoEvents函数是Visual Basic的一个内置函数，它会让程序暂停执行并处理操作系统的消息队列。
以下是使用DoEvents函数进行延时的示例代码：```vbDim endTime As Date = Now.AddSeconds(1)Do While Now < endTimeDoEvents()Loop```4. 使用Timer控件和Sleep函数组合进行延时：可以结合使用Timer控件和Sleep函数来实现更精确的延时效果。
以下是使用Timer控件和Sleep函数组合进行延时的示例代码：```vbPrivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickTimer1.Enabled = False' 执行需要延时的代码System.Threading.Thread.Sleep(1000)Timer1.Enabled = True```5. 使用Application.DoEvents函数进行延时：Application.DoEvents函数是Visual Basic中的一个内置函数，它会让程序暂停执行并处理操作系统的消息队列。
VB在考核答辩会上的妙用
办法详 见后面 的代码 。这里有 一个计时 快结束 时 ，有 出现声
音 提示 的功 能 ．主要 调 用 ”ｗ ｉ ｎ ｍ ｍ． ｄ ｌ ｌ ”中 ”ｓ ｎ ｄ Ｐ ｌ ａ ｙ Ｓ ｏ ｕ ｎ ｄ Ａ ”
函数 来 实 现 这 个 功 能 ，把 这 个 函 数 及 所 使 用 的 常量 定 义 下 公
Ｌａ ｂ ｅ ｌ ２ ． Ｃａ ｐ ｔ ｉ ｏ ｎ＝”０ ９ ”
Ｅｎ ｄ Ｉ ｆ
以 下省 略 Ｌ ａ ｂ ｅ ｌ ２ ． Ｃ ａ ｐ ｔ ｉ ｏ ｎ＝８至 ０的处 理 方 式
Ｄａ ｔ ａｌ ＿ Ｒｅ ｃｏ ｒ ｄｓ ｅ ｔ ． Ｍ ｏｖ ｅ Ｆｉ ｒ ｓ ｔ Ｅｎｄ Ｉ ｆ Ｅｎｄ Ｓｕ ｂ
考核答辩 的操控按钮。２个 Ｔ ｉ ｍｅ ｒ 控件 ，分别命 名为 Ｔ ｉ ｍ ｅ ｒ ｌ 和
Ｔ ｉ ｍ ｅ ｒ ２ ．设 置 Ｔ ｉ ｍｅ ｒ ｌ的 Ｉ ｎ ｔ ｅ ｒ ｖ ａ ｌ 设置 为 ５ ｍ ｓ ．在 Ｔ ｉ ｍ ｅ ｒ ｌ ＿ Ｔ ｉ ｍ ｅ ｒ
Ｃ ｏ ｍｍａ ｎ ｄ ４ ． Ｃａ ｐ ｔ ｉ ｏ ｎ＝ ”思 考 两 分 钟 ”
Ｔｉ ｍｅ ｒ ２． Ｅｎａ ｂ ｌ ｅ ｄ ＝ Ｆａ ｌ ｓ ｅ
如图 ７ 所示 ，为考核答辩 的界面设计。
Ｃｏ ｍｍａ ｎ ｄ ４ ． Ｅｎ ａ ｂ ｌ ｅ ｄ＝ Ｆ ａ ｌ ｓ ｅ
Ｉ ｍａ ｇ ｅ１ ． Ｖｉ ｓ ｉ ｂｌ ｅ ＝ Ｆａ ｌ ｓ ｅ Ｌａ ｂｅ ｌ ２． Ｖｉ ｓ ｉ ｂｌ ｅ ＝ Ｆａ ｌ ｓ ｅ
（ １ ）Ｄ ａ ｔ ａ控件 ，用来绑定数据库 ｄ ｂ １ ． ｍ ｄ ｂ ，用来为显示题库 内
容的 Ｌ ａ ｂ ｅ ｌ 控件做 引用 。 （ ２ ）４个 Ｃ ｏ ｍｍ ａ ｎ ｄ Ｂ ｕ ｔ ｔ ｏ ｎ按 钮 ，为
如何用VBA脚本实现延时
在VB中实现延时(等待)的几种方法2007-02-28 10:02在程序流程中经常要延时一段时间后再继续往下执行,在VB中常用的有以下几种方法(因为Timer控件打乱了程序的流程所以一般不用它):1.使用Windows API函数Sleep新建一个工程,添加一个TextBox控件和一个CommandButton控件,再将以下代码复制到代码窗口'声明:Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)Private Sub Command1_Click()Text1 = sleep beginSleep 3000Text1 = sleep endEnd Sub按F5执行,按下Command1按钮,程序停止执行,3秒钟内不对用户的操作做出反应,并且Text1里的内容并没有发生改变.这是怎么回事呢?原来,Sleep函数功能是将调用它的进程挂起dwMilliseconds毫秒时间,在这段时间内,此进程不对用户操作做出反应,程序中虽然将Text1的Text属性改成Sleep begin,但还没等完成对屏幕的更新进程就被挂起了,对用户来说程序象是死机一样。
所以这种方法虽然简单,但并不适用.2.使用Timer()函数这是用的最多的一种方法,也是在VB联机手册中所推荐的。
添加一个CommandButton控件,再将以下代码添加到代码窗口中:Private Sub Command2_Click()Dim Savetime As SingleText1 = Timer beginSavetime = Timer '记下开始的时间While Timer < Savetime + 5 '循环等待DoEvents '转让控制权，以便让操作系统处理其它的事件。
WendText1 = Timer okEnd Sub这种方法虽然也很简单,但却有有一个致命缺陷,那就是Timer函数返回的是从午夜开始到现在经过的秒数。