下个了生成条码的源码，条码生成需要居中，求助大神

枫叶成霜

下个了生成条码的源码，条码生成需要居中，求助大神


生成条码.e (19.82 KB, 下载次数: 27)

2023-3-15 10:28 上传

点击文件名下载附件


补充内容 (2023-3-15 10:44):
由于数字内容，长度不一样，这个画板画出来的内容，会时长时短，我想让它居中。

钥匙key

  

计次循环首 (取文本长度 (格式化条码), i)
局_条码终止横坐标 ＝ i × 宽度系数 ＋ 条码起始横坐标
计次循环尾 ()
局_居中偏移 ＝ (画板.宽度 ��� (局_条码终止横坐标 － 条码起始横坐标)) ÷ 2
' 画条码
计次循环首 (取文本长度 (格式化条码), i)
如果真 (取文本中间 (格式化条码, i, 1) ＝ “b”)
画板.画矩形 ( (i － 1) × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码起始纵坐标, i × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码终止纵坐标)
画板.填充矩形 ( (i － 1) × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码起始纵坐标, i × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码终止纵坐标)

计次循环尾 ()

.版本 2<br /> <br /> .计次循环首 (取文本长度 (格式化条码), i)<br />     局_条码终止横坐标 ＝ i × 宽度系数 ＋ 条码起始横坐标<br /> .计次循环尾 ()<br /> <br /> 局_居中偏移 ＝ (画板.宽度 － (局_条码终止横坐标 － 条码起始横坐标)) ÷ 2<br /> <br /> <br /> ' 画条码<br /> .计次循环首 (取文本长度 (格式化条码), i)<br />     .如果真 (取文本中间 (格式化条码, i, 1) ＝ “b”)<br />         画板.画矩形 ((i － 1) × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码起始纵坐标, i × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码终止纵坐标)<br /> <br />         画板.填充矩形 ((i － 1) × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码起始纵坐标, i × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码终止纵坐标)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

没法上传文件。见代码

财通天地

好像扫不到的吧？

菜小菜

画板1.宽度=401
画板1.左边=122

枫叶成霜

菜小菜 发表于 2023-3-15 10:34
画板1.宽度=401
画板1.左边=122

不能固定画板尺寸，因为文本内容，时长时短

枫叶成霜

由于数字内容，长度不一样，这个画板画出来的内容，会时长时短，我想让它居中。

枫叶成霜

哦豁，没得大神了吗？

qcby

画之前先取字符长度，然后选一个起点开始画咯

钥匙key

  

子程序名	返回值类型	公开	备 注
画条码	逻辑型		画出一个条形码，成功返回真，失败返回假
参数名	类 型	参考	可空	数组	备 注
画板	画板				需要画条码的画板
条码文本	文本型				需要画出条码的文本
条码编码格式	整数型				可空。接受传入3种条码编码格式，传入时请填相应序号：0-“code128A编码”、1-“code128B编码”、2-“code128C编码”。为空时默认为code128A编码；除了这三个数以外的数值均默认为0
条码起始横坐标	整数型				可空。该数值指定条码相对于画板左上角距离。为空时默认为0。
条码起始纵坐标	整数型				可空。该数值指定条码相对于画板左上角距离。为空时默认为0。
条码终止横坐标	整数型				可空。该数值指定条码相对于画板左上角距离。为空时默认为画板长度。
条码终止纵坐标	整数型				可空。该数值指定条码相对于画板左上角距离。为空时默认为画板高度。
是否居中	逻辑型				可控。默认为假，不居中
错误信息	文本型				可空。用于接收出错时的错误信息

变量名	类 型	静态	数组	备 注
格式化条码	文本型
i	整数型
条码长度	整数型
宽度系数	整数型
局_条码终止横坐标	整数型
局_居中偏移	整数型

条码文本 ＝ 到半角 (条码文本)  ' 条形码不支持全角符号
' 检查输入合规性
计次循环首 (取文本长度 (条码文本), i)
如果真 (取代码 (条码文本, i) ＜ 0)
错误信息 ＝ “条码不支持中文”
画板.写文本行 (“条码不支持中文”)
返回 (假)

计次循环尾 ()
判断 (条码编码格式 ＝ 2)  ' code128C合规性
如果真 (到文本 (到数值 (条码文本)) ≠ 条码文本)
错误信息 ＝ “code128C编码格式的文本必须为纯数字”
画板.写文本行 (“code128C编码格式的文本必须为纯数字”)
返回 (假)
如果真 (取文本长度 (条码文本) ％ 2 ≠ 0)
错误信息 ＝ “code128C编码格式的文本长度必须是偶数”
画板.写文本行 (“code128C编码格式的文本长度必须是偶数”)
返回 (假)

