易语言时尚编程100例.doc

易语言时尚编程100例 （一）例程名称：计算编辑框的输入内容的长度 设立本100例教程的目的：把易语言现有的例程都学习一遍，以达到共同脱菜的目的。 、例程来源。 、例程名称：计算编辑框的输入内容的长度（暂名） 、下载地址： 、作者：（暂不详） 、例程详解。 不知程序作者是谁？该程序作者或提问者为什么要做该例程？有什么作用？有知道者请跟贴。我在编辑时修改。 该例程只有一个子程序，该子程序只有一行执行代码，程序如下： 子程序：_编辑框1_内容被改变 标签1.标题到文本(取文本长度(编辑框1.内容) 编程大概思路： 、确定用什么样的子程序，包括确定用什么控件来发送指令（事件驱动承担者），什么控件用来传递指令，什么控件用来执行指令，什么控件用来反馈指令。 、确定发送指令控件。比如用按钮作为事件驱动（发送指令）承担者，则程序大概是： 子程序：_按钮1_被单击 标签1.标题到文本(取文本长度(编辑框1.内容) 当然，如果想使编辑框在输入文本时即时显示文本长度，就要用到编辑框本身的事件，如本程序的第一种子程序，即子程序：_编辑框1_内容被改变，通过在编辑框输入信息来发送指令。 、确定传递、执行或反馈指令控件。如果我们用信息框来执行或反馈指令，则程序大概类似下面为好： 子程序：_按钮1_被单击 信息框(“你输入的文本长度是：”到文本(取文本长度(编辑框1.内容) 0 ) 思考：如果想做到按“enter”时就弹出该信息框，应怎样做？ 、“计算编辑框的输入内容的长度”也即是确定编辑框的某个属性值，那么我们就重点查找编辑框的有关属性、方法和事件及易语言系统有关的命令，看有哪些在本例程中用得上。还是比较难找呢。 交流附件上传地址：/ （二）例程名称：幼儿算术软件 由于还没有找到新空间存放例程，所以菜鸟每日一课和其他课程暂停，代之以一门新课程：易语言时尚编程100例，专门学习研究别人的程序。由于本人也是菜鸟，所以一般是照搬其中的代码，保持原汁原味，其中是否有错，由高手来跟贴完善评改吧。 、例程来源。 、例程名称：幼儿算术软件 、下载地址：/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.标题到文本(变量41) 显示正确的次数，变量4存放的是正确次数，为静态短整数型容器，静态容器能将正确次数保留到下次运算，数值型数据的默认值为0 变量4变量41 给变量4赋值 否则当运算结果错误时 标签2.标题“错啦！重做一遍” 标签8.可视真 该标签的标题是“错误” 标签6.标题到文本(变量51) 变量5变量51 如果结束 变量6变量4变量5 赋值于变量6，表示运算次数的总和，即正确次数与错误次数之和 标签13.可视真 该标签的标题是“共计” 标签12.标题到文本(变量4变量5) 标签9.标题到文本(取整(变量4变量6100) 标签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.标题到文本(变量41) 变量4变量41 否则 标签2.标题“错啦！重算一遍” 标签8.可视真 标签6.标题到文本(变量51) 变量5变量51 如果结束 变量6变量4变量5 标签13.可视真 标签12.标题到文本(变量4变量5) 标签9.标题到文本(取整(变量4变量6100) 标签11.可视真 标签10.可视真 否则 如果(标签3.标题“-”) 如果(变量1变量2) 如果(变量3变量1变量2) 标签7.可视真 标签2.标题“恭喜你！做对了” 标签5.标题到文本(变量41) 变量4变量41 否则 标签2.标题“错啦！重做一遍” 标签8.可视真 标签6.标题到文本(变量51) 变量5变量51 如果结束 变量6变量4变量5 标签13.可视真 标签12.标题到文本(变量4变量5) 标签9.标题到文本(取整(变量4变量6100) 标签11.可视真 标签10.可视真 否则 标签2.标题“不能相减” 如果结束 否则 如果(标签3.标题“”) 如果(变量3变量1变量2) 标签7.可视真 标签2.标题“恭喜你！做对了” 标签5.标题到文本(变量41) 变量4变量41 否则 标签2.标题“错啦！重做一遍” 标签8.可视真 标签6.标题到文本(变量51) 变量5变量51 如果结束 变量6变量4变量5 标签13.可视真 标签12.标题到文本(变量4变量5) 标签9.标题到文本(取整(变量4变量6100) 标签11.可视真 标签10.可视真 否则 如果(标签3.标题“”) 如果(变量20) 如果(变量3变量1变量2) 标签7.可视真 标签2.标题“恭喜你！做对了” 标签5.标题到文本(变量41) 变量4变量41 否则 信息框(“错啦！重做一遍” #错误图标 “错误”) 标签8.可视真 标签6.标题到文本(变量51) 变量5变量51 如果结束 变量6变量4变量5 标签13.可视真 标签12.标题到文本(变量4变量5) 标签9.标题到文本(取整(变量4变量6100) 标签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.可视假 交流附件上传地址：/ （三）IP地址的获取 这个贴子最后由bb88在2002/04/2608:32pm编辑 我们进行网络通讯编程常常要获取自己或对方的网络地址（IP），比如通过IP连接进行网络对战游戏，或通过IP连接的聊天室，都要知道主机方（建立游戏或聊天室的一方）的IP才能连接，就象你给对方打电话要知道对方的电话号码才能通话一样。假如你是主机方，你先要告诉对方你的IP，对方才能进入你的主机。怎样即时显示自己的IP而免去查找的麻烦？看看下面的解答。 要实现显示自己IP的功能只需一个子程序，程序示例如下： 子程序：_启动窗口_创建完毕 标签1.标题“欢迎你登陆bb88的IP获取教程，你的主机名是：”#换行符到文本(取主机名()#换行符#换行符“你的IP是：”#换行符到文本(转换为IP地址(取主机名() 解析：、画一个标签用来显示你的主机名及IP地址。用载入启动窗口作为该子程序的驱动事件（_启动窗口_创建完毕）。 、易语言关于网络通讯的命令只有四个：取主机名、通信测试、转换为主机名、转换为IP地址，本例程用到其中两个命令。 、取主机名即返回本机的主机名，用作在网络通讯中标志本机地址。语法：取主机名（）。该命令参数为空，若有参数，可能会类似这样：“取主机名（主机）”或“取主机名（）”，即该命令处理的数据对象是某个主机，用“取主机名”的方式进行处理。 、转换为IP地址即将指定的主机名转换为其IP地址。如果失败返回空文本。语法：转换为IP地址（欲转换主机名）。我们要先获得你的主机名才能转换，所以该语句为：转换为IP地址（取主机名（）。该命令所处理的数据对象（参数）为“所取得的主机名”（即“取主机名（）”的返回值），用“转换为IP地址”方式处理该参数。 思考题：、假设你已经知道你的主机名叫“huhuhu”，为什么用“标签1.标题到文本(转换为IP地址(到文本(huhuhu)”却不能获得你的IP地址？欢迎高手菜鸟作答。 、为什么“取主机名（）”这个命令的参数为空？ 交流附件上传地址：/ （四）例程名称：小小闹钟 这个贴子最后由bb88在2002/04/2707:09pm编辑 、例程来源。 、例程名称：小小闹钟 、下载地址： 、作者：（请作者跟贴说明） 、主页： 、例程详解。 、主要功能。、设定闹钟铃响时间。、显示剩余时间（现时间离闹钟铃响时间的间隔）。、到设定的时间时闹钟铃响。 、功能实现。 、设定闹钟铃响时间。分别建立时、分、秒和开始这四个窗口程序集容器，分别用来存放设定闹钟铃响时间中的时、分、秒和开始计时的状态。用下面的子程序来设定闹钟铃响时间（即分别给三个变量“时”、“分”、“秒”赋值）。 子程序：_时编辑框_内容被改变 时文本到数值(时编辑框.内容) - 子程序：_分编辑框_内容被改变 分文本到数值(分编辑框.内容) - 子程序：_秒编辑框_内容被改变 秒文本到数值(秒编辑框.内容) 、显示剩余时间。 子程序：_时钟1_周期事件 如果真(开始) 开始计时() 剩余时间显示标签.标题到文本(取时间部分(取现行时间() #小时)时)-1)“时”到文本(取时间部分(取现行时间() #分钟)分)-1)“分”到文本(取时间部分(取现行时间() #秒)秒)-1)“秒” 如果真结束 变量“开始”表示按下了“确认按钮”（确定闹钟铃响时间和开始计时）。“如果真(开始)”的意义等同于“如果真(开始=真)”。 显示剩余时间（现时间离闹钟铃响时间的间隔）好象这样也行： 剩余时间显示标签.标题到文本(时取时间部分(取现行时间() #小时)“时”到文本(分取时间部分(取现行时间() #分钟)“分”到文本(秒取时间部分(取现行时间() #秒)“秒” 我的数学基础很差，不知以上代码行不？望原作者给予解答。 、到设定的时间时闹钟铃响。 子程序：_确认按钮_被单击 如果(时60且分60且秒60) 如果(时取时间部分(取现行时间() #小时) 时编辑框.禁止真 分编辑框.禁止真 秒编辑框.禁止真 确认按钮.禁止真以上使确定闹钟铃响时间的编辑框不可以输入 开始计时()调用“开始计时”子程序 开始真表示按下了“确认”按钮，使系统开始计算剩余时间 否则 信息框(“错误！输入时间小于当前时间！” #确认钮 “错误！”) 排除闹钟铃响的过期时间 如果结束 否则 信息框(“请确认输入时间不得大于60！” #确认钮 “错误！”) 排除输入错误的时间 如果结束 - 子程序：开始计时 如果真(取时间部分(取现行时间() #小时)时) 如果真(取时间部分(取现行时间() #分钟)分) 如果真(取时间部分(取现行时间() #秒)秒) 时编辑框.禁止假 分编辑框.禁止假 秒编辑框.禁止假 确认按钮.禁止假 开始假 _启动窗口.位置1 _启动窗口.总在最前假 鸣叫() 信息框(“请注意！您所定的时间到了！” #确认钮 “时间到了！”) 如果真结束 如果真结束 如果真结束 返回() 以上“开始计时”设定当时间到期时闹钟响铃，通过调用“鸣叫”系统处理命令（通过计算机媒体设备或者喇叭发出一个声音）来表示，或者也可以通过调用一个模拟铃声的声音资源来表示。 、该小小闹钟的完整源程序如下： 窗口程序集：窗口程序集1 程序集容器：时数据类型：整数型 程序集容器：分数据类型：整数型 程序集容器：秒数据类型：整数型 程序集容器：开始数据类型：逻辑型 - 子程序：_时钟1_周期事件 当前时间标签.标题“当前时间为：”时间到文本(取现行时间() ) 如果真(开始) 开始计时()