小白求助倒计时代码

wanghgxf

各位大神们，求助一下！
在三个编辑框里输入不同的分钟，点击各个不同开始按钮，上方透明标签开始用不同分钟时间倒计时！

青春已不再

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

进入倒计时 (到整数 (编辑框1.内容) × 60)

子程序名	返回值类型	公开	备 注
进入倒计时			每秒计时更新信息
参数名	类 型	参考	可空	数组	备 注
秒数	整数型				进入倒计时的总秒数

变量名	类 型	静态	数组	备 注
数值	整数型
小时	文本型
分钟	文本型
计秒	文本型
i	整数型

' 启动线程 (&时钟效果, , 线程1)
' 启动线程 (&时钟效果1, , 线程2)
计次循环首 (秒数, i)
' 数值 ＝ 秒数 － i
' 小时 ＝ 到文本 (取整 (数值 ÷ 3600))
' 分钟 ＝ 到文本 (取整 (数值 ÷ 60))
' 秒 ＝ 到文本 (数值 － 到整数 (分钟) × 60)
数值 ＝ 秒数 － i
小时 ＝ 到文本 (取整 (数值 ÷ 3600))
数值 ＝ 数值 － 到整数 (小时) × 3600
分钟 ＝ 到文本 (取整 (数值 ÷ 60))
计秒 ＝ 到文本 (数值 － 到整数 (分钟) × 60)
输出调试文本 (秒数, 小时, 分钟, 计秒)
如果真 (取文本长度 (小时) ＝ 1)
小时 ＝ “0” ＋ 小时
如果真 (取文本长度 (分钟) ＝ 1)
分钟 ＝ “0” ＋ 分钟
如果真 (取文本长度 (计秒) ＝ 1)
计秒 ＝ “0” ＋ 计秒

如果真 (小时 ＝ “00” 且 分钟 ＝ “00” 且 计秒 ＝ “30”)

透明标签1.标题 ＝ 小时 ＋ “:” ＋ 分钟 ＋ “:” ＋ 计秒
' 延时 (1000)
程序_延时 (1, 1)
计次循环尾 ()
透明标签1.标题 ＝ “00:00:00”

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

进入倒计时 (到整数 (编辑框2.内容) × 60)

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

进入倒计时 (到整数 (编辑框3.内容) × 60)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 进入倒计时 (到整数 (编辑框1.内容) × 60)<br /> <br /> .子程序 进入倒计时, , , 每秒计时更新信息<br /> .参数 秒数, 整数型, , 进入倒计时的总秒数<br /> .局部变量 数值, 整数型<br /> .局部变量 小时, 文本型<br /> .局部变量 分钟, 文本型<br /> .局部变量 计秒, 文本型<br /> .局部变量 i, 整数型<br /> <br /> ' 启动线程 (&时钟效果, , 线程1)<br /> ' 启动线程 (&时钟效果1, , 线程2)<br /> <br /> .计次循环首 (秒数, i)<br />     ' 数值 ＝ 秒数 － i<br />     ' 小时 ＝ 到文本 (取整 (数值 ÷ 3600))<br />     ' 分钟 ＝ 到文本 (取整 (数值 ÷ 60))<br />     ' 秒 ＝ 到文本 (数值 － 到整数 (分钟) × 60)<br />     数值 ＝ 秒数 － i<br />     小时 ＝ 到文本 (取整 (数值 ÷ 3600))<br />     数值 ＝ 数值 － 到整数 (小时) × 3600<br />     分钟 ＝ 到文本 (取整 (数值 ÷ 60))<br />     计秒 ＝ 到文本 (数值 － 到整数 (分钟) × 60)<br /> <br />     输出调试文本 (秒数, 小时, 分钟, 计秒)<br />     .如果真 (取文本长度 (小时) ＝ 1)<br />         小时 ＝ “0” ＋ 小时<br />     .如果真结束<br />     .如果真 (取文本长度 (分钟) ＝ 1)<br />         分钟 ＝ “0” ＋ 分钟<br />     .如果真结束<br />     .如果真 (取文本长度 (计秒) ＝ 1)<br />         计秒 ＝ “0” ＋ 计秒<br />     .如果真结束<br /> <br />     .如果真 (小时 ＝ “00” 且 分钟 ＝ “00” 且 计秒 ＝ “30”)<br />     .如果真结束<br /> <br />     透明标签1.标题 ＝ 小时 ＋ “:” ＋ 分钟 ＋ “:” ＋ 计秒<br />     ' 延时 (1000)<br />     程序_延时 (1, 1)<br /> <br /> .计次循环尾 ()<br /> 透明标签1.标题 ＝ “00:00:00”<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 进入倒计时 (到整数 (编辑框2.内容) × 60)<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 进入倒计时 (到整数 (编辑框3.内容) × 60)

help.e (922.58 KB, 下载次数: 12)

2025-2-27 14:18 上传

点击文件名下载附件
试试吧

孤静之美

你这不该是三个标签分别显示嘛？

ccerty

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
总秒数1	整数型

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

总秒数1 ＝ 到数值 (编辑框1.内容) × 60
时钟1.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

总秒数1 ＝ 总秒数1 － 1
透明标签1.标题 ＝ 时间_秒到时分秒格式 (总秒数1, “h:m:s”, 真)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 总秒数1, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 总秒数1 ＝ 到数值 (编辑框1.内容) × 60<br /> 时钟1.时钟周期 ＝ 1000<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 总秒数1 ＝ 总秒数1 － 1<br /> 透明标签1.标题 ＝ 时间_秒到时分秒格式 (总秒数1, “h:m:s”, 真)