- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助一个代码问题。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104171)
-- 发布时间：2017/7/24 19:39:00
-- 求助一个代码问题。
请教各位老师。
我想实现批量生成QR码
可以实吗？
求指点。
谢谢了。
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "DTXT:SUB:编码;TXT:88888888;;"
Bar.QuietZoneWidth = 2
Bar.SaveImage("文件名")
[此贴子已经被作者于2017/7/25 1:05:44编辑过]
-- 发布时间：2017/7/24 20:55:00
--
使用循环
For i As Integer = 0 To 3
Dim txt As String = Rand.Next(10000000,99999999)
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "DTXT:SUB:编码;TXT:" & txt & ";;"
Bar.QuietZoneWidth = 2
Bar.SaveImage("f:\\" & txt & ".jpg")
Next
-- 发布时间：2017/7/24 23:21:00
--
谢谢版主，
感谢感谢。
成功了
继续学习。
继续学习。
For Each txt As Row In Tables("表A").Rows
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
bar.Code = txt("编号")
Bar.QuietZoneWidth = 2
Dim i As Integer=i+1
Bar.SaveImage("f:\\" & i & "_" & txt("编号") & ".jpg")
Next
[此贴子已经被作者于2017/7/25 0:37:34编辑过]
-- 发布时间：2017/7/25 1:05:00
--
现在又有个问题，我想实现彩色码，有没有办法？
一次性随机生成色彩效果。
让每一张都不一样，
[此贴子已经被作者于2017/7/25 13:01:18编辑过]
-- 发布时间：2017/7/25 1:17:00
--
我有个想法，就是让每一个生成的图片，
可以选择一个主色调。
然后随机产生明度上的抖动或者纯度上的抖动
色相上就尽量不要动。
颜色控制在一定的亮度上，便于后期扫描。
解释一下，为什么要这样。
因为 同色系更容易和谐。在整个设计图中，尽量不要对其它视觉设计元素产生太大的影响。
比如:
R 100 ~150
G 50
B 30
再比如：
R 100 ~150
G 80
B 100
再次感谢。
[此贴子已经被作者于2017/7/25 13:01:57编辑过]
-- 发布时间：2017/7/25 9:25:00
--
以下是引用minimoon在2017/7/25 1:05:00的发言：
每一张生成的颜色效果都不一样的。
可用于防伪。
这样别人伪造的彩色二维码，打印出来，就和数据库里的不能对应了。
每一张生成的颜色效果都不一样的。
可用于防伪。
这样别人伪造的彩色二维码，打印出来，就和数据库里的不能对应了。
没看懂你要表达的意思。二维码并没有防伪的功能，任何设备扫描二维码都能得到同样的信息。
如果你要防伪，你还得结合互联网，扫描后得到网址，跳转，显示查询的次数等等信息。
-- 发布时间：2017/7/25 9:28:00
--
在这里只要实现随机产生彩色的图片功能就可以了。
[此贴子已经被作者于2017/7/25 13:00:40编辑过]
-- 发布时间：2017/7/25 10:06:00
--
彩色，参考
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96703&skin=0
要随机彩色，参考 http://www.foxtable.com/webhelp/scr/0496.htm
-- 发布时间：2017/7/25 12:36:00
--
谢谢甜版。我去研究一下。
太感谢了
-- 发布时间：2017/7/25 13:00:00
--
已成功了，感谢。。