.版本 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)