一个倒计时问题/附上例子

吾爱精益

一个倒计时问题/附上例子问题已经标清楚了弄好了把附件传上来 倒计时.zip (1.24 KB, 下载次数: 14)

2016-6-6 14:31 上传

点击文件名下载附件

大兔崽子

670847663 发表于 2016-6-6 15:31
对就是这样，不过第一次输入1倒计时一分钟正常循环到第二次变成一小时了奇怪，还有就是时间到了就单击一 ...

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 时间

.子程序 _按钮1_被单击
.局部变量 文本, 整数型, , "3"

.如果 (按钮1.标题 ＝ “开始计时”)
    按钮1.标题 ＝ “停止计时”
    时间 ＝ 到数值 (编辑框1.内容) × 60
    文本 [1] ＝ 取整 (时间 ÷ 3600)
    文本 [2] ＝ 取整 ((时间 － 文本 [1] × 3600) ÷ 60)
    文本 [3] ＝ 时间 － 文本 [1] × 3600 － 文本 [2] × 60
    标签1.标题 ＝ “倒计时：” ＋ 到文本 (文本 [1]) ＋ “时” ＋ 到文本 (文本 [2]) ＋ “分” ＋ 到文本 (文本 [3]) ＋ “秒”
    时钟1.时钟周期 ＝ 1000
.否则
    按钮1.标题 ＝ “开始计时”
    时钟1.时钟周期 ＝ 0
.如果结束


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

.如果 (按钮2.标题 ＝ “没被单击”)
    按钮1.标题 ＝ “我被单击拉”
.否则
    .如果 (按钮2.标题 ＝ “我被单击拉”)
        按钮1.标题 ＝ “没被单击”
    .否则

    .如果结束

.如果结束


.子程序 _时钟1_周期事件
.局部变量 文本, 整数型, , "3"

时间 ＝ 时间 － 1
.如果真 (时间 ＝ 0)
    时钟1.时钟周期 ＝ 0
    _按钮2_被单击 ()
.如果真结束
文本 [1] ＝ 取整 (时间 ÷ 3600)
文本 [2] ＝ 取整 ((时间 － 文本 [1] × 3600) ÷ 60)
文本 [3] ＝ 时间 － 文本 [1] × 3600 － 文本 [2] × 60
标签1.标题 ＝ “倒计时：” ＋ 到文本 (文本 [1]) ＋ “时” ＋ 到文本 (文本 [2]) ＋ “分” ＋ 到文本 (文本 [3]) ＋ “秒”

GrayGuardian

看不懂你在写什么

大兔崽子

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
时间

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

变量名	类 型	静态	数组	备 注
文本	整数型		3

如果 (按钮1.标题 ＝ “开始计时”)
按钮1.标题 ＝ “停止计时”
时间 ＝ 到数值 (编辑框1.内容) × 60
文本 [1] ＝ 取整 (时间 ÷ 3600)
文本 [2] ＝ 取整 ( (时间 － 文本 [1] × 3600) ÷ 60)
文本 [3] ＝ 时间 － 文本 [1] × 3600 － 文本 [2] × 60
标签1.标题 ＝ “倒计时：” ＋ 到文本 (文本 [1]) ＋ “时” ＋ 到文本 (文本 [2]) ＋ “分” ＋ 到文本 (文本 [3]) ＋ “秒”
时钟1.时钟周期 ＝ 1000
按钮1.标题 ＝ “开始计时”
时钟1.时钟周期 ＝ 0

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

如果 (按钮2.标题 ＝ “没被单击”)
按钮1.标题 ＝ “我被单击拉”
如果 (按钮2.标题 ＝ “我被单击拉”)
按钮1.标题 ＝ “没被单击”

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

变量名	类 型	静态	数组	备 注
文本	整数型		3

