基于vb+halcon开发的视觉检测源代码
老厂房的流水线还在转，传送带上的金属件咔嗒咔嗒响。老王叼着烟眯眼看屏幕，VB6的蓝色IDE窗口里躺着几行泛黄的代码——这是十年前用Halcon攒的视觉检测程序，今天突然报了个图像采集异常。
"Halcon.CloseAllWindows() '这行祖传代码居然还能用"
老王嘟囔着按下F5，VB的调试模式带着特有的机械感启动。窗体上的HWindowControl控件抖了抖，像老式电视机刚通电时的雪花屏。
图像采集部分的核心代码透着VB特有的直白：
Private Sub GrabImage() Dim hv_AcqHandle As New HTuple HOperatorSet.OpenFramegrabber("DirectShow", 0, 0, 0, 0, 0, 0, "default", -1, "rgb", -1, "false", _ "default", "[0] USB Camera", 0, -1, hv_AcqHandle) HOperatorSet.GrabImageAsync(hv_Image, hv_AcqHandle, -1) End SubOpenFramegrabber的参数看得人眼晕，第三个参数"default"当年调试时改过三十多次。老王记得清楚，产线换摄像头型号那次，这行代码的第七个参数从"ntsc"改成"pal"让他熬了整个通宵。
处理金属件边缘的代码段更有意思：
HOperatorSet.Threshold(hv_Image, outRegion, 120, 255) HOperatorSet.Connection(outRegion, connectedRegions) HOperatorSet.SelectShape(connectedRegions, selectedRegions, "area", "and", 500, 99999)阈值处理接区域选择，典型的Halcon三板斧。VB里调用Halcon算子总带着点违和感，像是给拖拉机装了个F1的方向盘。SelectShape的500这个阈值，老王当年用游标卡尺量了五十多个不良品才确定下来。
最精髓的部分在结果判断：
If area > 0 Then HOperatorSet.SetColor(hv_WindowHandle, "red") Beep() '产线环境太吵，蜂鸣器得接功放 lblResult.Caption = "NG: " & CStr(area) Else HOperatorSet.SetColor(hv_WindowHandle, "green") lblResult.Caption = "OK" End If这个Beep()现在看着滑稽，当年可是救过整条产线——有次PLC通讯断了，就靠这个刺耳的蜂鸣声让操作工及时停机。VB的控件属性直接和Halcon窗口联动，这种混搭在现在看来像用算盘做云计算，但胜在简单粗暴。
调试窗突然弹出个错误：HALCON error #2001: Image acquisition timeout。老王掐灭烟头，瞥见摄像头USB线垂在半空——新来的实习生又踢到线了。他苦笑着插回数据线，VB代码继续忠实地执行着十年前写死的逻辑，流水线的绿灯再次亮起。
