易语言时尚编程100例

易语言时尚编程100例.txt如果你同时爱几个人，说明你年轻；如果你只爱一个人，那么，你已经老了；如果你谁也不爱，你已获得重生。积极的人一定有一个坚持的习惯。易语言时尚编程100例

（一）例程名称：计算编辑框的输入内容的长度

设立本100例教程的目的：把易语言现有的例程都学习一遍，以达到共同脱菜的目的。

★、例程来源。

㈠、例程名称：计算编辑框的输入内容的长度（暂名）

㈡、下载地址：

㈢、作者：（暂不详）

★、例程详解。

不知程序作者是谁？该程序作者或提问者为什么要做该例程？有什么作用？有知道者请跟贴。我在编辑时修改。

该例程只有一个子程序，该子程序只有一行执行代码，程序如下：

子程序：_编辑框1_内容被改变

标签1.标题＝到文本(取文本长度(编辑框1.内容))

编程大概思路：

㈠、确定用什么样的子程序，包括确定用什么控件来发送指令（事件驱动承担者），什么控件用来传递指令，什么控件用来执行指令，什么控件用来反馈指令。

⑴、确定发送指令控件。比如用按钮作为事件驱动（发送指令）承担者，则程序大概是：

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

标签1.标题＝到文本(取文本长度(编辑框1.内容))

当然，如果想使编辑框在输入文本时即时显示文本长度，就要用到编辑框本身的事件，如本程序的第一种子程序，即子程序：_编辑框1_内容被改变，通过在编辑框输入信息来发送指令。

⑵、确定传递、执行或反馈指令控件。如果我们用信息框来执行或反馈指令，则程序大概类似下面为好：

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

信息框(“你输入的文本长度是：”＋到文本(取文本长度(编辑框1.内容))

)

思考：如果想做到按“enter”时就弹出该信息框，应怎样做？

㈡、“计算编辑框的输入内容的长度”也即是确定编辑框的某个属性值，那么我们就重点查找编辑框的有关属性、方法和事件及易语言系统有关的命令，看有哪些在本例程中用得上。还是比较难找呢。

交流附件上传地址：https://www.360docs.net/doc/ad9769567.html,/

（二）例程名称：幼儿算术软件

由于还没有找到新空间存放例程，所以《菜鸟每日一课》和其他课程暂停，代之以一门新课程：《易语言时尚编程100例》，专门学习研究别人的程序。由于本人也是菜鸟，所以一般是照搬其中的代码，保持原汁原味，其中是否有错，由高手来跟贴完善评改吧。

★、例程来源。

㈠、例程名称：幼儿算术软件

㈡、下载地址：https://www.360docs.net/doc/ad9769567.html,/non-cgi/usr/1/1_3244.e

㈢、作者：bklbklbk

★、例程详解。

该程序近日由作者上传到论坛，程序明白

易懂，主要功能代码也不多，所以我们现在就以它为研究学习对象。该程序由三个窗口组成，其中_启动窗口只是该程序的封面，窗口2只是说明文件，核心功能都在窗口1中实现，所以这里只讲解窗口1，窗口1中又只有“出题”和“计算结果”两个重要子程序，其他的子程序是辅助的。

㈠、先讲讲怎样实现随机出题。

在随机出题中作者要做两件事：⑴、用单选框设置有三个出题计算数的范围：1到10；1到20；1到100，分别代表三种不同的学习程度。⑵、按三种计算数范围随机出题。下面看程序是怎样做的：

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

置随机数种子()

※一般过程是先置随机数种子再随机取数

编辑框1.内容＝到文本(取整(取随机数(最小号码

最大号码)))

※随机选择第一个计算数

编辑框2.内容＝到文本(取整(取随机数(最小号码

最大号码)))

※随机选择第一个计算数。取整数的随机数，“取整”是算术运算命令

编辑框3.内容＝“”

※清空“编辑框3”以便你把结果填上去

标签2.标题＝“”

