VB做电子报时钟(11)

模拟电子钟 带语音报时功能

miao = 60 – miao

fen = Minute (time) fen = 60 - fen shi = Hour (time)

If shi > = 12 Then ‘因为一天之内时针要走二十四个钟头,也就是要走两圈,所以将下午和

晚上的时间减去十二,就可以确定时针准确的位置 shi = shi - 12 End If

shi = 12 - shi

miao = xianshimiao ( miao ) fen = xianshifen ( fen ) shi = xianshishi ( shi )

End Sub

‘ = = = = = = = = = = = = = = = =

‘此事件,在窗体最初载入时触发,主要作用是画出表盘和刻度 ‘ = = = = = = = = = = = = = = = = Private Sub Form _ Load ( )

Form1.Width = Form1.Height-250 Huayuan ‘画刻度

Form1.Circle(Form1.ScaleHeight/2,Form1.ScaleHeight/2),Form1.ScaleHeight/2-30 End Sub

运行效果如下图所示:

二、实现语音报时

下面我们再继续个它添加语音报时的功能.其实很简单,主要思路就是获取当前时间,如果是整点(即,分针,时针都为零)时,我们可以运用MCI ( Media Control Interface , 媒体控制接口)来播放,你已经录好的报时的声音文件.下面我们具体来看一看怎样实现这一功能.

(1) 使用MCI控件

MCI是Windows提供的一个可以处理音频和视频的API(应用程序编程接口),通过它,我们可以很方便的实现对音频设备,和视频设备及其其他设备的控制.这一接口极大的方便了使用者,使我们可以只使用设备接口,而不用对实际的物理设备进行直接的操作.

为了使用MCI控件我们首先要点取Project ( 工程 ) / Components (组件)菜单,或在工具箱中点击右键,然后在弹除的菜单中选择部件,这时屏幕上会弹出如图所示的对话框.

在其中选中”microsoft Multimedia Control”,在单击确定按钮,就可以把MMControl控件添加到工具箱中了.当把MMControl控件添加到窗体中时,她的形状如下所示: