易语言时尚编程100例

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

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

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

㈠、例程名称：计算编辑框的输入内容的长度（暂名） ㈡、下载地址： ㈢、作者：（暂不详） ★、例程详解。

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

该例程只有一个子程序，该子程序只有一行执行代码，程序如下： 子程序：_编辑框1_内容被改变

标签1.标题＝到文本(取文本长度(编辑框1.内容)) 编程大概思路：

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

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

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

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

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

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

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

思考：如果想做到按“enter”时就弹出该信息框，应怎样做？ ㈡、“计算编辑框的输入内容的长度”也即是确定编辑框的某个属性值，那么我们就重点查找编辑框的有关属性、方法和事件及易语言系统有关的命令，看有哪些在本例程中用得上。还是比较难找呢。

交流附件上传地址：http://www.91asp.com/ （二）例程名称：幼儿算术软件

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

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

㈡、下载地址：http://eyuyan.com/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.可视＝假

交流附件上传地址：http://www.91asp.com/ （三）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地址？欢迎高手菜鸟作答。 ⑵、为什么“取主机名（）”这个命令的参数为空？ 交流附件上传地址：http://www.91asp.com/ （四）例程名称：小小闹钟

[这个贴子最后由bb88在2002/04/2707:09pm编辑] ★、例程来源。

㈠、例程名称：小小闹钟 ㈡、下载地址： ㈢、作者：（请作者跟贴说明） ㈣、主页： ★、例程详解。 ㈠、主要功能。⑴、设定闹钟铃响时间。⑵、显示剩余时间（现时间离闹钟铃响时间的间隔）。⑶、到设定的时间时闹钟铃响。 ㈡、功能实现。

⑴、设定闹钟铃响时间。分别建立时、分、秒和开始这四个窗口程序集容器，分别用来存放设定闹钟铃响时间中的时、分、秒和开始计时的状态。用下面的子程序来设定闹钟铃响时间（即分别给三个变量“时”、“分”、“秒”赋值）。 子程序：_时编辑框_内容被改变 时＝文本到数值(时编辑框.内容) ------------------------------ 子程序：_分编辑框_内容被改变 分＝文本到数值(分编辑框.内容) ------------------------------ 子

程序：_秒编辑框_内容被改变 秒＝文本到数值(秒编辑框.内容) ⑵、显示剩余时间。

子程序：_时钟1_周期事件 如果真(开始) 开始计时()

剩余时间显示标签.标题＝到文本((取时间部分(取现行时间() #小时)－时)×-1)＋“时”＋到文本((取时间部分(取现行时间() #分钟)－分)×-1)＋“分”＋到文本((取时间部分(取现行时间() #秒)－秒)×-1)＋“秒” 如果真结束

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

※显示剩余时间（现时间离闹钟铃响时间的间隔）好象这样也行： 剩余时间显示标签.标题＝到文本(时－取时间部分(取现行时间() #小时))＋“时”＋到文本(分－取时间部分(取现行时间() #分钟))＋“分”＋到文本(秒－取时间部分(取现行时间() #秒))＋“秒”

※我的数学基础很差，不知以上代码行不？望原作者给予解答。 ⑶、到设定的时间时闹钟铃响。 子程序：_确认按钮_被单击

如果(时≤60且分≤60且秒≤60) 如果(时≥取时间部分(取现行时间() #小时))

时编辑框.禁止＝真 分编辑框.禁止＝真 秒编辑框.禁止＝真

确认按钮.禁止＝真※以上使确定闹钟铃响时间的编辑框不可以输入 开始计时()※调用“开始计时”子程序

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

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

※排除闹钟铃响的过期时间 如果结束 否则

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

※排除输入错误的时间 如果结束

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

子程序：开始计时

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

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

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

时编辑框.禁止＝假 分编辑框.禁止＝假 秒编辑框.禁止＝假 确认按钮.禁止＝假 开始＝假

_启动窗口.位置＝1

_启动窗口.总在最前＝假 鸣叫()

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

“时间到了！”) 如果真结束 如果真结束 如果真结束 返回()

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

㈢、该小小闹钟的完整源程序如下： 窗口程序集：窗口程序集1

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

型：整数型 程序集容器：秒数据类型：整数型 程序集容器：开始数据类型：逻辑型 ------------------------------ 子程序：_时钟1_周期事件

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

如果真(开始) 开始计时()

剩余时间显示标签.标题＝到文本(时－取时间部分(取现行时间() #小时))＋“时”＋到文本(分－取时间部分(取现行时间() #分钟))＋“分”＋到文本(秒－取时间部分(取现行时间()

#秒))＋“秒” 如果真结束

------------------------------ 子程序：_时编辑框_内容被改变 时＝文本到数值(时编辑框.内容) ------------------------------ 子程序：_分编辑框_内容被改变 分＝文本到数值(分编辑框.内容) ------------------------------ 子程序：_秒编辑框_内容被改变 秒＝文本到数值(秒编辑框.内容) ------------------------------ 子程序：_确认按钮_被单击

如果(时≤60且分≤60且秒≤60) 如果(时≥取时间部分(取现行时间() #小时))

时编辑框.禁止＝真 分编辑框.禁止＝真 秒编辑框.禁止＝真 确认按钮.禁止＝真 开始计时() 开始＝真 否则

信息框(“错误！输入时间小于当前时间！” #确认钮 “错误！”) 如果结束 否则

信息框(“请确认输入时间不得大于60！” #确认钮 “错误！”) 如果结束

------------------------------ 子程序：_更改按钮_被单击 确认按钮.禁止＝假 时编辑框.禁止＝假 分编辑框.禁止＝假 秒编辑框.禁止＝假 _启动窗口.位置＝1

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

------------------------------ 子程序：_退出按钮_被单击 结束()

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

子程序：开始计时

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

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

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

时编辑框.禁止＝假 分编辑框.禁止＝假 秒编辑框.禁止＝假 确认按钮.禁止＝假 开始＝假

_启动窗口.位置＝1

_启动窗口.总在最前＝假 鸣叫()

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

“时间到了！”) 如果真结束 如果真结束 如果真结束 返回()

本文来源：https://www.bwwdw.com/article/1mpp.html