Language

Pada artikel kali ini, kita akan membahas tutorial sederhana bagaimana membaca nilai piksel dari citra digital menggunakan Visual Basic .Net. Pertama sekali buatlah sebuah project baru dengan tipe project Windows Form App dengan menggunakan bahasa Visual Basic. Kemudian gunakanlah control - control berikut pada form1 :

Control Name Properties
PictureBox PictureBox1 SizeMode = Zoom
Button Button1 Text = Open
  Button2 Text = Read
OpenFileDialog OpenFileDialog1

FileName = ""

Filter = "Jpeg|*.jpg"

Label Label1

Text = "Nilai Piksel Pada Posisi (0,0) : "

TextBox TextBox1

 

 

Adapun rancangan form dapat dilihat seperti gambar berikut :

Selanjutnya bukalah code editor dengan menggunakan shortcut F7. Kemudian pilihlah object Button1 pada combo object dan pilih event Click. Atau jika anda telah familiar dengan bahasa pemrograman visual basic anda dapat langsung membuat prosedur untuk event click pada Button 1. Ketikkan kode program berikut :

Public Class Form1
    Dim TampGambar As Bitmap
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim TampDialog As DialogResult
        TampDialog = OpenFileDialog1.ShowDialog()

        If TampDialog = DialogResult.OK Then
            TampGambar = Image.FromFile(OpenFileDialog1.FileName)
            PictureBox1.Image = TampGambar
            PictureBox1.Refresh()
        End If
    End Sub
End Class

Potongan kode program diatas digunakan untuk membuka dialog untuk memilih gambar yang akan dibuka di dalam aplikasi pada saat Button Open di klik. Selanjutnya kita akan menambahkan potongan kode program untuk menampilkan nilai piksel pada textbox yang disediakan.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Piksel As Color

        Piksel = TampGambar.GetPixel(0, 0)
        TextBox1.Text = String.Join(",", Piksel.R, Piksel.G, Piksel.B)
    End Sub

Potongan kode diatas digunakan untuk mengambil objek piksel pada posisi (0,0) dari citra yang dibuka yang kemudian menampilkan nilai R, G, dan B pada textbox1. Kode program lengkap dapat dilihat sebagai berikut :

Public Class Form1
    Dim TampGambar As Bitmap
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim TampDialog As DialogResult
        TampDialog = OpenFileDialog1.ShowDialog()

        If TampDialog = DialogResult.OK Then
            TampGambar = Image.FromFile(OpenFileDialog1.FileName)
            PictureBox1.Image = TampGambar
            PictureBox1.Refresh()
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Piksel As Color

        Piksel = TampGambar.GetPixel(0, 0)
        TextBox1.Text = String.Join(",", Piksel.R, Piksel.G, Piksel.B)
    End Sub
End Class

Output hasil aplikasi :

Kode dari tutorial ini dapat dikembangkan lagi seperti membaca seluruh nilai piksel sekaligus dan menampilkannya pada control seperti lisview ataupun datagrid yang akan kita bahas pada tutorial yang akan datang. Stay tuned.. 😉

No comments

Leave your comment

In reply to Some User
Related Articles
  • Histogram Citra Digital
    Histogram Citra Digital
    Information
    2 year(s) 9 month(s) 20 day(s) ago
    Aplikasi ini adalah aplikasi sederhana yang digunakan untuk membentuk histogram piksel dari citra digital. Preview :   Silahkan klik link dibawah ini untuk mengunduh source code :   Download File - vb_histogram.zip - 85 KB Download File - vb_histogram.zip - 85 KB - mirror