易语言改变屏幕亮度源码

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

@易语言源码分享站