vb.net开发视觉系统的简单介绍

如何在VB，VC和.NET中使用halcon

HALCON对于机器视觉的学习者、开发者而言并不陌生，称其为机器视觉领域第一软件，亦无可厚非。

我们提供的服务有：网站建设、成都网站制作、微信公众号开发、网站优化、网站认证、吉安ssl等。为1000+企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的吉安网站制作公司

HALCON对于视觉系统的控制、图像的处理和分析都能够较好的实现，尤其是各种图像处理算法。但就其本身而言，开发用户界面并不理想。用户界面以及对于其他底层的控制，比如和底层电路板、PLC等的控制和通信，可通过VC++、VB等进行开发。方便的是，HALCON恰恰能够被这些开发工具所调用，它支持C、C++、VB、JAVA等等。

刚开始结合VC++结合HALCON进行学习和开发时，因为软件方面的薄弱，对如何在VC++中如何调用HALCON感到不知所措，也在网上找了一些资料，资料较少，基本内容相同，或许能用，但始终对于笔者个人而言不太灵光。后来在一位软件同事的指导下，对其有了较为深刻的了解，其实说到底对软件工程师而言这是一件很简单的事，也就是将HALCON的库导入VC++。

以下，针对初学者一步步介绍，以MFC作为开发工具。

在Visual Studio中新建项目选择Visual C++下的MFC，其中的MFC应用程序，建立过程不赘述。本文以Visual Studio 2005为例。

打开HALCON安装目录（以HALCON7.0为例，后面的版本也相同），如下图1所示：

将其中的include文件夹整个拷贝至所建MFC项目工作目录下，如下图2所示：

同样，将HALCON的LIB文件拷贝到所建MFC项目工作目录下，因使用C++进行开发，所以选择X:Program FilesMVTecHALCONlibi586-nt4下的halconcpp.lib，这里X:为安装盘符

打开stdafx.h，在文件中空白位置处，加入

#include "include/cpp/HalconCpp.h"

#prama comment(lib,"halconcpp.lib")

下一步，点击项目下的属性，如下图6所示：

点开配置属性中的C/C++，如下图7所示：

当点在附加包含目录右侧空白框时，会出现的图标，点开，如下图8所示：

点击新建行，将所建MFC项目工程目录下的include文件夹的地址输入，也就是刚才我们拷贝过去的那个文件夹

最后一步，在需要使用HALCON库的地方，将其头文件导入，以****Dlg.cpp为例

这样我们就算成功在VC++/MFC中导入了HALCON库文件，就可以调用HALCON的函数，使用其强大的算法。另外，单纯执行上述步骤后，按F5启动调试，应该是不会有任何的ERROR和WARNING的。此方法同样适用于VB，在此不赘述，VB的开发者可自行尝试。

机器视觉检测系统编程用的什么语言

一般二次开发用vb.net或者c#即可，如果想要自己写算法做开发，或者定制现有的算法，建议使用C++

Vb（或者VB.net)影像识别系统

建议用VC做吧，VB图像处理速度慢。

VC的话其实不怎么难，简单学学图像处理，网上现成的程序一把，涉及降噪、图像二值化、边界提取、中心计算等问题，还有回调函数也用的到。

VB.net可以开发小型3D图形显示软件吗？

可以借助DirectX来编程。免费3D引擎可不好找，一般来说速度比不上硬件加速后的DX，尤其令人头疼的是一般都没有针对VB的文档，LZ有这方面理想的话，自己写一个吧……

我不得不承认在VB上写DirectX的教程相当难找！如果LZ想深入研究三维图形问题，C++一定要学，就算不能用C++编程，起码要能把C++程序翻译成VB程序。

我自己学会DX编程花了两三个月（很浅）。编这样一个程序难度是有点大的。

工具：DirectX9和其针对VB的库(项目-添加引用。.NET库里DX库一般都有)，VB不知道现在支不支持DX10以上的版本，不过9绝对够用了。

思路：一切3D图形都是由三角形拼成的。矩形挖掉一个圆孔可不是一个方便画的图形，我估计至少得有24个三角形。你需要记录这些点的坐标，或者干脆把它们写在文件里，到时读出来。

这是我的一个老DX程序的不完全的代码(显示一个黑乎乎的平面)，不一定能编译，可以参考一下。

Imports Microsoft.DirectX '一定要~

Public Class FormMain

'Direct3D Startup

Dim d3dpp As New Direct3D.PresentParameters 'DX基本参数，例如全屏还是窗口等

Public MyDevice As Direct3D.Device ‘DX基本设备，画图就靠它。

'Matrices

Dim matWorld, matView, matProj As Matrix '世界位置矩阵，摄像机位置矩阵和透视矩阵，数学要学好啊。

'mesh

Public MyPlane as Direct3D.Mesh ’我们的物体

Public VBPlane(3) As Direct3D.CustomVertex.PositionNormalTextured '存放顶点位置的数组

#Region "DX Core"

Public Sub InitDeviceObjects()

With d3dpp ‘以下请照抄。

.Windowed = True ‘不全屏。

.SwapEffect = Direct3D.SwapEffect.Discard ’双缓冲交换效果。请百度“双缓冲”

.BackBufferFormat = Direct3D.Format.Unknown

.EnableAutoDepthStencil = True ’让DX自动管理深度缓冲

.AutoDepthStencilFormat = Direct3D.DepthFormat.D16

End With

MyDevice = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, Direct3D.CreateFlags.HardwareVertexProcessing, d3dpp) '创建DX设备啦！以下两句请照抄。

