MCI指令应用实用例程

MCI指令应用实用例程

@易语言代码编写例子

.版本 2
.支持库 iext

.子程序 _播放按钮_被单击
.局部变量 状态, 文本型, 静态

进度滑块条.禁止 ＝ 假
状态 ＝ 取空白文本 (255)
发送指令 (“status ” ＋ 设备 ＋ “ mode”, 状态, 255, 0)
.判断开始 (到小写 (状态) ＝ “stopped”)
    发送指令 (“open ” ＋ 设备, “”, 0, 0)
    发送指令 (“play ” ＋ 设备, “”, 0, 0)
    播放按钮.标题 ＝ “暂停”
    状态标签.标题 ＝ “当前状态：正在播放”
    时钟.时钟周期 ＝ 1000
.判断 (到小写 (状态) ＝ “playing”)
    发送指令 (“pause ” ＋ 设备, “”, 0, 0)
    播放按钮.标题 ＝ “播放”
    状态标签.标题 ＝ “当前状态：暂停播放”
    时钟.时钟周期 ＝ 0
.判断 (到小写 (状态) ＝ “paused”)
    发送指令 (“resume ” ＋ 设备, “”, 0, 0)
    播放按钮.标题 ＝ “暂停”
    状态标签.标题 ＝ “当前状态：正在播放”
    时钟.时钟周期 ＝ 1000