基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

使用vb.net封装halcon，并实现相机取图

    Public hv_ExpDefaultWinHandle As HTuple
    Public hv_AcqHandle As HTuple = New HTuple
    ' Main procedure 
    Sub initial_cam()
        HOperatorSet.OpenFramegrabber(New HTuple("GigEVision"), New HTuple(0), New HTuple(0), _
      New HTuple(0), New HTuple(0), New HTuple(0), New HTuple(0), New HTuple("default"), _
      New HTuple(-1), New HTuple("default"), New HTuple(-1), New HTuple("false"), _
      New HTuple("default"), New HTuple("0030532192c0_Basler_acA130060gc"), New HTuple(0), _
      New HTuple(-1), hv_AcqHandle)
        HOperatorSet.GrabImageStart(hv_AcqHandle, New HTuple(-1))
    End Sub

    Sub stop_cam()
        Try
            HOperatorSet.CloseFramegrabber(hv_AcqHandle)
        Catch ex As Exception

        End Try

    End Sub

Private Sub action()


  ' Local iconic variables 
  Dim  ho_Image As HObject = Nothing

  ' Local control variables 


  ' Initialize local and output iconic variables 
  HOperatorSet.GenEmptyObj(ho_Image)

  'Image Acquisition 01: Code generated by Image Acquisition 01
  

  ho_Image.Dispose()
  HOperatorSet.GrabImageAsync(ho_Image, hv_AcqHandle, new HTuple(-1))
  'Image Acquisition 01: Do something
  HOperatorSet.DispObj(ho_Image, hv_ExpDefaultWinHandle)

  ho_Image.Dispose()

End Sub



Sub InitHalcon()
  ' Default settings used in HDevelop 
  Call HOperatorSet.SetSystem(New HTuple("width"), New HTuple(512))
  Call HOperatorSet.SetSystem(New HTuple("height"), New HTuple(512))
  End Sub

  Sub RunHalcon(ByRef Window as HTuple)
    hv_ExpDefaultWinHandle = Window
    Call action
  End Sub