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