Program Pengolah Citra Menggunakan VB 6.0

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