Pengolahan Citra dengan Efek Grayscale Sederhana

Selamat Malam,,,

Salam Sahabat Setia

Kali ini Saya akan mencoba Postingkan "Pengolahan Citra" Yang Saya dapatkan Pada Pelajaran Pemrograman Visual dengan Dosen Saya, Anda bisa kunjungi blognya di http://mesran.net
Langsung Ajaa..

Jika Username dan Password Benar Maka Akan keluar Masagebox seperti berikut :

Jika Username dan Password Tidak benar Maka Akan Keluar Masagebox seperti berikut

Untuk Membuat Form atau Tampilan Seperti diatas Listing Programnya adalah Sebagai berikut...

Public Class Form1

    Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
        If Username.Text = "ABDUL KHAIR TARIGAN" And Password.Text = "12345" Then
            MsgBox("Selamat Datang !")
            Me.Hide()
            menuutama.Show()
        Else
            MsgBox("Maaf ! Anda Salah Username/Password. Coba Ulangi")
            Username.Text = ""
            Password.Text = ""
        End If
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Username.Text = ""
        Password.Text = ""
        Password.PasswordChar = "*"
    End Sub
End Class

Kemudian Untuk Membuat Tampilan Sebagai Berikut :

Berikut Listing Programnya :

Public Class Menuutama

    Private Sub PengolahanCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PengolahanCitraToolStripMenuItem.Click
        Gambar.Show()
    End Sub
End Class

Selanjutnya, Tampilannya adalah seperti dibawah ini :

Catatan : Tampilan Gambar ini Adalah Tampilan Sebelum Proses Grayscale dilakukan atau di Klik..

Catatan : Tampilan Gambar ini Adalah Tampilan Sesudah Peng-Klikan Tombol Grayscale.

Berikut Listing Programnya :

Public Class Gambar
    Dim Gambar As Bitmap
    Private Sub Grayscale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grayscale.Click
        Dim Pb, Pc As Integer
        Dim Rt, vM, vH, vB As Double
        Gambar = New Bitmap(Gambar2.Image)
        For Pb = 0 To Gambar2.Height - 1
            For Pc = 0 To Gambar2.Width - 1
                vM = Gambar.GetPixel(Pc, Pb).R
                vH = Gambar.GetPixel(Pc, Pb).G
                vB = Gambar.GetPixel(Pc, Pb).B
                Rt = (vM + vH + vB) / 3
                Gambar.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
            Next
        Next
        Gambar2.Image = Gambar
    End Sub

    Private Sub Gambar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Gambar2.Image = Gambar1.Image
    End Sub
End Class

Demikian Postingan Saya kali ini, semoga bermanfaat !!!
Jangan lupa,, Selalu Kunjungi blog saya hanya di http://khoirblack.blogspot.com/

dan silahkan beri kritik dan Saran yang membangun melalui post komentar yang ada,,
Terima Kasih.