内容导航：
  • VB 如何进行图像识别
  • VB 如何实现图片验证码
  • 怎么用VB读取图片上的Label 上面有一维的也有二维的条
  • vb程序写 摄像机拍取一张图片，图片上有条形码 ， 定位该图片中的条形码位置，并截取该区域为新图片

    • {image}

    一 、VB 如何进行图像识别

    你是要把图中橘拿穗的深灰色提取圆卜出来吗？如果是 ，先把图像灰度化--关键是最优阀值的确定--2值化-- 再提取边缘 ，这个不难。我正在用VB写验证码识别，我刚敏饥试了一下 效果还可以 我是1级用户 不能上传图片，

    二、VB 如何实现图片验证码

    请问 VB 如何实现图片验证码!定义一个验证码变量a ，然后将a的内容一个一个的Print到PictureBox上面，且每Print一个就换一种颜色和字体 。
    如：
    Mid(a,i,1)
    等待用户输入，然后与a对较。dim vcode as string private sub command1_click() drawvc end sub private sub drawvc() '显示校验码 dim i, px, py as long, vc as string dim r, g, b as byte randomize '初始化随机种子 '生成随机校验码 for i = 1 to 4 do num = rnd() * 74 + 48 loop while num < 48 or (num > 57 and num < 65) or (num > 90 and num < 97) or num > 122 vc = vc & chr(num) next i vcode = vc '显示校验码 vc '添加噪点（防止自动图像识别） for i = 0 to 800 '画800个噪点 '画点随机位置 px = clng( * rnd) py = clng( * rnd) '画点随机颜色 r = cbyte(255 * rnd) g = cbyte(255 * rnd) b = cbyte(255 * rnd) (px, py)-(px + 1, py + 1), rgb(r, g, b) next for i = 1 to 2 r = cbyte(255 * rnd) g = cbyte(255 * rnd) b = cbyte(255 * rnd) (0, clng( * rnd))-(clng(), clng( * rnd)), rgb(r, g, b) next i end sub private sub command2_click() if = vcode then msgbox ("正确") else msgbox ("错误") drawvc end if end sub private sub form_load() = 12 = true w = true drawvc end sub

    三、怎么用VB读取图片上的Label 上面有一维的也有二维的条

    将Label的Backstyle属性设置为1-Opeque ，再将图片控件放在Label下一层就可以了。将Label的Backstyle属性设置为1-Opeque ，再将图片控件放在Label下一层就可以了 。

    四 、vb程序写 摄像机拍取一张图片，图片上有条形码， 定位该图片中的条形码位置 ，并截取该区域为新图片

    你是不是说想超市里面那种，扫一下条码就传到计算机里？这个要看外设，外设安装上去了 ，驱动装好了，然后用它提供的API应该是可以轻松取到的。

    本文版权归趣KUAI排www.SEOguruBlog.com 所有,如有转发请注明来出,竞价开户托管,seo优化请联系QQ→61910465