支持任意大的16进制转10进制例程

资源介绍：

支持任意大的16进制转10进制例程

资源作者：

@三叶自学网

资源界面：

.版本 2
.支持库 eCalc

.子程序 _按钮1_被单击

编辑框2.内容 ＝ 十六进制到十进制 (编辑框1.内容)

.子程序 十六进制到十进制, 文本型
.参数 十六进制文本, 文本型
.局部变量 循环次数, 整数型
.局部变量 代码, 整数型
.局部变量 临时1, 大数
.局部变量 临时2, 大数
.局部变量 结果, 大数
.局部变量 乘方, 大数
.局部变量 进制, 大数
.局部变量 文本, 文本型

进制.导入数字 (16)
文本 ＝ 到小写 (到半角 (十六进制文本))
.计次循环首 (取文本长度 (文本), 循环次数)
    代码 ＝ 取代码 (取文本中间 (到大写 (文本), 取文本长度 (文本) － 循环次数 ＋ 1, 1), )
    临时1.导入数字 (代码 － 55)
    临时2.导入数字 (代码 － 48)
    乘方.导入数字 (1)
    .计次循环首 (循环次数 － 1, )
        乘方 ＝ 乘方.乘 (进制)
    .计次循环尾 ()
    结果 ＝ 选择 (代码 ≥ 65 且 代码 ≤ 70, 结果.加 (临时1.乘 (乘方)), 结果.加 (临时2.乘 (乘方)))
.计次循环尾 ()
返回 (结果.导出文本 ())

资源下载：