写了一个定时提醒的~过几分钟提一次循环的~

zhangwen97

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
开始	逻辑型		真=开始|假=结束

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
时间到了提示

气球提示框1.弹出提示框 (取屏幕宽度 () － 100, 取屏幕高度 () － 20, “时间到了请下滑” ＋ #换行符 ＋ 到文本 (取现行时间 ()), -1, 假)

子程序名	返回值类型	公开	备 注
朗读

文本_到语音 (编辑框_提示文本.内容)

子程序名	返回值类型	公开	备 注
_按钮_开始_被单击

开始 ＝ 真
线程_启动 (&监控_时间任务)

子程序名	返回值类型	公开	备 注
执行任务_1

启动线程 (&时间到了提示, , )
启动线程 (&朗读, , )

子程序名	返回值类型	公开	备 注
监控_时间任务

变量名	类 型	静态	数组	备 注
局部_时间	整数型
i	整数型
int	整数型			提醒次数

局部_时间 ＝ 到数值 (编辑框_间隔时间.内容) × 60
如果真 (局部_时间 ＝ 0)
信息框 (“提示时间不可为0”, 16, “提示”, _启动窗口)
返回 ()

判断循环首 (开始 ＝ 真)
标题 ＝ 到文本 (局部_时间 － i)
程序_延时 (1000)
i ＝ i ＋ 1
如果真 (局部_时间 ＝ i)
int ＝ int ＋ 1
启动线程 (&执行任务_1, , )
透明标签1.标题 ＝ “已提醒[” ＋ 到文本 (int) ＋ “]次”
i ＝ 0

判断循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_开始1_被单击

开始 ＝ 假

i支持库列表	支持库注释
iext5	扩展界面支持库五
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext5<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 开始, 逻辑型, , , 真=开始|假=结束<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 时间到了提示<br /> <br /> 气球提示框1.弹出提示框 (取屏幕宽度 () － 100, 取屏幕高度 () － 20, “时间到了请下滑” ＋ #换行符 ＋ 到文本 (取现行时间 ()), -1, 假)<br /> <br /> .子程序 朗读<br /> <br /> 文本_到语音 (编辑框_提示文本.内容)<br /> <br /> <br /> .子程序 _按钮_开始_被单击<br /> <br /> 开始 ＝ 真<br /> 线程_启动 (&监控_时间任务)<br /> <br /> .子程序 执行任务_1<br /> <br /> 启动线程 (&时间到了提示, , )<br /> 启动线程 (&朗读, , )<br /> <br /> .子程序 监控_时间任务<br /> .局部变量 局部_时间, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 int, 整数型, , , 提醒次数<br /> <br /> <br /> 局部_时间 ＝ 到数值 (编辑框_间隔时间.内容) × 60<br /> .如果真 (局部_时间 ＝ 0)<br />     信息框 (“提示时间不可为0”, 16, “提示”, _启动窗口)<br />     返回 ()<br /> .如果真结束<br /> <br /> .判断循环首 (开始 ＝ 真)<br />     标题 ＝ 到文本 (局部_时间 － i)<br />     程序_延时 (1000)<br />     i ＝ i ＋ 1<br />     .如果真 (局部_时间 ＝ i)<br />         int ＝ int ＋ 1<br />         启动线程 (&执行任务_1, , )<br />         透明标签1.标题 ＝ “已提醒[” ＋ 到文本 (int) ＋ “]次”<br />         i ＝ 0<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 _按钮_开始1_被单击<br /> <br /> 开始 ＝ 假

凉兮

#在这里快速回复#333333333333333333333333

aa1554

333333333333333333333333

aa1554

666666666666666

wolfpack

支持分享！！！！！！！！

wolfpack

emptyempty

感谢分享

wolfpack

支持开源~！感谢分享

vimjay

这个提示监控会卡么 线程还是什么模式

vimjay

看看是不是我要的哪个

尕夜

学习 学习下