超级列表框内容的问题

ludosa

我想实现这样功能，列表框里的项目不确定个数，有时多有时少。
点开始全部剩余时间按秒在减少，选中后可随时暂停，开始。
每个都有独立的时间控制系统，计时为零时（如果序号后面带有“循3”时，则表示循环3次，否则发出声音后停止）（循3也不固定，可能“循5” ， 可能“循8”）

今天一天脑子翁翁的，啥也想不了，来求助了。

wangchen

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程数组	数组成员	99

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

变量名	类 型	静态	数组	备 注
s	整数型
i	整数型
sj	日期时间型
n	整数型

i ＝ i ＋ 1
线程数组 [i].记次 ＝ i
线程数组 [i].序号 ＝ 到文本 (i)
线程数组 [i].活动 ＝ 组合框1.取项目文本 (组合框1.现行选中项)
如果 (单选框1.选中)
线程数组 [i].时间类型 ＝ 7
sj ＝ 增减时间 (取现行时间 (), 7, 到整数 (组合框2.取项目文本 (组合框2.现行选中项)))
sj ＝ 增减时间 (取现行时间 (), 6, 到整数 (组合框2.取项目文本 (组合框2.现行选中项)))
线程数组 [i].时间类型 ＝ 6
线程数组 [i].时间差 ＝ 到整数 (组合框2.取项目文本 (组合框2.现行选中项))
线程数组 [i].时间 ＝ sj
线程数组 [i].循环 ＝ 编辑框1.内容
启动线程 (&加入列表, i, )

子程序名	返回值类型	公开	备 注
加入列表
参数名	类 型	参考	可空	数组	备 注
参数	整数型

变量名	类 型	静态	数组	备 注
s	整数型
a	整数型

a ＝ 参数
s ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (s, 0, 线程数组 [a].序号)
超级列表框1.置标题 (s, 1, 线程数组 [a].活动)
超级列表框1.置标题 (s, 2, 到文本 (线程数组 [a].时间))
超级列表框1.置标题 (s, 3, 线程数组 [a].循环)
超级列表框1.置标题 (s, 4, 到文本 (线程数组 [a].状态))

子程序名	返回值类型	公开	备 注
计时
参数名	类 型	参考	可空	数组	备 注
参数	整数型

变量名	类 型	静态	数组	备 注
a	整数型
sj	文本型
计次	整数型
ls	双精度小数型

a ＝ 参数
判断循环首 (a ＞ 0)
线程数组 [a].剩余时间 ＝ 时间_取时间间隔_ (线程数组 [a].时间, 取现行时间 ())
如果真 (线程数组 [a].剩余时间 ＝ “0”)
计次 ＝ 计次 ＋ 1
超级列表框1.置标题 (a － 1, 5, 到文本 (计次))
如果真 (计次 ＞ 到整数 (线程数组 [a].循环))
跳出循环 ()
线程数组 [a].时间 ＝ 增减时间 (取现行时间 (), 线程数组 [a].时间类型, 线程数组 [a].时间差)
超级列表框1.置标题 (a － 1, 2, 线程数组 [a].剩余时间)
程序_延时 (1000)
超级列表框1.置标题 (a － 1, 4, 到文本 (线程数组 [a].状态))
判断循环首 (线程数组 [a].状态 ＝ 1)
程序_延时 (100)
判断循环尾 ()
如果真 (线程数组 [a].状态 ＝ 2)
跳出循环 ()

判断循环尾 ()
线程数组 [a].状态 ＝ 0

子程序名	返回值类型	公开	备 注
_组合框2_将弹出列表

变量名	类 型	静态	数组	备 注
i	整数型

组合框2.清空 ()
计次循环首 (59, i)
组合框2.加入项目 (到文本 (i), )
处理事件 ()
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (线程数组), i)
如果真 (线程数组 [i].记次 ≠ 0)
启动线程 (&计时, i, )
程序_延时 (10)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_暂停_被单击

如果真 (超级列表框1.现行选中项 ≠ -1)
线程数组 [超级列表框1.现行选中项 ＋ 1].状态 ＝ 1

子程序名	返回值类型	公开	备 注
_恢复_被单击

如果真 (超级列表框1.现行选中项 ≠ -1)
线程数组 [超级列表框1.现行选中项 ＋ 1].状态 ＝ 0

子程序名	返回值类型	公开	备 注
_停止_被单击

如果真 (超级列表框1.现行选中项 ≠ -1)
线程数组 [超级列表框1.现行选中项 ＋ 1].状态 ＝ 2

子程序名	返回值类型	公开	备 注
时间_取时间间隔_	文本型		返回一个文本，表示“时间1”减去“时间2”之后间隔的天，时，分，秒。返回示例：3天13时56分27秒
参数名	类 型	参考	可空	数组	备 注
时间1	日期时间型
时间2	日期时间型

