看有外星人
助理工程师
助理工程师
  • 最后登录2015-12-10
  • 发帖数50
  • 金币262枚
  • 贡献勋章0枚
  • 社区居民
  • 忠实会员
阅读:3061回复:8

怎么将halcon导入vb6.0

楼主#
更多 发布于:2014-12-17 22:41
read_image (Image, 'C:/Users/Administrator/Desktop/10724725_201401171130510794.jpg')
get_image_pointer1 (Image, Pointer, Type, Width, Height)
dev_open_window (0, 0, Width, Height, 'black', WindowHandle)
dev_display (Image)
threshold (Image, Regions, 0, 150)
connection (Regions, ConnectedRegions)
fill_up (ConnectedRegions, RegionFillUp)
select_shape (RegionFillUp, SelectedRegions, ['area','circularity'], 'and', [1000,0.9500], [5000,1])
dev_display (Image)
dev_display (SelectedRegions)
只将这段halcon导入就可    本人菜鸟 忘高手路过动动你的小手

最新喜欢:

AtomeverAtomev...
Trevan
管理员
管理员
  • 最后登录2017-03-22
  • 发帖数989
  • 金币17939枚
  • 贡献勋章5枚
沙发#
发布于:2014-12-18 08:23
网站上有很多这方面的帖子,你找找。
捐助网站请点击 http://www.ihalcon.com/read-6416.html
bigpandagd
专家
专家
  • 最后登录2017-01-04
  • 发帖数142
  • 金币3471枚
  • 贡献勋章0枚
  • 社区居民
  • 忠实会员
板凳#
发布于:2014-12-18 08:35
1. 在菜单栏点File,选择Export
2. 在弹出的窗口中可以选择输出文件类型
看有外星人
助理工程师
助理工程师
  • 最后登录2015-12-10
  • 发帖数50
  • 金币262枚
  • 贡献勋章0枚
  • 社区居民
  • 忠实会员
地板#
发布于:2014-12-19 11:44
bigpandagd:1. 在菜单栏点File,选择Export
2. 在弹出的窗口中可以选择输出文件类型
回到原帖
大神我小白,以前自学的vb,而且很久了,能否把vb代码帖出来,就是照例子做做不出来哦
shicekono
初学者
初学者
  • 最后登录2015-01-11
  • 发帖数7
  • 金币44枚
  • 贡献勋章0枚
  • 社区居民
4楼#
发布于:2015-01-10 23:46

主程序如下:

Public Op As New HOperatorSetX
Public Tuple As New HTupleX
Public hv_ExpDefaultWinHandle As Variant
' Main procedure
Public Sub action(strFilePath As String)

  ' Local iconic variables
  Dim ho_Image As HUntypedObjectX, ho_Regions As HUntypedObjectX
  Dim ho_ConnectedRegions As HUntypedObjectX, ho_RegionFillUp As HUntypedObjectX
  Dim ho_SelectedRegions As HUntypedObjectX


  ' Local control variables
  Dim hv_Pointer As Variant, hv_Type As Variant
  Dim hv_Width As Variant, hv_Height As Variant, hv_WindowHandle As Variant

  Call Op.ReadImage(ho_Image, strFilePath)
  Call Op.GetImagePointer1(ho_Image, hv_Pointer, hv_Type, hv_Width, hv_Height)
  'dev_open_window(...);
  Call Op.DispObj(ho_Image, hv_ExpDefaultWinHandle)
  Call Op.Threshold(ho_Image, ho_Regions, 0, 150)
  Call Op.Connection(ho_Regions, ho_ConnectedRegions)
  Call Op.FillUp(ho_ConnectedRegions, ho_RegionFillUp)
  Call Op.SelectShape(ho_RegionFillUp, ho_SelectedRegions, Tuple.TupleConcat("area", _
      "circularity"), "and", Tuple.TupleConcat(1000, 0.95), Tuple.TupleConcat(5000, _
      1))
  Call Op.DispObj(ho_Image, hv_ExpDefaultWinHandle)
  Call Op.DispObj(ho_SelectedRegions, hv_ExpDefaultWinHandle)
End Sub



Sub InitHalcon()
  ' Default settings used in HDevelop
  Call Op.SetSystem("do_low_error", "false")
End Sub

Sub RunHalcon(ByRef Window As HWindowX)
  hv_ExpDefaultWinHandle = Window.HalconID
  'Call action
End Sub


Private Sub CmdTest_Click()
    Call action( 'C:/Users/Administrator/Desktop/10724725_201401171130510794.jpg'))
End Sub


描述:程序运行效果

图片:RunPic.png

程序运行效果
huihui98
助理工程师
助理工程师
  • 最后登录2016-06-07
  • 发帖数65
  • 金币336枚
  • 贡献勋章0枚
5楼#
发布于:2015-03-17 08:04
shicekono:主程序如下:

Public Op As New HOperatorSetX
Public Tuple As New HTupleX
Public hv_ExpDefaultWinHandle As Variant
' Main ...
回到原帖
Call action( 'C:/Users/Administrator/Desktop/10724725_201401171130510794.jpg'))
这个怎么运行不了啊?
huihui98
助理工程师
助理工程师
  • 最后登录2016-06-07
  • 发帖数65
  • 金币336枚
  • 贡献勋章0枚
6楼#
发布于:2015-03-17 08:22
shicekono:主程序如下:

Public Op As New HOperatorSetX
Public Tuple As New HTupleX
Public hv_ExpDefaultWinHandle As Variant
' Main ...
回到原帖
 Call action( 'C:/Users/Administrator/Desktop/10724725_201401171130510794.jpg'),这个运行不了,请大师指点一下,我在些感谢了
云万里飘雪
工程师
工程师
  • 最后登录2017-03-24
  • 发帖数227
  • 金币1149枚
  • 贡献勋章0枚
  • 社区居民
  • 忠实会员
7楼#
发布于:2016-05-07 11:00
进来看看,学习下!小白一个!
加油!qq: 16482 06601
xuzhuli293x
初学者
初学者
  • 最后登录2017-03-20
  • 发帖数7
  • 金币43枚
  • 贡献勋章0枚
8楼#
发布于:2017-01-08 16:38
我运行的时候为什么,每次到这句Call Op.SetSystem("do_low_error", "false") 报错
游客

返回顶部