精易论坛

标题: 写了一个定时提醒的~过几分钟提一次循环的~ [打印本页]

作者: zhangwen97    时间: 2023-4-7 16:09
标题: 写了一个定时提醒的~过几分钟提一次循环的~
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
开始逻辑型真=开始|假=结束

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

子程序名返回值类型公开备 注
时间到了提示  
气球提示框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扩展界面支持库一


定时提醒.e

951.96 KB, 下载次数: 55, 下载积分: 精币 -2 枚


作者: xjshuaishuai    时间: 2023-4-7 16:27
谢谢分享!学习一下!
作者: yongxuan    时间: 2023-4-7 16:42
鼓励鼓励、


作者: vhk    时间: 2023-4-7 16:46

谢谢分享!
作者: sd3970566    时间: 2023-4-7 16:46
厉害  这个功能只用到了三个支持库。  我写的话没有5个支持库 解决不了
作者: xiazai520    时间: 2023-4-7 17:10
谢谢分享!学习一下!
作者: twqweqwe    时间: 2023-4-7 17:28
厉害了厉害了厉害了厉害了厉害了厉害了厉害了
作者: twqweqwe    时间: 2023-4-7 17:29
还用了线程启动...............厉害了
作者: twqweqwe    时间: 2023-4-7 17:29
还用了线程启动...............厉害了
作者: twqweqwe    时间: 2023-4-7 17:30

谢谢分享!学习一下!
作者: cqcc    时间: 2023-4-7 17:39
有点意思
作者: 小小小Baby    时间: 2023-4-7 17:44
不错不错啊
作者: jiang910615    时间: 2023-4-7 17:50
学习学习
作者: weihua2018    时间: 2023-4-7 19:55
哈哈  可以可以,不明觉厉
作者: a3960382663    时间: 2023-4-7 20:30
学习学习
作者: 夏亿    时间: 2023-4-7 22:00
感谢分享
作者: 小脑虎648    时间: 2023-4-7 23:27
cqcc 发表于 2023-4-7 17:39
有点意思

确实
作者: 清风徐来2    时间: 2023-4-8 11:17
感谢分享
作者: 396384183    时间: 2023-4-8 13:14
感谢分享
作者: pipicool    时间: 2023-4-8 14:49
学习一下
作者: 794229345    时间: 2023-4-8 22:01
Thanks for sharing
作者: 尕夜    时间: 2023-4-9 00:24
学习 学习下
作者: vimjay    时间: 2023-11-24 13:56
看看是不是我要的哪个
作者: vimjay    时间: 2023-11-24 13:57
这个提示监控会卡么 线程还是什么模式

作者: wolfpack    时间: 2024-5-2 07:55
支持开源~!感谢分享
作者: emptyempty    时间: 2024-5-2 12:35

感谢分享
作者: wolfpack    时间: 2024-5-2 12:57

作者: wolfpack    时间: 2024-5-3 11:55
支持分享!!!!!!!!
作者: aa1554    时间: 2024-5-11 07:48
666666666666666
作者: aa1554    时间: 2024-5-11 07:49
333333333333333333333333
作者: 凉兮    时间: 2024-5-11 07:51
#在这里快速回复#333333333333333333333333
作者: 花小旭    时间: 2025-6-29 23:41
不错,支持不错,支持不错,支持不错,支持
作者: 花小旭    时间: 2025-7-14 13:54
支持支持支持支持支持




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4