Hi, guest ! welcome to banditz-cyber.blogspot.com. | About Us | Contact | Register | Sign In

Rabu, 11 April 2012

Program Aplikasi Deteksi Wajah menggunakan VB.Net



Perkembangan teknologi pada saat ini sudah berkembang sangat pesat, berbagai macam aplikasi untuk membantu kebutuhan manusia sudah banyak diciptakan oleh para programmer yang bekerja pada keahlian masing-masing baik berupa software, hardware atau pun gabungan antara software dan hardware. 
Aplikasi yang dibutuhkan oleh manusia pada saat ini juga bermacam-macam dari mulai aplikasi official berupa aplikasi pembantu dalam melakukan pekerjaan kantor, aplikai robotik berupa aplikasi yang menggunakan alat serta mempunyai fisik yang dapat langsung membantu pekerjaan manusia dan tidak ketinggalan pula aplikasi keamanan atau security.
disini saya sedikit berbagai mengenai aplikasi security yang mungkin sudah tidak asing lagi dimata para pembaca sekalian, untuk lebih jelasnya langsung saja kita kepembahasan.

kita bisa saja membuat algoritma pedeteksi wajah itu di program yang kita buat. Namun itu akan sangat sulit atau pun sedikit membutuhkan beberapa percobaan untuk mengetahui apakah algoritma kita benar atau salah. Untuk itu disini kita tidak langsung membuat algoritma di program kita melainkan kita menggunakan apalikasi lain untuk melakukan itu, ada program Open Source yang membahas tentang ini, yaitu OpenCV dan EmguCV .
  • OpenCV (Open Source Computer Vision) is a library of programming functions for real time computer vision. 
  • Emgu CV is a cross platform .Net wrapper to the Intel OpenCV image processing library. Allowing OpenCV functions to be called from .NET compatible languages such as C#, VB, VC++, IronPython etc. The wrapper can be compiled in Mono and run on Linux / Mac OS X.

Dari pengertian di atas telah diberikan deskripsi dari kedua opensource tersebut. OpenCV itu adalah librari dari fungsi-fungsi pemrograman yang mengenai tentang Computer-Vision. kalau ga salah ini diprakarsai oleh Intel. dan EmguCV adalah perantara dari librari pengolah gambar dari OpenCV agar bisa dipanggil dalam pemrograman [dot]net, salah satunya VB net.
Bentuk dari librari OpenCV dan EmguCV adalah file .dll. file ini harus di sertakan satu folder dengan file .exe program kita. OK. lets Try..
Buka Visual Studio, 2008/ 2010 sama aja. trus buat project baru “Windows Form Application”, lalu masukan sebuah pictureBox.
Attribut PictureBox1

  • Dock: Fill
  • Size Mode: Zoom
Trus, Import references dari Dll milik EmguCV:
- Emgu.CV.dll
- Emgu.CV.UI.dll
- Emgu.Util.dll
Caranya:

  • lihat pada sisi kiri (jendela Visual Studio), pada solution explorer, klik kanan di “references” -> pilih “Add Reference”
  • Pilih Tab “Browse” (Saya sarankan anda telah mengkopi dll yang diperlukan: cvextern.dll, Emgu.CV.dll, Emgu.CV.UI.dll, dan Emgu.Util.dll ke dalam folder “bin\debug”) tambahkan satu persatu dll nya ke dalam reference, kecual “cvextern.dll“.
cvextern.dll tidak bisa di load ke visual studio karena dll ini tidak di desain untuk itu, tapi dengan dll dari EmguCV, kita jadi bisa dengan mudah menggunakan fungsi-fungsi milik cvextern.dll (milik OpenCV) ke dalam project [dot]net kita.
Tapi kenapa cvextern.dll perlu juga di masukan satu folder dengan dll lainya?? yaitu karena dll milik EmguCV membutuhkan cvextern.dlluntuk meload fungsi-fungsi grafis.
Setelah itu, Masukan code ini di dalam Form1.vb:


Imports Emgu.CV
Imports Emgu.Util
Imports Emgu.CV.Structure
Imports Emgu.CV.UI
Public Class Form1
    Private Sub Form1_Load() Handles MyBase.Load
        Dim p As String = Application.StartupPath
        PictureBox1.Image = Image.FromFile("image.jpg")
        Dim ImageBgr As New Image(Of Bgr, Byte)(PictureBox1.Image)
        Dim HaarXML As NewHaarCascade("haarcascade_frontalface_alt_tree.xml")
        Dim GrayImage As Image(Of Gray, Byte) = ImageBgr.Convert(Of Gray, Byte)()
        Dim ImgGraphics As Graphics =Graphics.FromImage(PictureBox1.Image)
        Dim MPen As New Pen(Brushes.YellowGreen, 8)
        ' Will take a several minute.. please wait..
        For Each m In GrayImage.DetectHaarCascade(HaarXML)(0)
            ImgGraphics.DrawRectangle(MPen, m.rect)
        Next
    End Sub
End Class
 


[!] Aku ingetin lagi, saat menjalankan program percobaan anda, pastikan dll ini berada satu folder dengan exe file anda:
- cvextern.dll 
- Emgu.CV.dll
- Emgu.CV.UI.dll
- Emgu.Util.dll

untuk lebih jelas lagi silahkan untuk mendownload source codenya disini
Share this article now on :

+ comments + 2 comments

14 Juli 2012 pukul 01.27

kok ga bisa di donlot gan...
ane butuh bgt ni gann..
pliss kasi tau gan...
alamat email agan ap?

Terimakasih Toke GO'BLOG atas Komentarnya di Program Aplikasi Deteksi Wajah menggunakan VB.Net
20 Desember 2012 pukul 13.21

Wah sy jg mao bljar gan untuk skripsi ane...

Terimakasih catatan tri atas Komentarnya di Program Aplikasi Deteksi Wajah menggunakan VB.Net

Posting Komentar

:)) ;)) ;;) :D ;) :p :(( :) :( :X =(( :-o :-/ :-* :| 8-} :)] ~x( :-t b-( :-L x( :-p =))