继二维码生成器后开发的条形码生成器

.子程序 设置, , 公开
.参数 条码画板, 画板
.参数 背景色, 整数型, 可空, 可以使用常量，默认白色
.参数 前景色, 整数型, 可空, 可以使用常量，默认黑色色
.参数 线宽, 整数型, 可空, 条码单线的宽度，单位像素,默认为1
.参数 高度, 整数型, 可空, 条码的高度，默认为80,护线自动加5

临时文本 ＝ 取文本右边 (条码, 取文本长度 (条码))
加入成员 (条码序列, 到整数 (取文本左边 (临时文本, 1)))
.计次循环首 (取文本长度 (条码) － 1, n)
临时文本 ＝ 取文本右边 (条码, 取文本长度 (条码) － n)
加入成员 (条码序列, 到整数 (取文本左边 (临时文本, 1)))
.计次循环尾 ()
a ＝ 条码序列 [1] ＋ 条码序列 [3] ＋ 条码序列 [5] ＋ 条码序列 [7] ＋ 条码序列 [9] ＋ 条码序列 [11]
b ＝ 条码序列 [2] ＋ 条码序列 [4] ＋ 条码序列 [6] ＋ 条码序列 [8] ＋ 条码序列 [10] ＋ 条码序列 [12]
b ＝ b × 3
c ＝ a ＋ b
d ＝ 10 － 到整数 (取文本右边 (到文本 (c), 1))

临时文本 ＝ 取文本右边 (到文本 (编码), 取文本长度 (到文本 (编码)))
加入成员 (分割码, 取文本左边 (临时文本, 1))
.计次循环首 (取文本长度 (到文本 (编码)) － 1, n)
临时文本 ＝ 取文本右边 (到文本 (编码), 取文本长度 (到文本 (编码)) － n)
加入成员 (分割码, 取文本左边 (临时文本, 1))
.计次循环尾 ()
.计次循环首 (5, n)
C类编码.取文本值 (分割码 [n], 临时编码)
返回编码 ＝ 返回编码 ＋ 临时编码
.计次循环尾 ()
返回 (返回编码)

.子程序 分割资料码
.参数 编码, 文本型
.局部变量 n, 整数型
.局部变量 临时文本, 文本型

重定义数组 (总文本, 假, 0)
临时文本 ＝ 取文本右边 (编码, 取文本长度 (编码))
加入成员 (总文本, 取文本左边 (临时文本, 1))
.计次循环首 (取文本长度 (编码) － 1, n)
临时文本 ＝ 取文本右边 (编码, 取文本长度 (编码) － n)
加入成员 (总文本, 取文本左边 (临时文本, 1))
.计次循环尾 ()