总线设备编码，二进制编码

haifutw

设定总线设备编码虽然不复杂，但设置大数的时候还是很费脑筋的。
有了这个工具，就不用再去费劲的算了。可以生成不同样式的编码表。
使用方便，省时省力。

一.模拟仿真
输入编码数后，编码开关就会立即显
示出相应的接通位和断开位。点击编码
开关，也会立即显示出编码数，可以用
它来了解拨码开关的设置规律，或熟练
拨码设置。

二.编码表生成
根据设置来生成不同样式的编码表，
使得更适合自己的使用习惯。更直观，
更容易记。

haifutw

常兴串口调试V3.5.rar (578.56 KB, 下载次数: 3)

2022-2-14 16:40 上传

点击文件名下载附件

by626

看不懂。。

haifutw

  

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

变量名	类 型	静态	数组	备 注
结果	整数型
余数	整数型
n1	整数型
倒序二进制	文本型
拨码值	文本型
序号	文本型
n2	整数型
十进制数	整数型
整行文本	文本型
当前列	整数型
总行数	整数型
当前行	整数型
列间距	文本型

编辑框1.内容 ＝ “”
延迟 (1)
当前行 ＝ 1
计次循环首 (到数值 (编辑框_列间距.内容), )  ' ______________↓______处理列的间距。
列间距 ＝ 列间距 ＋ “ ”
计次循环尾 ()
如果 (到数值 (编辑框_地址数.内容) ％ 到数值 (编辑框_列.内容) ≠ 0)  ' _________________↓_____处理竖向列表，有余数就加一行，
总行数 ＝ 到数值 (编辑框_地址数.内容) ＼ 到数值 (编辑框_列.内容) ＋ 1
总行数 ＝ 到数值 (编辑框_地址数.内容) ＼ 到数值 (编辑框_列.内容)

' ......................................................................总行数 ＝ 到数值 (编辑框_地址数.内容) ＼ 到数值 (编辑框_列.内容)  ' ............\ 是整除
调试输出 (总行数)
' ......................................................................＋ 到数值 (编辑框_列.内容) － 到数值 (编辑框_地址数.内容) ％ 到数值 (编辑框_列.内容)
计次循环首 (总行数 × 到数值 (编辑框_列.内容), n1)  ' ............... 行×列 = 矩形的总数。
拨码值 ＝ “”
当前列 ＝ 当前列 ＋ 1
十进制数 ＝ 总行数 × 当前列 ��� (总行数 － 当前行)
调试输出 (n1)
余数 ＝ 十进制数 ％ 2  ' ............％是求余数
倒序二进制 ＝ 到文本 (余数)
结果 ＝ 十进制数 ＼ 2  ' ............\ 是整除
' 调试输出 (结果)
判断循环首 (结果 ≥ 1)
余数 ＝ 结果 ％ 2
倒序二进制 ＝ 倒序二进制 ＋ 到文本 (余数)
结果 ＝ 结果 ＼ 2
' 调试输出 (余数)
判断循环尾 ()
' 调试输出 (倒序二进制)
如果真 (取文本长度 (倒序二进制) ＜ 8)  ' _________________↓___不够8位 补够8位
计次循环首 (8 － 取文本长度 (倒序二进制), )
倒序二进制 ＝ 倒序二进制 ＋ “0”
计次循环尾 ()

计次循环首 (取文本长度 (倒序二进制), n2)  ' _________________↓_____倒序二进制 转换成 自定义的拨码值。
判断 (取文本中间 (倒序二进制, n2, 1) ＝ “0”)
如果 (选择框_加宽.选中 ＝ 真)
如果 (选择框_不显示.选中 ＝ 真)  ' --------------加空格
拨码值 ＝ 拨码值 ＋ “  ”
拨码值 ＝ 拨码值 ＋ 编辑框_0.内容 ＋ “ ”

如果 (选择框_不显示.选中 ＝ 真)  ' ---------不加空格
拨码值 ＝ 拨码值 ＋ “ ”
拨码值 ＝ 拨码值 ＋ 编辑框_0.内容


判断 (取文本中间 (倒序二进制, n2, 1) ＝ “1”)
如果 (选择框_加宽.选中 ＝ 真)
如果 (选择框_显示位数.选中 ＝ 真)
拨码值 ＝ 拨码值 ＋ 到文本 (n2) ＋ “ ”
拨码值 ＝ 拨码值 ＋ 编辑框_1.内容 ＋ “ ”

