Görüntü İşleme ile Hassas Sayma Uygulaması

endüstriyle görüntü işleme uygulamaları
Görüntü işleme ile hassas sayma uygulaması

Bulaşık bezleri üreten bir firma için geliştirdiğimiz kameralı otomasyon sisteminde, sistem arayüzü üzerinden belirlenen referans doğrultusunda kameralı kontrol sistemi bulaşık bezlerini gruplara ayırarak konum bilgisini PLC’ye iletiyor. Bu amaçla, 2 adet area scan global shutter kamera kullanıyoruz.

Sistemin fabrika içerisinde başka bir konuma taşınması veya kayması gibi durumlar için sistem kalibrasyon bloğu kullanılarak kalibrasyon yapılıyor. Bu kalibrasyon verileri daha sonra hafızaya kaydediliyor.

Halcon Kodları

Found := 0
dyn_threshold(B, R, RegionDynThresh, 5, 'dark')
closing_circle(RegionDynThresh, RegionClosing, 15)
erosion_rectangle1(RegionClosing, Region, 11, 11)
connection(Region, ConnectedRegions)
select_shape_std(ConnectedRegions, RegionKumas, 'max_area', 70)
*      
reduce_domain(R, RegionKumas, ImageReducedR)
var_threshold(ImageReducedR, Region, 120, 20, 0.2, 2, 'dark')
closing_rectangle1(Region, RegionClosing1, 10, 50)
opening_rectangle1(RegionClosing1, RegionOpening, 5, 200)
connection(RegionOpening, ConnectedRegions)
select_shape(ConnectedRegions, SelectedRegions1, ['height', 'width'], 'and', [450, 8], [1200, 125])
count_obj(SelectedRegions1, Number)
if (Number >= ExpCount)
    TestPattern (SelectedRegions1, PatternOk)
    if (PatternOk == 1)
        Found := 1
        disp_message(WinHandle, 'DYN-VAR', 'image', 1430, 20, 'blue', 'false')
        sort_region(SelectedRegions1, SelectedRegions, 'first_point', 'false', 'column')
        select_obj(SelectedRegions, CutPoint, ExpCount)
        area_center(CutPoint, Area, Row, Column)
    endif
endif
https://www.youtube.com/watch?v=O0x_qXySF5I

Benzer Yazılar