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

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

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

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的开发者可自行尝试。

相关问答

Q1: 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

Q2: 如何在vb中调用 ckvisionbuilder

CkVisionBuilder——智能编程的全功能机器视觉软件，可通过网口、串口连接所有工控设备

CkvsBuilder应用软件

CkvsBuilder软件是深圳市创科自动化控制技术有限公司所开发的一款通用型机器视觉软件，该软件

不需要用户进行代码编程，只需要对用到的功能进行相应的参数设置和保存就可以。同时如果用户

不想用CkVsBuilderV1.0界面或者想把软件加到自己的软件里，在用户把用到的功能进行相应的参数

设置后可以保存为一个工程文件，在软件运行目录有一个OCX控件，用户可以自行用VB、VC、BC、C#

等开发工具调用这个OCX控件打开相应的工程文件自己简单编程就可以开发出完美的机器视觉系统

（包括了采集和处理，用户只需获取数据就行），解决了用户编写机器视觉软件流程及算法的繁琐

工作。

Q3: 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。

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

Q4: 康耐视视觉系统添加工具要改脚本吗?

Visionpro 软件是一款非常好用的机器视觉软件，它降低了开发人员的入门门槛，一个简单的机器视觉项目，只需要拖拉窗口，设定下参数，就可以立刻完成部署上线，开发效率是非常高的。

但这种模式也会降低开发的灵活性，值得高兴的是Visionpro也帮我们考虑到了这点，可以通过VisionPro脚本来拓展我们需要的功能，该脚本可以由C#或者VB.NET来编写，无需再学习新的编程语言。这样使得Visonpro开发机器视觉项目变得更加高效和灵活。下面我么就来介绍一下VisionPro脚本的使用方式。

1.VisionPro脚本的目的

VisionPro脚本主要是用来辅助QuickBuild工程，灵活拓展QuickBuild工程应用。它通常与VisionPro代码一起或者代替VisionPro代码来运行。

2.什么情况下使用脚本

1.QuickBuild和应用程序向导不能实现你想要的功能的时候；

2.拓展QuickBuild和应用程序向导的功能。

3.VisionPro脚本分为：作业脚本，工具组脚本，工具块脚本；

1.作业脚本

(1.)作业脚本用途

通过作业脚本，我们可以访问作业属性，对图像采集参数进行设置和控制图像采集过程。

(2.)如何进入图像脚本编程界面

1.打开作业

2.点击配置-作业属性-编辑脚本

这里有C#和VB.Net脚本可以供选择，可以根据自己专长来选择，案例中我们都以c#为首选语言。

3.选择C#脚本，进入编译区域

2.工具组脚本

(1.)工具组脚本用途

控制工具组里工具的执行顺序，拓展工具无法实现的功能。

(2.)如何进入工具组脚本编程界面

1.打开作业

2.点击创建-编辑脚本工具-C#脚本

3.工具块脚本

(1.)工具块脚本用途

可以将多个工具封装成一个工具块，该工具块具有特殊功能和自定义的输入输出端口，同时工具块可以被其它程序复用。

(2.)如何进入工具组脚本编程界面

1.打开作业

2.进入作业-添加工具块工具

3.进入工具块-添加c#脚本-进入脚本编译区域

这里有C#和VB.NET两种脚本语言，同时每种脚本又有简单和高级两种脚本。

工具块(ToolBlock)脚本结构和工具组(ToolGroup)脚本结构大致一致，这里就不在复述了，可以参考工具组脚本结构学习。

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

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

vb.net开发视觉系统的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net开发视觉系统的信息别忘了在本站进行查找喔。