level 3
Halcon爱好者
楼主
我一起来讨论一下以下实例每句代码的含义,我们把这个实例的代码全部中文注解掉,做一个非常基础的实例。欢迎大家踊跃参加!
Imports HalconDotNet
Public Class Form1
Dim m_hWindow As HWindow Dim m_hoImage As HObject = Nothing
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
m_hWindow = HWindowControl.HalconWindow
HOperatorSet.GenEmptyObj(m_hoImage)
HOperatorSet.SetColored(m_hWindow, 6) HOperatorSet.SetPart(m_hWindow, 0, 0, 511, 399) HOperatorSet.ReadImage(m_hoImage, "letter.tif") HOperatorSet.DispObj(m_hoImage, m_hWindow)
End Sub
Private Sub ButtonTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTest.Click
Dim hoRegionThresh As HObject = Nothing Dim hoRegionClosing As HObject = Nothing Dim hoRegionConnected As HObject = Nothing Dim hoRegionSelected As HObject = Nothing Dim hoRegionIntersection As HObject = Nothing
HOperatorSet.Threshold(m_hoImage, hoRegionThresh, 0, 124) HOperatorSet.ClosingCircle(hoRegionThresh, hoRegionClosing, 3.5) HOperatorSet.Connection(hoRegionClosing, hoRegionConnected) HOperatorSet.SelectShape(hoRegionConnected, hoRegionSelected, "area", "and", 80, 1000) HOperatorSet.Intersection(hoRegionSelected, hoRegionThresh, hoRegionIntersection) HOperatorSet.DispObj(hoRegionIntersection, m_hWindow)
End Sub
End Class