Question

易语言 下面代码是个播放歌曲的代码 怎么加个代码 只播放30秒就停止播放？

.版本 2
.支持库 iext
.支持库 eDB

.子程序 _试听_被选择
.局部变量 语句, 文本型
.局部变量 形成目录, 文本型
.局部变量 标题1, 文本型

.判断开始 (那个表 ＝ 1)
语句 ＝ “select * from MP3表 where id=” ＋ 到文本 (超级列表框1.取表项数值 (超级列表框1.现行选中项)) ＋ “”
全局记录集.打开 (语句, #SQL语句)
全局记录集.读文本 (“地址”, 形成目录)
标题1 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
.如果真 (文件是否存在 (形成目录 ＋ 标题1) ＝ 假)
返回 ()
.如果真结束
子程序_播放 (形成目录 ＋ 标题1)
.判断 (那个表 ＝ 8)
形成目录 ＝ 超级列表框8.取标题 (超级列表框8.现行选中项, 2)
标题1 ＝ 超级列表框8.取标题 (超级列表框8.现行选中项, 0)
.如果真 (文件是否存在 (形成目录 ＋ 标题1) ＝ 假)
返回 ()
.如果真结束
子程序_播放 (形成目录 ＋ 标题1)
.默认

.判断结束
全局记录集.关闭 ()

.子程序 子程序_播放
.参数 参数_地址, 文本型

播放器1.关闭 ()
播放器1.打开 (参数_地址)

Answer 1

在播放子程序里面加个延时即可

.子程序 子程序_播放
.参数 参数_地址, 文本型

播放器1.关闭 ()
播放器1.打开 (参数_地址)
延时(30000)
播放器1.关闭 ()

追问

你这个代码我试了不行，
插入一个时钟：这样 可以成功，谢谢你的代码 给了我灵感：

.版本 2

.子程序 _时钟1_周期事件

播放器1.停止 ()

.版本 2

.子程序 子程序_播放
.参数 参数_地址, 文本型

时钟1.时钟周期 ＝ 40000
播放器1.打开 (参数_地址)

Answer 2

加个计次循环 判断到30时 停止掉就行了