|
|
| 欢迎来到月影社区！如果您觉得这里不错,请推荐给您的朋友们。月影社区：http://wf66.com/ |
用VB5设计多功能计时器
|
|
|
| ---- 利用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 |
【打印本页
关闭】 |
|