时间 ＝ 时间 － 1
文本 [1] ＝ 取整 (时间 ÷ 3600)
文本 [2] ＝ 取整 ( (时间 － 文本 [1] × 3600) ÷ 60)
文本 [3] ＝ 时间 － 文本 [1] × 3600 － 文本 [2] × 60
标签1.标题 ＝ “倒计时：” ＋ 到文本 (文本 [1]) ＋ “时” ＋ 到文本 (文本 [2]) ＋ “分” ＋ 到文本 (文本 [3]) ＋ “秒”

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 时间<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 整数型, , "3"<br /> <br /> .如果 (按钮1.标题 ＝ “开始计时”)<br />     按钮1.标题 ＝ “停止计时”<br />     时间 ＝ 到数值 (编辑框1.内容) × 60<br />     文本 [1] ＝ 取整 (时间 ÷ 3600)<br />     文本 [2] ＝ 取整 ((时间 － 文本 [1] × 3600) ÷ 60)<br />     文本 [3] ＝ 时间 － 文本 [1] × 3600 － 文本 [2] × 60<br />     标签1.标题 ＝ “倒计时：” ＋ 到文本 (文本 [1]) ＋ “时” ＋ 到文本 (文本 [2]) ＋ “分” ＋ 到文本 (文本 [3]) ＋ “秒”<br />     时钟1.时钟周期 ＝ 1000<br /> .否则<br />     按钮1.标题 ＝ “开始计时”<br />     时钟1.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果 (按钮2.标题 ＝ “没被单击”)<br />     按钮1.标题 ＝ “我被单击拉”<br /> .否则<br />     .如果 (按钮2.标题 ＝ “我被单击拉”)<br />         按钮1.标题 ＝ “没被单击”<br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 文本, 整数型, , "3"<br /> <br /> 时间 ＝ 时间 － 1<br /> 文本 [1] ＝ 取整 (时间 ÷ 3600)<br /> 文本 [2] ＝ 取整 ((时间 － 文本 [1] × 3600) ÷ 60)<br /> 文本 [3] ＝ 时间 － 文本 [1] × 3600 － 文本 [2] × 60<br /> 标签1.标题 ＝ “倒计时：” ＋ 到文本 (文本 [1]) ＋ “时” ＋ 到文本 (文本 [2]) ＋ “分” ＋ 到文本 (文本 [3]) ＋ “秒”

楼主自己复制吧 界面不用改的   


补充内容 (2016-6-6 14:54):
喔~还得给界面上面加一个时钟组件    自己加上

冯古屋

附件仅供参考

吾爱精益

大兔崽子 发表于 2016-6-6 14:53
[e=0].版本 2

.程序集 窗口程序集_启动窗口

对就是这样，不过第一次输入1倒计时一分钟正常循环到第二次变成一小时了奇怪，还有就是时间到了就单击一下按钮2其他的就是这样没错

zhutao133

吾爱精益

大兔崽子 发表于 2016-6-6 15:44
.版本 2

.程序集 窗口程序集_启动窗口

执行一次不会不会循环了！




.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 时间

.子程序 _按钮1_被单击
.局部变量 文本, 整数型, , "3"

.如果 (按钮1.标题 ＝ “开始计时”)
    按钮1.标题 ＝ “停止计时”
    时间 ＝ 到数值 (编辑框1.内容) × 60
    文本 [1] ＝ 取整 (时间 ÷ 3600)
    文本 [2] ＝ 取整 ((时间 － 文本 [1] × 3600) ÷ 60)
    文本 [3] ＝ 时间 － 文本 [1] × 3600 － 文本 [2] × 60
    标签1.标题 ＝ “倒计时：” ＋ 到文本 (文本 [1]) ＋ “时” ＋ 到文本 (文本 [2]) ＋ “分” ＋ 到文本 (文本 [3]) ＋ “秒”
    时钟1.时钟周期 ＝ 1000
.否则
    按钮1.标题 ＝ “开始计时”
    时钟1.时钟周期 ＝ 0
.如果结束


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

.如果 (按钮2.标题 ＝ “没被单击”)
    按钮2.标题 ＝ “我被单击拉”
.否则
    .如果 (按钮2.标题 ＝ “我被单击拉”)
        按钮2.标题 ＝ “没被单击”
    .否则

    .如果结束

.如果结束


.子程序 _时钟1_周期事件
.局部变量 文本, 整数型, , "3"

时间 ＝ 时间 － 1
.如果真 (时间 ＝ 0)
    时钟1.时钟周期 ＝ 0
    _按钮2_被单击 ()
.如果真结束
文本 [1] ＝ 取整 (时间 ÷ 3600)
文本 [2] ＝ 取整 ((时间 － 文本 [1] × 3600) ÷ 60)
文本 [3] ＝ 时间 － 文本 [1] × 3600 － 文本 [2] × 60
标签1.标题 ＝ “倒计时：” ＋ 到文本 (文本 [1]) ＋ “时” ＋ 到文本 (文本 [2]) ＋ “分” ＋ 到文本 (文本 [3]) ＋ “秒”