判断 (条码编码格式 ＝ 1)  ' code128B合规性
' acii码 + 32 即为条码编码
' code128B有效编码范围为acii码32-126，对应条码编码0-94
计次循环首 (取文本长度 (条码文本), i)
如果真 (取代码 (取文本中间 (条码文本, i, 1), ) ＜ 32 或 取代码 (取文本中间 (条码文本, i, 1), ) ＞ 126)
错误信息 ＝ “所输入字符超出code128B编码范围”
画板.写文本行 (“所输入字符超出code128B编码范围”)
返回 (假)

计次循环尾 ()
判断 (条码编码格式 ＝ 0)  ' code128A合规性
' acii码 + 32 即为条码编码
' code128A有效编码范围为acii码32-95，对应条码编码0-63
计次循环首 (取文本长度 (条码文本), i)
如果真 (取代码 (取文本中间 (条码文本, i, 1), ) ＜ 32 或 取代码 (取文本中间 (条码文本, i, 1), ) ＞ 95)
错误信息 ＝ “所输入字符超出code128A编码范围”
画板.写文本行 (“所输入字符超出code128A编码范围”)
返回 (假)

计次循环尾 ()



' 默认值赋值
如果真 (条码终止横坐标 ＝ 0)
条码终止横坐标 ＝ 画板.宽度
如果真 (条码终止纵坐标 ＝ 0)
条码终止纵坐标 ＝ 画板.高度

' 画板初始化
画板.刷子颜色 ＝ #黑色
' 取得条码
格式化条码 ＝ 取得格式化条码 (条码文本, 条码编码格式)
调试输出 (格式化条码)
条码长度 ＝ 取文本长度 (格式化条码)
宽度系数 ＝ (画板.宽度 － 条码起始横坐标 ��� (画板.宽度 － 条码终止横坐标)) ÷ 条码长度
如果真 (宽度系数 ≤ 0)
错误信息 ＝ “画板宽度小于条码最小需要宽度”
画板.写文本行 (“画板宽度小于条码最小需要宽度”)
返回 (假)

如果 (是否居中)
计次循环首 (取文本长度 (格式化条码), i)
局_条码终止横坐标 ＝ i × 宽度系数 ＋ 条码起始横坐标
计次循环尾 ()
局_居中偏移 ＝ (画板.宽度 ��� (局_条码终止横坐标 － 条码起始横坐标)) ÷ 2
局_居中偏移 ＝ 0

' 画条码
计次循环首 (取文本长度 (格式化条码), i)
如果真 (取文本中间 (格式化条码, i, 1) ＝ “b”)
画板.画矩形 ( (i － 1) × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码起始纵坐标, i × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码终止纵坐标)
画板.填充矩形 ( (i － 1) × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码起始纵坐标, i × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码终止纵坐标)

