条形码生成原理

当前字符 ＝ 取文本中间 (条码内容, 字符计数, 1)
.如果真 (M39.取文本值 (当前字符, 当前代码) ＝ 假)
信息框 (“字符 ” ＋ 当前字符 ＋ “ 不存在,请从新输入字符串”, 0, )
返回 ()
.如果真结束
是否画线 ＝ 真
.计次循环首 (取文本长度 (当前代码), 当前线号)
.如果 (取文本中间 (当前代码, 当前线号, 1) ＝ “1”)
.如果 (是否画线 ＝ 真)
画板1.画笔粗细 ＝ 码宽 × 3
当前横座标 ＝ 当前横座标 ＋ 画板1.画笔粗细 ÷ 2 ' 因为画笔起笔点为线条的中间
画板1.画直线 (当前横座标, 0, 当前横座标, 码高)
当前横座标 ＝ 当前横座标 ＋ 画板1.画笔粗细 ÷ 2
是否画线 ＝ 假
.否则
当前横座标 ＝ 当前横座标 ＋ 码宽 × 3
是否画线 ＝ 真
.如果结束

.否则
.如果 (是否画线 ＝ 真)
画板1.画笔粗细 ＝ 码宽
当前横座标 ＝ 当前横座标 ＋ 码宽 ÷ 2
画板1.画直线 (当前横座标, 0, 当前横座标, 码高)
当前横座标 ＝ 当前横座标 ＋ 码宽 ÷ 2
是否画线 ＝ 假
.否则
当前横座标 ＝ 当前横座标 ＋ 码宽
是否画线 ＝ 真
.如果结束

.如果结束

.计次循环尾 ()