一键生成CODE39条码工具支持字母和数字

这个能生成正确的条码，能被扫码和手机里扫条码的软件正确识别了。

线宽度 ＝ 2 ' 细条码的宽度
线长度 ＝ 100
条码文本 ＝ “*” ＋ 删首尾空 (编辑框1.内容) ＋ “*”
画板1.清除 (, , , )
.计次循环首 (取文本长度 (条码文本), i)
.如果真 (取反 (M.取文本值 (取文本中间 (条码文本, i, 1), 字符线条)))
画板1.清除 (, , , )
信息框 (“只能输入字母和数字”, 0, )
返回 ()
.如果真结束
画线 ＝ 真
.计次循环首 (取文本长度 (字符线条), o)
单个线条 ＝ 取文本中间 (字符线条, o, 1)
起点.x ＝ 起点.x ＋ 线宽 ÷ 2
线宽 ＝ 选择 (单个线条 ＝ “1”, 2 × 线宽度, 1 × 线宽度)
起点.x ＝ 起点.x ＋ 线宽 ÷ 2
画板1.画笔粗细 ＝ 线宽
.如果 (画线)
画板1.画直线 (起点.x, 起点.y, 起点.x, 起点.y ＋ 线长度)
画线 ＝ 假
.否则
画线 ＝ 真
.如果结束

.计次循环尾 ()
起点.x ＝ 起点.x ＋ 1 × 线宽度
.计次循环尾 ()