※清空“标签2”（提示正确与否）以方便指出对还是错

编辑框3.获取焦点()

※使“编辑框3”获取焦点光标以便你输入计算结果

如果(单选框1.选中＝真)

最大号码＝10

※当选择最大数为10的计算范围时

否则

如果(单选框2.选中＝真)

最大号码＝20

否则

如果(单选框3.选中＝真)

最大号码＝100

否则

如果结束

如果结束

如果结束

㈡、再讲讲怎样评价你的计算结果。

该子程序分别设置了加、减、乘、除四种运算情况，我们以“减法”为例说明：

如果(标签3.标题＝“-”)

※当选择为减法运算时。选择不同的运算方式，该标签的标题就发生相应变化

如果(变量1＞变量2)

※当减数大于被减数时

如果(变量3＝变量1－变量2)

※当运算结果正确时

标签7.可视＝真

※该标签的标题是“正确”

标签2.标题＝“恭喜你！做对了”

标签5.标题＝到文本(变量4＋1)

※显示正确的次数，变量4存放的是正确次数，为静态短整数型容器，静态容器能将正确次数保留到下次运算，数值型数据的默认值为0

变量4＝变量4＋1

※给变量4赋值

否则※当运算结果错误时

标签2.标题＝“错啦！重做一遍”

标签8.可视＝真

※该标签的标题是“错误”

标签6.标题＝到文本(变量5＋1)

变量5＝变量5＋1

如果结束

变量6＝变量4＋变量5

※赋值于变量6，表示运算次数的总和，即正确次数与错误次数之和

标签13.可视＝真

※该标签的标题是“共计”

标签12.标题＝到文本(变量4＋变量5)

标签9.标题＝到文

本(取整(变量4÷变量6×100))

标签11.可视＝真

※该标签的标题是“正确率”

标签10.可视＝真

※该标签的标题是“%”

否则

标签2.标题＝“不能相减”

※当减数小于被减数时

如果结束

上面是以减法的实现为例对该软件功能实现作一说明，整个窗口1的程序如下：

窗口程序集：窗口程序集2

程序集容器：最小号码数据类型：短整数型

程序集容器：最大号码数据类型：短整数型

------------------------------

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

局部容器：变量1数据类型：短整数型

局部容器：变量2数据类型：短整数型

局部容器：变量3数据类型：短整数型

局部容器：变量4数据类型：短整数型

局部容器：变量5数据类型：短整数型

局部容器：变量6数据类型：整数型

变量1＝文本到数值(编辑框1.内容)

变量2＝文本到数值(编辑框2.内容)

变量3＝文本到数值(编辑框3.内容)

编辑框3.获取焦点()

如果(标签3.标题＝“+”)

如果(变量3＝变量1＋变量2)

标签7.可视＝真

标签2.标题＝“恭喜你！做对了”

标签5.标题＝到文本(变量4＋1)

变量4＝变量4＋1

否则

标签2.标题＝“错啦！重算一遍”

标签8.可视＝真

标签6.标题＝到文本(变量5＋1)

变量5＝变量5＋1

如果结束

变量6＝变量4＋变量5

标签13.可视＝真

标签12.标题＝到文本(变量4＋变量5)

标签9.标题＝到文本(取整(变量4÷变量6×100)) 标签11.可视＝真

标签10.可视＝真

否则

如果(标签3.标题＝“-”)

如果(变量1＞变量2)

如果(变量3＝变量1－变量2)

标签7.可视＝真

标签2.标题＝“恭喜你！做对了”

标签5.标题＝到文本(变量4＋1)

变量4＝变量4＋1

否则

标签2.标题＝“错啦！重做一遍”

标签8.可视＝真

标签6.标题＝到文本(变量5＋1)

变量5＝变量5＋1

如果结束

变量6＝变量4＋变量5

标签13.可视＝真

标签12.标题＝到文本(变量4＋变量5)

标签9.标题＝到文本(取整(变量4÷变量6×100)) 标签11.可视＝真

