易语言XOR计算。求解答

heike8521

给出三个数值
01420401000000
11
22

计算方法为01+42+04+01+00+00+00=48
48+11=49
49xor22  得出结果为7B


请问一下这种怎么通过易语言实现？   可以通过系统计算器计算得出结果，不知道怎么在易语言实现以上功能。

比如   计算结果（01420401000000，11,22）


想要通过上面这种子程序实现返回计算结果，希望有大神能提供一下源码，谢谢了！

菊部变暖

  

子程序名	返回值类型	公开	备 注
计算结果	文本型
参数名	类 型	参考	可空	数组	备 注
参数1	文本型
参数2	文本型
参数3	文本型

变量名	类 型	静态	数组	备 注
次数	整数型
i	整数型
结果	整数型

次数 ＝ 取文本长度 (参数1) ÷ 2
计次循环首 (次数, i)
结果 ＝ 结果 ＋ 进制_十六到十 (取文本中间 (参数1, (i － 1) × 2 ＋ 1, 2))
计次循环尾 ()
结果 ＝ 结果 ＋ 进制_十六到十 (参数2)
结果 ＝ 位异或 (结果, 进制_十六到十 (参数3))
返回 (进制_十到十六 (结果))

.版本 2<br /> <br /> .子程序 计算结果, 文本型<br /> .参数 参数1, 文本型<br /> .参数 参数2, 文本型<br /> .参数 参数3, 文本型<br /> .局部变量 次数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 整数型<br /> <br /> 次数 ＝ 取文本长度 (参数1) ÷ 2<br /> .计次循环首 (次数, i)<br />     结果 ＝ 结果 ＋ 进制_十六到十 (取文本中间 (参数1, (i － 1) × 2 ＋ 1, 2))<br /> .计次循环尾 ()<br /> 结果 ＝ 结果 ＋ 进制_十六到十 (参数2)<br /> 结果 ＝ 位异或 (结果, 进制_十六到十 (参数3))<br /> 返回 (进制_十到十六 (结果))

smy555

xor 位异或

heike8521

smy555 发表于 2021-3-28 00:46
xor 位异或

易语言用这个命令以后不能计算出这个结果{:3_55:}

月明么么哒

48+11=49
49xor22  得出结果为7B

你确定48+11=49 吗  49 xor 22 7B？  感觉你的计算器和我的不一样

heike8521

月明么么哒 发表于 2021-3-28 08:32
48+11=49
49xor22  得出结果为7B

对啊，用系统计算器程序员模式。

真冬

  

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

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

信息框 (计算结果 (“01420401000000”, “11”, “22”), 0, , )

子程序名	返回值类型	公开	备 注
计算结果	文本型
参数名	类 型	参考	可空	数组	备 注
参数1	文本型
参数2	文本型
参数3	文本型

变量名	类 型	静态	数组	备 注
B	对象
A	对象

A.创建 (“VBScript.RegExp”, )
A.写属性 (“Global”, 真)
A.写属性 (“Pattern”, “\w{2}”)
B.创建 (“ScriptControl”, )
B.写属性 (“Language”, “VBScript”)
返回 (B.文本方法 (“Eval”, “Hex((” ＋ A.文本方法 (“Replace”, 参数1 ＋ 参数2, “&H$&+”) ＋ “0)xor&H” ＋ 参数3 ＋ “)”))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 信息框 (计算结果 (“01420401000000”, “11”, “22”), 0, , )<br /> <br /> .子程序 计算结果, 文本型<br /> .参数 参数1, 文本型<br /> .参数 参数2, 文本型<br /> .参数 参数3, 文本型<br /> .局部变量 B, 对象<br /> .局部变量 A, 对象<br /> <br /> A.创建 (“VBScript.RegExp”, )<br /> A.写属性 (“Global”, 真)<br /> A.写属性 (“Pattern”, “\w{2}”)<br /> B.创建 (“ScriptControl”, )<br /> B.写属性 (“Language”, “VBScript”)<br /> 返回 (B.文本方法 (“Eval”, “Hex((” ＋ A.文本方法 (“Replace”, 参数1 ＋ 参数2, “&H$&+”) ＋ “0)xor&H” ＋ 参数3 ＋ “)”))

补充内容 (2021-3-28 17:13):
返回 (B.文本方法 (“Eval”, “Hex((” ＋ A.文本方法 (“Replace”, 参数1, “&H$&+”) ＋ “&H” ＋ 参数2 ＋ “)xor&H” ＋ 参数3 ＋ “)”))