易语言制作电脑自动校准时间软件
来源:网络收集 点击: 时间:2024-05-04打开易语言,建立启动窗口(注意不会使用的到网上找基础教程)
2/5加入两个标签,两个编辑框。,一个按钮,如下图排列并改名(注意不会使用的到网上找基础教程)

双击启动窗口打开窗口程序集(注意不会使用的到网上找基础教程)

输入源码
.版本 2
.支持库 xplib
.支持库 internet
XP风格 (1)
系统时间标签.标题 = 到文本 (取现行时间 ())
.子程序 _按钮自动更新_被单击
按钮自动更新.禁止 = 真
.变量循环首 (1, 3, 1, )
自动更新时间 ()
.变量循环尾 ()
自动更新时间 ()
按钮自动更新.禁止 = 假
.子程序 自动更新时间
.局部变量 网络文本, 文本型
.局部变量 时间数组, 文本型, , 0
.局部变量 临时数组, 文本型, , 0
.局部变量 现在日期, 文本型
.局部变量 日期时间, 文本型
.局部变量 小时, 文本型
.局部变量 分钟, 文本型
.局部变量 秒, 文本型
.局部变量 n, 整数型
.局部变量 误差, 整数型, , , 误差的秒数
系统时间标签.标题 = 到文本 (取现行时间 ())
n = 取启动时间 ()
网络文本 = 到文本 (HTTP读文件 (“http://www.time.ac.cn/stime.asp”))
.如果真 (网络文本 = “”)
自动更新时间 ()
.如果真结束
时间数组 = 分割文本 (网络文本, “document.write(”, )
.如果真 (取数组成员数 (时间数组) < 2)
信息框 (“取时间失败!”, 0, )
返回 ()
.如果真结束
临时数组 = 分割文本 (时间数组 , “)”, )
现在日期 = 临时数组
临时数组 = 分割文本 (时间数组 , “;”, )
小时 = 删全部空 (取文本右边 (临时数组 , 取文本长度 (临时数组 ) - 寻找文本 (临时数组 , “=”, , 假)))
分钟 = 删全部空 (取文本右边 (临时数组 , 取文本长度 (临时数组 ) - 寻找文本 (临时数组 , “=”, , 假)))
秒 = 删全部空 (取文本右边 (临时数组 , 取文本长度 (临时数组 ) - 寻找文本 (临时数组 , “=”, , 假)))
误差 = (取启动时间 () - n) ÷ 1000
.如果真 (误差 < 0.5)
误差 = 0
.如果真结束
.如果真 (误差 ≥ 300)
_按钮自动更新_被单击 ()
.如果真结束
.判断循环首 (误差 > 60)
分钟 = 到文本 (到数值 (分钟) + 误差 \ 60)
秒 = 到文本 (到数值 (秒) + 误差 % 60)
.如果真 (到数值 (分钟) > 60)
小时 = 到文本 (到数值 (分钟) + 1)
分钟 = 到文本 (到数值 (分钟) - 60)
.如果真结束
.如果真 (到数值 (秒) ≥ 60)
分钟 = 到文本 (到数值 (分钟) + 1)
秒 = 到文本 (到数值 (秒) - 60)
.如果真结束
.判断循环尾 ()
秒 = 到文本 (到数值 (秒) + 误差)
日期时间 = 现在日期 + 小时 + “时” + 分钟 + “分” + 秒 + “秒”
置现行时间 (到时间 (日期时间))
校准时间标签.标题 = 日期时间
处理事件 ()
5/5点击运行测试(注意不会使用的到网上找基础教程)

(注意不会使用的到网上找基础教程)
易语言校准版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_666977.html