401.txt

易语言时尚编程100例 （一）例程名称：计算编辑框的输入内容的长度 设立本100例教程的目的：把易语言现有的例程都学习一遍

------------------------------
子程序：_按钮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/26    08: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/27    07:09pm    编辑]
★、例程来源。
㈠、例程名称：小小闹钟
㈡、下载地址：
㈢、作者：（请作者跟贴说明）
㈣、主页：
★、例程详解。
㈠、主要功能。⑴、设定闹钟铃响时间。⑵、显示剩余时间（现时间离闹钟铃响时间的间隔）。⑶、到设定的时间时闹钟铃响。
㈡、功能实现。
⑴、设定闹钟铃响时间。分别建立时、分、秒和开始这四个窗口程序集容器，分别用来存放设定闹钟铃响时间中的时、分、秒和开始计时的状态。用下面的子程序来设定闹钟铃响时间（即分别给三个变量“时”、“分”、“秒”赋值）。
子程序：_时编辑框_内容被改变
时    ＝    文本到数值    (时编辑框.内容)
------------------------------
子程序：_分编辑框_内容被改变
分    ＝    文本到数值    (分编辑框.内容)
------------------------------
子程序：_秒编辑框_内容被改变
秒    ＝    文本到数值    (秒编辑框.内容)
⑵、显示剩余时间。
子程序：_时钟1_周期事件
如果真    (开始)
开始计时    ()
剩余时间显示标签.标题    ＝    到文本    ((取时间部分    (取现行时间    ()
#小时)    －    时)    ×    -1)    ＋    “时”    ＋    到文本    ((取时间部分    (取现行时间    ()
#分钟)    －    分)    ×    -1)    ＋    “分”    ＋    到文本    ((取时间部分    (取现行时间    ()
#秒)    －    秒)    ×    -1)    ＋    “秒”
如果真结束
※变量“开始”表示按下了“确认按钮”（确定闹钟铃响时间和开始计时）。“如果真    (开始)”的意义等同于“如果真    (开始=真)”。
※显示剩余时间（现时间离闹钟铃响时间的间隔）好象这样也行：
剩余时间显示标签.标题    ＝    到文本    (时    －    取时间部分    (取现行时间    ()
#小时))    ＋    “时”    ＋    到文本    (分    －    取时间部分    (取现行时间    ()
#分钟))    ＋    “分”    ＋    到文本    (秒    －    取时间部分    (取现行时间    ()
#秒))    ＋    “秒”
※我的数学基础很差，不知以上代码行不？望原作者给予解答。
⑶、到设定的时间时闹钟铃响。
子程序：_确认按钮_被单击
如果    (时    ≤    60    且    分    ≤    60    且    秒    ≤    60)
如果    (时    ≥    取时间部分    (取现行时间    ()
#小时))
时编辑框.禁止    ＝    真
分编辑框.禁止    ＝    真
秒编辑框.禁止    ＝    真
确认按钮.禁止    ＝    真        ※以上使确定闹钟铃响时间的编辑框不可以输入
开始计时    ()                        ※调用“开始计时”子程序
开始    ＝    真                        ※表示按下了“确认”按钮，使系统开始计算剩余时间
否则
信息框    (“错误！输入时间小于当前时间！”
#确认钮
“错误！”)
※排除闹钟铃响的过期时间
如果结束
否则
信息框    (“请确认输入时间不得大于60！”
#确认钮
“错误！”)
※排除输入错误的时间
如果结束
------------------------------
子程序：开始计时
如果真    (取时间部分    (取现行时间    ()
#小时)    ≥    时)
如果真    (取时间部分    (取现行时间    ()
#分钟)    ≥    分)
如果真    (取时间部分    (取现行时间    ()
#秒)    ≥    秒)
时编辑框.禁止    ＝    假
分编辑框.禁止    ＝    假
秒编辑框.禁止    ＝    假
确认按钮.禁止    ＝    假
开始    ＝    假
_启动窗口.位置    ＝    1
_启动窗口.总在最前    ＝    假
鸣叫    ()
信息框    (“请注意！您所定的时间到了！”
#确认钮
“时间到了！”)
如果真结束
如果真结束
如果真结束
返回    ()
※以上“开始计时”设定当时间到期时闹钟响铃，通过调用“鸣叫”系统处理命令（通过计算机媒体设备或者喇叭发出一个声音）来表示，或者也可以通过调用一个模拟铃声的声音资源来表示。
㈢、该小小闹钟的完整源程序如下：
窗口程序集：窗口程序集1
程序集容器：时        数据类型：整数型
程序集容器：分        数据类型：整数型
程序集容器：秒        数据类型：整数型
程序集容器：开始    数据类型：逻辑型
------------------------------
子程序：_时钟1_周期事件
当前时间标签.标题    ＝    “当前时间为：”    ＋    时间到文本    (取现行时间    ()
)
如果真    (开始)
开始计时    ()
剩余时间显示标签.标题    ＝    到文本    (时    －    取时间部分    (取现行时间    ()
#小时))    ＋    “时”    ＋    到文本    (分    －    取时间部分    (取现行时间    ()
#分钟))    ＋    “分”    ＋    到文本    (秒    －    取时间部分    (取现行时间    ()
#秒))    ＋    “秒”
如果真结束
------------------------------
子程序：_时编辑框_内容被改变
时    ＝    文本到数值    (时编辑框.内容)
------------------------------
子程序：_分编辑框_内容被改变
分    ＝    文本到数值    (分编辑框.内容)
------------------------------
子程序：_秒编辑框_内容被改变
秒    ＝    文本到数值    (秒编辑框.内容)
------------------------------
子程序：_确认按钮_被单击
如果    (时    ≤    60    且    分    ≤    60    且    秒    ≤    60)
如果    (时    ≥    取时间部分    (取现行时间    ()
#小时))
时编辑框.禁止    ＝    真
分编辑框.禁止    ＝    真
秒编辑框.禁止    ＝    真
确认按钮.禁止    ＝    真
开始计时    ()
开始    ＝    真
否则
信息框    (“错误！输入时间小于当前时间！”
#确认钮
“错误！”)
如果结束
否则
信息框    (“请确认输入时间不得大于60！”
#确认钮
“错误！”)
如果结束
------------------------------
子程序：_更改按钮_被单击
确认按钮.禁止    ＝    假
时编辑框.禁止    ＝    假
分编辑框.禁止    ＝    假
秒编辑框.禁止    ＝    假
_启动窗口.位置    ＝    1
_启动窗口.总在最前    ＝    假
------------------------------
子程序：_退出按钮_被单击
结束    ()
------------------------------
子程序：开始计时
如果真    (取时间部分    (取现行时间    ()
#小时)    ≥    时)
如果真    (取时间部分    (取现行时间    ()
#分钟)    ≥    分)
如果真    (取时间部分    (取现行时间    ()
#秒)    ≥    秒)
时编辑框.禁止    ＝    假
分编辑框.禁止    ＝    假
秒编辑框.禁止    ＝    假
确认按钮.禁止    ＝    假
开始    ＝    假
_启动窗口.位置    ＝    1
_启动窗口.总在最前    ＝    假
鸣叫    ()
信息框    (“请注意！您所定的时间到了！”
#确认钮
“时间到了！”)
如果真结束
如果真结束
如果真结束
返回    ()








　　Copyright (C) 2005-2007 sxcnw.com　　All Rights Reserved　　
本站提供的易语言时尚编程100例版权属于作者未知。易语言时尚编程100例情节内容,书评属其个人行为,与本站无关。如本站发布易语言时尚编程100例无意中侵犯到您的权益，或是含有非法内容，请及时与我们联系，我们将在第一时间回应！
本电子书仅供读者预览,请在下载24小时内删除，不得用作商业用途；如果喜欢请购买正版图书！谢谢