如果 (选择框_显示位数.选中 ＝ 真)
拨码值 ＝ 拨码值 ＋ 到文本 (n2)
拨码值 ＝ 拨码值 ＋ 编辑框_1.内容





计次循环尾 ()
判断 (十进制数 ＜ 10)  ' ______________↓______序号处理 不够三位前面加空格。
序号 ＝ “  T” ＋ 到文本 (十进制数)
判断 (十进制数 ＜ 100)
序号 ＝ “ T” ＋ 到文本 (十进制数)
序号 ＝ “T” ＋ 到文本 (十进制数)

' 编辑框1.加入文本 (序号 ＋ “   ” ＋ 拨码值 ＋ #换行符)
如果 (十进制数 ＞ 到数值 (编辑框_地址数.内容))  ' ________十进制数就是序号。
整行文本 ＝ 整行文本 ＋ 列间距 ＋ “   ” ＋ “  ” ＋ “          ”  ' __________↓____去掉超过地址数的编码
整行文本 ＝ 整行文本 ＋ 列间距 ＋ 序号 ＋ “、 ” ＋ 拨码值  ' ______________↓______处理列，自定义几列。。

' 列 ＝ 列 ＋ 1  移动到开始处了！！！！
如果真 (当前列 ≥ 到整数 (编辑框_列.内容))
当前行 ＝ 当前行 ＋ 1
编辑框1.加入文本 (整行文本 ＋ #换行符 )
整行文本 ＝ “”
当前列 ＝ 0

计次循环尾 ()
如果真 (整行文本 ≠ “”)
编辑框1.加入文本 (整行文本)
' 151/2 = 75 余1 　　
' 75/2 = 37 余1 　　
' 37/2 = 18 余1 　　
' 18/2 = 9 余0 　　
' 9/2 = 4 余1 　　
' 4/2 = 2 余0 　　
' 2/2 = 1 余0 　
' 1/2 = 0 余1
' 故二进制为10010111     我们是倒着来的，就是11101001

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮_制表_被单击<br /> .局部变量 结果, 整数型<br /> .局部变量 余数, 整数型<br /> .局部变量 n1, 整数型<br /> .局部变量 倒序二进制, 文本型<br /> .局部变量 拨码值, 文本型<br /> .局部变量 序号, 文本型<br /> .局部变量 n2, 整数型<br /> .局部变量 十进制数, 整数型<br /> .局部变量 整行文本, 文本型<br /> .局部变量 当前列, 整数型<br /> .局部变量 总行数, 整数型<br /> .局部变量 当前行, 整数型<br /> .局部变量 列间距, 文本型<br /> <br /> 编辑框1.内容 ＝ “”<br /> 延迟 (1)<br /> <br /> 当前行 ＝ 1<br /> .计次循环首 (到数值 (编辑框_列间距.内容), )  ' ______________↓______处理列的间距。<br />     列间距 ＝ 列间距 ＋ “ ”<br /> .计次循环尾 ()<br /> <br /> .如果 (到数值 (编辑框_地址数.内容) ％ 到数值 (编辑框_列.内容) ≠ 0)  ' _________________↓_____处理竖向列表，有余数就加一行，<br />     总行数 ＝ 到数值 (编辑框_地址数.内容) ＼ 到数值 (编辑框_列.内容) ＋ 1<br /> .否则<br />     总行数 ＝ 到数值 (编辑框_地址数.内容) ＼ 到数值 (编辑框_列.内容)<br /> .如果结束<br /> <br /> ' ......................................................................总行数 ＝ 到数值 (编辑框_地址数.内容) ＼ 到数值 (编辑框_列.内容)  ' ............\ 是整除<br /> 调试输出 (总行数)<br /> ' ......................................................................＋ 到数值 (编辑框_列.内容) － 到数值 (编辑框_地址数.内容) ％ 到数值 (编辑框_列.内容)<br /> .计次循环首 (总行数 × 到数值 (编辑框_列.内容), n1)  ' ............... 行×列 = 矩形的总数。<br />     拨码值 ＝ “”<br />     当前列 ＝ 当前列 ＋ 1<br />     十进制数 ＝ 总行数 × 当前列 － (总行数 － 当前行)<br /> <br />     调试输出 (n1)<br /> <br /> <br />     余数 ＝ 十进制数 ％ 2  ' ............％是求余数<br />     倒序二进制 ＝ 到文本 (余数)<br />     结果 ＝ 十进制数 ＼ 2  ' ............\ 是整除<br />     ' 调试输出 (结果)<br /> <br />     .判断循环首 (结果 ≥ 1)<br />         余数 ＝ 结果 ％ 2<br />         倒序二进制 ＝ 倒序二进制 ＋ 到文本 (余数)<br />         结果 ＝ 结果 ＼ 2<br />         ' 调试输出 (余数)<br />     .判断循环尾 ()<br />     ' 调试输出 (倒序二进制)<br /> <br />     .如果真 (取文本长度 (倒序二进制) ＜ 8)  ' _________________↓___不够8位 补够8位<br />         .计次循环首 (8 － 取文本长度 (倒序二进制), )<br />             倒序二进制 ＝ 倒序二进制 ＋ “0”<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> <br />     .计次循环首 (取文本长度 (倒序二进制), n2)  ' _________________↓_____倒序二进制 转换成 自定义的拨码值。<br /> <br />         .判断开始 (取文本中间 (倒序二进制, n2, 1) ＝ “0”)<br />             .如果 (选择框_加宽.选中 ＝ 真)<br />                 .如果 (选择框_不显示.选中 ＝ 真)  ' --------------加空格<br />                     拨码值 ＝ 拨码值 ＋ “  ”<br />                 .否则<br />                     拨码值 ＝ 拨码值 ＋ 编辑框_0.内容 ＋ “ ”<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (选择框_不显示.选中 ＝ 真)  ' ---------不加空格<br />                     拨码值 ＝ 拨码值 ＋ “ ”<br />                 .否则<br />                     拨码值 ＝ 拨码值 ＋ 编辑框_0.内容<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .判断 (取文本中间 (倒序二进制, n2, 1) ＝ “1”)<br /> <br />             .如果 (选择框_加宽.选中 ＝ 真)<br /> <br />                 .如果 (选择框_显示位数.选中 ＝ 真)<br />                     拨码值 ＝ 拨码值 ＋ 到文本 (n2) ＋ “ ”<br />                 .否则<br />                     拨码值 ＝ 拨码值 ＋ 编辑框_1.内容 ＋ “ ”<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (选择框_显示位数.选中 ＝ 真)<br />                     拨码值 ＝ 拨码值 ＋ 到文本 (n2)<br />                 .否则<br />                     拨码值 ＝ 拨码值 ＋ 编辑框_1.内容<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> <br />     .判断开始 (十进制数 ＜ 10)  ' ______________↓______序号处理 不够三位前面加空格。<br />         序号 ＝ “  T” ＋ 到文本 (十进制数)<br />     .判断 (十进制数 ＜ 100)<br />         序号 ＝ “ T” ＋ 到文本 (十进制数)<br />     .默认<br />         序号 ＝ “T” ＋ 到文本 (十进制数)<br />     .判断结束<br /> <br />     ' 编辑框1.加入文本 (序号 ＋ “   ” ＋ 拨码值 ＋ #换行符)<br /> <br />     .如果 (十进制数 ＞ 到数值 (编辑框_地址数.内容))  ' ________十进制数就是序号。<br />         整行文本 ＝ 整行文本 ＋ 列间距 ＋ “   ” ＋ “  ” ＋ “          ”  ' __________↓____去掉超过地址数的编码<br />     .否则<br />         整行文本 ＝ 整行文本 ＋ 列间距 ＋ 序号 ＋ “、 ” ＋ 拨码值  ' ______________↓______处理列，自定义几列。。<br />     .如果结束<br /> <br />     ' 列 ＝ 列 ＋ 1  移动到开始处了！！！！<br />     .如果真 (当前列 ≥ 到整数 (编辑框_列.内容))<br />         当前行 ＝ 当前行 ＋ 1<br />         编辑框1.加入文本 (整行文本 ＋ #换行符)<br />         整行文本 ＝ “”<br />         当前列 ＝ 0<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (整行文本 ≠ “”)<br />     编辑框1.加入文本 (整行文本)<br /> <br /> .如果真结束<br /> ' 151/2 = 75 余1 　　<br /> ' 75/2 = 37 余1 　　<br /> ' 37/2 = 18 余1 　　<br /> ' 18/2 = 9 余0 　　<br /> ' 9/2 = 4 余1 　　<br /> ' 4/2 = 2 余0 　　<br /> ' 2/2 = 1 余0 　<br /> ' 1/2 = 0 余1<br /> <br /> ' 故二进制为10010111     我们是倒着来的，就是11101001