把一个整数转换成一个32个元素的逻辑型数组

阿素里戈沃里嘚

顺手写了这个代码，就是能把一个整数转换成一个32个元素的逻辑型数组，也可以把这个逻辑型数组转换成一个整数
大家互相学习。。。

  

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

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

变量名	类 型	静态	数组	备 注
局_测试整数	整数型
局_逻辑数组	逻辑型		0
i	整数型
局_文本	文本型

' 整数型取值范围：  -2,147,483,648   至    2,147,483,647
局_测试整数 ＝ -2147483647  ' 测试用整数
整数到逻辑数组 (局_测试整数, 局_逻辑数组)
' 输出结果验证
计次循环首 (32, i)
局_文本 ＝ 局_文本 ＋ 到文本 (i) ＋ 到文本 (局_逻辑数组 [i]) ＋ “,”
计次循环尾 ()
调试输出 (局_文本)
调试输出 (“成功还原回整数：”, 逻辑数组到整数 (局_逻辑数组))

子程序名	返回值类型	公开	备 注
整数到逻辑数组			将整数转换为32位逻辑数组
参数名	类 型	参考	可空	数组	备 注
局_输入整数	整数型				要转换的整数
局_输出数组	逻辑型				用于存储结果的32元素逻辑数组

变量名	类 型	静态	数组	备 注
局_临时整数	整数型
局_位位置	整数型

' 确保输出数组有32个元素
重定义数组 (局_输出数组, 假, 32)
' 使用位运算处理每一位
局_临时整数 ＝ 局_输入整数
计次循环首 (32, 局_位位置)  ' 遍历32位
' 计算当前位是否为1
局_输出数组 [局_位位置] ＝ 位与 (局_临时整数, 左移 (1, 局_位位置)) ≠ 0
计次循环尾 ()

子程序名	返回值类型	公开	备 注
逻辑数组到整数	整数型		将32位逻辑数组转换为整数
参数名	类 型	参考	可空	数组	备 注
局_输入数组	逻辑型				32位逻辑数组

变量名	类 型	静态	数组	备 注
局_结果整数	整数型
局_位位置	整数型

' 检查输入数组大小，不对则强制转换成32位
如果真 (取数组成员数 (局_输入数组) ≠ 32)
重定义数组 (局_输入数组, 真, 32)

' 位处理
计次循环首 (32, 局_位位置)  ' 遍历32位
如果真 (局_输入数组 [局_位位置])  ' 如果当前位为真(1)
' 将对应位设置为1，其他位保持原值
局_结果整数 ＝ 位或 (局_结果整数, 左移 (1, 局_位位置))

计次循环尾 ()
' 返回转换后的整数
返回 (局_结果整数)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_测试整数, 整数型<br /> .局部变量 局_逻辑数组, 逻辑型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局_文本, 文本型<br /> <br /> ' 整数型取值范围：  -2,147,483,648   至    2,147,483,647<br /> 局_测试整数 ＝ -2147483647  ' 测试用整数<br /> 整数到逻辑数组 (局_测试整数, 局_逻辑数组)<br /> <br /> ' 输出结果验证<br /> .计次循环首 (32, i)<br />     局_文本 ＝ 局_文本 ＋ 到文本 (i) ＋ 到文本 (局_逻辑数组 <i>) ＋ “,”<br /> .计次循环尾 ()<br /> 调试输出 (局_文本)<br /> 调试输出 (“成功还原回整数：”, 逻辑数组到整数 (局_逻辑数组))<br /> <br /> .子程序 整数到逻辑数组, , , 将整数转换为32位逻辑数组<br /> .参数 局_输入整数, 整数型, , 要转换的整数<br /> .参数 局_输出数组, 逻辑型, 参考 数组, 用于存储结果的32元素逻辑数组<br /> .局部变量 局_临时整数, 整数型<br /> .局部变量 局_位位置, 整数型<br /> <br /> ' 确保输出数组有32个元素<br /> 重定义数组 (局_输出数组, 假, 32)<br /> <br /> ' 使用位运算处理每一位<br /> 局_临时整数 ＝ 局_输入整数<br /> .计次循环首 (32, 局_位位置)  ' 遍历32位<br />     ' 计算当前位是否为1<br />     局_输出数组 [局_位位置] ＝ 位与 (局_临时整数, 左移 (1, 局_位位置)) ≠ 0<br /> .计次循环尾 ()<br /> <br /> .子程序 逻辑数组到整数, 整数型, 公开, 将32位逻辑数组转换为整数<br /> .参数 局_输入数组, 逻辑型, 参考 数组, 32位逻辑数组<br /> .局部变量 局_结果整数, 整数型<br /> .局部变量 局_位位置, 整数型<br /> <br /> ' 检查输入数组大小，不对则强制转换成32位<br /> .如果真 (取数组成员数 (局_输入数组) ≠ 32)<br />     重定义数组 (局_输入数组, 真, 32)<br /> .如果真结束<br /> <br /> ' 位处理<br /> .计次循环首 (32, 局_位位置)  ' 遍历32位<br />     .如果真 (局_输入数组 [局_位位置])  ' 如果当前位为真(1)<br />         ' 将对应位设置为1，其他位保持原值<br />         局_结果整数 ＝ 位或 (局_结果整数, 左移 (1, 局_位位置))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 返回转换后的整数<br /> 返回 (局_结果整数)

1184798949

感谢分享

沐白22

感谢分享

lassgo

这码啊，转换溜啊，转换功能很实用呢，学习了哈。

zhaode2888

感谢分享

一指温柔

感谢分享

APPLEUFO

整数到逻辑数组                         将整数转换为32位逻辑数组
参数名        类 型        参考        可空        数组        备 注
局_输入整数        整数型                                要转换的整数
局_输出数组        逻辑型

局改成 参 比较好吧

参_输入整数
参_输出数组