vb.net二维码代码 vb二维码控件

高分求助生成二维码的vb代码

用PDF417动态库可生成2维条码

创新互联专注于烟台网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供烟台营销型网站建设，烟台网站制作、烟台网页设计、烟台网站官网定制、微信小程序开发服务，打造烟台网络公司原创品牌,更为您提供烟台网站排名全网营销落地服务。

阅读直接用2维条码扫描枪即可读出数据，然后还原数据

有个二维条码演示应用小软件，可参考

数字如何生成二维码?

问题一：二维码怎么生成 基础知识

首先，我们先说一下二维码一共有40个尺寸。官方叫版本Version。Version 1是21 x 21的矩阵，Version 2是 25 x 25的矩阵，Version 3是29的尺寸，每增加一个version，就会增加4的尺寸，公式是：(V-1)*4 + 21（V是版本号） 最高Version 40，(40-1)*4+21 = 177，所以最高是177 x 177 的正方形。

下面我们看看一个二维码的样例：

定位图案

Position Detection Pattern是定位图案，用于标记二维码的矩形大小。这三个定位图案有白边叫Separators for Postion Detection Patterns。之所以三个而不是四个意思就是三个就可以标识一个矩形了。

Timing Patterns也是用于定位的。原因是二维码有40种尺寸，尺寸过大了后需要有根标准线，不然扫描的时候可能会扫歪了。

Alignment Patterns 只有Version 2以上（包括Version2）的二维码需要这个东东，同样是为了定位用的。

功能性数据

Format Information 存在于所有的尺寸中，用于存放一些格式化数据的。

Version Information 在 = Version 7以上，需要预留两块3 x 6的区域存放一些版本信息。

数据码和纠错码

除了上述的那些地方，剩下的地方存放 Data Code 数据码 和 Error Correction Code 纠错码。

数据编码

我们先来说说数据编码。QR码支持如下的编码：

Numeric mode 数字编码，从0到9。如果需要编码的数字的个数不是3的倍数，那么，最后剩下的1或2位数会被转成4或7bits，则其它的每3位数字会被编成 10，12，14bits，编成多长还要看二维码的尺寸（下面有一个表Table 3说明了这点）

Alphanumeric mode 字符编码。包括 0-9，大写的A到Z（没有小写），以及符号$ % * + C . / : 包括空格。这些字符会映射成一个字符索引表。如下所示：（其中的SP是空格，Char是字符，Value是其索引值） 编码的过程是把字符两两分组，然后转成下表的45进制，然后转成11bits的二进制，如果最后有一个落单的，那就转成6bits的二进制。而编码模式和字符的个数需要根据不同的Version尺寸编成9, 11或13个二进制（如下表中Table 3）

Byte mode, 字节编码，可以是0-255的ISO-8859-1字符。有些二维码的扫描器可以自动检测是否是UTF-8的编码。

Kanji mode 这是日文编码，也是双字节编码。同样，也可以用于中文编码。日文和汉字的编码会减去一个值。如：在0X8140 to 0X9FFC中的字符会减去8140，在0XE040到0XEBBF中的字符要减去0XC140，然后把结果前两个16进制位拿出来乘以0XC0，然后再加上后两个16进制位，最后转成13bit的编码。如下图示例：

Extended Channel Interpretation (ECI) mode 主要用于特殊的字符集。并不是所有的扫描器都支持这种编码。

Structured Append mode 用于混合编码，也就是说，这个二维码中包含了多种编码格式。

FNC1 mode 这种编码方式主要是给一些特殊的工业或行业用的。比如GS1条形码之类的。

简单起见，后面三种不会在本文 中讨论。

下面两张表中，

......

问题二：二维码发布后能不能直接变成数字显示出来 这里的个人信息可以是：数字，网址，文字以及名片信息等，你可以将你想要生成二维码的信息进行导入，二维码生成器就会自动生成二维码。

