易语言例程.docVIP

易语言例程 易语言控制系统音量例程 .版本 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, 整数型 查找所有可视的窗口，然后进行刷新显示 hwn