Jumat, 15 April 2011

Program Pengolah Warna Menggunakan Visual Basic

Tutorial Digital Image Processing Using Visual BAsic 6.0.Pada tutorial pengolahan citra digital kali ini, kita akan membahas sebuah program yang dapat kita gunakan untuk mengolah warna khususnya RGB (Red,Green and Blue) menggunakan visual basic. Program ini sebenarnya akan menjadi dasar yang baik bagi kita untuk mempelajari tentang pengolahan citra (image prosessing).
Adapun langkah-langkah pembuatan program pengolah warna menggunakan visual basic adalah sebagai berikut:
Buka program Visual Basic yang telah terinstal di komputer anda. Saya menggunakan visual basic versi 6.0.
Buat sebuah project baru.
  • Tambahkan sebuah control shape, sebuah kontrol frame (tidak terlalu penting) dan sebuah kontrol Vscroll/Hscroll dan beberapa label.
  • Ubah properties masing-masing kontrol terserah anda. Untuk kontrol shape1, ubah fillcolor jadi solid.
  • Copykan sebanyak dua kali kontol Vscroll/Hscroll. Jika muncul pesan klik yes. Sehingga akan terbentuk kontrol array dari Vscroll/Hscroll.
  • Susun program anda sedemikian rupa atau seperti gambar.1.
Gambar.1 Tampilan Program Pengolah Warna
  • Klik dua kali kontol Vscroll/Hscroll dan sisipkan script program berikut.
Shape1.FillColor = RGB(Vscroll1(0).Value, _
Vscroll1(1).Value, Vscroll1(2).Value)
  • Jalankan program buatan anda. Atur nilai warna, jika warna dari shape berubah maka program yang anda buat telah berhasil.

Program tersebut dapat terus dikembangkan dan semoga dapat membantu anda untuk mendalami pengolahan citra khususnya menggunakan visual basic.

File Download Source Code pengolahan Citra Digital memang Tidak saya sertakan diblog saya dengan tujuan untuk membuat pengunjung blog ini mencoba sendiri dirumah sehingga Ilmu yang didapat akan lebih melekat dan bermamfaat. Harap Di Maklumi!

Jika ada pertanyaan Silakan berkomentar. Saya akan menjawab semampu Saya ( Tapi harap Maklum, saya jarang terkoneksi ke Internet)


Kunjungi Juga Blog Saya di :
http://anekahobi.wordpress.com
http://elektronika00.tk

Nb. Saya sendiri sedang melakukan penelitian untuk membuat sebuah robot yang berkerja di pertanian untuk menanam bibit. Robot ini menggunakan dua buah kamera. Dimana kamera pertama berkerja dengan skala abu-abu untuk mendeteksi lahan dan berkerja sebagai sensor posisi. Dan kamera kedua berkerja dengan skala RGB untuk mendeteksi bibit apakah telah sesuai untuk kemudian di tanam di lahan.

6 komentar:

  1. wah gak asik!!! gak ada source codenya...

    BalasHapus
  2. Oalah Gan, Source Code nya nggak di sertakan karena ane maunya agan bisa mencobanya sendiri di rumah. Masak Script Vb yang cuma sebaris juga mau disertakan Source Codenya.

    Shape1.FillColor = RGB(Vscroll1(0).Value, _
    Vscroll1(1).Value, Vscroll1(2).Value)

    BalasHapus
  3. sip. sekali coba langsung berhasil gan. makasih

    BalasHapus
  4. setelah dicoba diotak-atik untuk code yang dijelaskan di atas itu Code VScroll yang sudah di copy paste. jadi program untuk Vscroll hanya sekali dimasukkan ke Vscroll1. dia akan mengcopy ulang dalam 1 shape, sehingga shape-nya ada dalam 1 Code pada VScroll, namun apabila VScroll tidak di copy paste maka programnya seperti di bawah ini.

    Private Sub VScroll1_Change()
    Shape1.FillColor = RGB(VScroll1.Value, _
    VScroll2.Value, VScroll3.Value)
    End Sub

    Private Sub VScroll2_Change()
    Shape1.FillColor = RGB(VScroll1.Value, _
    VScroll2.Value, VScroll3.Value)
    End Sub

    Private Sub VScroll3_Change()
    Shape1.FillColor = RGB(VScroll1.Value, _
    VScroll2.Value, VScroll3.Value)
    End Sub


    code program detail yang dijelaskan di atas

    Private Sub VScroll1_Change(Index As Integer)
    Shape1.FillColor = RGB(VScroll1(0).Value, _
    VScroll1(1).Value, VScroll1(2).Value)
    End Sub

    BalasHapus
  5. klo deteksi wajah & menentukan ukuranx itu gmn gan?

    BalasHapus
  6. To anonim: Untuk deteksi wajah bisa menggunakan logika Face detected dan kita juga bis menentukan uktran piksel untuk menentukan luas area dari wajah

    BalasHapus

Need Your Comments, Please !!!