Dalam
Pengolahan CItra Digital, mengubah bentuk citra dari suatu gambar ke
bentuk citra lainnya merupakan bagian yang terpenting. Hal ini
dimaksudkan agar file gambar yang diolah memiliki ukuran file yang kecil
sehingga mudah untuk diproses selain itu juga agar algoritma untuk
mengidentifikasi pada gambar dapat dilakukan.
Salah satu caranya adalah dengan mengkonversi format RGB ke Format Greysacle. Pada Pengolahan citra Digital Kali ini, saya
akan mencoba memberikan Tutorial Pengolahan Citra Digital untuk membuat
sebuah program menggunakan visual basic 6.0 untuk mengkonversi citra
RGB ke citra GreyScale.
Adapun langkah-langkahnya sebagai berikut:
- Buka program visual basic 6.0 yang telah terinstal di komputer anda.
- Buat sebuah project baru,pilih Standart EXE.
- Tambahkan beberapa control seperti picture box, command button.
-
Ubah Properties masing masing sesuai keinginan anda. Sebagai catatan
ubah properties dari kedua Control Picture Box untuk Scale Mode menjadi
3-Pixel.
- Tambahkan sebuah gambar yang sesuai ukurannya dengan picture box yang pertama.
- Susun seperti gambar.1
Gambar.1 Desain Program Pengolahan Citra
- Kemudian buka jendela code dan ketikan script berikut ini
Const IntPixelX = 300
Const IntPixelY = 300
Dim Pixels(1 To IntPixelX, 1 To IntPixelY) As Long
Dim x, y As Integer
Dim Merah, Hijau, Biru, Abu2 As Integer
- Selanjutnya Klik dua kali command button dan ketikan code berikut ini
For x = 1 To IntPixelX
For y = 1 To IntPixelY
Pixels(x, y) = Picture1.Point(x, y)
Next y
Next x
For x = 1 To IntPixelX
For y = 1 To IntPixelY
Merah = Pixels(x, y) And &HFF
Hijau = ((Pixels(x, y) And &HFF00) / &H100) Mod &H100
Biru = ((Pixels(x, y) And &HFF0000) / &H10000) Mod &H100
Abu2 = (Merah + Hijau + Biru) / 3
Pixels(x, y) = RGB(Abu2, Abu2, Abu2)
Next y
Next x
For x = 1 To IntPixelX
For y = 1 To IntPixelY
Picture2.PSet (x, y), Pixels(x, y)
Next y
Next x
- jalankan program pengolahan citra menggunakan visual basic 6.0 buatan anda
- Gambar yang anda konversi akan beruba menjadi abu-abu (GreyScale).
Gambar.2 Program Pengolahan Citra
Seperti
itulah Script program yang dapat digunakan untuk membuat program
pengolahan citra menggunakan visual basic 6.0. Inti dari program
konversi format citra RGB menjadi format citra greyscale terletak pada
script “Abu2 = (Merah + Hijau + Biru) / 3”. Saya merasa program tersebut
masih banyak kekurangannya, oleh karena itu saya sangat senang jika ada
diantara kalian yang dapat membagi ilmunya.
Selamat Mencoba!
