7个回答
2013-04-16
展开全部
1个标签,1个编辑框,2个按钮,1个时钟,1个选择列表框 .程序集 窗口程序集1
.程序集变量 倒计时.子程序 __启动窗口_创建完毕选择列表框1.加入项目 (“小时”, )
选择列表框1.加入项目 (“分钟”, )
选择列表框1.加入项目 (“秒”, )
选择列表框1.单选 = 真.子程序 _按钮1_被单击时钟1.时钟周期 = 0.子程序 _按钮2_被单击.判断开始 (选择列表框1.现行选中项 = 0)
标签1.标题 = 时间_格式化 (时间_到秒 (到数值 (编辑框1.内容), 2))
倒计时 = 时间_到秒 (到数值 (编辑框1.内容), 2)
.判断 (选择列表框1.现行选中项 = 1)
标签1.标题 = 时间_格式化 (时间_到秒 (到数值 (编辑框1.内容), 1))
倒计时 = 时间_到秒 (到数值 (编辑框1.内容), 1)
.判断 (选择列表框1.现行选中项 = 2)
标签1.标题 = 时间_格式化 (到数值 (编辑框1.内容))
倒计时 = 到数值 (编辑框1.内容)
.默认.判断结束时钟1.时钟周期 = 1000.子程序 _时钟1_周期事件倒计时 = 倒计时 - 1
标签1.标题 = 时间_格式化 (倒计时).子程序 时间_格式化, 文本型
.参数 秒, 整数型
.局部变量 分, 整数型
.局部变量 时, 整数型
.局部变量 天, 整数型
.局部变量 初始化格式, 文本型.判断循环首 (秒 > 59)
分 = 分 + 1
秒 = 秒 - 60
.判断循环尾 ()
.判断循环首 (分 > 59)
时 = 时 + 1
分 = 分 - 60
.判断循环尾 ()
.判断循环首 (时 > 23)
天 = 天 + 1
时 = 时 - 24
.判断循环尾 ()
.如果 (天 = 0)
初始化格式 = 时间_格式化2 (时) + “小时” + 时间_格式化2 (分) + “分钟” + 时间_格式化2 (秒) + “秒”
.否则
初始化格式 = 到文本 (天) + “天 ” + 时间_格式化2 (时) + “小时” + 时间_格式化2 (分) + “分钟” + 时间_格式化2 (秒) + “秒”
.如果结束返回 (初始化格式).子程序 时间_格式化2, 文本型
.参数 时间, 整数型
.局部变量 格式化, 文本型.判断开始 (时间 < 10)
格式化 = “0” + 到文本 (时间)
.判断 (时间 = 0)
格式化 = “00”
.默认
格式化 = 到文本 (时间)
.判断结束
返回 (格式化).子程序 时间_到秒, 整数型
.参数 时间, 整数型
.参数 时间类型, 整数型, , 1:分 2:时 3:天
.局部变量 秒, 整数型.判断开始 (时间类型 = 1)
秒 = 时间 × 60
.判断 (时间类型 = 2)
秒 = 时间 × 3600
.判断 (时间类型 = 3)
秒 = 时间 × 24 × 3600
.默认.判断结束返回 (秒)
.程序集变量 倒计时.子程序 __启动窗口_创建完毕选择列表框1.加入项目 (“小时”, )
选择列表框1.加入项目 (“分钟”, )
选择列表框1.加入项目 (“秒”, )
选择列表框1.单选 = 真.子程序 _按钮1_被单击时钟1.时钟周期 = 0.子程序 _按钮2_被单击.判断开始 (选择列表框1.现行选中项 = 0)
标签1.标题 = 时间_格式化 (时间_到秒 (到数值 (编辑框1.内容), 2))
倒计时 = 时间_到秒 (到数值 (编辑框1.内容), 2)
.判断 (选择列表框1.现行选中项 = 1)
标签1.标题 = 时间_格式化 (时间_到秒 (到数值 (编辑框1.内容), 1))
倒计时 = 时间_到秒 (到数值 (编辑框1.内容), 1)
.判断 (选择列表框1.现行选中项 = 2)
标签1.标题 = 时间_格式化 (到数值 (编辑框1.内容))
倒计时 = 到数值 (编辑框1.内容)
.默认.判断结束时钟1.时钟周期 = 1000.子程序 _时钟1_周期事件倒计时 = 倒计时 - 1
标签1.标题 = 时间_格式化 (倒计时).子程序 时间_格式化, 文本型
.参数 秒, 整数型
.局部变量 分, 整数型
.局部变量 时, 整数型
.局部变量 天, 整数型
.局部变量 初始化格式, 文本型.判断循环首 (秒 > 59)
分 = 分 + 1
秒 = 秒 - 60
.判断循环尾 ()
.判断循环首 (分 > 59)
时 = 时 + 1
分 = 分 - 60
.判断循环尾 ()
.判断循环首 (时 > 23)
天 = 天 + 1
时 = 时 - 24
.判断循环尾 ()
.如果 (天 = 0)
初始化格式 = 时间_格式化2 (时) + “小时” + 时间_格式化2 (分) + “分钟” + 时间_格式化2 (秒) + “秒”
.否则
初始化格式 = 到文本 (天) + “天 ” + 时间_格式化2 (时) + “小时” + 时间_格式化2 (分) + “分钟” + 时间_格式化2 (秒) + “秒”
.如果结束返回 (初始化格式).子程序 时间_格式化2, 文本型
.参数 时间, 整数型
.局部变量 格式化, 文本型.判断开始 (时间 < 10)
格式化 = “0” + 到文本 (时间)
.判断 (时间 = 0)
格式化 = “00”
.默认
格式化 = 到文本 (时间)
.判断结束
返回 (格式化).子程序 时间_到秒, 整数型
.参数 时间, 整数型
.参数 时间类型, 整数型, , 1:分 2:时 3:天
.局部变量 秒, 整数型.判断开始 (时间类型 = 1)
秒 = 时间 × 60
.判断 (时间类型 = 2)
秒 = 时间 × 3600
.判断 (时间类型 = 3)
秒 = 时间 × 24 × 3600
.默认.判断结束返回 (秒)
展开全部
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
子程序 启动窗口 创建完毕
标签1.标题=“60”
时钟1.时钟周期=1000
子程序 时钟1 周期事件
标签1.标题=到文本(到整数(标签1.标题)-1)
如果真(标签1.标题=“0”)
时钟1.时钟周期=0
标签1.标题=“60”
时钟1.时钟周期=1000
子程序 时钟1 周期事件
标签1.标题=到文本(到整数(标签1.标题)-1)
如果真(标签1.标题=“0”)
时钟1.时钟周期=0
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-04-16
展开全部
添加个时钟组件,或者用延迟命令,或者用一个数字运算配合计次循环命令
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
计次循环首(60,n)
标签1.标题=到文本(60-n)
程序_延时(1,1)
处理事件()
计次循环尾()
---------------------------------
就是这个意思,60次的循环每隔1秒循环一次,每次循环修改一次标签标题。
如果是在界面主窗口,可以考虑把它放到线程里去执行,以免影响其他事件。
标签1.标题=到文本(60-n)
程序_延时(1,1)
处理事件()
计次循环尾()
---------------------------------
就是这个意思,60次的循环每隔1秒循环一次,每次循环修改一次标签标题。
如果是在界面主窗口,可以考虑把它放到线程里去执行,以免影响其他事件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询