没有合适的资源?快使用搜索试试~ 我知道了~
PB中实现CODE128码使用源代码
3星 · 超过75%的资源 需积分: 18 75 下载量 150 浏览量
2016-08-05
10:25:48
上传
评论
收藏 14KB DOCX 举报
温馨提示
试读
1页
PB中实现CODE128码使用源代码
资源推荐
资源详情
资源评论
//CODE128 条码基础知识
//CODE128 有三个版本
//CODE128A: 标准数字和字母, 控制符, 特殊字符
//CODE128B: 标准数字和字母, 小写字母, 特殊字符
//CODE128C: [00]-[99]的数字对集合, 共 100 个
//本函数采用 CODE128B 版本
//条码由开始位、数据位、校验位、停止位组成
//计算过程:
//1.取各字符 ASC 码乘以字符序号之和(以 ASC=32 为分界点,大于 32 减 32,小于 32 加
64)
//2.计算校验码
//3.组合条码:开始位+数据位+校验位+停止位
int li_asc_total = 104
int li_asc_tmp,i
char lc_start=char(204)//采用 CODE128B 版本
char lc_stop=char(206)
int li_check_digit
string ls_check_digit
//1.取各字符 ASC 码乘以字符序号之和(以 ASC=32 为分界点,大于 32 减 32,小于 32 加
64)
For i = 1 To len(as_sourcetext)
li_asc_tmp = Asc(mid(as_sourcetext,i, 1))
If li_asc_tmp >= 32 Then
li_asc_total = li_asc_total + (li_asc_tmp - 32) * i
Else
li_asc_total = li_asc_total + (li_asc_tmp + 64) * i
End If
Next
//2.计算校验码
li_check_digit = mod(li_asc_total,103)
If li_check_digit >= 95 Then//特殊字符
li_check_digit = li_check_digit + 100
Else
li_check_digit = li_check_digit + 32
end if
ls_check_digit = char(li_check_digit)
//3.组合条码:开始位+数据位+校验位+停止位
Return lc_start + as_sourcetext + ls_check_digit + lc_stop
资源评论
- Koyori每天都想转行2018-11-02都假的,骗人的,浪费积分
- wangzhenjun20142017-10-27没下载成功
- 滴水沧海2019-01-07没下载成功
- afen07682023-04-15谢谢啦,很有用
悠闲饭团
- 粉丝: 149
- 资源: 3300
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功