精易论坛

标题: 颜色按比例自动加深子程序（deepseek写的） [打印本页]
作者: 李泽勇2    时间: 3 天前
标题: 颜色按比例自动加深子程序（deepseek写的）


  
子程序名返回值类型公开备 注
颜色加深整数型 
参数名类 型参考可空数组备 注
原颜色值整数型
加深系数小数型推荐范围0-1（0=不变，1=全黑）
变量名类 型静态数组备 注
红分量整数型 
绿分量整数型 
蓝分量整数型 
新红整数型 
新绿整数型 
新蓝整数型 
' 分解RGB分量
红分量 ＝ 原颜色值 ＼ 65536
绿分量 ＝ 原颜色值 ＼ 256 ％ 256
蓝分量 ＝ 原颜色值 ％ 256
' 应用加深系数（修正逻辑：1=全黑，0=不变）
新红 ＝ 取整 (红分量 �� (1 － 加深系数))
新绿 ＝ 取整 (绿分量 �� (1 － 加深系数))
新蓝 ＝ 取整 (蓝分量 �� (1 － 加深系数))
' 边界限制（保持原有逻辑）
如果 (新红 ＜ 0)
新红 ＝ 0
如果 (新红 ＞ 255)
新红 ＝ 255




如果 (新绿 ＜ 0)
新绿 ＝ 0
如果 (新绿 ＞ 255)
新绿 ＝ 255




如果 (新蓝 ＜ 0)
新蓝 ＝ 0
如果 (新蓝 ＞ 255)
新蓝 ＝ 255




' 重组颜色值（符合语法规范的写法）
返回 (新红 × 65536 ＋ 新绿 × 256 ＋ 新蓝)

例子：
作者: 惊鸿大佬    时间: 3 天前
颜色按比例自动加深子程序
作者: pipicool    时间: 3 天前
学习一下
作者: yangxuan87    时间: 3 天前
666666666666
作者: wjswzj0    时间: 3 天前
666666666666
作者: 酷易自绘    时间: 3 天前
RE: 颜色按比例自动加深子程序（deepseek写的） [修改]
作者: renhe2018    时间: 3 天前
这个是真强大啊。
作者: jable    时间: 3 天前
尽力啊看看
作者: gdhong    时间: 前天 07:04
6666666666666666
作者: 豆豆灰常开心    时间: 前天 07:17
已经顶贴，感谢您对论坛的支持！
作者: 查过    时间: 前天 07:21
已经顶贴，感谢您对论坛的支持！
作者: year1970    时间: 前天 07:50
感谢分享
作者: 茽鳡觉    时间: 前天 09:12
感谢分享
作者: 天雨时晴    时间: 前天 09:18
感谢分享
作者: please    时间: 前天 09:36
感谢分享，支持开源！！！
作者: dulang    时间: 前天 09:59
其中精华满满，实在值得认真学习
作者: mytiger    时间: 前天 10:41
感谢分享
作者: bianyuan456    时间: 前天 13:00
已经顶贴，感谢您对论坛的支持！
作者: 谵语    时间: 前天 16:10
6666666666666666
作者: please    时间: 昨天 09:39
感谢分享，支持开源！！！
作者: 胖子葛格    时间: 昨天 14:35
感谢大神分享~！



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4