谢谢分享。

haifutw 发表于 2021-4-1 09:17
[e=1].版本 2
.支持库 spec

大佬，分享一下源码呗

感谢分享，赞一个

  

子程序名	返回值类型	公开	备 注
_按钮_生成图像_被单击

变量名	类 型	静态	数组	备 注
列	整数型
行	整数型
页
n1	整数型			LED 像素 的位置，128×64 个位置
起始页	整数型
起始页画	整数型
字节数	整数型
行数组	文本型		0
字节数组	文本型		0
位	文本型
n2	整数型

连续赋值 (“”, _2进制, _16进制, _51代码)
行数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (行数组), n1)
' 加入成员 (字节数组, 行数组 [n1])
_51代码 ＝ _51代码 ＋ 行数组 [n1]
计次循环尾 ()
字节数组 ＝ 分割文本 (_51代码, “,”, )
调试输出 (取数组成员数 (字节数组))
字节数 ＝ 取数组成员数 (字节数组)
计次循环首 (总高 ÷ 8, 页)  ' 总高 64 ÷ 8 = 8 ，8行一页
' 起始页 ＝ (页 － 1) × 8
起始页画 ＝ (页 － 1) × 8 × 总宽  ' 8 × 128 = 1024   总宽=128   一页8行 共1024个像素
计次循环首 (总宽, 列)  ' 128
n2 ＝ n2 ＋ 1
如果 (n2 ＞ 字节数)
_2进制 ＝ “00000000”
_16进制 ＝ 取文本右边 (字节数组 [n2], 2)
_2进制 ＝ 取文本右边 (“00000000” ＋ 进制转换 (_16进制, 16, 2), 8)

计次循环首 (8, 行)  ' 竖向 8位 1页是竖向8行（1个字节）
如果 (选择框_倒序.选中 ＝ 真)
位 ＝ 取文本中间 (_2进制, 9 － 行, 1)
位 ＝ 取文本中间 (_2进制, 行, 1)

如果 (位 ＝ “0”)
画板1.**颜色 ＝ 点阵灭颜色
画板1.画笔颜色 ＝ 画板1.**颜色

画板1.**颜色 ＝ 点阵亮颜色
画板1.画笔颜色 ＝ 画板1.**颜色

n1 ＝ 起始页画 ��� (行 － 1) × 总宽 ＋ 列
画板1.画矩形 (矩形 [n1].左上X, 矩形 [n1].左上Y, 矩形 [n1].右下X, 矩形 [n1].右下Y)
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮_生成图像_被单击<br /> .局部变量 列, 整数型<br /> .局部变量 行, 整数型<br /> .局部变量 页<br /> .局部变量 n1, 整数型, , , LED 像素 的位置，128×64 个位置<br /> .局部变量 起始页, 整数型<br /> .局部变量 起始页画, 整数型<br /> .局部变量 字节数, 整数型<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 字节数组, 文本型, , "0"<br /> .局部变量 位, 文本型<br /> .局部变量 n2, 整数型<br /> <br /> 连续赋值 (“”, _2进制, _16进制, _51代码)<br /> 行数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (行数组), n1)<br />     ' 加入成员 (字节数组, 行数组 [n1])<br />     _51代码 ＝ _51代码 ＋ 行数组 [n1]<br /> .计次循环尾 ()<br /> 字节数组 ＝ 分割文本 (_51代码, “,”, )<br /> 调试输出 (取数组成员数 (字节数组))<br /> 字节数 ＝ 取数组成员数 (字节数组)<br /> <br /> .计次循环首 (总高 ÷ 8, 页)  ' 总高 64 ÷ 8 = 8 ，8行一页<br />     ' 起始页 ＝ (页 － 1) × 8<br />     起始页画 ＝ (页 － 1) × 8 × 总宽  ' 8 × 128 = 1024   总宽=128   一页8行 共1024个像素<br />     .计次循环首 (总宽, 列)  ' 128<br />         n2 ＝ n2 ＋ 1<br />         .如果 (n2 ＞ 字节数)<br />             _2进制 ＝ “00000000”<br />         .否则<br />             _16进制 ＝ 取文本右边 (字节数组 [n2], 2)<br />             _2进制 ＝ 取文本右边 (“00000000” ＋ 进制转换 (_16进制, 16, 2), 8)<br /> <br />         .如果结束<br /> <br />         .计次循环首 (8, 行)  ' 竖向 8位 1页是竖向8行（1个字节）<br />             .如果 (选择框_倒序.选中 ＝ 真)<br />                 位 ＝ 取文本中间 (_2进制, 9 － 行, 1)<br />             .否则<br />                 位 ＝ 取文本中间 (_2进制, 行, 1)<br />             .如果结束<br /> <br />             .如果 (位 ＝ “0”)<br />                 画板1.**颜色 ＝ 点阵灭颜色<br />                 画板1.画笔颜色 ＝ 画板1.**颜色<br /> <br />             .否则<br />                 画板1.**颜色 ＝ 点阵亮颜色<br />                 画板1.画笔颜色 ＝ 画板1.**颜色<br /> <br />             .如果结束<br /> <br />             n1 ＝ 起始页画 ＋ (行 － 1) × 总宽 ＋ 列<br />             画板1.画矩形 (矩形 [n1].左上X, 矩形 [n1].左上Y, 矩形 [n1].右下X, 矩形 [n1].右下Y)<br /> <br />         .计次循环尾 ()<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()