用易语言编写的小程序——电子表

Posted 2020-06-22

      在写软件测评的时候想到了易语言，这个我高中用来写小程序玩的编程软件，正好编了一个小程序分享一下，电子表。

 

  如图所示，这就是一个exe文件，可以直接打开。

打开后如题，我设置分为中国时间和美国时间，可供选择。

如图分别为中国时间显示和美国时间显示。

 

其中时间是可以动态变化的，用到了时间周期。当中国时间显示时，屏蔽美国时间周期，当美国时间显示时，屏蔽中国周期，从而达到不会显示混乱的目的。

另附此小软件下载地址（个人网址，放心访问，还可以听音乐o(∩_∩)o ）：http://hgcrown.amnuo.com/

 

另附易语言源代码：

.版本 2
.支持库 internet

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

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

时钟1.时钟周期 ＝ 1000
时钟2.时钟周期 ＝ 0

.子程序 _时钟1_周期事件
.局部变量 网页数据, 文本型
.局部变量 数据前端, 整数型
.局部变量 取出时间, 文本型
.局部变量 剩余时间, 文本型
.局部变量 时间, 日期时间型
.局部变量 增加后时间, 日期时间型

时钟1.时钟周期 ＝ 1000
网页数据 ＝ 到文本 (HTTP读文件 (“http://open.baidu.com/special/time/”))
数据前端 ＝ 寻找文本 (网页数据, “window.baidu_time(”, , 假) ＋ 18
取出时间 ＝ 取文本中间 (网页数据, 数据前端, 10)
时间 ＝ 增减时间 ([1970年1月1日8时], #秒, 到整数 (取出时间))
标签1.标题 ＝ 到文本 (时间)

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

时钟2.时钟周期 ＝ 1000
时钟1.时钟周期 ＝ 0

.子程序 _时钟2_周期事件
.局部变量 网页数据, 文本型
.局部变量 数据前端, 整数型
.局部变量 取出时间, 文本型
.局部变量 剩余时间, 文本型
.局部变量 时间, 日期时间型
.局部变量 增加后时间, 日期时间型

网页数据 ＝ 到文本 (HTTP读文件 (“http://open.baidu.com/special/time/”))
数据前端 ＝ 寻找文本 (网页数据, “window.baidu_time(”, , 假) ＋ 18
取出时间 ＝ 取文本中间 (网页数据, 数据前端, 10)
时间 ＝ 增减时间 ([1969年12月31日19时], #秒, 到整数 (取出时间))
标签1.标题 ＝ 到文本 (时间)