VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: acme_pjz

[原创] VB6山寨二维条码创建程序

[复制链接]
发表于 2012-7-17 15:54:03 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

点评

点评跑哪去了?  发表于 2012-7-18 23:03
经检查代码,在不影响解码的地方出了一个小小Bug  发表于 2012-7-17 19:22
反正我这个创建的能正常解码就行了  发表于 2012-7-17 19:12
回复 支持 反对

使用道具 举报

发表于 2012-7-18 13:10:01 | 显示全部楼层
小小Bug在哪。  怎么修改.
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2012-7-18 14:24:53 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-7-18 14:37:49 | 显示全部楼层
a8888123 发表于 2012-7-18 13:10
小小Bug在哪。  怎么修改.


把clsQRCode.cls的pEncode函数的某个地方改成:
  1.   '///padding
  2.   j = (nEncodedBitCount + 7) And &HFFFFFFF8
  3.   If j > nAvaliableDataCodewordCount * 8& Then j = nAvaliableDataCodewordCount * 8&
  4.   For i = nEncodedBitCount To j - 1
  5.    bEncodedBit(i) = 0
  6.   Next i
  7.   nEncodedBitCount = j
  8.   For i = 0 To nAvaliableDataCodewordCount * 8& - nEncodedBitCount
  9.    j = i And &HF&
  10.    bEncodedBit(nEncodedBitCount + i) = (j <= 2 Or j = 4 Or j = 5 Or j = 11 Or j = 15) And 1&
  11.   Next i
复制代码

点评

谢谢  发表于 2012-7-18 22:22
回复 支持 反对

使用道具 举报

发表于 2012-7-20 16:37:35 | 显示全部楼层
好像还有bug

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

点评

这是因为遮罩类型(Mask type)不一样造成的,我这个不支持自动选择  发表于 2012-7-20 16:40
回复 支持 反对

使用道具 举报

发表于 2012-7-20 16:50:59 | 显示全部楼层
本帖最后由 a8888123 于 2012-7-20 16:57 编辑

这有什么验证标准吗!

点评

看17楼  发表于 2012-7-20 17:14
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-7-20 17:13:38 | 显示全部楼层
a8888123 发表于 2012-7-20 16:50
这有什么验证标准吗!


有,都写在QR码国际标准里面:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 支持 反对

使用道具 举报

发表于 2012-7-25 17:00:27 | 显示全部楼层
太强悍了,在公司试了好几个输入的条码,扫描都没有问题。
回复 支持 反对

使用道具 举报

发表于 2012-7-27 18:45:07 | 显示全部楼层
?什?繁?中文不一?~!!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

点评

我不知道!!! 是網路下載的說~!!  发表于 2012-7-27 23:13
你的程序是UTF-8的么?  发表于 2012-7-27 23:01
编码问题  发表于 2012-7-27 23:00
回复 支持 反对

使用道具 举报

发表于 2012-8-19 22:01:20 | 显示全部楼层
?什?又有??二???????

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x

点评

QR码有纠错功能,里面可以放少量自己的图片进去  发表于 2012-8-20 00:25
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-1 00:52

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表