冰之棱 发表于 2019-12-29 21:37
写一个子程序，配参数，然后快捷批量转换

指教下。搞不懂

写一个子程序，配参数，然后快捷批量转换

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

处理 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
处理

变量名	类 型	静态	数组	备 注
逻辑数组	逻辑型		0
计次	整数型
十进制	文本型
二进制	文本型
逻辑数组A	逻辑型		0
逻辑	逻辑型

' 初始化逻辑数组
逻辑数组 ＝ { 真, 真, 假, 真 }
计次循环首 (取数组成员数 (逻辑数组), 计次)
' 转换到二进制
二进制 ＝ 二进制 ＋ 到文本 (到整数 (逻辑数组 [计次]))
计次循环尾 ()
计次循环首 (取文本长度 (二进制), 计次)
' 转换到逻辑
逻辑 ＝ 整数到逻辑 (到整数 (取文本中间 (二进制, 计次, 1)))
加入成员 (逻辑数组A, 逻辑)
计次循环尾 ()
调试输出 (二进制, 逻辑数组A)

子程序名	返回值类型	公开	备 注
整数到逻辑	逻辑型
参数名	类 型	参考	可空	数组	备 注
整数	整数型

返回 (选择 (整数 ＝ 1, 真, 假))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 处理 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 处理<br /> .局部变量 逻辑数组, 逻辑型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 十进制, 文本型<br /> .局部变量 二进制, 文本型<br /> .局部变量 逻辑数组A, 逻辑型, , "0"<br /> .局部变量 逻辑, 逻辑型<br /> <br /> ' 初始化逻辑数组<br /> 逻辑数组 ＝ { 真, 真, 假, 真 }<br /> .计次循环首 (取数组成员数 (逻辑数组), 计次)<br />     ' 转换到二进制<br />     二进制 ＝ 二进制 ＋ 到文本 (到整数 (逻辑数组 [计次]))<br /> .计次循环尾 ()<br /> .计次循环首 (取文本长度 (二进制), 计次)<br />     ' 转换到逻辑<br />     逻辑 ＝ 整数到逻辑 (到整数 (取文本中间 (二进制, 计次, 1)))<br />     加入成员 (逻辑数组A, 逻辑)<br /> .计次循环尾 ()<br /> 调试输出 (二进制, 逻辑数组A)<br /> <br /> .子程序 整数到逻辑, 逻辑型<br /> .参数 整数, 整数型<br /> <br /> 返回 (选择 (整数 ＝ 1, 真, 假))