yakinlah bahwa setiap langkah besar selalu diawali dengan langkah kecil yang konsisten

Senin, 08 Oktober 2012

Program Pengolah Citra Menggunakan VB 6.0

Diposting oleh Rissa di 16.44
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 GrayScale.

1. Buka program Visual Basic 6.0
2. Buat sebuah project baru,pilih Standart EXE.
3. Tambahkan beberapa komponen seperti picture box, command button, seperti berikut :

4. Ubah Properties masing masing sesuai keinginan. 
     Sebagai catatan ubah properties dari kedua Control Picture Box untuk Scale Mode menjadi 3-Pixel.
5. Tambahkan sebuah gambar yang sesuai ukurannya dengan picturebox1.
6. Kemudian buka jendela code dan ketikan script berikut ini :
    Dim Tot_Pix As Long 'wadah total pixel
    Dim red As Integer, green As Integer, blue As Integer, abu As Integer
    Dim Brs As Integer, Klm As Integer
    Dim Tinggi As Integer, Lebar As Integer
7. Selanjutnya Klik dua kali commandbutton1 dan ketikan code berikut ini :
       '===mencari tinggi dan lebar citra===
    Tinggi = Picture1.ScaleHeight
    Lebar = Picture1.ScaleWidth
    '===menyamakan tinggi===
    Picture2.Height = Tinggi
    Picture2.Width = Lebar
    '====membaca nilai2 pixel====
    For Brs = 0 To Lebar - 1
        For Klm = 0 To Tinggi - 1
           Tot_Pix = Picture1.Point(Brs, Klm)
           'cara mengambil nilai rgb
            red = Tot_Pix And 255
            Tot_Pix = Fix(Tot_Pix / 256)
            green = Tot_Pix And 255
            Tot_Pix = Fix(Tot_Pix / 256)
            blue = Tot_Pix And 255
           'cara menampilkan
           Picture2.PSet (Brs, Klm), RGB(red, 0, 0)
           Next
    Next
8. Selanjutnya Klik dua kali commandbutton2 dan ketikan code berikut ini :
                 '===mencari tinggi dan lebar citra===
    Tinggi = Picture1.ScaleHeight
    Lebar = Picture1.ScaleWidth
    '===menyamakan tinggi===
    Picture2.Height = Tinggi
    Picture2.Width = Lebar
    '====membaca nilai2 pixel====
    For Brs = 0 To Lebar - 1
        For Klm = 0 To Tinggi - 1
           Tot_Pix = Picture1.Point(Brs, Klm)
           'cara mengambil nilai rgb
            red = Tot_Pix And 255
            Tot_Pix = Fix(Tot_Pix / 256)
            green = Tot_Pix And 255
            Tot_Pix = Fix(Tot_Pix / 256)
            blue = Tot_Pix And 255
           'cara menampilkan
           Picture2.PSet (Brs, Klm), RGB(0, green, 0)
           Next
    Next
9. Selanjutnya Klik dua kali commandbutton3 dan ketikan code berikut ini :
      '===mencari tinggi dan lebar citra===
    Tinggi = Picture1.ScaleHeight
    Lebar = Picture1.ScaleWidth
    '===menyamakan tinggi===
    Picture2.Height = Tinggi
    Picture2.Width = Lebar
    '====membaca nilai2 pixel====
    For Brs = 0 To Lebar - 1
        For Klm = 0 To Tinggi - 1
           Tot_Pix = Picture1.Point(Brs, Klm)
           'cara mengambil nilai rgb
            red = Tot_Pix And 255
            Tot_Pix = Fix(Tot_Pix / 256)
            green = Tot_Pix And 255
            Tot_Pix = Fix(Tot_Pix / 256)
            blue = Tot_Pix And 255
           'cara menampilkan
           Picture2.PSet (Brs, Klm), RGB(0, 0, blue)
           Next
    Next
10. Selanjutnya Klik dua kali commandbutton4 dan ketikan code berikut ini :
   '===mencari tinggi dan lebar citra===
    Tinggi = Picture1.ScaleHeight
    Lebar = Picture1.ScaleWidth
    '===menyamakan tinggi===
    Picture2.Height = Tinggi
    Picture2.Width = Lebar
    '====membaca nilai2 pixel====
    For Brs = 0 To Lebar - 1
        For Klm = 0 To Tinggi - 1
           Tot_Pix = Picture1.Point(Brs, Klm)
           'cara mengambil nilai rgb
            red = Tot_Pix And 255
            Tot_Pix = Fix(Tot_Pix / 256)
            green = Tot_Pix And 255
            Tot_Pix = Fix(Tot_Pix / 256)
            blue = Tot_Pix And 255
            abu = (red + green + blue) / 3
           'cara menampilkan
           Picture2.PSet (Brs, Klm), RGB(abu, abu, abu)
           Next
    Next
11. Jalankan program pengolahan citra menggunakan visual basic 6.0 buatanmu.
12. Berikut tampilan gambar setelah di konversi :



langsung aja download full projectnya :
DOWNLOAD


6 komentar:

Enoni_Feres mengatakan...

waduh...
memang sih bagus,
tapi ribet x

M. Arifin mengatakan...

numpang sedot ya gan

deni dz mengatakan...

Ada ngk gan pengolahan citra tapi bukan di warna. Tapi pengacakan piksel shg citra menjadi cipertext dan tidak terbaca.??

deni dz mengatakan...

Kalau ada krm ke email saya y gan ke deniavio@ ymail.com tq.

matteo mengatakan...

mana gak ada link downloadnya gitu

Rendy Priawan mengatakan...

ijin sedot

Posting Komentar

 

Coretan Rissa Template by Ipietoon Blogger Template | Gift Idea