Program VB.NET Mengambil Nilai RGB Citra

pada artikel sebelumnya saya sudah membahas pemahaman red green blue pada citra . Nah di artikel ini saya memberikan program menggunakan Visual Basic.Net 2008 untuk mengambil nilai nilai red green blue citra

Berikut Program VB.NET Mengambil Nilai RGB Citra

Design Form berikut

 

Setting Propertis Komponen
Picturebox1 Name  : pic1

TextBox1 Name : NilaiRGB, Multiline : True, Scrolbar : Vertical
Untuk Button1 dan Button2 tidak perlu dirubah namanya

Tambahkan juga KOMPONEN OPEN FILE DIALOG rubah dengan Name : OFD

Listing Program

Public Class Form1
    'mendefinisikan gambar sebagai suatu gambar jenis bitmap
    Dim gambar As Bitmap
    'mendefinisikan variabel untuk RGB
    Dim vR, vG, vB As Double
   
    'untuk membuka gambar
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OFD.Filter = "BMP|*.bmp|JPG|*.Jpg"
        OFD.ShowDialog()

        If OFD.FileName = "" Then Exit Sub
        Pic1.Image = Image.FromFile(OFD.FileName)
        gambar = New Bitmap(Pic1.Image)
        Me.Text = "Ukuran gambar " & gambar.Width & "x" & gambar.Height
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    'melakukan perulangan pada media gambar
        For Pc = 0 To gambar.Height - 1
            For Pb = 0 To gambar.Width - 1

             'mengambil nilai RGB
                vR = gambar.GetPixel(Pb, Pc).R
                vG = gambar.GetPixel(Pb, Pc).G
                vB = gambar.GetPixel(Pb, Pc).B

        'memasukkan nilai RGB ke textbox
                NilaiRGB.Text = NilaiRGB.Text & vR & " " & vG & " " & vB & vbCrLf

        'merefresh komponen textbox
                NilaiRGB.Refresh()
            Next Pb
        Next Pc
    End Sub
End Class

Sumber : Mesran.net