标签10.可视＝真

否则

标签2.标题＝“不能相减”

如果结束

否则

如果(标签3.标题＝“×”)

如果(变量3＝变量1×变量2)

标签7.可视＝真

标签2.标题＝“恭喜你！做对了”

标签5.标题＝到文本(变量4＋1)

变量4＝变量4＋1

否则

标签2.标题＝“错啦！重做一遍”

标签8.可视＝真

标签6.标题＝到文本(变量5＋1)

变量5＝变量5＋1

如果结束

变量6＝变量4＋变量5

标签13.可视＝真

标签12.标题＝到文本(变量4＋变量5)

标签9.标题＝到文本(取整(变量4÷变量6×100)) 标签11.可视＝真

标签10.可视＝真

否则

如果(标签3.标题＝“÷”)

如果(变量2≠0)

如果(变量3＝变量1÷变量2)

标签7.可视＝真

标签2.标题＝“恭喜你！做对了”

标签5.标题＝到文本(变量4＋1)

变量4＝变量4＋1

否则

信息框(“错啦！重做一遍”

#错误图标

“错误”)

标签8.可视＝真

标签6.标题＝到文本(变量5＋1)

变量5＝变量5＋1

如果结束

变量6＝变量4＋变量5

标签13.可视＝真

标签12.标题＝到文本(变量4＋变量5)

标签9.标题＝到文本(取整(变量4÷变量6×100)) 标签11.可视＝真

标签10.可视＝真

否则

信息框(“除数不能为0”

#错误图标

“错误”)

如果结束

否则

如果结束

如果结束

如果结束

如果结束

------------------------------

子程序：_按钮7_被单击

销毁()

------------------------------

子程序：_按钮3_被单击

标签3.标题＝“+”

标签1.标题＝“加法运算”

编辑框3.获取焦点()

------------------------------

子程序：_按钮4_被单击

标签3.标题＝“-”

标签1.标题＝“减法运算”

编辑框3.获取焦点()

------------------------------

子程序：_按钮5_被单击

标签3.标题＝“×”

标签1.标题＝“乘法运算”

编辑框3.获取焦点()

------------------------------

子程序：_按钮6_被单击

标签3.标题＝“÷”

标签1.标题＝“除法运算”

编辑框3.获取焦点()

------------------------------

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

置随机数种子()

编辑框1.内容＝到文本(取整(取随机数(最小号码

最大号码)))

编辑框2.内容＝到文本(取整(取随机数(最小号码

最大号码)))

编辑框3.内容＝“”

标签2.标题＝“”

编辑框3.获取焦点()

如果(单选框1.选中＝真)

最大号码＝10

否则

如果(单选框2.选中＝真)

最大号码＝20

否则

如果(单选框3.选中＝真)

最大号码＝100

否则

如果结束

如果结束

如果结束

------------------------------

子程序：_窗口1_创建完毕

编辑框1.内容＝“”

编辑框2.内容＝“”

编辑框3.内容＝“”

单选框1.选中＝真

最小号码＝1

编辑框3.获取焦点()

子程序：_按钮8_被单击

载入(窗口2

假)

窗口1.可视＝假

交流附件上传地址：https://www.360docs.net/doc/ad9769567.html,/

（三）IP地址的获取

[这个贴子最后由bb88在2002/04/2608:32pm编辑]

我们进行网络通讯编程常常要获取自己或对方的网络地址（IP），比如通过IP连接进行网络对战游戏，或通过IP连接的聊天室，都要知道主机方（建立游戏或聊天室的一方）的IP才能连接，就象你给对方打电话要知道对方的电话号码才能通话一样。假如你是主机方，你先要告诉对方你的IP，对方

才能进入你的主机。怎样即时显示自己的IP而免去查找的麻烦？看

看下面的解答。

要实现显示自己IP的功能只需一个子程序，程序示例如下：

子程序：__启动窗口_创建完毕