变量名	类 型	静态	数组	备 注
剩余秒数A	整数型
剩余秒数B	整数型
剩余天	整数型
剩余小时	整数型
剩余分钟	整数型
剩余秒	整数型
返回时间	文本型

' 源码出处：[url]https://bbs.125.la/thread-14315424-1-1.html[/url]
剩余秒数A ＝ 取时间间隔 (时间1, 时间2, 8)
如果真 (剩余秒数A ＜ 0)
剩余秒数A ＝ 剩余秒数A × -1
返回 (“0”)
剩余秒数B ＝ 剩余秒数A ％ 86400
剩余天 ＝ (剩余秒数A － 剩余秒数B) ÷ 86400
剩余秒数A ＝ 剩余秒数B
剩余秒数B ＝ 剩余秒数A ％ 3600
剩余小时 ＝ (剩余秒数A － 剩余秒数B) ÷ 3600
剩余秒数A ＝ 剩余秒数B
剩余秒数B ＝ 剩余秒数A ％ 60
剩余分钟 ＝ (剩余秒数A － 剩余秒数B) ÷ 60
剩余秒 ＝ 剩余秒数B
如果真 (剩余天 ≠ 0)
返回时间 ＝ 到文本 (剩余天) ＋ “天”
如果真 (剩余小时 ≠ 0)
返回时间 ＝ 返回时间 ＋ 到文本 (剩余小时) ＋ “时”
如果真 (剩余分钟 ≠ 0)
返回时间 ＝ 返回时间 ＋ 到文本 (剩余分钟) ＋ “分”
如果真 (剩余秒 ≠ 0)
返回时间 ＝ 返回时间 ＋ 到文本 (剩余秒) ＋ “秒”
返回 (返回时间)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (线程数组), i)
线程数组 [i].状态 ＝ 2
计次循环尾 ()

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

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程数组, 数组成员, , "99"<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 s, 整数型<br /> .局部变量 i, 整数型, 静态<br /> .局部变量 sj, 日期时间型<br /> .局部变量 n, 整数型<br /> <br /> i ＝ i ＋ 1<br /> 线程数组 <i>.记次 ＝ i<br /> 线程数组 <i>.序号 ＝ 到文本 (i)<br /> 线程数组 <i>.活动 ＝ 组合框1.取项目文本 (组合框1.现行选中项)<br /> .如果 (单选框1.选中)<br />     线程数组 <i>.时间类型 ＝ 7<br />     sj ＝ 增减时间 (取现行时间 (), 7, 到整数 (组合框2.取项目文本 (组合框2.现行选中项)))<br /> .否则<br />     sj ＝ 增减时间 (取现行时间 (), 6, 到整数 (组合框2.取项目文本 (组合框2.现行选中项)))<br />     线程数组 <i>.时间类型 ＝ 6<br /> .如果结束<br /> 线程数组 <i>.时间差 ＝ 到整数 (组合框2.取项目文本 (组合框2.现行选中项))<br /> 线程数组 <i>.时间 ＝ sj<br /> 线程数组 <i>.循环 ＝ 编辑框1.内容<br /> 启动线程 (&加入列表, i, )<br /> <br /> .子程序 加入列表<br /> .参数 参数, 整数型<br /> .局部变量 s, 整数型<br /> .局部变量 a, 整数型<br /> <br /> a ＝ 参数<br /> s ＝ 超级列表框1.插入表项 (, , , , , )<br /> 超级列表框1.置标题 (s, 0, 线程数组 [a].序号)<br /> 超级列表框1.置标题 (s, 1, 线程数组 [a].活动)<br /> 超级列表框1.置标题 (s, 2, 到文本 (线程数组 [a].时间))<br /> 超级列表框1.置标题 (s, 3, 线程数组 [a].循环)<br /> 超级列表框1.置标题 (s, 4, 到文本 (线程数组 [a].状态))<br /> <br /> .子程序 计时<br /> .参数 参数, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 sj, 文本型<br /> .局部变量 计次, 整数型<br /> .局部变量 ls, 双精度小数型<br /> <br /> a ＝ 参数<br /> .判断循环首 (a ＞ 0)<br />     线程数组 [a].剩余时间 ＝ 时间_取时间间隔_ (线程数组 [a].时间, 取现行时间 ())<br />     .如果真 (线程数组 [a].剩余时间 ＝ “0”)<br />         计次 ＝ 计次 ＋ 1<br />         超级列表框1.置标题 (a － 1, 5, 到文本 (计次))<br />         .如果真 (计次 ＞ 到整数 (线程数组 [a].循环))<br />             跳出循环 ()<br />         .如果真结束<br />         线程数组 [a].时间 ＝ 增减时间 (取现行时间 (), 线程数组 [a].时间类型, 线程数组 [a].时间差)<br />     .如果真结束<br />     超级列表框1.置标题 (a － 1, 2, 线程数组 [a].剩余时间)<br />     程序_延时 (1000)<br />     超级列表框1.置标题 (a － 1, 4, 到文本 (线程数组 [a].状态))<br />     .判断循环首 (线程数组 [a].状态 ＝ 1)<br />         程序_延时 (100)<br />     .判断循环尾 ()<br />     .如果真 (线程数组 [a].状态 ＝ 2)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 线程数组 [a].状态 ＝ 0<br /> <br /> <br /> .子程序 _组合框2_将弹出列表<br /> .局部变量 i, 整数型<br /> <br /> 组合框2.清空 ()<br /> .计次循环首 (59, i)<br />     组合框2.加入项目 (到文本 (i), )<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _开始_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (线程数组), i)<br />     .如果真 (线程数组 <i>.记次 ≠ 0)<br />         启动线程 (&计时, i, )<br />     .如果真结束<br />     程序_延时 (10)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _暂停_被单击<br /> <br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     线程数组 [超级列表框1.现行选中项 ＋ 1].状态 ＝ 1<br /> .如果真结束<br /> <br /> <br /> .子程序 _恢复_被单击<br /> <br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     线程数组 [超级列表框1.现行选中项 ＋ 1].状态 ＝ 0<br /> .如果真结束<br /> <br /> <br /> .子程序 _停止_被单击<br /> <br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     线程数组 [超级列表框1.现行选中项 ＋ 1].状态 ＝ 2<br /> .如果真结束<br /> <br /> <br /> .子程序 时间_取时间间隔_, 文本型, 公开, 返回一个文本，表示“时间1”减去“时间2”之后间隔的天，时，分，秒。返回示例：3天13时56分27秒<br /> .参数 时间1, 日期时间型<br /> .参数 时间2, 日期时间型<br /> .局部变量 剩余秒数A, 整数型<br /> .局部变量 剩余秒数B, 整数型<br /> .局部变量 剩余天, 整数型<br /> .局部变量 剩余小时, 整数型<br /> .局部变量 剩余分钟, 整数型<br /> .局部变量 剩余秒, 整数型<br /> .局部变量 返回时间, 文本型<br /> <br /> ' 源码出处：<a href="https://bbs.125.la/thread-14315424-1-1.html" rel="nofollow" target="_blank">https://bbs.125.la/thread-14315424-1-1.html</a><br /> 剩余秒数A ＝ 取时间间隔 (时间1, 时间2, 8)<br /> .如果真 (剩余秒数A ＜ 0)<br />     剩余秒数A ＝ 剩余秒数A × -1<br />     返回 (“0”)<br /> .如果真结束<br /> 剩余秒数B ＝ 剩余秒数A ％ 86400<br /> 剩余天 ＝ (剩余秒数A － 剩余秒数B) ÷ 86400<br /> 剩余秒数A ＝ 剩余秒数B<br /> 剩余秒数B ＝ 剩余秒数A ％ 3600<br /> 剩余小时 ＝ (剩余秒数A － 剩余秒数B) ÷ 3600<br /> 剩余秒数A ＝ 剩余秒数B<br /> 剩余秒数B ＝ 剩余秒数A ％ 60<br /> 剩余分钟 ＝ (剩余秒数A － 剩余秒数B) ÷ 60<br /> 剩余秒 ＝ 剩余秒数B<br /> .如果真 (剩余天 ≠ 0)<br />     返回时间 ＝ 到文本 (剩余天) ＋ “天”<br /> .如果真结束<br /> .如果真 (剩余小时 ≠ 0)<br />     返回时间 ＝ 返回时间 ＋ 到文本 (剩余小时) ＋ “时”<br /> .如果真结束<br /> .如果真 (剩余分钟 ≠ 0)<br />     返回时间 ＝ 返回时间 ＋ 到文本 (剩余分钟) ＋ “分”<br /> .如果真结束<br /> .如果真 (剩余秒 ≠ 0)<br />     返回时间 ＝ 返回时间 ＋ 到文本 (剩余秒) ＋ “秒”<br /> .如果真结束<br /> 返回 (返回时间)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (线程数组), i)<br />     线程数组 <i>.状态 ＝ 2<br /> .计次循环尾 ()

补充内容 (2025-9-5 03:21):
.版本 2

.数据类型 数组成员
    .成员 记次, 整数型
    .成员 序号, 文本型
    .成员 活动, 文本型
    .成员 时间, 日期时间型
    .成员 剩余时间, 文本型
    .成员 循环, 文本型
    .成员 状态, 整数型
    .成员 时间差, 整数型
    .成员 时间类型, 整数型

cherryy

上源码，给你改

65s

水水水水水水