精易论坛

标题: 颜色值到十六进制/十六进制到颜色值 [打印本页]

作者: 莫小乐    时间: 前天 08:22
标题: 颜色值到十六进制/十六进制到颜色值
本帖最后由 莫小乐 于 2026-6-21 08:34 编辑

  
子程序名返回值类型公开备 注
颜色值到十六进制文本型 
参数名类 型参考可空数组备 注
欲转换数据整数型
变量名类 型静态数组备 注
数值整数型 
返回结果文本型 
高位整数型 
低位整数型 
数值 = 欲转换数据
如果真 (数值 < 16)
返回结果 = 多项选择 (数值 + 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”)
返回 (“0” + 返回结果)
高位 = 取整 (数值 ÷ 16)
低位 = 数值 % 16
返回结果 = 多项选择 (高位 + 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”)
返回结果 = 返回结果 + 多项选择 (低位 + 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”)
返回 (返回结果)
子程序名返回值类型公开备 注
十六进制到颜色值  
参数名类 型参考可空数组备 注
十六进制数据文本型
R整数型
G整数型
B整数型
变量名类 型静态数组备 注
欲转R文本型 
欲转G文本型 
欲转B文本型 
i整数型 
欲转R = 取文本左边 (十六进制数据, 2)
欲转G = 取文本中间 (十六进制数据, 2, 2)
欲转B = 取文本右边 (十六进制数据, 2)
计次循环首 (取文本长度 (欲转R), i)
R = R × 16 + 寻找文本 (“0123456789ABCDEF”, 取文本中间 (到大写 (欲转R), i, 1), , ) - 1
计次循环尾 ()
计次循环首 (取文本长度 (欲转G), i)
G = G × 16 + 寻找文本 (“0123456789ABCDEF”, 取文本中间 (到大写 (欲转G), i, 1), , ) - 1
计次循环尾 ()
计次循环首 (取文本长度 (欲转B), i)
B = B × 16 + 寻找文本 (“0123456789ABCDEF”, 取文本中间 (到大写 (欲转B), i, 1), , ) - 1
计次循环尾 ()



作者: 网络注册会员    时间: 前天 12:19
支持一下
作者: Demono    时间: 前天 12:35
看着挺棒的,赞一个。
作者: myface    时间: 前天 13:58
支持一下
作者: bianyuan456    时间: 前天 14:22
已经顶贴,感谢您对论坛的支持!
作者: 杨明煜    时间: 前天 14:50
学习看看..!....
作者: 1184798949    时间: 前天 14:50
感谢分享
作者: kyo9766    时间: 前天 16:05
直接上代码 好评,感谢分享
作者: hehz977    时间: 前天 16:38
直接上代码 好评,感谢分享
作者: lzptts    时间: 前天 19:06
直接上代码 好评,感谢分享
作者: caiguizi    时间: 前天 20:53
直接上代码 好评,感谢分享
作者: 鱼雨遇玉羽    时间: 前天 20:54
感谢分享
作者: jysoft2022    时间: 前天 20:58
谢谢分享
作者: lassgo    时间: 昨天 07:00
还行吧,进制转换是基础功,练手可以,实际项目直接用系统颜色组件更方便哈。
作者: year1970    时间: 昨天 08:07
感谢分享
作者: 一C    时间: 昨天 08:16
有颜色转小数吗
作者: 进化中    时间: 昨天 08:29
感谢分享
作者: kyo9766    时间: 昨天 09:57
很实用的代码,直接贴代码好评,感谢分享
作者: yxl2008    时间: 昨天 15:15
感谢分享,很给力!~
作者: ttggnn    时间: 昨天 21:03
        感谢分享
作者: 陈治勤    时间: 昨天 23:33
66666666666666666666
作者: alanwoo    时间: 3 小时前
感谢分享




欢迎光临 精易论坛 (https://bbs.ijingyi.com/) Powered by Discuz! X3.4