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