支持库 internet
置现行时间 (取网络时间 ())
子程序 取网络时间, 日期时间型, 公开
局部变量 局_返回数据, 文本型
局部变量 局_起始位置, 整数型
局部变量 局_结束位置, 整数型
局部变量 局_取出字符, 文本型
局部变量 局_字符长度, 整数型
局_返回数据 = 到文本 (>滚动显示的意思就是说,把
时间的秒数也一秒一秒的改变么?是这样的话,加个时钟组件就好了!
代码不变!
拖个时钟组件过来,把时钟周期设置为1000(代表现实一秒),然后双击
时钟组件,进入代码编辑状态,把你代码复制进去,ok,测试成功!
谢谢采纳!版本 2
程序集 窗口程序集1
子程序 __启动窗口_创建完毕
时钟1时钟周期 = 1000
子程序 _时钟1_周期事件
标签1标题 = 到文本 (取现行时间 ())
这是含年份月份日期小时分钟秒的时间,
把“取现行时间 ()”可以改为“取年份()”、“取月份()”、“取日”、“取小时()”、“取分钟”、"取秒",按自己的意愿而定。
把“取现行时间 ()”改为“取日期 (取现行时间 ())”就只显示完整的日期;
把“标签1标题 = 到文本 (取现行时间 ())”改为“ 标签1标题 = 到文本 (取小时 (取现行时间 ())) + “时” + 到文本 (取分钟 (取现行时间 ())) + “分” + 到文本 (取秒 (取现行时间 ())) + “秒” ”就只显示完整的时间。按照你的想法写的。
用到的命令是 系统核心支持库->时间 *** 作 取时间部分() 取现行时间()
思路就是不停的对比时间 如果在设置的时间区间 就去执行另外的子程序
版本 2
支持库 spec
子程序 子程序1
局部变量 局_小时, 整数型
局部变量 局_分钟, 整数型
计次循环首 (99999999, )
调试输出 (“循环中”)
局_小时 = 取时间部分 (取现行时间 (), #小时)
局_分钟 = 取时间部分 (取现行时间 (), #分钟)
如果真 (局_小时 = 20)
如果真 (局_分钟 ≥ 20 且 局_分钟 ≤ 30)
调试输出 (“执行子程序2”)
子程序2 ()
如果真结束
如果真结束
' 20:20-20:30 执行子程序2
计次循环尾 ()
子程序 子程序2
局部变量 局_小时, 整数型
局部变量 局_分钟, 整数型
计次循环首 (99999999, )
调试输出 (“循环中”)
局_小时 = 取时间部分 (取现行时间 (), #小时)
局_分钟 = 取时间部分 (取现行时间 (), #分钟)
如果真 (局_小时 = 20)
如果真 (局_分钟 ≥ 30 且 局_分钟 ≤ 31)
调试输出 (“执行子程序1”)
子程序1 ()
如果真结束
如果真结束
' 20:30-20:31 执行子程序1
计次循环尾 ()
又看到你问问题了,呵呵
画个状态条1,再画个时钟1,把时钟周期设为1000毫秒(1秒)以内,以下代码
版本 2
支持库 iext
子程序 _时钟1_周期事件
状态条1置文本 (0, “系统时间:” + 到文本 (取现行时间 ()))
你仔细检查一下我测试能通过的
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)