祝愿大家身体健康!

 站点注册  找回密码
 站点注册

QQ登录

只需一步,快速开始

查看: 6741|回复: 3

[其它] PB里实现EAN-13的算法

[复制链接]

[其它] PB里实现EAN-13的算法

[复制链接]
ehxz

主题

0

回帖

58万

积分

管理员

积分
588431
贡献
在线时间
小时
2009-4-15 15:43:12 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?站点注册

×
long n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13
long ll_n1,ll_n2,ll_n3,ll_n4,ll_n5,ll_n6
string ls_str1,ls_str2
ls_str1 = sle_1.text
n1 = long(mid(ls_str1,1,1)) //取最高位
n2 = long(mid(ls_str1,2,1))
n3 = long(mid(ls_str1,3,1))
n4 = long(mid(ls_str1,4,1))
n5 = long(mid(ls_str1,5,1))
n6 = long(mid(ls_str1,6,1))
n7 = long(mid(ls_str1,7,1))
n8 = long(mid(ls_str1,8,1))
n9 = long(mid(ls_str1,9,1))
n10 = long(mid(ls_str1,10,1))
n11 = long(mid(ls_str1,11,1))
n12 = long(mid(ls_str1,12,1))
ll_n1 = n1+n3+n5+n7+n9+n11
ll_n2 = (n2+n4+n6+n8+n10+n12)*3 //单数*3
ll_n3 = mod(ll_n1,10) + mod(ll_n2,10)
ll_n4 = mod(ll_n3,10)
if ll_n4 = 0 then
//        ll_n5 = mod(ll_n3/10,10)
//        n13 = 10 - ll_n5
        n13 = 0
else
        n13 = 10 - ll_n4
end if

sle_2.text = string(n1) + string(n2) + string(n3) + string(n4) + string(n5) + string(n6) + string(n7) + string(n8) + string(n9) + string(n10) + string(n11) + string(n12) + string(n13)
PB8.0下测试通过。
共享共进共赢Sharing And Win-win Results
SYBASEBBS - 免责申明1、欢迎访问“SYBASEBBS.COM”,本文内容及相关资源来源于网络,版权归版权方所有!本站原创内容版权归本站所有,请勿转载!
2、本文内容仅代表作者观点,不代表本站立场,作者自负,本站资源仅供学习研究,请勿非法使用,否则后果自负!请下载后24小时内删除!
3、本文内容,包括但不限于源码、文字、图片等,仅供参考。本站不对其安全性,正确性等作出保证。但本站会尽量审核会员发表的内容。
4、如本帖侵犯到任何版权问题,请立即告知本站 ,本站将及时删除并致以最深的歉意!客服邮箱:admin@sybasebbs.com
ehxz 楼主

主题

0

回帖

58万

积分

管理员

积分
588431
贡献
在线时间
小时
2009-4-15 16:38:11 | 显示全部楼层
函数版本

f_ean13.srf

1.16 KB, 下载次数: 8, 下载积分: 金钱 -1

函数

共享共进共赢Sharing And Win-win Results
fuxiaoyang13

主题

0

回帖

3136

积分

论坛元老

积分
3136
贡献
在线时间
小时
2010-3-29 16:32:27 | 显示全部楼层
多谢分享!!!!!!!!!!!!
共享共进共赢Sharing And Win-win Results
mikewolfli

主题

0

回帖

1056

积分

金牌会员

积分
1056
贡献
在线时间
小时
2010-5-6 11:23:49 | 显示全部楼层
谢谢分享!!!!!
共享共进共赢Sharing And Win-win Results
您需要登录后才可以回帖 登录 | 站点注册

本版积分规则

免责声明:
本站所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Admin@SybaseBbs.com

QQ|Archiver|PowerBuilder(PB)BBS社区 ( 鲁ICP备2021027222号-1 )

GMT+8, 2024-11-21 19:35 , Processed in 0.070432 second(s), 10 queries , MemCached On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表