16进制转10进制源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 web, 文本型
.局部变量 a, 整数型
.局部变量 z, 字节集
.局部变量 cd, 整数型
.局部变量 jc, 整数型

web ＝ 编辑框1.内容
cd ＝ 取文本长度 (web) ÷ 2
z ＝ 取空白字节集 (cd)
.如果真 (取文本长度 (web) ％ 2 ＝ 0)  ' 字符串不是双数 那就不再处理了
    a ＝ 1
    .计次循环首 (cd, jc)
        z [jc] ＝ 十六到十 (取文本中间 (web, a, 2))
        a ＝ a ＋ 2
    .计次循环尾 ()
    调试输出 (z, 到文本 (z))
    ' 写到文件 (取特定目录 (3) ＋ “name.txt”, z)
.如果真结束


.子程序 十六到十, 整数型, , 由于是字符串处理信息所以我就这样写的
.参数 进制, 文本型, , 只是支持2字符判断  1个会自动加入  如：2a  或 a 
.局部变量 cd, 整数型
.局部变量 x, 文本型
.局部变量 s, 文本型, , "2"
.局部变量 hex, 文本型, , "6"
.局部变量 hez, 整数型, , "6"
.局部变量 jc, 整数型

cd ＝ 取文本长度 (进制)  ' 长度判断不用我说吧
.如果 (cd ＜ 2)  ' 检测小于2个数据就执行下面的信息
    x ＝ “0” ＋ 进制  ' 这里补上好算
.否则
    x ＝ 进制  ' 没有就算了，
.如果结束
' 判断上面的数
s [1] ＝ 到大写 (取文本中间 (x, 1, 1))  ' 取第一位数
s [2] ＝ 到大写 (取文本中间 (x, 2, 1))  ' 最大就是2字符所以 你输入再多也没有用
hex ＝ { “A”, “B”, “C”, “D”, “E”, “F” }  ' 这是16进制文本
hez ＝ { 10, 11, 12, 13, 14, 15 }  ' 这是10进制数据  对应上面的数   A=10  ......F=15
.计次循环首 (取数组成员数 (hex), jc)  ' 所以这里判断
    .如果真 (hex [jc] ＝ s [1])  ' 判断第一个数组数   hex 是16进制   hez 是 10 进制
        s [1] ＝ 到文本 (hez [jc])
    .如果真结束
    .如果真 (hex [jc] ＝ s [2])  ' 判断第二个数组数   hex 是16进制   hez 是 10 进制
        s [2] ＝ 到文本 (hez [jc])  ' 如果这里 s[2]原数据是  b  那么 现在 就是  11   也就是 对应的 hez数组 前面计次在判断
    .如果真结束
    处理事件 ()  ' 我们要安全处理 所以要事件处理，小数据加不加都无所谓，但是我觉得加上还是好些，免得卡的没法动
.计次循环尾 ()
' 调试输出 (s)  ' 这里就是结果转换的数据了，作为测试输出一下
返回 (到整数 (s [1]) × 16 ＋ 到整数 (s [2]))  ' 计算   算法就是  第一个数据 s[1]  × 16 + s[2]  后一个数据  就是 10进制
' 堆存不懂得兄弟 去看  小甲鱼的 进制转换   视频  讲的还可以的

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

调试输出 (十六到十 (编辑框2.内容))

@汉族