新人求教，教程里的第7课时钟作业

iyvyopgdid

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 程序集_时间, 日期时间型

.子程序 _按钮1_被单击

程序集_时间 ＝ 到时间 (编辑框1.内容)
时钟1.时钟周期 ＝ 1000


.子程序 _时钟1_周期事件
.局部变量 局部_时间, 日期时间型

局部_时间 ＝ 取现行时间 ()
.判断开始 (程序集_时间 ＝ 局部_时间)
    播放MP3 (1, “六哲 - 如果没有他你还爱我吗 - DJ花无心版.mp3”)

.默认

.判断结束
怎么让它工作30秒后结束MP3，新人不懂，虚心求教，望各位大神留下你们宝贵的一墨....

Meds

[e].版本 2

.子程序 _按钮1_被单击

程序集_时间 ＝ 到时间 (编辑框1.内容)
时钟1.时钟周期 ＝ 1000

.子程序 _时钟1_周期事件
.局部变量 局部_时间, 日期时间型
.局部变量 i, 整数型, 静态

局部_时间 ＝ 取现行时间 ()
i ＝ i ＋ 1
.如果真 (程序集_时间 ＝ 局部_时间)
    播放MP3 (1, “六哲 - 如果没有他你还爱我吗 - DJ花无心版.mp3”)
.如果真结束
.如果真 (i ＝ 30)
    停止播放 ()
.如果真结束


[/e]

阿灰啊

你看的谁的教程                     

刘一缘

简答的判断应该可以实现30秒后结束MP3的播放
这里用记次循环为例

循环30次 每次的代码头使用秒+1 结局加上延迟1000

最后循环完毕 子程序末尾代码则是结束MP3的代码 使用时钟也是这样的原理

iyvyopgdid

阿灰啊 发表于 2017-6-27 03:03
你看的谁的教程

论坛的呀                                                                     

Meds

[e]

.版本 2

.子程序 _按钮1_被单击

程序集_时间 ＝ 到时间 (编辑框1.内容)

时钟1.时钟周期 ＝ 1000

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

.局部变量 局部_时间, 日期时间型

.局部变量 i, 整数型, 静态

局部_时间 ＝ 取现行时间 ()

i ＝ i ＋ 1

.如果真 (程序集_时间 ＝ 局部_时间)

播放MP3 (1, “六哲 - 如果没有他你还爱我吗 - DJ花无心版.mp3”)

.如果真结束

.如果真 (i ＝ 30)

停止播放 ()

.如果真结束

[/e]