VB.NET Accord 画像のグレース化・二値化

Accordを使用して、画像をグレース化および２値化する方法を記載します。

Accord.Imaging.Filters をインポートします。

 

グレース化する

Dim FilePath As String = "C:\work\Resources\lena_color.jpg"
Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath)

'グレース画像を作成するフィルターを作成する
Dim GrayFilter As Grayscale = New Grayscale(0.2125, 0.7154, 0.0721)

'グレース画像を取得する
Dim GrayImage As Bitmap = GrayFilter.Apply(img)

'ピクチャーボックスに表示
PictureBox1.Image = GrayImage

 

２値化する

Dim FilePath As String = "C:\work\Resources\lena_color.jpg"
Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath)

'グレース化処理
Dim GrayFilter As Grayscale = New Grayscale(0.2125, 0.7154, 0.0721)
Dim GrayImage As Bitmap = GrayFilter.Apply(img)
 
'二値化処理
Dim thresFilter As Threshold = New Threshold(100)
Dim thresImage As Bitmap = thresFilter.Apply(GrayImage)
 
PictureBox1.Image = thresImage

　　

 

※AccordのFiltersは、AForgeのFiltersと同じなので、詳しくはAForgeを見て下さい。