【VisualBasic+OpenCVSharp4】による円(十円玉)画像認識処理
■はじめに
VisualBasic+OpenCVSharp4によって、色々な画像認識処理のプログラムを試験的に作成しましたが、その中で、十円玉の画像認識のサンプルプログラムが一番、年上の友人にウケたので、それを載せます。
■作成環境
OS:Windows10言語:Microsoft Visual Studio2022 Visual Basic + OpenCVSharp4(パッケージ)
被写体:十円玉数枚
カメラ:COOLPIX A10(NIKON) 静止画を使用
■円(十円玉)検出処理部分のプログラムソースDim matSoc As Mat = New Mat(画像ファイル名)
Dim matGry As Mat = matSoc.CvtColor(ColorConversionCodes.BGR2GRAY)
Dim matHou As Mat = matSoc.Clone()
'
Cv2.GaussianBlur(matGry, matGry, New OpenCvSharp.Size(9, 9), 0)
Dim Circles As CircleSegment() =
Cv2.HoughCircles(matGry, HoughModes.Gradient,
解像度, 円同士が最低限距離,
円の全体を検出する際の閾値, 円の中心を検出する際の閾値,
検出する円の半径の下限, 検出する円の半径の上限)
Dim Ip As Integer = 0
For Each ite
0