易语言例程.docx
- 文档编号:10560849
- 上传时间:2023-02-21
- 格式:DOCX
- 页数:56
- 大小:35.59KB
易语言例程.docx
《易语言例程.docx》由会员分享,可在线阅读,更多相关《易语言例程.docx(56页珍藏版)》请在冰豆网上搜索。
易语言例程
易语言控制系统音量例程
.版本2
.支持库eMMedia
.程序集窗口程序集1
.程序集变量左音量,整数型
.程序集变量右音量,整数型
.程序集变量最大音量,整数型
.子程序__启动窗口_创建完毕
.如果真(系统音量1.打开(#音量类型.主音量)=0)'打开系统音量并判断是否成功打开
信息框(“主音量控制打开失败!
”,0,“错误”)
结束()
.如果真结束
最大音量=系统音量1.取最大音量()'取出系统最大音量
系统音量1.取音量(左音量,右音量)'取出系统音量
滑块条1.位置=到整数((左音量+右音量)÷2×100÷最大音量+1)'显示当前系统音量
标签2.标题=到文本(滑块条1.位置)'用数字来显示滑块条位置
.子程序_滑块条1_位置被改变
标签2.标题=到文本(滑块条1.位置)'拖动滑块条时实时用数字来显示滑块条位置
系统音量1.置音量(最大音量×滑块条1.位置÷100,最大音量×滑块条1.位置÷100)
.子程序_超级按钮1_被单击
.判断开始(滑块条1.位置<100)
滑块条1.位置=滑块条1.位置+5
.默认
滑块条1.位置=100
.判断结束
_滑块条1_位置被改变()
.子程序_超级按钮2_被单击
滑块条1.位置=滑块条1.位置-5
_滑块条1_位置被改变()
易语言控制系统音量例程
.版本2
.程序集程序集1
.子程序_启动子程序,整数型,,请在本子程序中放置易模块初始化代码
_临时子程序()'在初始化代码执行完毕后调用测试代码
返回(0)'可以根据您的需要返回任意数值
.子程序_临时子程序
'本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。
***注意不要修改本子程序的名称、参数及返回值类型。
.子程序取随机多位数文本,文本型,公开,取几个位数,第一位不会为0,本来弄整数型的,位数有限制,结果发现文本型更好,位数可以无限制!
如果你要整数型就来格到整数吧。
呵呵!
.参数数位个数,整数型,,多少个数字无所谓,这里不要写0啊!
.局部变量计次,整数型
.局部变量临时取数,整数型
.局部变量返回值,整数型
.局部变量多位数文本,文本型
多位数文本=“”
.计次循环首(数位个数,计次)
'置随机数种子()
临时取数=取随机数(0,9)
.如果真(计次=1)
.如果真(临时取数=0)
临时取数=取随机数(1,9)
.如果真结束
.如果真结束
多位数文本=多位数文本+到文本(临时取数)
.计次循环尾()
返回(多位数文本)
取随机多位数文本模块源码
.版本2
.程序集窗口程序集1
.子程序_按钮1_被单击
.局部变量NULL,文本型
.局部变量hwnd,整数型
'查找所有可视的窗口,然后进行刷新显示
hwnd=FindWindowEx(0,0,NULL,NULL)
.判断循环首(hwnd≠0)
hwnd=FindWindowEx(0,hwnd,NULL,NULL)
.判断开始(dll_窗口是否可见(hwnd)≠0)
'程序集_是否可见=真
'用RedrawWindow这个API刷新效果最好
dll_刷新_RedrawWindow(hwnd,0,0,位或(4,256,1,128))
.默认
'程序集_是否可见=假
.判断结束
.判断循环尾()
易语言取随机数命令例程
.版本2
.程序集窗口程序集1
.子程序_按钮1_被单击
置随机数种子()
编辑框1.内容=到文本(取随机数(0,9))
编辑框2.内容=到文本(取随机数(0,9))
易语言文本操作_取文本长度
.版本2
.程序集窗口程序集1
.子程序_按钮1_被单击
标签1.标题=“编辑框中的文本长度是:
”+到文本(取文本长度(编辑框1.内容))+“字节”
易语言配置文件例程_记住滑块条位置例子
.版本2
.程序集窗口程序集1
.程序集变量配置名,文本型
.程序集变量滑动条位置
.程序集变量现行位置,文本型
.子程序__启动窗口_创建完毕
配置名=取运行目录()+“\配置.ini”
.如果(文件是否存在(配置名)=假)
写配置项(配置名,“状态”,“位置”,“5”)
判断位置()
.否则
判断位置()
.如果结束
标签1.标题=到文本(滑块条1.位置)
.子程序判断位置
滑动条位置=到整数(读配置项(配置名,“状态”,“位置”,“”))
滑块条1.位置=滑动条位置
.子程序_滑块条1_位置被改变
现行位置=到文本(滑块条1.位置)
标签1.标题=现行位置
写配置项(配置名,“状态”,“位置”,现行位置)
易语言配置文件例程_记住单选框状态例子
.版本2
.程序集窗口程序集1
.程序集变量配置名,文本型
.程序集变量选中,文本型
.子程序__启动窗口_创建完毕
配置名=取运行目录()+“\配置.ini”
.如果(文件是否存在(配置名)=假)
写配置项(配置名,“状态”,“默认选中”,“1”)
判断状态()
.否则
判断状态()
.如果结束
.子程序判断状态
选中=读配置项(配置名,“状态”,“默认选中”,“”)
.判断开始(选中=“1”)
单选框1.选中=真
.判断(选中=“2”)
单选框2.选中=真
.判断(选中=“3”)
单选框3.选中=真
.默认
.判断结束
.子程序写状态
.判断开始(单选框1.选中=真)
写配置项(配置名,“状态”,“默认选中”,“1”)
.判断(单选框2.选中=真)
写配置项(配置名,“状态”,“默认选中”,“2”)
.判断(单选框3.选中=真)
写配置项(配置名,“状态”,“默认选中”,“3”)
.默认
.判断结束
.子程序_单选框1_被单击
写状态()
.子程序_单选框2_被单击
写状态()
.子程序_单选框3_被单击
写状态()
易语言实例_取文本左边实例
.版本2
.程序集启动窗口程序集
.子程序_取文本左边按钮_被单击
.局部变量文本变量,文本型
文本变量=取文本左边(编辑框1.内容,4)
信息框(“左边4个字符是:
”+文本变量,0,)
'这里要注意,一个汉字等于两个字符!
!
易语言实例_子文本替换实例
.版本2
.程序集窗口程序集1
.子程序_按钮1_被单击
编辑框1.内容=子文本替换(编辑框1.内容,编辑框2.内容,编辑框3.内容,0,,真)
易语言实例_用超级编辑框实现语法加亮效果
.版本2
.支持库iext2
.支持库RegEx
.程序集超编辑框
.程序集变量完成,整数型
.程序集变量字型,各种字型格式,,"6"
.程序集变量字体,字符格式
.子程序__启动窗口_创建完毕
.局部变量文本,文本型
.局部变量中英文正则式,文本型
.局部变量老色,整数型
.局部变量段落,段落格式
.局部变量中英文正则1,文本型
.局部变量尾部,文本型
.局部变量常量正则式,文本型,静态,"11"
.局部变量常量正则文本,文本型,静态
.局部变量关键字集,文本型
字体.字体大小=11
字体.文本颜色=#黑色
字体.字体名称=“新宋体”
超级编辑框1.置默认字符格式(字体)
'''''''''''''''''''''''关键字'''''''''''''''''''''''''''''''''''''
中英文正则1=“([”+字符(-127)+“-”+字符(-2)+“\w])”
尾部=“(?
!
”+中英文正则1+“)”
关键字集=“(if|case|for|switch|esle|结构|整数|浮点数|main|int|字节|文本型|变量循环首)”'在这里加入关键字,用"|"号分隔就行了
中英文正则式=“(?
”+中英文正则1+“)”+关键字集+尾部
字型[1].正则式=中英文正则式
字型[1].字符们.文本颜色=#蓝色
'''''''''''''''''大中小括号''''''''''''''''''''''''''''''''''''''
字型[2].正则式=“\{|\}|\[|\]|\(|\)”
字型[2].字符们.文本颜色=#黄褐
'''''''''''''''''常量''''''''''''''''''''''''''''''''''''''
常量正则式[1]=“'\\?
.'”'字符常量
常量正则式[2]=“'\\.'”'字符常量
常量正则式[3]=“\b\d+\.*\d*[eE][+-]?
\d+”'指数型浮点常量
常量正则式[4]=“\b([0-9]+\.[0-9]+)|(\b[0-9]+\.[0-9]+)”'浮点常量
常量正则式[5]=“\b0[xX][0-9a-fA-f]+”'16进制常量
常量正则式[6]=“\b[0-9][0-9a-fA-f]+[hH]”'16进制常量
常量正则式[7]=“\b0[bB][0-1]+”'2进制常量
常量正则式[8]=“\b0[0-7]+(?
=[\W])”'8进制常量
常量正则式[9]=“\b([0-9]+(?
=[\W]))”'整数常量
常量正则文本=常量正则式[1]+“|”+常量正则式[3]+“|”+常量正则式[4]+“|”+常量正则式[5]+“|”+常量正则式[6]+“|”+常量正则式[7]+“|”+常量正则式[8]+“|”+常量正则式[9]
字型[3].正则式=常量正则文本
字型[3].字符们.文本颜色=#紫红
'''''''''''''''''预处理''''''''''''''''''''''''''''''''
字型[4].正则式=“#[^\r]*(?
=\r)”
字型[4].字符们.文本颜色=#品红
'''''''''''''''''字符串''''''''''''''''''''''''''''''''
字型[5].正则式=#引号+“([^”+#引号+“\\]*\\.)*”+“[^”+#引号+“]*”+#引号
字型[5].字符们.文本颜色=#绿色
'''''''''''''''''注释''''''''''''''''''''''注释一定要在最后才能正确覆盖''''''''''
字型[6].正则式=“//[^\r]*\r”
字型[6].字符们.文本颜色=#绿色
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''初始化'''''''''''''''''''''''''''''
初始化()
.子程序_重画_被单击
.局部变量i,整数型
.局部变量文本,文本型
.局部变量中英文正则式,文本型
初始化()
.子程序模块_超级编辑框加入信息,,公开
.参数哪个超级编辑框,超级编辑框,参考
.参数被加入的提示信息,文本型
.参数提示信息颜色,整数型
.参数起始位置
.参数长度
.局部变量格式,字符格式,静态
.局部变量段,段落格式
格式.字体大小=字体.字体大小
格式.字体名称=字体.字体名称
格式.文本颜色=提示信息颜色
哪个超级编辑框.起始选择位置=起始位置
哪个超级编辑框.被选择字符数=长度
哪个超级编辑框.置选择区字符格式(格式)
哪个超级编辑框.被选择文本=被加入的提示信息
超级编辑框1.被选择字符数=0
.子程序取字符数,整数型
.参数文本,文本型,参考
.参数左部,整数型,参考
.局部变量个数,整数型
.局部变量字符位置,整数型
个数=左部
字符位置=1
.判断循环首(字符位置<左部)
.如果(取代码(取文本中间(文本,字符位置,1),)<0或取代码(取文本中间(文本,字符位置,1),)=13)
个数=个数-1
字符位置=字符位置+2
.否则
字符位置=字符位置+1
.如果结束
.判断循环尾()
返回(个数)
.子程序直接替换
.参数行号,整数型
.局部变量文本,文本型
.局部变量中英文正则式,文本型
.局部变量超级长度,整数型
.局部变量位置1,整数型
.局部变量中英文正则1,文本型
.局部变量长度,整数型
.局部变量自变量,整数型
超级长度=超级编辑框1.取行首位置(行号)
文本=超级编辑框1.取行文本(行号)
位置1=取字符数(文本,取文本长度(文本))
模块_超级编辑框加入信息(超级编辑框1,文本,#黑色,超级长度,位置1)''''''''''''''要执行两次,不然输入汉字时,有时会使默认的颜色变成红色.不过再次输入时就会还原'
模块_超级编辑框加入信息(超级编辑框1,文本,#黑色,超级长度,位置1)''''''''''''''
长度=取数组下标(字型,)
.变量循环首(1,长度,1,自变量)
搜索单语句(超级编辑框1,行号,字型[自变量].正则式,字型[自变量].字符们.文本颜色)
.变量循环尾()
.子程序搜索单语句
.参数超级框,超级编辑框,参考
.参数行号,整数型
.参数常量正则式,文本型,参考
.参数颜色,整数型
.局部变量正则表达式1,正则表达式
.局部变量搜索结果1,搜索结果,,"0"
.局部变量位置1,整数型
.局部变量自变量,整数型
.局部变量匹配长度,整数型
.局部变量匹配文本,文本型
.局部变量长度1,整数型
.局部变量文本,文本型
.局部变量行数,整数型
.局部变量变量,整数型
.局部变量超级长度,整数型
超级框.隐藏选择=真
正则表达式1.创建(常量正则式,假)
.如果真(正则表达式1.是否为空()=真)
信息框(常量正则式+“表达式有误”,0,)
返回()
.如果真结束
文本=超级框.取行文本(行号)
超级长度=超级框.取行首位置(行号)
搜索结果1=正则表达式1.搜索全部(文本)
长度1=取数组下标(搜索结果1,)
.变量循环首(长度1,1,-1,自变量)
匹配文本=搜索结果1[自变量].取匹配文本(文本,位置1)
位置1=取字符数(文本,位置1)
位置1=位置1+超级长度
匹配长度=取字符数(匹配文本,取文本长度(匹配文本))
模块_超级编辑框加入信息(超级框,匹配文本,颜色,位置1,匹配长度)
.变量循环尾()
超级框.隐藏选择=假
.子程序_超级编辑框1_内容被改变
.局部变量行号,整数型
.局部变量文本,文本型
.局部变量长度,整数型
.局部变量字体,字符格式
.局部变量光标,整数型
.如果(重画.标记≠“”)
返回()'''''''''''''''''''''''''''''''重画时也会执行,所以要屏掉
.否则
.如果结束
光标=超级编辑框1.起始选择位置''''''''''''''''''保存光标位置
行号=超级编辑框1.取字符所在行()
超级编辑框3.获取焦点()''''''''''''''''''''''''起始位置加被选择字符选择后选择区背景会变成蓝色.没办法只能先隐掉,把焦点也要让出去
超级编辑框1.可视=假
直接替换(行号)
超级编辑框1.可视=真
超级编辑框1.获取焦点()'''''''''''''''''''''''运行完成后还原焦点
超级编辑框1.起始选择位置=光标'''''''''''''''还原光标
超级编辑框1.被选择字符数=0''''''''''''''''''''让光标停在字符中间
.子程序_组合框1_列表项被选择
.局部变量工,整数型
工=组合框1.现行选中项
.如果(字型[工+1].字符们.文本颜色=0)
返回()
.否则
.如果结束
颜色选择器1.颜色=字型[工+1].字符们.文本颜色
.子程序_颜色选择器1_颜色被改变
.局部变量工,整数型
.局部变量颜色,整数型,,"12"
工=组合框1.现行选中项
.如果(工=-1)
返回()
.否则
.如果结束
字型[工+1].字符们.文本颜色=颜色选择器1.颜色
初始化()
.子程序初始化
.局部变量行数,整数型
.局部变量行变量,整数型
.局部变量行文本,文本型
.局部变量长度,整数型
.局部变量自变量,整数型
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''初始化'''''''''''''''''''''''''''''
重画.标记=“”
.如果(超级编辑框1.内容=“”)
返回()
.否则
.如果结束
重画.标记=“0”
行数=超级编辑框1.取行数()
长度=取数组下标(字型,)
.变量循环首(0,行数,1,行变量)
.变量循环首(1,长度,1,自变量)
搜索单语句(超级编辑框1,行变量,字型[自变量].正则式,字型[自变量].字符们.文本颜色)
.变量循环尾()
自变量=1
.变量循环尾()
重画.标记=“”
.子程序_超级编辑框1_鼠标右键被放开,逻辑型
.参数横向位置,整数型
.参数纵向位置,整数型
.参数功能键状态,整数型
.局部变量位置1,整数型
.局部变量位置2,整数型
重画.标记=“0”
位置1=超级编辑框1.起始选择位置
.如果(匹配括号点选(超级编辑框1)=真)
重画.标记=“”
返回()
.否则
.如果结束
超级编辑框1.起始选择位置=位置1
位置2=超级编辑框1.寻找(位置1,,,“{”)
.如果(位置2≠位置1)
返回()
.否则
.如果结束
寻找匹配括号(超级编辑框1,位置2)
重画.标记=“”
.子程序寻找匹配括号
.参数超级编辑框,超级编辑框,参考
.参数位置2
.局部变量索引,整数型
.局部变量左括号,整数型
.局部变量超级编辑框们,超级编辑框,静态,"0"
.局部变量超级索引,整数型,静态
.局部变量格式数字,文本型
.局部变量原始位置,整数型
.局部变量回车符,整数型
.局部变量数组指针,整数型,静态,"0"
.局部变量文本1,文本型
.局部变量长度,整数型
.局部变量数字,整数型
.局部变量自变量,整数型
.局部变量起始位置1,整数型
.局部变量只读文本,字符格式,静态
.局部变量行数,整数型
.局部变量起始位置,整数型
只读文本.字体名称=“新宋体”
只读文本.效果=#禁止更改
只读文本.字体大小=11
只读文本.文本颜色=#红色
索引=位置2
左括号=位置2+1
自变量=1
.循环判断首()
索引=超级编辑框.寻找(索引,,,“}”)
.如果(索引<1)
返回()
.否则
左括号=超级编辑框.寻找(左括号,,,“{”)
.如果(左括号>索引或左括号<1)
回车符=超级编辑框.寻找(索引-1,,,字符(13))
跳出循环()
.否则
左括号=左括号+1
索引=索引+1
.如果结束
.如果结束
.循环判断尾(真)
超级编辑框.起始选择位置=超级编辑框.起始选择位置+1
起始位置1=超级编辑框.起始选择位置
超级编辑框.被选择字符数=索引-超级编辑框.起始选择位置
超级编辑框.可视=假
''''''''''''''''''''''''''''''''''看是不是展开括号'''''''''''''''''
文本1=超级编辑框.被选择文本
长度=取文本长度(文本1)
.如果(长度=6或长度=4)
数字=到数值(文本1)
.如果(数字≥1)
超级编辑框们[数字].被选择字符数=-1
超级编辑框们[数字].被选择字符数=超级编辑框们[数字].被选择字符数-1
超级编辑框们[数字].剪切()
超级编辑框.粘贴()
超级编辑框.起始选择位置=起始位置1-1
超级编辑框.被选择字符数=0
超级编辑框.可视=真
超级编辑框们[数字].内容=“”
返回()
.否则
.如果结束
.否则
.如果结束
'''''''''''''''''''''''''
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 语言 例程