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.. 😉