易语言时尚编程100例.docx
- 文档编号:11952052
- 上传时间:2023-04-16
- 格式:DOCX
- 页数:20
- 大小:20.44KB
易语言时尚编程100例.docx
《易语言时尚编程100例.docx》由会员分享,可在线阅读,更多相关《易语言时尚编程100例.docx(20页珍藏版)》请在冰豆网上搜索。
易语言时尚编程100例
易语言时尚编程100例
(一)例程名称:
计算编辑框的输入内容的长度
设立本100例教程的目的:
把易语言现有的例程都学习一遍,以达到共同脱菜的目的。
★、例程来源。
㈠、例程名称:
计算编辑框的输入内容的长度(暂名)
㈡、下载地址:
㈢、作者:
(暂不详)
★、例程详解。
不知程序作者是谁?
该程序作者或提问者为什么要做该例程?
有什么作用?
有知道者请跟贴。
我在编辑时修改。
该例程只有一个子程序,该子程序只有一行执行代码,程序如下:
子程序:
_编辑框1_内容被改变
标签1.标题=到文本(取文本长度(编辑框1.内容))
编程大概思路:
㈠、确定用什么样的子程序,包括确定用什么控件来发送指令(事件驱动承担者),什么控件用来传递指令,什么控件用来执行指令,什么控件用来反馈指令。
⑴、确定发送指令控件。
比如用按钮作为事件驱动(发送指令)承担者,则程序大概是:
子程序:
_按钮1_被单击
标签1.标题=到文本(取文本长度(编辑框1.内容))
当然,如果想使编辑框在输入文本时即时显示文本长度,就要用到编辑框本身的事件,如本程序的第一种子程序,即子程序:
_编辑框1_内容被改变,通过在编辑框输入信息来发送指令。
⑵、确定传递、执行或反馈指令控件。
如果我们用信息框来执行或反馈指令,则程序大概类似下面为好:
子程序:
_按钮1_被单击
信息框(“你输入的文本长度是:
”+到文本(取文本长度(编辑框1.内容))
0
)
思考:
如果想做到按“enter”时就弹出该信息框,应怎样做?
㈡、“计算编辑框的输入内容的长度”也即是确定编辑框的某个属性值,那么我们就重点查找编辑框的有关属性、方法和事件及易语言系统有关的命令,看有哪些在本例程中用得上。
还是比较难找呢。
交流附件上传地址:
(二)例程名称:
幼儿算术软件
由于还没有找到新空间存放例程,所以《菜鸟每日一课》和其他课程暂停,代之以一门新课程:
《易语言时尚编程100例》,专门学习研究别人的程序。
由于本人也是菜鸟,所以一般是照搬其中的代码,保持原汁原味,其中是否有错,由高手来跟贴完善评改吧。
★、例程来源。
㈠、例程名称:
幼儿算术软件
㈡、下载地址:
㈢、作者:
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.可视=假
交流附件上传地址:
(三)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地址?
欢迎高手菜鸟作答。
⑵、为什么“取主机名()”这个命令的参数为空?
交流附件上传地址:
(四)例程名称:
小小闹钟
[这个贴子最后由bb88在2002/04/2707:
09pm编辑]
★、例程来源。
㈠、例程名称:
小小闹钟
㈡、下载地址:
㈢、作者:
(请作者跟贴说明)
㈣、主页:
★、例程详解。
㈠、主要功能。
⑴、设定闹钟铃响时间。
⑵、显示剩余时间(现时间离闹钟铃响时间的间隔)。
⑶、到设定的时间时闹钟铃响。
㈡、功能实现。
⑴、设定闹钟铃响时间。
分别建立时、分、秒和开始这四个窗口程序集容器,分别用来存放设定闹钟铃响时间中的时、分、秒和开始计时的状态。
用下面的子程序来设定闹钟铃响时间(即分别给三个变量“时”、“分”、“秒”赋值)。
子程序:
_时编辑框_内容被改变
时=文本到数值(时编辑框.内容)
------------------------------
子程序:
_分编辑框_内容被改变
分=文本到数值(分编辑框.内容)
------------------------------
子程序:
_秒编辑框_内容被改变
秒=文本到数值(秒编辑框.内容)
⑵、显示剩余时间。
子程序:
_时钟1_周期事件
如果真(开始)
开始计时()
剩余时间显示标签.标题=到文本((取时间部分(取现行时间()
#小时)-时)×-1)+“时”+到文本((取时间部分(取现行时间()
#分钟)-分)×-1)+“分”+到文本((取时间部分(取现行时间()
#秒)-秒)×-1)+“秒”
如果真结束
※变量“开始”表示按下了“确认按钮”(确定闹钟铃响时间和开始计时)。
“如果真(开始)”的意义等同于“如果真(开始=真)”。
※显示剩余时间(现时间离闹钟铃响时间的间隔)好象这样也行:
剩余时间显示标签.标题=到文本(时-取时间部分(取现行时间()
#小时))+“时”+到文本(分-取时间部分(取现行时间()
#分钟))+“分”+到文本(秒-取时间部分(取现行时间()
#秒))+“秒”
※我的数学基础很差,不知以上代码行不?
望原作者给予解答。
⑶、到设定的时间时闹钟铃响。
子程序:
_确认按钮_被单击
如果(时≤60且分≤60且秒≤60)
如果(时≥取时间部分(取现行时间()
#小时))
时编辑框.禁止=真
分编辑框.禁止=真
秒编辑框.禁止=真
确认按钮.禁止=真※以上使确定闹钟铃响时间的编辑框不可以输入
开始计时()※调用“开始计时”子程序
开始=真※表示按下了“确认”按钮,使系统开始计算剩余时间
否则
信息框(“错误!
输入时间小于当前时间!
”
#确认钮
“错误!
”)
※排除闹钟铃响的过期时间
如果结束
否则
信息框(“请确认输入时间不得大于60!
”
#确认钮
“错误!
”)
※排除输入错误的时间
如果结束
------------------------------
子程序:
开始计时
如果真(取时间部分(取现行时间()
#小时)≥时)
如果真(取时间部分(取现行时间()
#分钟)≥分)
如果真(取时间部分(取现行时间()
#秒)≥秒)
时编辑框.禁止=假
分编辑框.禁止=假
秒编辑框.禁止=假
确认按钮.禁止=假
开始=假
_启动窗口.位置=1
_启动窗口.总在最前=假
鸣叫()
信息框(“请注意!
您所定的时间到了!
”
#确认钮
“时间到了!
”)
如果真结束
如果真结束
如果真结束
返回()
※以上“开始计时”设定当时间到期时闹钟响铃,通过调用“鸣叫”系统处理命令(通过计算机媒体设备或者喇叭发出一个声音)来表示,或者也可以通过调用一个模拟铃声的声音资源来表示。
㈢、该小小闹钟的完整源程序如下:
窗口程序集:
窗口程序集1
程序集容器:
时数据类型:
整数型
程序集容器:
分数据类型:
整数型
程序集容器:
秒数据类型:
整数型
程序集容器:
开始数据类型:
逻辑型
------------------------------
子程序:
_时钟1_周期事件
当前时间标签.标题=“当前时间为:
”+时间到文本(取现行时间()
)
如果真(开始)
开始计时()
剩余时间显示标签.标题=到文本(时-取时间部分(取现行时间()
#小时))+“时”+到文本(分-取时间部分(取现行时间()
#分钟))+“分”+到文本(秒-取时间部分(取现行时间()
#秒))+“秒”
如果真结束
------------------------------
子程序:
_时编辑框_内容被改变
时=文本到数值(时编辑框.内容)
------------------------------
子程序:
_分编辑框_内容被改变
分=文本到数值(分编辑框.内容)
------------------------------
子程序:
_秒编辑框_内容被改变
秒=文本到数值(秒编辑框.内容)
------------------------------
子程序:
_确认按钮_被单击
如果(时≤60且分≤60且秒≤60)
如果(时≥取时间部分(取现行时间()
#小时))
时编辑框.禁止=真
分编辑框.禁止=真
秒编辑框.禁止=真
确认按钮.禁止=真
开始计时()
开始=真
否则
信息框(“错误!
输入时间小于当前时间!
”
#确认钮
“错误!
”)
如果结束
否则
信息框(“请确认输入时间不得大于60!
”
#确认钮
“错误!
”)
如果结束
------------------------------
子程序:
_更改按钮_被单击
确认按钮.禁止=假
时编辑框.禁止=假
分编辑框.禁止=假
秒编辑框.禁止=假
_启动窗口.位置=1
_启动窗口.总在最前=假
------------------------------
子程序:
_退出按钮_被单击
结束()
------------------------------
子程序:
开始计时
如果真(取时间部分(取现行时间()
#小时)≥时)
如果真(取时间部分(取现行时间()
#分钟)≥分)
如果真(取时间部分(取现行时间()
#秒)≥秒)
时编辑框.禁止=假
分编辑框.禁止=假
秒编辑框.禁止=假
确认按钮.禁止=假
开始=假
_启动窗口.位置=1
_启动窗口.总在最前=假
鸣叫()
信息框(“请注意!
您所定的时间到了!
”
#确认钮
“时间到了!
”)
如果真结束
如果真结束
如果真结束
返回()
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 语言 时尚 编程 100