首页 >> 读书频道 >> 电脑 >> 用VB5设计多功能计时器
 
· 用VB设计VCD播放器
· 用VB播放FLASH动画
· VB6.0动态加载Act
· 跟我学用ActiveBa
· 用VB实现拖放功能
· 如何让OLE Contr
· 加强型的 MSFlexG
· ToolBar上加Com
· 使两个ListBox项目
· 如何动态设定TextBo
· 使TextBox按Mou
· AutoRedraw与I
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

用VB5设计多功能计时器


查看有无更新版本

关键字:VB 2006-9-18

 

---- 利用VB5的Timer控件,可以很容易地设计出一个简单计时器,如果再结合一些其它函数或方法,就会设计出功能强大的多媒体计时器,本例以一个焖大米计时程序来说明设计过程和方法。

---- 本人经常用压力锅焖大米,将锅放到煤气灶上后,又回到电脑前工作,过一会儿就把焖大米的事忘了,因此,等闻到大米糊味后,才去关火的事曾发生过无数次,尽管每次都表示要吸取教训,但仍然无法痛改前非,于是想到了设计了一个多媒体计时程序,该程序的主要功能为计时,兼有视觉和听觉提示。程序运行时,窗口有文字提示和开始时间、当前时间以及进程显示,当到点时,会奏一段音乐;另外,为了竭尽提醒之能事,在程序处于运行状态时,窗口标题栏和Windows任务栏的相应图标不停地闪烁。

---- 奏乐和闪烁功能是通过调用Windows API 函数mciExecute和FlashWindow来实现的。为了实现窗口标题栏和任务栏图标的闪烁,需另外添加一个窗体Form2,并设置Form2为启动窗体,程序启动并实现闪烁后,使Form2关闭,为了不影响其它工作,Form1窗口运行状态缺省设置为最小,即只在任务栏闪烁,到时(10分钟)会奏乐。

---- Form1的界面如图1(略)所示,共有六个Label控件,名称分别为lblInfo、Label1、Label2、Labe3、Label4、Label5;其Autosize 属性均设置为True; 两个Command控件,名称分别为cmdStart和cmdExit; 两个timer控件,Tmrflash的Interval属性为200,tmrCount的Interval属性为1000;一个进程条控件,名称为prb。

---- Form1的代码如下:

Option Explicit
Private StartTime As Single
Private Declare Function FlashWindow Lib "user32"
(ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll"
(ByVal lpstrCommand As String) As Long
Private Sub cmdExit_Click()
Dim y
y = mciExecute("close c:\windows\media\canyon.mid")
End
End Sub

Private Sub cmdStart_Click()
prb.Value = 0
StartTime = 0
tmrCount.Enabled = True
Label3.Caption = Time
End Sub

Private Sub Form_Load()
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
Label3.Caption = Time
End Sub

Private Sub Tmrflash_Timer()
Dim Rt As Long
Rt = FlashWindow(hwnd, CLng(True))
End Sub

Private Sub tmrCount_Timer()
Form2.Hide
Dim Percent
If StartTime = 0! Then
StartTime = Timer
End If
Label5.Caption = Time
Dim TimeNeed As Integer
TimeNeed = 600
Percent = 100 * (Timer - StartTime) / TimeNeed
If Percent < 100 Then
Dim TimePassed
prb.Value = Percent
TimePassed = Int(Percent * TimeNeed / 6000)
Label1.Caption = "已焖 " & TimePassed & " 分"
lblInfo.Caption = "正在焖着..请不要外出"
Else
prb.Value = 100
lblInfo.Caption = "大米已焖熟,立即关火!"
lblInfo.FontBold = True
lblInfo.ForeColor = vbRed
Label1.Caption = " 已焖 " & CInt(Percent
* TimeNeed / 6000) & " 分"
Dim x
x = mciExecute("play c:\windows\media\canyon.mid")
tmrCount.Enabled = False
End If
End Sub

---- Form2窗口不放置任何控件,将WindowsState属性设置为最小,其代码如下:

Option Explicit
Private Sub Form_Load()
Form1.Show
End Sub

用VB5设计多功能计时器

[ 1 ]
用VB5设计多功能计时器 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