Question

易语言时间校正源码

Answer 1

网络时间校准程序：------------------------------------------------------------------.版本 2
.支持库 INTERNET.子程序 _按钮1_被单击
.局部变量 网页文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 日期临时, 文本型, , "0"
.局部变量 时间临时, 文本型, , "0"
.局部变量 时间, 文本型标签1.标题 ＝ “取网络时间进行中...”
处理事件 ()
网页文本 ＝ 到文本 (HTTP读文件 (“ http://www.time.ac.cn/stime.asp”))
文本数组 ＝ 分割文本 (网页文本, “服务器时间:”, )
.如果真 (取数组成员数 (文本数组) ＜ 2)
信息框 (“取网络时间失败！链接网络不成功！”, 0 ＋ #信息图标, “网络校时：”)
标签1.标题 ＝ “取网络时间失败！”
返回 ()
.如果真结束
网页文本 ＝ 文本数组 [2]
文本数组 ＝ 分割文本 (网页文本, “document.write('”, )
.如果真 (取数组成员数 (文本数组) ＜ 2)
信息框 (“取网络时间失败！链接网络不成功！”, 0 ＋ #信息图标, “网络校时：”)
标签1.标题 ＝ “取网络时间失败！”
返回 ()
.如果真结束
日期临时 ＝ 分割文本 (文本数组 [3], “')”, )
时间 ＝ 日期临时 [1]
日期临时 ＝ 分割文本 (文本数组 [6], “var hrs = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1] ＋ “时”
日期临时 ＝ 分割文本 (文本数组 [6], “var min = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1] ＋ “分”
日期临时 ＝ 分割文本 (文本数组 [6], “var szec = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1] ＋ “秒”
标签1.标题 ＝ “现在的网络时间是：” ＋ 时间
.如果真 (选择框1.选中 ＝ 真)
置现行时间 (到时间 (时间))
.如果真结束-----------------------------------------------------------------------------源码下载地址：http://dl.dbank.com/c0k4cbbbzf

Answer 2

启动窗口创建完毕
时钟1.时钟周期=1000

然后要编辑框显示现行时间

编辑框1.内容=到文本（取现行时间（））

Answer 3

源码下载地址。。(看图片的网址)/down/index/7734199A7145