Halcon案例之药物检测

*图片来自Halcon自带，Halcon2012版本

for Index := 1 to 6 by 1

read_image (Image, 'blister/blister_' + Index$'02')

decompose3 (Image, ImageR, ImageG, ImageB)

threshold (ImageR, Region1, 128, 255)

shape_trans (Region1, RegionTrans, 'convex')

reduce_domain (ImageB, RegionTrans, ImageReduced)

var_threshold ( ImageReduced, Region, 7, 7, 0.2, 2, 'dark')

connection (Region, ConnectedRegions0)

closing_rectangle1 (ConnectedRegions0, ConnectedRegions, 3, 3)

fill_up (ConnectedRegions, RegionFillUp)

select_shape (RegionFillUp, SelectedRegions, 'area', 'and', 1000, 99999)

opening_circle (SelectedRegions, RegionOpening, 4.5)

connection (RegionOpening, ConnectedRegions)

select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 1000, 99999)

shape_trans (SelectedRegions, Pills, 'convex')

area_center (Pills, Area, Row, Column)

Mes:=0

*少药丸

Miss:=15-|Area|

min_max_gray (Pills, ImageG, 0, Min, Max, Range)

*错药丸

for i:=0 to |Min|-1 by 1

if(Area[i]<3800)

Mes:=Mes+1

endif

if(Min[i]<80)

Mes:=Mes+1

endif

endfor

*OK药丸

Res:=15-Miss-Mes

dev_display (Image)

disp_message (3600, '缺少药丸个数：'+Miss, 'window', 12, 12, 'black', 'true')

disp_message (3600, '错误药丸个数：'+Mes, 'window', 42, 12, 'black', 'true')

disp_message (3600, '正确药丸个数：'+Res, 'window', 72, 12, 'black', 'true')

stop ()

endfor