MyDevice.SetRenderState(Direct3D.RenderStates.ZEnable, True) ‘Z缓冲

MyDevice.SetRenderState(Direct3D.RenderStates.NormalizeNormals, True)'法线归一化，请看相关数学书籍。

End Sub

Public Sub RestoreDeviceObjects()

Dim PlaneIB() As Short = {0, 1, 3, 0, 2, 3} ’顶点索引信息。

Dim AttrTable(1) As Direct3D.AttributeRange ‘顶点分组属性表

AttrTable(0).AttributeId = 0

AttrTable(0).FaceStart = 0

AttrTable(0).FaceCount = 2 ’有两个三角形

AttrTable(0).VertexStart = 0

AttrTable(0).VertexCount = 4 ‘四个点

‘顶点坐标信息。

VBPlane(0) = New Direct3D.CustomVertex.PositionNormalTextured(-500, -500, 0, 0, 0, 1, 0, 0)

VBPlane(1) = New Direct3D.CustomVertex.PositionNormalTextured(500, -500, 0, 0, 0, 1, 1, 0)

VBPlane(2) = New Direct3D.CustomVertex.PositionNormalTextured(-500, 500, 0, 0, 0, 1, 0, 1)

VBPlane(3) = New Direct3D.CustomVertex.PositionNormalTextured(500, 500, 0, 0, 0, 1, 1, 1)

MyPlane = New Direct3D.Mesh(2, 4, Direct3D.MeshFlags.Managed, Direct3D.VertexFormats.Position + Direct3D.VertexFormats.Normal + Direct3D.VertexFormats.Texture1, MyDevice) ’创建物体

MyPlane.SetVertexBufferData(VBPlane, Direct3D.LockFlags.None) ‘输入顶点坐标数据

MyPlane.SetIndexBufferData(PlaneIB, Direct3D.LockFlags.None) ‘输入索引数据

MyPlane.SetAttributeTable(AttrTable) ‘输入顶点分组属性表

End Sub

Public Sub Render() ‘调用它画图

Dim vlook As New Vector3(1, 0, 0)

Dim vPos As New Vector3(0,0,0)

Dim vUp As New Vector3(0, 0, 1)

MatView = Matrix.LookAtLH(vPos, vlook, vUp) ‘计算摄像机位置矩阵

Device.SetTransform(Direct3D.TransformType.View, MatView) ‘设置当前摄像机位置矩阵为MatView。

Dim fAspect As Single = Me.Width / Me.Height ’窗口长宽比

matProj = Matrix.PerspectiveFovLH(Math.PI / 4, fAspect, 1.0F, 10001) ‘计算透视矩阵MatProj。

MyDevice.SetTransform(Direct3D.TransformType.Projection, matProj) ‘设置当前透视矩阵为MatProj。

MyDevice.Clear(Direct3D.ClearFlags.Target + Direct3D.ClearFlags.ZBuffer, Color.Blue, 1.0F, 0) ’先刷蓝屏

MyDevice.BeginScene() ‘开始画

MatWorld = Matrix.Identity ’物体位于原点，不旋转

Device.SetTransform(Direct3D.TransformType.World, MatWorld) ’设置物体位置

Me.Mesh.DrawSubset(0) ‘画物体

MyDevice.EndScene() ’结束

MyDevice.Present() ‘显示在屏幕上

End Sub

Public Sub DeleteDeviceObjects() ’结束程序时放掉资源

MyPlane.Dispose()

MyDevice.Dispose()

End Sub

#End Region

Private Sub FormMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

DeleteDeviceObjects()

Windows.Forms.Cursor.Show()

End Sub

Private Sub FormMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

InitDeviceObjects()

RestoreDeviceObjects()

Windows.Forms.Cursor.Hide()

Render()

End Sub

End Class

vb可以用来做机器视觉开发吗

VB是可以的。例如常规，像素RGB范围匹配模式，二值化对比模式也都是仅仅数十行代码可以实现。当然一些高级的工件自由检测，如指纹算法模式，非基准轮廓对比等就是看自己的VB功力了。

首先，硬件方面

1、相机最好要支持VB6的SDK开发包，这样事半功倍；

2、如果检测环境无法做防干扰屏蔽罩时，必须选用窄通红外相机配合红外光源，一般透光波长选择800·900纳米范围，缺点是这样的相机只有灰度图像；

3、检测误报率与环境光源干扰、信噪比、曝光稳定性、白平衡等有重要关系；

4、检测响应速度与相机帧率、相机像素大小、控制器CPU、上位机计算程序代码写法有关；

5、如果被检查工件之间的颜色差异非常明显如黑与白，蓝与黄，红与绿且检测精度要求低或仅检测有无，则可以选择低端的普通摄像头、一般的白光光源。但最好要防干扰屏蔽罩；

6、相机的I/O触发可有可无，一般通过软触发。因此要配一块串口通讯的单片机，根据实际检测功能配置合适的输入和输出点数，其作用是上位机控制相机和外接其它功能设备。土豪当然也可以直接用PLC。

7、软件基本逻辑是，上位机软件触发相机拍照，程序将照片二值化处理或轮廓提取，分析与基准图像的差异并作出判断。I/O卡输出信号控制其它外接设备工作。

检测分为，ROI匹配或全图匹配。ROI匹配即通过VB上位机软件设定，只检测需要检测的部分，大大减少CPU计算量，提升检测响应速度。全图匹配，不建议使用，不但误报高，而且吃CPU。

希望这些信息可以帮到你。