易语言十转16进制源码（16进制转换码）
本文目录一览：
易语言中的十进制颜色代码与十六进制的转换问题。
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
调试输出 (颜色值到十六 (#蓝色))
调试输出 (颜色值到RGB (#蓝色))
调试输出 (十六到RGB (“0000FF”))
.子程序 颜色值到RGB, 文本型
.参数 颜色值, 整数型, , 例：#蓝色
.局部变量 RGB, 字节集
RGB ＝ 到字节集 (颜色值)
返回 (到文本 (RGB [1]) ＋ “,” ＋ 到文本 (RGB [2]) ＋ “,” ＋ 到文本 (RGB [3]))
.子程序 颜色值到十六, 文本型
.参数 颜色值, 整数型, , 例：#蓝色
.局部变量 RGB, 字节集
RGB ＝ 到字节集 (颜色值)
返回 (进制_到十六进制 (RGB [1]) ＋ 进制_到十六进制 (RGB [2]) ＋ 进制_到十六进制 (RGB [3]))
.子程序 十六到RGB, 文本型
.参数 文本, 文本型, , 待转换的十六进制文本
.局部变量 x, 整数型
.局部变量 结果, 文本型
.变量循环首 (1, 取文本长度 (文本), 2, x)
结果 ＝ 结果 ＋ 到文本 (进制_十六到十 (取文本中间 (文本, x, 2))) ＋ “,”
.变量循环尾 ()
返回 (取文本左边 (结果, 取文本长度 (结果) － 1))
.子程序 进制_十六到十, 整数型, 公开, 将十六进制转换成十进制
.参数 文本, 文本型, , 待转换的十六进制文本
.局部变量 中间文本, 文本型
.局部变量 结果, 长整数型
.局部变量 x, 整数型
.局部变量 RGB, 字节集
.变量循环首 (1, 取文本长度 (文本), 1, x)
中间文本 ＝ 取文本中间 (文本, x, 1)
结果 ＝ (寻找文本 (“0123456789ABCDEF”, 中间文本, , 真) － 1) × 求次方 (16, 取文本长度 (文本) － x) ＋ 结果
.变量循环尾 ()
返回 (结果)
.子程序 进制_到十六进制, 文本型, 公开
.参数 数值, 整数型, , 只能是255以内的数
返回 (多项选择 (右移 (数值, 4) ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”) ＋ 多项选择 (位与 (数值, 15) ＋ 1, “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F”))
易语言写二进制、八进制、十进制、十六进制代码怎么写？
易源码.版本 2.子程序 十到二, 文本型, 公开, 将十进制转换成二进制(返回二进制文本)
.参数 十进制数, 整数型, , 欲转换的十进制
.局部变量 文本, 文本型
.局部变量 返回文本, 文本型.判断循环首 (十进制数 ＞ 0)
文本 ＝ 文本 ＋ 字符 (取代码 (“0”, ) ＋ 十进制数 ％ 2)
十进制数 ＝ 十进制数 ÷ 2
.判断循环尾 ()
.计次循环首 (取文本长度 (文本), 十进制数)
返回文本 ＝ 返回文本 ＋ 取文本中间 (文本, 取文本长度 (文本) － 十进制数 ＋ 1, 1)
.计次循环尾 ()
返回 (返回文本)
易语言十进制转化为十六进制怎么弄
进制_十六到十 ()
调用模块中易语言十转16进制源码的命令
求易语言十转十六的代码
.版本 2
.子程序 十到十六, 文本型
.参数 十进制数, 整数型
.局部变量 局部_文本, 文本型
.局部变量 局部_余数, 整数型
.局部变量 局部_16文本, 文本型
局部_文本 ＝ “0123456789ABCDEF”
.如果真 (十进制数 ＜ 0)
返回 (“错误数值”)
.如果真结束
.判断循环首 (十进制数 ≥ 0)
局部_余数 ＝ 十进制数 ％ 16
局部_16文本 ＝ 取文本中间 (局部_文本, 局部_余数 ＋ 1, 1) ＋ 局部_16文本
十进制数 ＝ (十进制数 － 局部_余数) ÷ 16
.如果真 (十进制数 ≤ 0)
跳出循环 ()
.如果真结束
.判断循环尾 ()
返回 (局部_16文本)
.子程序 十六到十, 整数型
.参数 十六进制, 文本型
.局部变量 局部_文本, 文本型
.局部变量 局部_计次, 整数型
.局部变量 局部_十进制, 整数型
局部_文本 ＝ “123456789ABCDEF0”
十六进制 ＝ 删全部空 (到半角 (到大写 (十六进制)))
.如果真 (取文本长度 (十六进制) ％ 2 ≠ 0)
返回 (-1)
.如果真结束
.计次循环首 (取文本长度 (十六进制), 局部_计次)
局部_十进制 ＝ 局部_十进制 × 16 ＋ 寻找文本 (局部_文本, 取文本中间 (十六进制, 局部_计次, 1), 1, 假) ％ 16
.计次循环尾 ()
返回 (局部_十进制)
.子程序 字节集到十六, 文本型
.参数 字节集数据, 字节集
.参数 是否用空格分割, 逻辑型, 可空, 默认假
.局部变量 局部_长度, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_文本, 文本型
.局部变量 局部_十六进制, 文本型
.局部变量 局部_返回, 文本型
局部_文本 ＝ “0123456789ABCDEF”
局部_长度 ＝ 取字节集长度 (字节集数据)
.计次循环首 (局部_长度, 局部_计次)
局部_十六进制 ＝ 十到十六 (字节集数据 [局部_计次])
.如果真 (取文本长度 (局部_十六进制) ＝ 1)
局部_十六进制 ＝ “0” ＋ 局部_十六进制
.如果真结束
.如果 (是否用空格分割)
.如果 (局部_计次 ＝ 局部_长度)
局部_返回 ＝ 局部_返回 ＋ 局部_十六进制
.否则
局部_返回 ＝ 局部_返回 ＋ 局部_十六进制 ＋ “ ”
.如果结束
.否则
局部_返回 ＝ 局部_返回 ＋ 局部_十六进制
.如果结束
.计次循环尾 ()
返回 (局部_返回)
.子程序 十六到字节集, 字节集
.参数 十六进制, 文本型
.局部变量 局部_长度, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_临时数据, 字节型, , "0"
十六进制 ＝ 子文本替换 (删全部空 (到半角 (到大写 (十六进制))), #换行符, “”, , , 真)
局部_长度 ＝ 取文本长度 (十六进制)
.如果真 (局部_长度 ％ 2 ≠ 0)
返回 ({ 0 })
.如果真结束
.变量循环首 (1, 局部_长度, 2, 局部_计次)
加入成员 (局部_临时数据, 十六到十 (取文本中间 (十六进制, 局部_计次, 2)))
.变量循环尾 ()
返回 (到字节集 (局部_临时数据))
