VB设计有语音报时和报警功能的闹钟(6)

2008-04-09 04:44:42来源：互联网 阅读 ()

　　3、mciExecute ()

　　vb声明: Public Declare Function mciExecute Lib " winmm.dll " Alias " mciExecute " ( ByVal lpstrCommand As String ) As Long

　　说明: mciExecute ( )函数用来传送一个命令字符串给MCI，以实现各种播放功能。

　　它的返回值为Long型值，如果返回值为0，表示调用失败，如果返回值不为0，表示调用成功。MciExecute ( )函数的参数只有一个lpstrCommand，为String型，表示MCI的命令字符串。

　　MCI的命令字符串共有7个，其名称、功能及其用法如下表：

名称 语法形式 说明 open Open CDAudio alias CD Open命令的功能是打开一个CDAudio设备，其中CDAudio为设备名；alias为赋予CDAudio设备的一个别名。

例如，要打开一个设备名称为CD的设备，我们可以这样写语句：mciExecute “open cdaudio alias cd” close Close 设备别名 Close命令的功能是关闭一个已经打开的CDAudio设备。

例如，要关闭一个设备名称为CD的设备，我们可以这样写语句：mciExecute “close cd” play Play 设备别名 from [position1] to [position2] Play命令的功能是播放一个已经打开的CDAudio设备上的CD音乐。参数from [position1] to [position2] 指定CDAudio播放的起始位置和结束位置，如果省略，就从开始点播放到终点。

例如，要从开始点播放CDAudio设备上的CD音乐，我们可以这样写语句：mciExecute “play cd” stop Stop 设备别名 Stop命令的功能是停止一个正在播放的CDAudio设备上的CD音乐。

例如，要停止播放CDAudio设备上的CD音乐，我们可以这样写语句：mciExecute “stop cd” seek Seek 设备别名 参数 Seek命令的功能是搜索CDAudio设备上的指定位置。其中的参数有三种：(1)to position ：移动到程序指定的位置(2)to start：移动到起始位置(3)to end：移动到结束的位置。

例如，要跳到CDAudio设备上的结束位置，设备别名为CD，我们可以这样写：mciExecute “ seek cd to end ” set Set 设备别名 参数 Set命令的功能是设置CDAudio设备的状态。其中的参数为：(1)Audio all on ：关闭声音输出；(2)Audio all on ：打开声音输出；(3)Audio left on ：打开左声道声音输出；(4)Audio left off ： 关闭左声道声音输出； (5)Audio right on ：打开右声道声音输出； (6)Audio right off ：关闭右声道声音输出； (7) Door open ： 退出CD光牒 (8) Door closed ： 合上光驱(8)Time format milliseconds ：设置时间格式为毫秒

例如，我们要实现单声道(左声道)输出声音的效果，可以这样写：mciExecute “ set cd audio left on ”
mciExecute “ set cd audio right off ” status Status 设备别名 参数 Status命令的功能是获取已经打开的CDAudio设备上的信息。此命令的参数说明如下： (1) Length ： CD 光碟的时间长度； (2) Mode ： CDAudio 设备的状态； (3) Position　：　当前的位置　；　(４) start position ： CD 光碟的起始位置 ； (5) Time format ： 当前的时间格式； (6) Numer of track ： CD光碟的轨道数