标签1.标题＝“欢迎你登陆bb88的IP获取教程，你的主机名是：”＋#换行符＋到文本(取主机名())＋#换行符＋#换行符＋“你的IP是：”＋#换行符＋到文本(转换为IP地址(取主机名()))

解析：⑴、画一个标签用来显示你的主机名及IP地址。用载入启动窗口作为该子程序的驱动事件（_启动窗口_创建完毕）。

⑵、易语言关于网络通讯的命令只有四个：取主机名、通信测试、转换为主机名、转换为IP 地址，本例程用到其中两个命令。

⑶、取主机名——即返回本机的主机名，用作在网络通讯中标志本机地址。语法：取主机名（）。该命令参数为空，若有参数，可能会类似这样：“取主机名（主机）”或“取主机名（202.103.113.8）”，即该命令处理的数据对象是某个主机，用“取主机名”的方式进行处理。

⑷、转换为IP地址——即将指定的主机名转换为其IP地址。如果失败返回空文本。语法：转换为IP地址（欲转换主机名）。我们要先获得你的主机名才能转换，所以该语句为：转换为IP地址（取主机名（））。该命令所处理的数据对象（参数）为“所取得的主机名”（即“取主机名（）”的返回值），用“转换为IP地址”方式处理该参数。

思考题：⑴、假设你已经知道你的主机名叫“huhuhu”，为什么用“标签1.标题＝到文本(转换为IP地址(到文本(huhuhu)))”却不能获得你的IP地址？欢迎高手菜鸟作答。

⑵、为什么“取主机名（）”这个命令的参数为空？

交流附件上传地址：https://www.360docs.net/doc/ad9769567.html,/

（四）例程名称：小小闹钟

[这个贴子最后由bb88在2002/04/2707:09pm编辑]

★、例程来源。

㈠、例程名称：小小闹钟

㈡、下载地址：

㈢、作者：（请作者跟贴说明）

㈣、主页：

★、例程详解。

㈠、主要功能。⑴、设定闹钟铃响时间。⑵、显示剩余时间（现时间离闹钟铃响时间的间隔）。

⑶、到设定的时间时闹钟铃响。

㈡、功能实现。

⑴、设定闹钟铃响时间。分别建立时、分、秒和开始这四个窗口程序集容器，分别用来存放设定闹钟铃响时间中的时、分、秒和开始计时的状态。用下面的子程序来设定闹钟铃响时间（即分别给三个变量“时”、“分”、“秒”赋值）。

子程序：_时编辑框_内容被改变

时＝文本到数值(时编辑框.内容)

------------------------------

子程序：_分编辑框_内容被改变

分＝文本到数值(分编辑框.内容)

------------------------------

子

程序：_秒编辑框_内容被改变

秒＝文本到数值(秒编辑框.内容)

⑵、显示剩余时间。

子程序：_时钟1_周期事件

如果真(开始)

开始计时()

