Friday, July 20, 2012

Program Pengolah Citra Menggunakan Visual Basic

Tutorial Digital Image Processing Using Visual Basic 6.0   . Image Prosessing (Pengolahan Citra) semakin mengalami perkembangan yang pesat dikarekan telah banyaknya penelitian yang dilakukan untuk terus menyempurnakan kemampuan Computer Vision. Berbagai Aplikasi yang menggunakan pengolahan citra telah banyak dibuat seperti identifikasi sidik jari,kornea dan wajah serta penggunaan sensor visual pada robot dan sebagainya. Mau tahu apa itu Pengolahan Citra dan Bagaimana membuat Aplikasi pengolahan Citra Digital Sendiri?
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, Andiero 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!

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 Blog-blog saya untuk belajar lebih banyak tentang Visual Basic:
 
Source :  http://bocah-cakil.blogspot.com/




HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Aplikasi Menggunakan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Cara Membuat Aplikasi Jam Analog - Visual Basic 6.0

Cara Membuat Aplikasi Jam Analog - Visual Basic 6.0

Kali ini kita akan membahas cara membuat 'Jam Analog' yang dibuat dengan menggunan Microsoft Visual Basic 6.0. Langsung saja, pertama kali yang harus anda lakukan adalah membuka aplikasi 'Microsoft Visual Basic 6.0'. Pastikan Visual Basic telah terinstal di komputer anda. Atau bila anda ingin yang lebih mudah, download Visual Basic 6.0 versi Portable. (cari di google dengan menggunakan kata kunci 'Visual Basic 6.0 portable', tanpa tanda kutip).

Langkah  - langkah pembuatan jam analog adalah sebagai berikut :
1. Ubah Properti 'Name' Form1 menjadi 'frmMain', BackColor = black, BorderStyle = 0, DrawWidth = 3, ForeColor = White, Height = 3075,MaxButton = False, MinButton = False, StartUpPosition = 2, Width = 2625.

2. Kemuadian gambar 3 buah jarum jam dengan menggunakan Line Tool (Detik, Menit, Jam) dengan catatan, ketiga line tersebut berada mempunyai titik pusat yang sma. Ganti Properti 'Name'nya menjadi (Linehour,lineMinute,lineSecond)

3. Buat sebuah Label di bawah ketiga jarum jam tadi, ganti Properti 'Name'nya menjadi Lbltime

4. Masukkan sebuah objek 'Timer',ganti Properti 'Name'nya menjadi tmrClock dan atur Properti 'Intervalnya' = 1

5. Setelah semua objek telah dimasukkan di Design View, lalu klik menu 'View + Code'
kemudian copy paste kode di bawah ini.
Source kode untuk aplikasi Jam Analog :

Option Explicit

Private Const pi As Double = 3.14159265358979

Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long


Private Sub MakeRoundObject(objObject As Object, Value As Long)
Static lngHeight, lngLong, lngReturn, lngWidth As Long

lngWidth = objObject.Width / Screen.TwipsPerPixelX
lngHeight = objObject.Height / Screen.TwipsPerPixelY

SetWindowRgn objObject.hWnd, CreateRoundRectRgn(0, 0, lngWidth, lngHeight, Value, Value), True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
App.TaskVisible = False
Unload Me
End
End If
End Sub

Private Sub Form_Load()
Dim intX As Integer

Call MakeRoundObject(frmMain, 20)
Call tmrClock_Timer

For intX = 0 To 360 Step 6
If intX Mod 30 = 0 Then
Me.DrawWidth = 6
Me.PSet (1100 * Cos(intX * pi / 180) + lineSecond.X1, 1100 * Sin(intX * pi / 180) + lineSecond.Y1)
Else
Me.DrawWidth = 3
Me.PSet (1100 * Cos(intX * pi / 180) + lineSecond.X1, 1100 * Sin(intX * pi / 180) + lineSecond.Y1)
End If
Next intX
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0&
End Sub

Private Sub lblTime_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseDown(Button, Shift, X, Y)
End Sub

Private Sub tmrClock_Timer()
Dim dblSecond As Double, dblMinute As Double, dblHour As Double

dblSecond = Second(Now) * 6 - 90
dblMinute = (Minute(Now) + Second(Now) / 60) * 6 - 90
dblHour = (Hour(Now) + Minute(Now) / 60) * 30 - 90

