Buka program VB.NET studio 2008, lalu klik file , new project, buat tampilannya seperti ini :
Private Sub pengolahan_citra_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox2.Image = PictureBox1.Image
End Sub
Private Sub Btngray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btngray.Click
Dim Pb, Pc As Integer
Dim Rt, vM, vH, vB As Double
PictureBox2 = New Bitmap(PictureBox2.Image)
For Pb = 0 To PictureBox2.Height - 1
For Pc = 0 To PictureBox2.Width - 1
vM = PictureBox2.GetPixel(Pc, Pb).R
vH = PictureBox2.GetPixel(Pc, Pb).G
vB = PictureBox2.GetPixel(Pc, Pb).B
Rt = (vM + vH + vB) / 3
PictureBox2.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
Next
Next
PictureBox2.Image = PictureBox2
End Sub
End Class
warna gambar berubah menjadi abu - abu ...
selamat mencoba ^_^
masukkan listing programnya seperti ini :
Public Class pengolahan_citra
Dim PictureBox2 As BitmapPrivate Sub pengolahan_citra_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox2.Image = PictureBox1.Image
End Sub
Private Sub Btngray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btngray.Click
Dim Pb, Pc As Integer
Dim Rt, vM, vH, vB As Double
PictureBox2 = New Bitmap(PictureBox2.Image)
For Pb = 0 To PictureBox2.Height - 1
For Pc = 0 To PictureBox2.Width - 1
vM = PictureBox2.GetPixel(Pc, Pb).R
vH = PictureBox2.GetPixel(Pc, Pb).G
vB = PictureBox2.GetPixel(Pc, Pb).B
Rt = (vM + vH + vB) / 3
PictureBox2.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
Next
Next
PictureBox2.Image = PictureBox2
End Sub
End Class
lalu lakukan proses atau tekan F5 atau tanda Play , lalu klik tombol grayscale, makaakan berubah tampilan gambar seperti ini
selamat mencoba ^_^
Terimakasih Atas Komentar Anda....!!! :) EmoticonEmoticon