企业官网建设流程全解析

淄博网站建设讲解透彻,企业qq官网首页,看起来很高级的网页排版,驾校网站建设方案基于vbhalcon开发的视觉检测源代码老厂房的流水线还在转#xff0c;传送带上的金属件咔嗒咔嗒响。老王叼着烟眯眼看屏幕#xff0c;VB6的蓝色IDE窗口里躺着几行泛黄的代码——这是十年前用Halcon攒的视觉检测程序#xff0c;今天突然报了个图像采集异常。Halcon.Close…基于vbhalcon开发的视觉检测源代码老厂房的流水线还在转传送带上的金属件咔嗒咔嗒响。老王叼着烟眯眼看屏幕VB6的蓝色IDE窗口里躺着几行泛黄的代码——这是十年前用Halcon攒的视觉检测程序今天突然报了个图像采集异常。Halcon.CloseAllWindows() 这行祖传代码居然还能用老王嘟囔着按下F5VB的调试模式带着特有的机械感启动。窗体上的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代码继续忠实地执行着十年前写死的逻辑流水线的绿灯再次亮起。