lineSecond.X2 = 1000 * Cos(dblSecond * pi / 180) + lineSecond.X1
lineSecond.Y2 = 1000 * Sin(dblSecond * pi / 180) + lineSecond.Y1
lineMinute.X2 = 900 * Cos(dblMinute * pi / 180) + lineMinute.X1
lineMinute.Y2 = 900 * Sin(dblMinute * pi / 180) + lineMinute.Y1
lineHour.X2 = 700 * Cos(dblHour * pi / 180) + lineHour.X1
lineHour.Y2 = 700 * Sin(dblHour * pi / 180) + lineHour.Y1

lblTime.Caption = Format(Now, "hh:mm:ss")
End Sub

Setelah selesai, ketika anda klik tombol 'Start', maka akan muncul hasil dari 'Aplikasi Jam Analog' kira - kira seperti ini :

Jam Analog - Trik Komputer

Selamat Mencoba... :)

Source: http://bisnisnet-anda.blogspot.com/



HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Aplikasi Menggunakan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Contoh Aplikasi Perhitungan Sederhana Menggunakan Visual Basic

Visual Basic adalah suatu bahasa pemrogramman yang mudah dan efisien.Visual basic sangat mudah dipelajari.
Salah satu contoh aplikasi visual basic paling sederhana Aplikasi perhitungan melalui Visual Basic Sebagai contoh Kalkulator
1. Pastikan  PC anda telah  terinstal Microsoft Visual basic 6.0
2. Lalu buka Start-Progam-Microsoft Visual Studio  6.0-Microsoft Visual Basic 6.o
3. Akan ada Tampilan utama,pilih standard EXE untuk memulai membuat aplikasi bru.klik open untuk memulainya.
4. Setelah klik open,akan tampak tampilan form1 untuk memulai aplikasi.
jika ingin membuat tulisan,klik Label pada toolbox.
caption untuk mengganti tulisan pada form.
5. jika kita akan membuat aplikasi kalkulator, maka membuat desainnya terlebih dahulu.
tambahkan textbox,untuk memasukkan bilangan.
6. Susun semua desain utama untuk mempermudah memasukkan rumus atau kode pada tombol command button.

7. Tambahkan empat command button untuk tombol penambahan,pengurangan,pembagian,dan perkalian.

8. Tambahkan label bertuliskan “hasil” dan texbox untuk tempat pengisian hasil perhitungan.

9.Tambahkan command botton bertuliskan hapus,untuk menghapus bilangan yang telah diproses.

10. Pada command button berlambang (+),untuk tombol penambahan.
- klik dua kali
-masukkan rumus atau kode:
Text3.Text = Val(Text1) + Val(Text2)
11. Pada command button berlambang (-)untuk tombol pengurangan.
- klik dua kali
-masukkan rumus atau kode:
Text3.Text = Val(Text1) – Val(Text2)
12.Pada command button berlambang (*),untuk tombol perkalian.
- klik dua kali
-masukkan rumus atau kode:
Text3.Text = Val(Text1) * Val(Text2)
13.Pada command button berlambang (/),untuk tombol pembagian.
- klik dua kali
-masukkan rumus atau kode:
Text3.Text = Val(Text1) / Val(Text2)
14. Pada command button bertuliskan “hapus”(tombol untuk menghapus bilangan yang ada pada textbox)
-klik dua kali pada command button tersebut,
-masukkan rumus atau kode:
text1.text = clear
text2.text = clear
text3.text = clear
jika dilihat pada daftar kode akan tampil seperti pada gambar berikut:

15. jika seluruh kode telah dimasukkan,untuk menjalankan aplikasinya adalah dengan cara:
-klik tombol Start pada toolbar,atau langsung tekan F5.
-maka aplikasi akan berjalan seperti contoh berikut:

16.berikan bilangan pertama dan kedua,untuk memulai perhitungan.
klik tombol penambahan untuk memprosesnya.

17. berikan bilangan pertama dan kedua,untuk memulai perhitungan.
klik tombol pengurangan untuk memprosesnya.

18. berikan bilangan pertama dan kedua,untuk memulai perhitungan.
klik tombol perkalian untuk memprosesnya.

