在写软件测评的时候想到了易语言,这个我高中用来写小程序玩的编程软件,正好编了一个小程序分享一下,电子表。
如图所示,这就是一个exe文件,可以直接打开。
打开后如题,我设置分为中国时间和美国时间,可供选择。
如图分别为中国时间显示和美国时间显示。
其中时间是可以动态变化的,用到了时间周期。当中国时间显示时,屏蔽美国时间周期,当美国时间显示时,屏蔽中国周期,从而达到不会显示混乱的目的。
另附易语言源代码:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
.版本 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.标题 = 到文本 (时间)
|