易语言改变屏幕亮度源码

.版本 2 .程序集 窗口程序集1 .程序集变量 Ramp1, 短整数型, , "0" .程序集变量 Ramp2, 短整数型, , "0" .子程序 改变亮度 .参数 亮度 .局部变量 intRed .局部变量 intGreen .局部变量 intBlue .局部变量 ScrDC, 整数型 .局部变量 i, 整数型 intRed = 亮度 ÷ 2 intBlue = 亮度 ÷ 2 intGreen = 亮度 ÷ 2 ScrDC = GetDC (0) .变量循环首 (1, 256, 1, i) .判断开始 (intRed < 0) Ramp2 [1] [i] = ConvToSignedValue (ConvToUnSignedValue (Ramp1 [1] [i]) × (100 - 取绝对值 (intRed)) ÷ 100) .判断 (intRed = 0) Ramp2 [1] [i] = Ramp1 [1] [i] .判断 (intRed > 0) Ramp2 [1] [i] = ConvToSignedValue (65535 - (65535 - ConvToUnSignedValue (Ramp1 [1] [i])) × (100 - intRed) ÷ 100) .默认 .判断结束 .判断开始 (intGreen < 0) Ramp2 [2] [i] = ConvToSignedValue (ConvToUnSignedValue (Ramp1 [2] [i]) × (100 - 取绝对值 (intGreen)) ÷ 100) .判断 (intGreen = 0) Ramp2 [2] [i] = Ramp1 [2] [i] .判断 (intGreen > 0) Ramp2 [2] [i] = ConvToSignedValue (65535 - (65535 - ConvToUnSignedValue (Ramp1 [2] [i])) × (100 - intGreen) ÷ 100) .默认 .判断结束 .判断开始 (intBlue < 0) Ramp2 [3] [i] = ConvToSignedValue (ConvToUnSignedValue (Ramp1 [3] [i]) × (100 - 取绝对值 (intBlue)) ÷ 100) .判断 (intBlue = 0) Ramp2 [3] [i] = Ramp1 [3] [i] .判断 (intBlue > 0) Ramp2 [3] [i] = ConvToSignedValue (65535 - (65535 - ConvToUnSignedValue (Ramp1 [3] [i])) × (100 - intBlue) ÷ 100) .默认 .判断结束 .变量循环尾 () SetDeviceGammaRamp (ScrDC, Ramp2) ReleaseDC (0, ScrDC) .子程序 ConvToSignedValue, 整数型 .参数 lngValue, 长整数型 .如果真 (lngValue ≤ 32767) 返回 (lngValue) .如果真结束 返回 (lngValue - 65535) .子程序 ConvToUnSignedValue, 长整数型 .参数 intValue, 整数型 .如果真 (intValue ≥ 0) 返回 (intValue) .如果真结束 返回 (intValue + 65535) .子程序 __启动窗口_创建完毕 .局部变量 字节集, 字节集 重定义数组 (Ramp1, 假, 3, 256) 重定义数组 (Ramp2, 假, 3, 256) 保存亮度 () .子程序 保存亮度 .局部变量 ScrDC, 整数型 ScrDC = GetDC (0) GetDeviceGammaRamp (ScrDC, Ramp1) ReleaseDC (0, ScrDC) .子程序 还原亮度 .局部变量 ScrDC, 整数型 ScrDC = GetDC (0) SetDeviceGammaRamp (ScrDC, Ramp1) ReleaseDC (0, ScrDC) .子程序 _按钮1_被单击 改变亮度 (到整数 (编辑框1.内容)) .子程序 _按钮2_被单击 还原亮度 () .子程序 __启动窗口_将被销毁 还原亮度 () ' 本源码来自三叶资源网(www.sanye.cx)
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。必填项已用*标注