19. Berikan bilangan pertama dan kedua,untuk memulai perhitungan.
klik tombol pembagian untuk memprosesnya.

Selamat mencoba,aplikasi ini adalah Sebagian kecil dari aplikasi pemrograman Visual Basic.

Source :  http://54ll1.wordpress.com/2008/08/02/program-sederhana-pada-visual-basic/


HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Aplikasi Menggunakan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Membuat Applikasi Mp3Player dengn Vb 6.0

Kalau selama ini kita merasa bosan dengan media player yang itu-itu aja, nah sekarang saatnya kita berkreasi sesuai imajinasi kita he….he….he…,.
Dan jangan khawatir scriptnya cukup pendek dan saya yakin anda semua pasti bisa , Oke dech kita mulai aja kali ya nah yang perlu kita siapkan adalah:

1. Text Box
2. MMC (Microssoft Media Control )
3. Drive List
4. Dir List
5. ComboBox
6. Serta ,Satu buah Filed List,
7. 3 CommandButton
Skanario yang akan kita buat adalah sbb,:
Pertama kita akan memilih Format pada combo box , seperti *.Mp3, *.Mid, *.WAV, dll, setelah memilih format , kemudian memilih drive mana yang akan di gunakan , missal Drive C pada Drive List, maka pada Dir list Akan menampilkan Direktori-direktori (folder) , sedangkan pada field List akan menmapilkan judul(Field ) Sesuai format yang telah kita pilih, selanjutnya jika memilih dari salah satu lagu yang kan kita putar pada field list maka , Text Box akan menunujukan (menampilkan ) Lagu yang telah dipilih , ketika Tombol play di tekan maka lagu akan segera terdengar …keren kan?,.
Naha sekarang coba desaign form layout kayak gini nih:
Nah, gampang bukan , tentunya kalau pengen bagus silahkan anda desaign semaksimal mungkin , kalau punya saya maklumlah buatnya aja Cuma dua jam , jadi hasilnya juag kurang maksimal
Untuk name pada
Dir 1, Drive1, Combo1, text1,Fille 1, biarkan default jangan dirubah -rubah biar anda bisa paham dan mengerti dengan Script yang akan saya buat.
Nah untuk MMC control Pada bagian Name ubah menjadi= AudioPlayer, Command1=Play , command2=Stop, Command3=Exit dan untuk caption terserah anda karma enggak ngaruh dengan script yang akan kita buat.:
Pembuatan script sesuaikan dengan komponen yang anda makasud Misal kita mau buat di Commbo1 maka klik dua kali terus tentukan eventnya , baru ketikin scriptnya:
Private Sub Combo1_Change()
‘ Pada bagian ini anda bisa menambahkan format atau extensi yang lain sesuai kebutuhan anda
If ListIndex = 0 Then
File1.Pattern = (“*.wav”)
ElseIf ListIndex = 1 Then
File1.Pattern = (“*.mid”)
ElseIf ListIndex = 2 Then
File1.Pattern = (“*.mp3″)
Else
Fiel1.Pattern = (“*.*”)
End If
End Sub
Private Sub Dir1_Change()
‘Nah ini Untuk mengubah direktori yang akan kita pilih , diamana file list akan menunujukan sesuai folder yang akan dipilih
File1.Path = Dir1.Path
If Combo1.ListIndex = 0 Then
File1.Pattern = (“*.wav”)
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = (“*.mid”)
ElseIf Combo1.ListIndex = 2 Then
File1.Pattern = (“*.mp3″)
Else
File1.Pattern = (“*.*”)
End If
End Sub
Private Sub Drive1_Change()
‘Merubah dir jika sesuai dengan drive yang dipilih
Dir1.Path = Drive1.Drive
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub File1_Click()
‘Memilih lagu yang akan diputar pada bagian File1 list,
If Combo1.ListIndex = 0 Then
File1.Pattern = (“*.wav”)
ElseIf Combo1.ListIndex = 1 Then
File1.Pattern = (“*.mid”)
ElseIf Combo1.ListIndex = 2 Then
File1.Pattern = (“*.mp3″)
Else
File1.Pattern = (“*.*”)
End If
If Right(File1.Path, 1) <> “\” Then
FileNam = File1.Path + “\” + File1.FileName
Else
FileNam = File1.Path + File1.FileName
End If
Text1.Text = FileNam
End Sub
Private Sub Form_Load()
‘Memposisikan media player yang kita buat pada posisi di tengah pada saat pertama kali tampil
Left = (Screen.Width – Width) \ 2
Top = (Screen.Height – Height) \ 2
Combo1.Text = “*.wav”
Combo1.AddItem “*.wav”
Combo1.AddItem “*.mid”
Combo1.AddItem “*.mp3″
Combo1.AddItem “All files”
End Sub
Private Sub MMControl1_Done(NotifyCode As Integer)
End Sub
Private Sub play_Click()
‘Script ini untuk menjalankan lagu pada MMC
If Combo1.ListIndex = 0 Then
AudioPlayer.DeviceType = “WaveAudio”
ElseIf Combo1.ListIndex = 1 Then
AudioPlayer.DeviceType = “Sequencer”
ElseIf Combo1.ListIndex = 2 Then
AudioPlayer.DeviceType = “waveAudio”
End If
AudioPlayer.FileName = Text1.Text
AudioPlayer.Command = “Open”
AudioPlayer.Command = “Play”
End Sub
Private Sub stop_Click()
If AudioPlayer.Mode = 524 Then Exit Sub
If AudioPlayer.Mode <> 525 Then
AudioPlayer.Wait = True
AudioPlayer.Command = “Stop”
End If
AudioPlayer.Wait = True
AudioPlayer.Command = “Close”
End Sub
Nah sekarang anda jalankan program tersebut terus , lakukan pemilihan lagu yang anda kehendaki dan dengarkan hasilnya ,