计次循环尾 ()
返回 (真)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 画条码, 逻辑型, 公开, 画出一个条形码，成功返回真，失败返回假<br /> .参数 画板, 画板, , 需要画条码的画板<br /> .参数 条码文本, 文本型, , 需要画出条码的文本<br /> .参数 条码编码格式, 整数型, 可空, 可空。接受传入3种条码编码格式，传入时请填相应序号：0-“code128A编码”、1-“code128B编码”、2-“code128C编码”。为空时默认为code128A编码；除了这三个数以外的数值均默认为0<br /> .参数 条码起始横坐标, 整数型, 可空, 可空。该数值指定条码相对于画板左上角距离。为空时默认为0。<br /> .参数 条码起始纵坐标, 整数型, 可空, 可空。该数值指定条码相对于画板左上角距离。为空时默认为0。<br /> .参数 条码终止横坐标, 整数型, 可空, 可空。该数值指定条码相对于画板左上角距离。为空时默认为画板长度。<br /> .参数 条码终止纵坐标, 整数型, 可空, 可空。该数值指定条码相对于画板左上角距离。为空时默认为画板高度。<br /> .参数 是否居中, 逻辑型, 可空, 可控。默认为假，不居中<br /> .参数 错误信息, 文本型, 可空, 可空。用于接收出错时的错误信息<br /> .局部变量 格式化条码, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 条码长度, 整数型<br /> .局部变量 宽度系数, 整数型<br /> .局部变量 局_条码终止横坐标, 整数型<br /> .局部变量 局_居中偏移, 整数型<br /> <br /> 条码文本 ＝ 到半角 (条码文本)  ' 条形码不支持全角符号<br /> <br /> ' 检查输入合规性<br /> .计次循环首 (取文本长度 (条码文本), i)<br />     .如果真 (取代码 (条码文本, i) ＜ 0)<br />         错误信息 ＝ “条码不支持中文”<br />         画板.写文本行 (“条码不支持中文”)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .判断开始 (条码编码格式 ＝ 2)  ' code128C合规性<br />     .如果真 (到文本 (到数值 (条码文本)) ≠ 条码文本)<br />         错误信息 ＝ “code128C编码格式的文本必须为纯数字”<br />         画板.写文本行 (“code128C编码格式的文本必须为纯数字”)<br />         返回 (假)<br />     .如果真结束<br />     .如果真 (取文本长度 (条码文本) ％ 2 ≠ 0)<br />         错误信息 ＝ “code128C编码格式的文本长度必须是偶数”<br />         画板.写文本行 (“code128C编码格式的文本长度必须是偶数”)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .判断 (条码编码格式 ＝ 1)  ' code128B合规性<br />     ' acii码 + 32 即为条码编码<br />     ' code128B有效编码范围为acii码32-126，对应条码编码0-94<br />     .计次循环首 (取文本长度 (条码文本), i)<br />         .如果真 (取代码 (取文本中间 (条码文本, i, 1), ) ＜ 32 或 取代码 (取文本中间 (条码文本, i, 1), ) ＞ 126)<br />             错误信息 ＝ “所输入字符超出code128B编码范围”<br />             画板.写文本行 (“所输入字符超出code128B编码范围”)<br />             返回 (假)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> <br /> .判断 (条码编码格式 ＝ 0)  ' code128A合规性<br />     ' acii码 + 32 即为条码编码<br />     ' code128A有效编码范围为acii码32-95，对应条码编码0-63<br />     .计次循环首 (取文本长度 (条码文本), i)<br />         .如果真 (取代码 (取文本中间 (条码文本, i, 1), ) ＜ 32 或 取代码 (取文本中间 (条码文本, i, 1), ) ＞ 95)<br />             错误信息 ＝ “所输入字符超出code128A编码范围”<br />             画板.写文本行 (“所输入字符超出code128A编码范围”)<br />             返回 (假)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> ' 默认值赋值<br /> .如果真 (条码终止横坐标 ＝ 0)<br />     条码终止横坐标 ＝ 画板.宽度<br /> .如果真结束<br /> .如果真 (条码终止纵坐标 ＝ 0)<br />     条码终止纵坐标 ＝ 画板.高度<br /> .如果真结束<br /> <br /> ' 画板初始化<br /> 画板.刷子颜色 ＝ #黑色<br /> ' 取得条码<br /> 格式化条码 ＝ 取得格式化条码 (条码文本, 条码编码格式)<br /> 调试输出 (格式化条码)<br /> 条码长度 ＝ 取文本长度 (格式化条码)<br /> 宽度系数 ＝ (画板.宽度 － 条码起始横坐标 － (画板.宽度 － 条码终止横坐标)) ÷ 条码长度<br /> .如果真 (宽度系数 ≤ 0)<br />     错误信息 ＝ “画板宽度小于条码最小需要宽度”<br />     画板.写文本行 (“画板宽度小于条码最小需要宽度”)<br />     返回 (假)<br /> .如果真结束<br /> <br /> <br /> .如果 (是否居中)<br />     .计次循环首 (取文本长度 (格式化条码), i)<br />         局_条码终止横坐标 ＝ i × 宽度系数 ＋ 条码起始横坐标<br />     .计次循环尾 ()<br />     局_居中偏移 ＝ (画板.宽度 － (局_条码终止横坐标 － 条码起始横坐标)) ÷ 2<br /> .否则<br />     局_居中偏移 ＝ 0<br /> .如果结束<br /> <br /> ' 画条码<br /> .计次循环首 (取文本长度 (格式化条码), i)<br />     .如果真 (取文本中间 (格式化条码, i, 1) ＝ “b”)<br />         画板.画矩形 ((i － 1) × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码起始纵坐标, i × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码终止纵坐标)<br />         画板.填充矩形 ((i － 1) × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码起始纵坐标, i × 宽度系数 ＋ 条码起始横坐标 ＋ 局_居中偏移, 条码终止纵坐标)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (真)

重新发个完整版。。。

钥匙key

q8018414 发表于 2023-3-15 11:07
[e=0].版本 2
.支持库 spec

为什么那个减号会变成？？？呢