这个计算规则怎么写。。应该是位移，位或，位与，大佬来帮忙看看

419174704

他是这样的。A为字节型，0-255
B为字节型，0-255
A跟B的计算结果为短整数，  -32768 到 32767

下面是顺序。
A        B        结果
0        0         0
1        0         1
2        0         2
255    0         255
0        1         256
1        1         257
2        1         258
0        127     32512
255    127     32767
上面  B 小于127，结果就是B*256+A，结果是依次增大
下面  B 大于127，结果就是依次减小    公式有点像   -32768-（32767-（B*256+A））
0         128    -32768
1         128    -32767
2         128    -32766

现在是只知道结果，怎么的出A跟B的准确值。。。不用公式计算
用这些来计算应该怎么写。
位与 (, )
位或 (, )
位取反 ()
位异或 (, )
左移 (, )
右移 (, )
数学比较差，还望有大佬来指点迷津

冯古屋

419174704 发表于 2019-6-9 22:53
大哥。
我需要时知道结果，计算出A跟B。而不是知道A跟B来计算结果。
咋整，帮我看看

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (子程序1 (-32766))
调试输出 (子程序1 (-32767)
调试输出 (子程序1 (-32768))
调试输出 (子程序1 (32767))
调试输出 (子程序1 (32512))
调试输出 (子程序1 (257))

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
ret	短整数型

变量名	类 型	静态	数组	备 注
get	文本型

get ＝ 字节集_字节集转文本 (到字节集 (ret))
返回 (文本_取出中间文本 (get, “{”, “}”))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> 调试输出 (子程序1 (-32766))<br /> 调试输出 (子程序1 (-32767)<br /> 调试输出 (子程序1 (-32768))<br /> 调试输出 (子程序1 (32767))<br /> 调试输出 (子程序1 (32512))<br /> 调试输出 (子程序1 (257))<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 ret, 短整数型<br /> .局部变量 get, 文本型<br /> <br /> get ＝ 字节集_字节集转文本 (到字节集 (ret))<br /> 返回 (文本_取出中间文本 (get, “{”, “}”))

这个意思？

冯古屋

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (子程序1 (1, 0))
调试输出 (子程序1 (2, 0))
调试输出 (子程序1 (1, 1))
调试输出 (子程序1 (2, 1))
调试输出 (子程序1 (255, 127))
调试输出 (子程序1 (2, 128))

子程序名	返回值类型	公开	备 注
子程序1	整数型
参数名	类 型	参考	可空	数组	备 注
a	字节型
b	字节型

变量名	类 型	静态	数组	备 注
str	文本型

str ＝ 取文本右边 (“00000000” ＋ 进制_十到二 (到整数 (b)), 8) ＋ 取文本右边 (“00000000” ＋ 进制_十到二 (到整数 (a)), 8)
返回 (到短整数 (进制_二到十 (str)))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (子程序1 (1, 0))<br /> 调试输出 (子程序1 (2, 0))<br /> 调试输出 (子程序1 (1, 1))<br /> 调试输出 (子程序1 (2, 1))<br /> 调试输出 (子程序1 (255, 127))<br /> 调试输出 (子程序1 (2, 128))<br /> <br /> .子程序 子程序1, 整数型<br /> .参数 a, 字节型<br /> .参数 b, 字节型<br /> .局部变量 str, 文本型<br /> <br /> str ＝ 取文本右边 (“00000000” ＋ 进制_十到二 (到整数 (b)), 8) ＋ 取文本右边 (“00000000” ＋ 进制_十到二 (到整数 (a)), 8)<br /> 返回 (到短整数 (进制_二到十 (str)))

其实都不是，就是两个数的组合

阿杰大大

估计A是低8位，B是高8位，

419174704

冯古屋 发表于 2019-6-9 22:32
[e=0].版本 2
.支持库 spec

大哥。
我需要时知道结果，计算出A跟B。而不是知道A跟B来计算结果。
咋整，帮我看看

haijie1223

.版本 2
.支持库 spec

调试输出 (合并短整数 (0, 0))
调试输出 (合并短整数 (1, 0))
调试输出 (合并短整数 (2, 0))
调试输出 (合并短整数 (255, 0))
调试输出 (合并短整数 (0, 1))
调试输出 (合并短整数 (1, 1))
调试输出 (合并短整数 (2, 1))
调试输出 (合并短整数 (0, 127))
调试输出 (合并短整数 (255, 127))

调试输出 (合并短整数 (0, 128))
调试输出 (合并短整数 (1, 128))
调试输出 (合并短整数 (2, 128))

419174704

haijie1223 发表于 2019-6-9 22:54
.版本 2
.支持库 spec

是这个意思，但是这个是反过来，知道结果，计算A跟B的。
有类似 拆分短整数这种命令没？

haijie1223

419174704 发表于 2019-6-9 23:06
是这个意思，但是这个是反过来，知道结果，计算A跟B的。
有类似 拆分短整数这种命令没？

.版本 2
.支持库 spec

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

' 下面是顺序。
' A        B        结果
' 0        0         0
' 1        0         1
' 2        0         2
' 255    0         255
' 0        1         256
' 1        1         257
' 2        1         258
' 0        127     32512
' 255    127     32767
' 上面  B 小于127，结果就是B*256+A，结果是依次增大
' 下面  B 大于127，结果就是依次减小    公式有点像   -32768-（32767-（B*256+A））
' 0         128    -32768
' 1         128    -32767
' 2         128    -32766
_Split (-32766)
_Split (32512)

.子程序 _Split
.参数 Num, 短整数型
.局部变量 a, 整数型
.局部变量 b, 整数型

a ＝ 位与 (Num, 255)
b ＝ 右移 (Num, 8)
.如果真 (b ＜ 0)
    b ＝ b × -1
.如果真结束
调试输出 (a, b)