剩余时间显示标签.标题＝到文本((取时间部分(取现行时间()

#小时)－时)×-1)＋“时”＋到文本((取时间部分(取现行时间()

#分钟)－分)×-1)＋“分”＋到文本((取时间部分(取现行时间()

#秒)－秒)×-1)＋“秒”

如果真结束

※变量“开始”表示按下了“确认按钮”（确定闹钟铃响时间和开始计时）。“如果真(开始)”的意义等同于“如果真(开始=真)”。

※显示剩余时间（现时间离闹钟铃响时间的间隔）好象这样也行：

剩余时间显示标签.标题＝到文本(时－取时间部分(取现行时间()

#小时))＋“时”＋到文本(分－取时间部分(取现行时间()

#分钟))＋“分”＋到文本(秒－取时间部分(取现行时间()

#秒))＋“秒”

※我的数学基础很差，不知以上代码行不？望原作者给予解答。

⑶、到设定的时间时闹钟铃响。

子程序：_确认按钮_被单击

如果(时≤60且分≤60且秒≤60)

如果(时≥取时间部分(取现行时间()

#小时))

时编辑框.禁止＝真

分编辑框.禁止＝真

秒编辑框.禁止＝真

确认按钮.禁止＝真※以上使确定闹钟铃响时间的编辑框不可以输入

开始计时()※调用“开始计时”子程序

开始＝真※表示按下了“确认”按钮，使系统开始计算剩余时间

否则

信息框(“错误！输入时间小于当前时间！”

#确认钮

“错误！”)

※排除闹钟铃响的过期时间

如果结束

否则

信息框(“请确认输入时间不得大于60！”

#确认钮

“错误！”)

※排除输入错误的时间

如果结束

------------------------------

子程序：开始计时

如果真(取时间部分(取现行时间()

#小时)≥时)

如果真(取时间部分(取现行时间()

#分钟)≥分)

如果真(取时间部分(取现行时间()

#秒)≥秒)

时编辑框.禁止＝假

分编辑框.禁止＝假

秒编辑框.禁止＝假

确认按钮.禁止＝假

开始＝假

_启动窗口.位置＝1

_启动窗口.总在最前＝假

鸣叫()

信息框(“请注意！您所定的时间到了！”

#确认钮

“时间到了！”)

如果真结束

如果真结束

如果真结束

返回()

※以上“开始计时”设定当时间到期时闹钟响铃，通过调用“鸣叫”系统处理命令（通过计算机媒体设备或者喇叭发出一个声音）来表示，或者也可以通过调用一个模拟铃声的声音资源来表示。

㈢、该小小闹钟的完整源程序如下：

窗口程序集：窗口程序集1

程序集容器：时数据类型：整数型

程序集容器：分数据类

型：整数型

程序集容器：秒数据类型：整数型

程序集容器：开始数据类型：逻辑型

------------------------------

子程序：_时钟1_周期事件

当前时间标签.标题＝“当前时间为：”＋时间到文本(取现行时间()

)

如果真(开始)

开始计时()

剩余时间显示标签.标题＝到文本(时－取时间部分(取现行时间()

#小时))＋“时”＋到文本(分－取时间部分(取现行时间()

#分钟))＋“分”＋到文本(秒－取时间部分(取现行时间()

#秒))＋“秒”

如果真结束

------------------------------

子程序：_时编辑框_内容被改变

时＝文本到数值(时编辑框.内容)

------------------------------

子程序：_分编辑框_内容被改变

分＝文本到数值(分编辑框.内容)

------------------------------

子程序：_秒编辑框_内容被改变

秒＝文本到数值(秒编辑框.内容)

------------------------------

子程序：_确认按钮_被单击

如果(时≤60且分≤60且秒≤60)

如果(时≥取时间部分(取现行时间()

#小时))

时编辑框.禁止＝真

分编辑框.禁止＝真

秒编辑框.禁止＝真

确认按钮.禁止＝真

开始计时()

开始＝真

否则

信息框(“错误！输入时间小于当前时间！”#确认钮

“错误！”)

如果结束

否则

信息框(“请确认输入时间不得大于60！”#确认钮

“错误！”)

如果结束

------------------------------

子程序：_更改按钮_被单击

确认按钮.禁止＝假

时编辑框.禁止＝假

分编辑框.禁止＝假

秒编辑框.禁止＝假

_启动窗口.位置＝1

_启动窗口.总在最前＝假

------------------------------

子程序：_退出按钮_被单击

结束()

------------------------------

子程序：开始计时

如果真(取时间部分(取现行时间()

#小时)≥时)

如果真(取时间部分(取现行时间()

#分钟)≥分)

如果真(取时间部分(取现行时间()

#秒)≥秒)

时编辑框.禁止＝假

分编辑框.禁止＝假

秒编辑框.禁止＝假

确认按钮.禁止＝假

开始＝假

_启动窗口.位置＝1

_启动窗口.总在最前＝假

鸣叫()

信息框(“请注意！您所定的时间到了！”#确认钮

“时间到了！”)

如果真结束

如果真结束

如果真结束

返回()