我们常见的二维码生成器，国外的有Label Painter，Bartender，Label mx等。一般在网上都可以下载到。

目录

摘要

基本信息

简介

制作原理

二维码应用

不同二维码

堆叠式/行排式二维码

矩阵式二维码

图册集锦

微信文章

新闻动态

制作原理

二维码其实就是由很多0、1组成的数字矩阵。二维条码/二维码 （2-dimensionalbarcode） 是用某种特定的几何图形按一定规律在平面（二维方向上）分布的黑白相间的图形记录数据符号信息的；在代码编制上巧妙地利用构成计算机内部逻辑基础的“0”、“1”比特流行的概念，使用若干个与二进制相对应的几何形体来表示文字数值信息，通过图象输入设备或光电扫描设备自动识读以实现信息自动处理：它具有条码技术的一些共性：每种码制有其特定的字符集；每个字符占有一定的宽度；具有一定的校验功能等。同时还具有对不同行的信息自动识别功能、及处理图形旋转变化等特点。 二维条码/二维码能够在横向和纵向两个方位同时表达信息，因此能在很小的面积内表达大量的信息。

二维码生成器的制作需要一个二维码生成算法，或者一个二维码插件，然后用JAVA，C#，VB等编程语言编写一个调用软件就可以做成二维码生成器了。

这个二维码生成算法就是将组成二维码的0、1数字矩阵进行组合，输入二维码生成器的信息不同，所得到的0、1数字矩阵组合也不相同，因此生成的二维码样式就各种各样。

二维码应用

二维码和手机摄像头以及二维码和计算机的配合将产生多种多样的应用，比如今后我们可以在自己的名片上印上二维码，别人只需用安装二维码识别软件的摄像手机轻松一拍，名片上的各种资料就全部输入手机啦；如果超市的商品也印上二维码，我们就可以在手机上获得关于该商品的大量详细信息。2011年初二维码已经在日本和韩国获得广泛应用，台湾和大陆地区也已经开始推广，今后我们可以用二维码在自动贩售机买可乐、缴费、网上购物等等，二维码在我们以后的生活中将会越来越广泛的应用。

问题三：能不能将二维码的一串数字生成二维码图片 有的有的，QuickMark~要装NET3.5呢

问题四：为什么二维码制作下面一定要有数字 不是啊。 二维码本身下面是不带任何内容的， 只有一个二维码图案。下面如果带有数字或者其他内容，那是一些打印软件自己添加的。应该可以隐藏掉的。

我平时用领跑条码标签打印软件做都是只有一个标准的二维码的，如果想要二维码下面的内容，就另外添加一个文本对象，做成数据引用，引用二维码内容就行了

问题五：二维码制作后添加数字 这个是可以实现的，像一般的二维码生成后，你可以通过个性二维码的生成，就可以把数字这些以图片的形式附着在原来的二维码上

问题六：在vi里如何将连续的15行用＃注释掉 使用块操作，或是用.来重复操作。

问题七：如何将文字或数字放入二维码框中? 二维码里面包含的本身就是文本信息，包括数字和字符啊。

你百度 在线 二维码 ，有在线二维码生成器，你把你想要的文字复制进去，就会帮你做一个二维码了，然后你把图片下载下来就行了。

问题八：EXCEL表格怎么能自动生成二维码 首先新建一个Excel表格，在A1单元格中输入需要生成二维码的代码信息。1. 先要下载一个控件，地址：bbs.cfan/thread-1611874-1-1下载回来的文件解压后，将QRMaker文件夹里的所有文件复制到c:\windows\system32下。通过“开始→运行”，在运行窗口里输入regsvr32 c:\windows\system32\QRmaker.ocx注册一下组件。2. 打开Excel，因为之后要用到VBA，进入Excel选项，勾选“在功能区显示开发工具”（图1），切换到开发工具选项卡，单击Visual Basic打开VBA编辑器，选择“工具→引用→浏览”，找到c:\windows\system32\QRMaker.ocx，关闭编辑器。

