颜色值到十六进制/十六进制到颜色值

莫小乐

  

子程序名	返回值类型	公开	备 注
颜色值到十六进制	文本型
参数名	类 型	参考	可空	数组	备 注
欲转换数据	整数型

变量名	类 型	静态	数组	备 注
数值	整数型
返回结果	文本型
高位	整数型
低位	整数型

数值 ＝ 欲转换数据
如果真 (数值 ＜ 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
计次循环尾 ()

.版本 2<br /> <br /> .子程序 颜色值到十六进制, 文本型<br /> .参数 欲转换数据, 整数型<br /> .局部变量 数值, 整数型<br /> .局部变量 返回结果, 文本型<br /> .局部变量 高位, 整数型<br /> .局部变量 低位, 整数型<br /> <br /> 数值 ＝ 欲转换数据<br /> .如果真 (数值 ＜ 16)<br />     返回结果 ＝ 多项选择 (数值 ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”)<br />     返回 (“0” ＋ 返回结果)<br /> .如果真结束<br /> 高位 ＝ 取整 (数值 ÷ 16)<br /> 低位 ＝ 数值 ％ 16<br /> 返回结果 ＝ 多项选择 (高位 ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”)<br /> 返回结果 ＝ 返回结果 ＋ 多项选择 (低位 ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”)<br /> 返回 (返回结果)<br /> <br /> .子程序 十六进制到颜色值<br /> .参数 十六进制数据, 文本型<br /> .参数 R, 整数型, 参考<br /> .参数 G, 整数型, 参考<br /> .参数 B, 整数型, 参考<br /> .局部变量 欲转R, 文本型<br /> .局部变量 欲转G, 文本型<br /> .局部变量 欲转B, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 欲转R ＝ 取文本左边 (十六进制数据, 2)<br /> 欲转G ＝ 取文本中间 (十六进制数据, 2, 2)<br /> 欲转B ＝ 取文本右边 (十六进制数据, 2)<br /> .计次循环首 (取文本长度 (欲转R), i)<br />     R ＝ R × 16 ＋ 寻找文本 (“0123456789ABCDEF”, 取文本中间 (到大写 (欲转R), i, 1), , 假) － 1<br /> .计次循环尾 ()<br /> .计次循环首 (取文本长度 (欲转G), i)<br />     G ＝ G × 16 ＋ 寻找文本 (“0123456789ABCDEF”, 取文本中间 (到大写 (欲转G), i, 1), , 假) － 1<br /> .计次循环尾 ()<br /> .计次循环首 (取文本长度 (欲转B), i)<br />     B ＝ B × 16 ＋ 寻找文本 (“0123456789ABCDEF”, 取文本中间 (到大写 (欲转B), i, 1), , 假) － 1<br /> .计次循环尾 ()

游客，如果您要查看本帖隐藏内容请回复

alanwoo

感谢分享

陈治勤

66666666666666666666

ttggnn

        感谢分享

yxl2008

感谢分享，很给力！~

kyo9766

很实用的代码，直接贴代码好评，感谢分享

进化中

感谢分享

一C

有颜色转小数吗

year1970

感谢分享

lassgo

还行吧，进制转换是基础功，练手可以，实际项目直接用系统颜色组件更方便哈。