RGB颜色转ARGB颜色

帅气与大侠

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (rgba16 (“#333”, 0))

子程序名	返回值类型	公开	备 注
rgba	整数型
参数名	类 型	参考	可空	数组	备 注
红
绿
蓝
透明度

变量名	类 型	静态	数组	备 注
cr	字节集

cr ＝ 取空白字节集 (4)
cr [3] ＝ 红
cr [2] ＝ 绿
cr [1] ＝ 蓝
cr [4] ＝ 透明度
返回 (取字节集数据 (cr, #整数型, ))

子程序名	返回值类型	公开	备 注
rgba10	整数型
参数名	类 型	参考	可空	数组	备 注
颜色值	整数型
透明度	整数型

变量名	类 型	静态	数组	备 注
cr	字节集
tmp	整数型

cr ＝ 到字节集 (颜色值)
tmp ＝ cr [1]
cr [1] ＝ cr [3]
cr [3] ＝ tmp
cr [4] ＝ 透明度
返回 (取字节集数据 (cr, #整数型, ))

子程序名	返回值类型	公开	备 注
rgba16	整数型		将十六进制颜色转换到RGBA颜色，支持3位缩写颜色，如#333
参数名	类 型	参考	可空	数组	备 注
颜色值	文本型				#号会自动过滤
透明度	整数型

变量名	类 型	静态	数组	备 注
十六进制颜色	文本型
文本长度	整数型
i	整数型
文本	文本型
rgb	整数型
cr	字节集
tmp	整数型

十六进制颜色 ＝ 颜色值
十六进制颜色 ＝ 子文本替换 (十六进制颜色, “#”, “”, , , 真)
十六进制颜色 ＝ 删全部空 (十六进制颜色)
文本长度 ＝ 取文本长度 (十六进制颜色)
如果真 (文本长度 ＝ 3)
十六进制颜色 ＝ 取重复文本 (2, 取文本中间 (十六进制颜色, 1, 1)) ＋ 取重复文本 (2, 取文本中间 (十六进制颜色, 2, 1)) ＋ 取重复文本 (2, 取文本中间 (十六进制颜色, 3, 1))
文本长度 ＝ 取文本长度 (十六进制颜色)

' 过滤掉多余的，只计算前面六位16进制颜色
计次循环首 (6, i)
文本 ＝ 到小写 (取文本中间 (十六进制颜色, i, 1))
判断 (文本 ＝ “a”)
文本 ＝ “10”
判断 (文本 ＝ “b”)
文本 ＝ “11”
判断 (文本 ＝ “c”)
文本 ＝ “12”
判断 (文本 ＝ “d”)
文本 ＝ “13”
判断 (文本 ＝ “e”)
文本 ＝ “14”
判断 (文本 ＝ “f”)
文本 ＝ “15”



判断 (i ＝ 1)
rgb ＝ 到整数 (文本)
rgb ＝ rgb × 16 ＋ 到整数 (文本)

' 公式：333333
' rgb=3
' 3*16+3=51
' 51*16+3=xxx
' .....
.
计次循环尾 ()
cr ＝ 到字节集 (rgb)
tmp ＝ cr [1]
cr [1] ＝ cr [3]
cr [3] ＝ tmp
cr [4] ＝ 透明度
返回 (取字节集数据 (cr, #整数型, ))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (rgba16 (“#333”, 0))<br /> <br /> .子程序 rgba, 整数型<br /> .参数 红<br /> .参数 绿<br /> .参数 蓝<br /> .参数 透明度<br /> .局部变量 cr, 字节集<br /> <br /> cr ＝ 取空白字节集 (4)<br /> cr [3] ＝ 红<br /> cr [2] ＝ 绿<br /> cr [1] ＝ 蓝<br /> cr [4] ＝ 透明度<br /> 返回 (取字节集数据 (cr, #整数型, ))<br /> <br /> .子程序 rgba10, 整数型<br /> .参数 颜色值, 整数型<br /> .参数 透明度, 整数型<br /> .局部变量 cr, 字节集<br /> .局部变量 tmp, 整数型<br /> <br /> cr ＝ 到字节集 (颜色值)<br /> tmp ＝ cr [1]<br /> cr [1] ＝ cr [3]<br /> cr [3] ＝ tmp<br /> cr [4] ＝ 透明度<br /> 返回 (取字节集数据 (cr, #整数型, ))<br /> <br /> .子程序 rgba16, 整数型, , 将十六进制颜色转换到RGBA颜色，支持3位缩写颜色，如#333<br /> .参数 颜色值, 文本型, , #号会自动过滤<br /> .参数 透明度, 整数型<br /> .局部变量 十六进制颜色, 文本型<br /> .局部变量 文本长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 rgb, 整数型<br /> .局部变量 cr, 字节集<br /> .局部变量 tmp, 整数型<br /> <br /> 十六进制颜色 ＝ 颜色值<br /> <br /> 十六进制颜色 ＝ 子文本替换 (十六进制颜色, “#”, “”, , , 真)<br /> 十六进制颜色 ＝ 删全部空 (十六进制颜色)<br /> <br /> 文本长度 ＝ 取文本长度 (十六进制颜色)<br /> .如果真 (文本长度 ＝ 3)<br />     十六进制颜色 ＝ 取重复文本 (2, 取文本中间 (十六进制颜色, 1, 1)) ＋ 取重复文本 (2, 取文本中间 (十六进制颜色, 2, 1)) ＋ 取重复文本 (2, 取文本中间 (十六进制颜色, 3, 1))<br />     文本长度 ＝ 取文本长度 (十六进制颜色)<br /> .如果真结束<br /> <br /> <br /> ' 过滤掉多余的，只计算前面六位16进制颜色<br /> .计次循环首 (6, i)<br /> <br />     文本 ＝ 到小写 (取文本中间 (十六进制颜色, i, 1))<br />     .判断开始 (文本 ＝ “a”)<br />         文本 ＝ “10”<br />     .判断 (文本 ＝ “b”)<br />         文本 ＝ “11”<br />     .判断 (文本 ＝ “c”)<br />         文本 ＝ “12”<br />     .判断 (文本 ＝ “d”)<br />         文本 ＝ “13”<br />     .判断 (文本 ＝ “e”)<br />         文本 ＝ “14”<br />     .判断 (文本 ＝ “f”)<br />         文本 ＝ “15”<br />     .默认<br /> <br />     .判断结束<br /> <br />     .判断开始 (i ＝ 1)<br />         rgb ＝ 到整数 (文本)<br />     .默认<br />         rgb ＝ rgb × 16 ＋ 到整数 (文本)<br />     .判断结束<br /> <br /> <br />     ' 公式：333333<br />     ' rgb=3<br />     ' 3*16+3=51<br />     ' 51*16+3=xxx<br />     ' .....<br /> <br />     .<br /> .计次循环尾 ()<br /> <br /> cr ＝ 到字节集 (rgb)<br /> <br /> tmp ＝ cr [1]<br /> cr [1] ＝ cr [3]<br /> cr [3] ＝ tmp<br /> cr [4] ＝ 透明度<br /> 返回 (取字节集数据 (cr, #整数型, ))

aismy

感谢！！

530278137

6666666666666666666

ghost12

新技能已get√

q312459945

666666666666666666666666666666666

sinewtec

支持开源~！感谢分享

已注销664463

666666666666666

立青

感谢分享

Code123

感谢开源！！！！！

我很低调