易语言控制系统音量例程
.版本 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.起始选择位置  ' '''''''''''''''''保存光标位置
行号 ＝

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。