Source :  http://rahmatvinacerpus.wordpress.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Aplikasi Menggunakan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Membuat Kalkulator Sederhana menggunakan Visual Basic 6.0

Adapun langkah-langkah dalam membuat kalkulator sederhana menggunakan visual basic adalah sebagai berikut:
1.    Buka program visual basic yang telah terinstal di komputer anda. Dalam hal ini yang digunakan adalah  Visual Basic versi 6.0
2.    Buat sebuah project baru dan pilih standart EXE.
3.    Kemudian tambahkan tiga buah contol textbox. Satu untuk hasil, satu untuk bilangan pertama dan yang lainnya untuk bilangan kedua.
4.    Tambahkan sebuah command button dan ubah namanya menjadi CmdOperator. Selanjutnya copykan sebanyak tiga buah. Tambahkan lagi sebuah command button.
5.    Atur propertiesnya sesuai keinginan anda. Atur tampilannya kurang lebih seperti gambar.1 berikut.



Gambar.1 Desain Kalkulator sederhana
6.    Klik salah satu CmdOperator dan ketikan Scipt Basic berikut:
Dim Operator As Integer
Dim hasil  As Single

Operator = Index

If Txt1.Text = "" Or Txt2.Text = "" Then Exit Sub

Select Case Operator
Case 0
    hasil = CSng(Txt1.Text) + CSng(Txt2.Text)
Case 1
    hasil = CSng(Txt1.Text) - CSng(Txt2.Text)
Case 2
    hasil = CSng(Txt1.Text) * CSng(Txt2.Text)
Case 3
    If Txt2.Text = 0 Then
        TxtHasil.Text = "Hasil melampaui batas"
        Exit Sub
    End If
    hasil = CSng(Txt1.Text) / CSng(Txt2.Text)
End Select
TxtHasil.Text = hasil
7.    Klik dua kali command button C dan ketikan script visual basic berikut:
Txt1.Text = ""
Txt2.Text = ""
TxtHasil.Text = ""
Txt1.SetFocus
8.    Selanjutnya jalankan Program yang anda buat. Jika tidak ada masalah, program anda telah berhasil di buat.
9.    Masalah dari program tersebut adalah jika nilai yang kita masukan bukan berupa angka maka akan terjadi masalah baru.(Silakan baca http://bocah-cakil.blogspot.com\2010\04\hanya-angka-yang-bisa-tips-dan-trik.html) Namun jangan khawatir hal tersebut dapat di atasi dengan perintah sebagai berikut.
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
10.    selanjutnya silakan jalankan program kalkulator sederhanan buatan anda sendiri.

Source :  http://bocah-cakil.blogspot.com/

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Aplikasi Menggunakan Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.