3. 回到Excel中，在空白处插入一个命令按钮，右击该按钮选择指定宏→录制，宏命名为print2d，停止录制宏。4. 同时插入其他控件中的QRMaker Control，点“确定”后鼠标会变成十字，在空白区域画一个二维码控件（图2）。

5. 再次打开VBA编辑器，在左边找到模块1，双击后清空右边所有内容，输入以下代码：Sub print2d()Dim QRString1 As String'定义变量QRString1 = Sheet1.Range(A1)'将A1单元格的值传递给QRString1Sheet1.SelectSheet1.QRmaker1.AutoRedraw = ArOn'启用QRmaker的自动重画属性Sheet1.QRmaker1.InputData = QRString1'将QRString1的值传递给QRmaker1End Sub保存关闭VBA编辑器，回到Excel（图3），单击Print2D按钮就可以将A1单元格的内容生成二维码。

制作完毕，就可以使用这个二维码了，用胸卡在扫描枪上扫描，即可对特定数据进行操作了。

扩展阅读：二维码相比较普通条码，具备以下的优势：信息容量大、编码范围广；容错能力强，具有纠错功能，不会像条码一样只要其中一根打印不清楚就无法扫描；译码可靠性高，不大容易出现扫描出的内容和原信息不一致；可引入加密措施；成本低，易制作，持久耐用；条码符号形状、尺寸大小比例可变；可以使用激光或CCD阅读器识别。

此实例同时在Excel 2010和Windows7下面测试通过。

问题九：二维码怎么制作的？ ps

vb.netqrcode尺寸大小

可以使用专门制作二维码的软件进行设置V6.5.3的也行，就不用写什么代码了，简单又省事。

大小的话直接在在图形属性基本中就可以调整二维码的外观。

求vb.net的源代码，最好说明其解决问题，越多越好，满意加50分。

下面这段代码，是我用来计算每个月存500元进银行，连续30年，最后连本带利能有多少钱。这里面涉及复利计算。界面中右边的文本框用来输出每一次计算的结果。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  Dim nianxian As Integer '年限变量

  Dim dingcun As Integer '定存变量

  Dim fuli_big As Long '大复利

  Dim fuli_small As Long '小复利

  Dim i As Integer '循环变量

  Dim DATAstring As String '数据字符串

  nianxian = Val(年限_TextBox.Text)

  dingcun = Val(定存_TextBox.Text)

  DATAstring = ""

  For i = 1 To nianxian

      fuli_small = dingcun * (1 + 0.1875)

      dingcun = fuli_small

      fuli_big = fuli_big + fuli_small

      DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

      'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

  Next

  'fuli_big = fuli_small

  TextBox1.Text = DATAstring

  结果_TextBox.Text = Str(fuli_big) + "元"

End Sub

QRMaker.ocx生成含有中文的二维码

的确如此。

QR码对于中文有专门的编码方案。使用GB2312编码（虽然有点老）。

看看这个控件有没有直接使用字节数据进行编码的方法，自己将“”中的内容转化成确定的字节数据。

用VB.NET程序编写代码

Delphi代码如下：

procedure TForm1.Button1Click(Sender: TObject);

var

购物总价:Integer;

折扣:Extended;

begin

购物总价:=StrToInt(Edit1.Text);

if 购物总价250 then

begin

折扣:=0;

end

else if 购物总价500 then

begin

折扣:=0.05;

end

else if 购物总价1000 then

begin

折扣:=0.075;

end

else if 购物总价2000 then

begin

折扣:=0.1;

end

{

此段的折扣是多少？

else if 购物总价3000 then

begin

折扣:=0.05;

end

}

else if 购物总价=3000 then

begin

折扣:=0.15;

end;

ShowMessage('您享受的折扣是：'+FloatToStr(折扣)

+' 原价：'+IntToStr(购物总价)

+' 折后总价：'+FloatToStr(购物总价*(1-折扣)));

end;