Ilmu Pengetahuan & Tips dan Trik

फिसिका - कलोर दान पेर्पिन्दाहाnnya

2011-12-17T19:32:00.000-08:00

फिसिका - कलोर दान पेर्पिन्दाहन कलोर इनी दी उन्ग्गाह अतस पेर्मिन्तान दरी तेमन यंग लगी मेम्बुतुह्कन मटेरि इनी। बुवत तेमंकू यंग लगी बुतुह इनी, सिलाह्कन बीस दी डाउनलोड दी बवः इनी

http://3.bp.blogspot.com/_g-CEYLeOpz0/SvPklIV9oAI/AAAAAAAAADs/OQOb6HQXYT8/s200/download_button.jpg

g

Nonaktifkan Tombol Start

2009-11-06T00:51:00.000-08:00

Program ini, bekerja untuk menon aktifkan tombol start. Ini hanya untuk mengecoh atau untuk membingungkan seseorang yang main komputer kita.

Jika anda berminat untuk mengaplikasikan pada komputer anda silahkan download dibawah ini.

Matikan Monitor

2009-10-28T03:29:00.000-07:00

Jika anda sering menghidupkan komputer tapi ketiduran, Program matikan monitor inilah solusinya.

Kamu bisa mematikan monitor dengan program ini. Program ini mematikan monitor dalam jangka waktu yang anda tentukan.

Silahkan download contohnya....!

Koneksi Database

2009-10-28T03:14:00.000-07:00

Bagi pemula yang ingin membuat suatu program yang menggunakan database access, ini patut di download contohnya. Ini merupakan kaneksi ke database dimana databasenya menggunakan Microsoft Office Access.

Ini mudah sekali ko' jika kalian ingin belajar...!
silahkan download contohnya dibawah ini...!!!

Animasi Tombol Start

2009-10-28T03:07:00.000-07:00

Kali ini saya coba membuat animasi tombol start. Ini cuma untuk memodifikasi tombol start pada windows.

Anda berminat silahkan download yach...!

Billing Local

2009-10-28T02:44:00.000-07:00

Billing merupakan aplikasi yang digunakan dalam internet. disini saya mencoba membuat billing local.

langsung dicoba aja yach...!!!
silahkan download aja contohnya....!!!

Antrian Dengan Suara

2009-08-14T03:56:00.000-07:00

Mengantri adalah hal yang membosankan bila menunggunnya terlalu lama. Antrian Dengan Suara ini dimaksudkan untuk memudahkan petugas untuk memanggil antrin yang selanjutnya.

Untuk menjalankan program ini, komputer kamu harus terinstall terlebih dahulu Visual Basicnya. Karena jika belom terinstall, filenya tidak akan dibaca...! mengerti kan...?

Gak usah banyak kata aja yach...!
langsung aja jika berminat download dibawah ini.

Kalkulator

2009-08-13T06:11:00.000-07:00

Assalamu'alaikum Sobat Semua...!

Gimana nie kabarnya semua...?, Nah kali ini saya berbagi ilmu tentang pembuatan Kalkulator dengan aplikasi Visual Basic, Jika yang dulu tuch lebih simpel tapi kali ini...!,yach bisa dibilang agak rumit karena membutuhkan banyak tombol.

Tapi jika kamu kurang suka sama program ini, kami minta maaf dan klo kamu berkenan dan berminat untuk mencoba, kami haturkan terima kasih...!

Silahkan download dibawah ini...!

Login Biasa

2009-08-13T05:58:00.000-07:00

Login merupakan salah satu yang harus ada pada suatu program karena untuk mengamankan program tersebut bagi yang tidak berhak untuk menggunakannya. Ini dimaksudkan agar data yang ada pada program tersebut aman dan tentram. Janji capres kleee...! aman dan tentram untuk indonesia dari teroris.
kembali ke topik bahasan lagi...!

Program ini menggunakan database access untuk menyimpan data-data yang diinputkan.
Jika anda ingin mencoba program ini silahkan download dibawah ini.

SELAMAT MENCOBA...!

Program .exe

2009-08-13T01:23:00.000-07:00

Bagi karyawan perkantoran pastilah tidak lepas pada aplikasi Ms Word, Ms Excel maupun aplikasi yag lain. Bukan hanya untuk karyawan perkantoran sich...! Tapi kebanyakanlah...!.
Kali ini saya mencoba untuk berbagi ilmu Program .exe, ngerti gak maksudnya...?
Ini maksudnya adalah program untuk membuka aplikasi seperti Ms. Word, dll. tapi membukanya menggunakan VB. Istilah lainnya program ini seperti Shortcut.

Ok,,,untuk menjalankan program ini. komputer anda harus terinstall terlebih dahulu Visual Basicnya dan aplikasi-aplikasi lain yang terdapat didalam program tersebut.

Langsung aja yachh...!

Jika anda berminat silahkan download dibawah ini.

Animasi Label

2009-08-12T02:07:00.000-07:00

Banyak yang dilakukan oleh programmer untuk membuat suatu program agar program yang dikerjakan itu bisa menarik. Disina saya membuat contoh untuk membuat form menarik yaitu Animasi Label. ya seperti text berjalan gituch...! tapi kali ini banyak animasi yang terdapat pada form tersebut.

Anda penasaran dan berminat untuk membuatnya...!

Silahkan download dibawah ini...!

Jadwal Sholat

2009-08-12T01:27:00.000-07:00

Sholat merupakan kewajiban bagi umat manusia khususnya bagi pemeluk agama Islam. Jadwal Sholat adalah hal yang tidak boleh dilupakan karena untuk membatasi waktu sholat. Jika anda sering menggunakan komputer dan lupa akan waktu sholat, Nah...!
saya mencoba membuat Jadwal Sholat.

Jadwal ini digunakan untuk memberi tau jam berapa waktu sholat baik itu Shubuh, Dhuhur, Ashar, Maghrib maupun Isya'.

Langsung aja yaaawww.....!
Silahkan download dibawah ini...!

Menghitung Perubahan Suhu Dengan VB

2009-08-12T01:05:00.000-07:00

Ha...Ha...Ha...

Pada pelajaran Fisika pasti terdapat pelajaran Perubahan Suhu, dimana untuk menghitungnya membutuhkan ketelitian yang sangat tinggi. Kemudian saya mencoba membuat program untuk Menghitung Perubahan Suhu. Ini dimaksudkan untuk memudahkan dalam menghitungnya.

jika anda berminat dengan program tersebut...!

Silahkan download dibawah ini...!

Membuat Kalender Sendiri

2009-08-12T00:47:00.000-07:00

Kali ini saya akan mencoba membagi ilmu pengetahuan tentang Pemrograman VB. Disini saya akan Membuat Kalender Sendiri dengan menggunakan aplikasi Visual Basic.
Untuk membuatnya...!

Silahkan Anda Download dibawah ini, oce...!

SELAMAT MENCOBA...!

Logika Matematika

2009-08-10T05:00:00.000-07:00

Dalam pelajaran matematika untuk kelas 1 semester 2 tingkat SMK/SMA/MA/Sederajat pasti ada pelajaran yang namanya Logika Matematika. Dimana yanng dipelajari adalah kebenaran seperti negasi dll. Dibutuhkan ketelitian untuk menghitungnya. Setelah saya amati bahwa pelajaran Logika Matematika ini bisa dibuat program, tapi saya cuma bisa membuat program tersebut menggunakan Visual Basic nie...!

Menurut saya pelajaran Logika Matematika ini cukup sulit, meskipun kelihatannya gampang sich..!
nah kali ini saya mencoba membuat program untuk pelajaran Logika Matematika.

Silahkan Download yaa...!

Hide and Show Taskbar

2009-08-10T02:15:00.000-07:00

Kali ini saya mencoba membuat Hide and Show Taskbar dengan Visual Basic. Program ini hanya untuk membuat komputer anda lebih menarik.

Caranya mudah ko', cukup kamu ikuti aja langkah-langkah berikut, oce...!
1. Buat form baru dan tambahkan 2 CommandButton dan atur hingga seperti gambar diatas.
2. Letakkan kode dibawah ini.

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd _
As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal _
wFlags As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long

Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Private Sub Command1_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

Private Sub Command2_Click()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

Function Task(xhide As Boolean)
Dim Thwnd As Long
If xhide = True Then
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
Else
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End If
End Function

Private Sub Form_Load()
Command1.Caption = "Hide"
Command2.Caption = "Show"
End Sub

3. don't forget diSimpan ya....!

Selamat Mencoba...!

Animasi Form

2009-08-10T02:03:00.000-07:00

Nah...! Kali ini saya mencoba membuat animasi form, tapi ini hanya sederhana ko'. gampang loo cara buatnya.

Tanpa panjang lebar dan banyak penjelasan, Saya akan kasik tau cara membuatnya.
kamu hanya membutuhkan form baru dan letakkan kode dibawah ini

Private Sub Form_Unload(Cancel As Integer)
Animation
End Sub

Public Sub Animation()
Dim I As Long
Dim J As Long
I = Me.ScaleHeight
J = Me.ScaleWidth

While Not I = 0
Me.Height = Me.Height - 25
I = I - 1
Wend

While Not J = 0
Me.Width = Me.Width - 25
J = J - 1
Wend
End Sub

Jangan lupa diSimpan ya....!

SELAMAT MENCOBA'N SEMOGA SUKSES YA...!

Membuat Jam Analog

2009-08-10T01:37:00.000-07:00

Ha...Ha...Ha...!
saya mencoba membuat jam analog dengan VB dan saya ingin berbagi ilmu tentang VB, meskipun hanya sedikit.

Caranya sich...! gampang ko', cuma membutuhkan Aplikasi VB di komputer anda.

1. Buat form baru dan 1 Timer.
2. Anda cukup letakkan kode dibawah ini pada kode editor, oce...!

Option Explicit
Dim xgen, ygen, xmin, ymin, xsec, ysec, xhor, yhor As Double
Dim h, m, s As Date
'control the minute '
Function mint()

If s >= 0 And s < 12 Then
Call findminangle(CDbl(m))
ElseIf s >= 12 And s < 24 Then
Call findminangle(CDbl(m) + 0.2)
ElseIf s >= 24 And s < 36 Then
Call findminangle(CDbl(m) + 0.4)
ElseIf s >= 36 And s <= 48 Then
Call findminangle(CDbl(m) + 0.6)
ElseIf s >= 48 And s <= 59 Then
Call findminangle(CDbl(m) + 0.8)
End If
xmin = xgen
ymin = ygen

Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xmin, ymin), RGB(255, 24, 32)
End Function
'control the second
Function secnd()
Call findminangle(CDbl(s))
xsec = xgen
ysec = ygen
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xsec, ysec), RGB(100, 100, 100)

End Function
'control the hour
Function hr()

If m >= 0 And m < 12 Then
Call findminangle(CDbl(h) * 5)
ElseIf m >= 12 And m < 24 Then
Call findminangle(5 * (CDbl(h) + 0.2))
ElseIf m >= 24 And m < 36 Then
Call findminangle(5 * (CDbl(h) + 0.4))
ElseIf m >= 36 And m < 48 Then
Call findminangle(5 * (CDbl(h) + 0.6))
ElseIf m >= 48 And m <= 59 Then
Call findminangle(5 * (CDbl(h) + 0.8))
End If
xhor = xgen
yhor = ygen
If xhor >= Form1.ScaleWidth / 2 And yhor >= Form1.ScaleHeight / 2 Then

Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor - 200, yhor - 200), RGB(0, 0, 255)
ElseIf xhor <= Form1.ScaleWidth / 2 And yhor >= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor + 200, yhor - 200), RGB(0, 0, 255)
ElseIf xhor <= Form1.ScaleWidth / 2 And yhor <= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor + 200, yhor + 200), RGB(0, 0, 255)
ElseIf xhor >= Form1.ScaleWidth / 2 And yhor <= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor - 200, yhor + 200), RGB(0, 0, 255)
End If

End Function
'draw the clock
Function drawdig()
Dim i As Integer
Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), 1411, RGB(255, 34, 34)
For i = 5 To 60
Call findminangle(CDbl(i))
Form1.CurrentX = xgen - TextWidth(i / 5) / 2
Form1.CurrentY = ygen - TextWidth(i / 5) / 2
Form1.Print i / 5
i = i + 4
Next
End Function
'find the co-ordinate
Function findminangle(p As Double)
Dim temp As Double

temp = 60 - (p - 15)
temp = temp * 60 * 0.1
temp = (22 * temp) / (7 * 180)

xgen = (Form1.ScaleWidth / 2) + (1000 * Cos(temp))
ygen = (Form1.ScaleHeight / 2) - (1000 * Sin(temp))

End Function

Private Sub Timer1_Timer()

Form1.Cls

Call drawdig
Form1.Caption = Time()
h = Hour(Time())
m = Minute(Time())
s = Second(Time())

Call mint
Call secnd
Call hr
End Sub

3. Simpan yaaa....!
Kalender Siap Pakai

Shutdown Komputer

2009-08-10T01:24:00.000-07:00

Kali ini saya akan mencoba membuat program sederhana untuk mematikan komputer/Shoutdown hanya dengan aplikasi Visual Basic.

caranya adalah sebagai berikut.

1. Buat form baru dan tambahkan kontrol pada form hingga seperti gambar diatas.
2. Ketik kode berikut pada kode editor yang telah tersedia.
Private Sub cmdlog_Click()
Dim log As String
log = MsgBox("Anda ingin Log Off ?", vbYesNo, "Jawab Ya...!")
If log = vbYes Then
Shell "shutdown -l -f -t 0"
End If
End Sub

Private Sub cmdrestart_Click()
Dim rs As String
rs = MsgBox("Anda ingin Restart ?", vbYesNo, "Jawab Ya...!")
If rs = vbYes Then
Shell "shutdown -r -f -t 0"
End If
End Sub

Private Sub cmdshutdown_Click()
Dim sd As String
sd = MsgBox("Anda ingin Shutdown ?", vbYesNo, "Jawab Ya...!")
If sd = vbYes Then
Shell "shutdown -s -f -t 0"
End If
End Sub

3. Jangan lupa disimpan yaaaaa....!

Jika anda kurang menarik dengan tampilan diatas, maka kreasilah semau anda....! oce

I LOVE YOU FULL

Buka - Tutup CD ROM 2

2009-08-10T01:09:00.000-07:00

Pada kali ini saya akan mencoba lagi cara membuka dan menutup CD ROM versi 2 hanya dengan Visual Basic. Banyak cara yang dilakukan oleh para programmer. Ada yang menggunakan VB, Borland Delphi maupun pakai Aplikasi yang lain.

Langsung aja buatnya ya...!

1. Anda cukup membuat form baru seperta pada gambar diatas.
2. Letakkan kode dibawah ini pada kode editor.
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
If Command1.Caption = "&Open CD-Room" Then
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
Command1.Caption = "&Close CD-Room"
Else
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
Command1.Caption = "&Open CD-Room"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "&Open CD-Room"
End Sub

3. Simpan dan jalankan program tersebut.

Bagaimana hasilnya...?
Asyikkan....!

Selamat Mencoba...!

Tips Meningkatkan Kinerja Komputer

2009-08-06T04:22:00.001-07:00

Seiring dengan banyaknya software/program yang diInstall dikomputer, sering kta merasa kinerja komputer kita menjadi semakin lambat. Atau kadang kita tahunya komputer kita semakin lambat kinerjanya. Hal ini wajar apalagi dengan semakin lamanya pengguna komputer dengan berbagai program yang diInstall.
Sebenarnya kinerja komputer bisa dipengaruhi oleh banyaknya faktor, baik software maupun hardware. Ada berbagai tips yang dapat dilakukan agar kinerja komputer menjadi lebih baik. Berikut beberapa tips yang mungkin dapat dilakukan dan mungkin sebagian sudah umum kita lakukan atau kita dengar.

1. Uninstall program yang tidak dipakai
Meskipun tidak djalankan, program yang jarang atau tidak pernah digunakan bisa ikut mempengaruhi kinerja komputer. Terutama program yang menyimpan setting-settingnya di registry. Mengapa ? Karena setiap kali komputer dijalankan, registry windows akan di load di memory, sehingga semakin besar ukurannya, memory yang digunakan akan semakin besar pula.

2. Periksa program-program yang otomatis berjalan dengan windows
Hal ini bisa dicek dengan program seerti autoruns. Biasanya ada beberapa program yang selalu berjalan yang sebenarnya tidak begitu penting atau kurang penting.

3. Defragment harddisk
Ini bisa dilakukan melalui menu Properties-System Tools-Disk Defragment yang tujuannya untuk menata kembali file-file sesuai prioritasnya.

4. Mematikan service yang tidak terpakai
Hal ini memerlukan sedikit pengetahuan tentang komputer. Service merupakan program /library juga yang dijalankan (diLoad) setiap komputer hidup. Bisa dilihat melalui Control Panel-Administrative Tools-Service. Jika komputer tidak pernah digunakan online (internet), ada beberapa service yang bisa di non aktifkan Misalnya Windows Time dan beberapa service lainnya (bisa dicek keterangannya). Tapi hal ini juga perlu berhati-hati, jika salah bisa menyebabkan beberapa fungsi windos tidak berjalan.

5. Hindari penggunaan Skin Windows
Kadang penggunaan tampilan/skin tambahan windows bisa mempengaruhi kinerja cukup signifikan. Terutama penggunaan software tambahan. Sebaiknya jika ingin tampilan yang berbeda gunakan saja Windows Themes (bawaan windows).

6. Matikan beberapa efek Visual Windows
Selain itu beberapa efek windows [xp] yang tidak begitu penting bisa dmatikan. Bisa dilakukan melalui klik kanan di My Computer pilih Properties. Ditab Advance di bagian Performance klik tombol Settings. Bisa dinon aktifkan Visual efek yang tidak begitu penting.

7. Batasi tambahan jumlah font
Ini berpengaruh ke aplikasi yang menggunakan Pilihan font seperti Microsoft Office. Dengan banyaknya font tambahan akan mempengaruhi ke memori yang digunakan dan loading akan terasa lebih lambat.

8. Hapus icon di desktop yang tidak penting
Sering program yang diInstall dikomputer akan membuat shortcut baru (icon) di desktop. jika kita jarang menggunakan icon-icon ini, lebih baik dihapus saja, bisa sedikit mengurangi pemakaian memori.

9. Scan komputer dari Virus, Spyware, Trojan dan sejenisnya
Jika komputer terinfeksi virus,sebagian besar kinerjanya akan menurun, bahkan bisa-bisa komputer menjadi sangat lambat. Oleh karena itu sebaiknya selalu dijaga agar komputer bebas virus. Kemudian jika komputer sering terkoneksi internet, maka sebaiknya sekitar sebuan sekali komputer discan dari Spyware, Mallware dan sejenisnya.

10. Gunakan alternatif software yang lebih ringan
Beberapa software kadang hanya digunakan untuk beberapa hal yang sederhana. Misalnya menggunakan ACDSee hanya untuk melihat-lihat gambar atau foto saja. Jika hanya ingin melihat-lihat gambar dengan format standard, maka bisa menggunakan Fasilitas bawaan windows, karena ACDSee cukup berat terutama versi-versi terbaru.

11. Menggunakan software TuneUp, defragment dan sejenisnya
Jika kita kesulitan dengan optimalisasi sistem manual dan ingin cara mudah, maka kita bisa menggunakan program-program TuneUp, Defragment registry, dan sejenisnya.

12. Upgrade hardware
Jika memiliki dana tambahan dan spesifikasi komputer masih pas-pasan maka bisa di Upgrade hardwarenya seperti Memory, CPU atau VGA yang paling berpengaruh biasanya CPU dan Memory.

13. Install Ulang
Kadang sistem yang sangat lama dan penuh dengan program yang banyak/jarang terpakai, meski sudah dioptimalisasi masih saja lambat. Jika seperti itu, mungkin Install Ulang adalah jalan yang terbaik, karena biasanya dengan sistem yang lebih "Fresh" kinerja bisa maksimal.

Cara diatas mungkin hanya sebagian tips yang bisa dilakukan dan saya yakin masih banyak tips lain termasuk optimalisasi setting hardware. Jika ada tambahan tips lainnya, silahkan Semoga bermanfaat.

Program Acak Angka

2009-08-05T03:55:00.000-07:00

Kali ini saya mencoba untuk membuat contoh program sederhana untuk mengacak angka. Tidak usah panjang lebar penjelasannya. Langsung aja, cara membuatnya adalah sebagai berikut.

1. Buatlah form baru.
2. Tambahkan kontrol berikut : TextBox, CommandButton, dan Timer. ubah Interval Timer menjadi 200, caption CommangButton menjadi "Start".
3. Ketik Kode berikut.

Private Sub Command1_Click()
If Command1.Caption = "Start" Then
Timer1.Enabled = True
Command1.Caption = "Stop"
Else
Timer1.Enabled = False
Command1.Caption = "Start"
End If
End Sub

Private Sub Timer1_Timer()
Randomize
Text1.Text = Int(Rnd * 9)
End Sub

4. Simpan project dan form tersebut.
5. Jalankan Program tersebut dan lihat hasilnya.

Maksud (Rnd) pada program tersebut adalah untuk menghasilkan nilai acak berbentuk desimal dengan range dari 0 sampai 1. (Rnd * 9) dikali 9 agar menghasilkan nilai acak dari 1 sampai 9. dan Int untuk menghasilkan nilai kembalian berbentuk integer atau bilangan asli.

Selamat Mencoba Yaaaaa......!

Text Berjalan (2)

2009-08-05T02:16:00.000-07:00

Text berjalan merupakan fariasi dalam suatu program. banyak sekali model text berjalan. Cukup menggunakan aplikasi Visual Basic, kamubisa membuat text berjalan dengan berbagai macam bentuknya. Kali ini saya akan memberikan kode text berjalan dengan model naik turun.

Langsung aja yachhhh...!

1. Buat suatu project dengan satu form.
2. Tambahkan kontrol berikut pada formnya : Timer dan Label.
3. Ubah property Timer dengan Intervel=10

Ketikkan kode dibawah ini pada form.

Private Sub Timer1_Timer()
Static Atas As Boolean
Label1.Top=Label1.Top + IIf(Atas, -50, 50)
If Label1.Top<0 atas =" False"> me.Height - Label1.Height - 300 Then
Atas = True
End If
End Sub

4. Simpan Project dan Form tersebut.
5. Coba kamu liat hasilnya. Jalankan promram tersebut. Asyiiik kan.......!

Angka yang berwarna biru bisa kamu rubah sesuai dengan keinginan kamu...!

Selamat Mencoba...!

Mengenal Visual Basic

2009-07-31T02:24:00.000-07:00

Visual Basic (VB) adalah salah satu bahasa pemrograman komputer untuk database. Bahasa pemrograman adalah perintah-perintah yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu.
Bahasa pemrograman Visual Basic, yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner's All-purpose Symbolic Intruction Code) yang dikembang pada era 1950-an.

Visual Basic merupakan salah satu Development Tool yaitu alat bantu untuk membuat berbagai macam program komputer, khususnya yang menggunakan sistem operasi Windows.
Visual Basic merupakan salah satu bahasa pemrograman komputer yang mendukung object (Object Oriented Programming = OOP).

Menu Bar, digunakan untuk memilih tugas-tugas tertentu seperti menyimpan project, membuka project, dll.
Main Toolbar, digunakan untuk melakukan tugas-tugas tertentu dengan cepat.
Jendela Project, jendela ini berisi gambaran dari semua module yang terdapat dalam aplikasi anda. Anda dapat menggunakan icon Toggle Folders untuk menampilkan modul-modul dalam jendela tersebut secara di group atau berurut berdasarkan nama. Anda dapat menggunakan Ctrl+R pada keyboard untuk menampilkan jendela project ataupun menggunakan icon Project Explorer.
Jendela Form Designer, jendela ini merupakan tempat anda untuk merancang user interface dari aplikasi anda. Jadi jendela jendela ini menyerupai kanvas bagi seorang pelukis.
Jendela Toolbox, jendela ini berisi komponen-komponen yang dapat anda gunakan untuk mengembangkan user interface.
Jendela Code, merupakan tempat bagi anda untuk menulis koding. Anda dapat menampilkan jendela ini dengan menggunakan tombol Shift+F7 pada keyboard.
Jendela Properties, merupakan daftar properti-properti object yang sedang terpilih sebagai contohnya anda dapat mengubah warna tulisan (foreground) dan warna latar belakang (background). Anda dapat menggunakan tombol F4 pada keyboard untuk menampilkan jendela properties ini.
Jendela Color Palette, adalah fasilitas cepat untuk mengubah warna suatu object.
Jendela Form Layout, akan menunjukkan bagaimana form bersangkutan ditampilkan ketika runtime.

Tips Membuat Text Berjalan Dengan VB

2009-07-30T04:26:00.000-07:00

Dalam dunia pemrograman membuat text berjalan adalah salah satu hal yang sangat mudah. Mungkin kita yang tidak mengenal pemrograman akan bertanya-tanya. "Kenapa text tersebut bisa berjalan?". Bagi pembuat program, itu hal yang mudah untuk menjawab pertanyaan tersebut karena dengan program aplikasi seperti Visual Basic, Borland Delphi, Turbo Pascal, HTML maupun yang lainnya. Kita bisa menjawab pertanyaan tersebut.

Tanpa panjang lebar kita akan mencoba membuat program text berjalan dengan aplikasi Visual basic. Caranya adalah sebagai berikut.

1. Pada pembuatan program ini, kita hanya membutuhkan Label dan Timer. Label untuk textnya itu sendiri dan Timer untuk menjalankan text tersebut. Sehingga tampak seperti pada gambar disamping.

2. Ketikkan listing program berikut pada kode editor.

Private Sub Form_Load()
Label1.Caption = "Text Berjalan"
Timer1.Interval = "1"
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 20
If Label1.Left<-3000 Then
Label1.Left = 5000
End If
End Sub

3. Simpan Form dan Project tersebut.

4. Jalankan program tersebut dengan cara kli menu Run pada MenuBar pilih Start atau tekan F5 pada keyboard.

Program sederhana ini sudah bisa menjawabpertanyaan tadi. Bila anda kurang suka dengan tampilan program diatas, anda bisa tambah atau rubah sendiri sesuai dengan keinginan anda.

Catatan :
a). Text atau angka diatas yang berwarna biru bisa diubah sesuai dengan keinginan anda.
b). Semakin besar interval timer, maka akan semakin lambat text yang berjalan. Begitu juga sebaliknya.
c). Semakin besar pengurangannya (Label1.Left = Label1.Left - 20), maka akan semakin cepat text yang berjalan dan begitu juga sebaliknya.

Semoga Sukses...!

Membuat Kalkulator Sendiri Dengan VB

2009-07-30T02:43:00.000-07:00

Penghitungan bilangan merupakan hal yang rumit jika bilangan yang dihitung dalam jumlah besar. Penghitungan juga dipelajari pada pelajaran Matematika. Untuk menghitung sesuatu dalam jumlah besar dibutuhkan kalkulator atau yang lain dalam memudahkan penghitungan. Untuk mendapatkan kalkulator tersebut tidak mudah juga karena butuh uang untuk membelinya. Bagaimana kalau kita tidak mempunyai uang dan kita harus menyelesaikan penghitungan bilangan dalam jumlah yang besar.

Kini kita akan membuat program kalkulator / penghitung untuk memudahkan kita dalam menghitung sesuatu, baik dalam jbesar maupun kecil. Dalam dunia bisnis penghitungan adalah hal yang harus dipelajari karena untuk manghitung pendapatan, pengeluaran, laba, maupum rugi, dan lain-lainnya.

Dengan Visual Basic semuanya bisa mudah...!
Langsung aja yaaa buatnya...!

1. Tambahkan kontrol-kontrol ke Form dan atur Propertiesnya sesuai dengan tabel dibawah ini.

Jenis kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	Kalkulator
Label	Label1	Caption	Bilangan Pertama
	Label2		Operator
	Label3		Bilangan Kedua
	Label4		Hasil
CommandButton	Button1	Caption	Hitung
	Button1	Name	Hitung
	Button2	Caption	Hapus
	Button2	Name	Hapus
ComboBox	Combo1	Name	Operator

2. Susunlah kontrol-kontrol tersebut sehingga tampak pada gambar disamping.

3.Ketikkan kode listing berikut pada kode editor.

Private Sub Form_Load()
Combo1.AddItem "+ (Tambah)"
Combo1.AddItem "- (Kurang)"
Combo1.AddItem "* (Kali)"
Combo1.AddItem "/ (Bagi)"
End Sub

Private Sub hapus_Click()
bil1=""
bil2=""
Combo1=""
hasil=""
End Sub

Private Sub hitung_Click()
If Combo1.Text="+ (Tambah)" then
hasil.Text=Val(bil1.Text) + Val(bil2.Text)
elseIf Combo1.Text="- (Kurang)" then
hasil.Text=Val(bil1.Text) - Val(bil2.Text)
elseIf Combo1.Text="* (Kali)" then
hasil.Text=Val(bil1.Text) * Val(bil2.Text)
elseIf Combo1.Text="/ (Bagi)" then
hasil.Text=Val(bil1.Text) / Val(bil2.Text)
End If
End Sub

4. Simpan Form dan Project tersebut

5. Jalankan program kalkulator tersebut. Kalkulator buatan sendiri siap digunakan untuk memudahkan penghitungan. Cara menjalankan program tersebut sama dengan menjalankan program-program lainnya. Cukup tekan F5 pada keyboard.

Selamat Mencoba.....!

Program Membuka dan Menutup CD/DVD Rom

2009-07-29T01:30:00.000-07:00

Nah bila anda sering membackup data dengan cd/dvd pasti anda masih akan membuka cd/dvd dengan menekan tombol open pada cd/dvd rom-nya.jika seperti itu, maka akan terasa lama jika masih membuka dengan menekan tombol open tersebut yang terdapat pada cd/dvd rom tersebut.untuk meringankan/mempercepat pembukaan cd/dvd rom tanpa menekan tombol tersebut,mari kita mencoba untuk membuat programnya dengan menggunakan visual basic.

Ini berbeda dengan program lainnya karena membutuhkan module untuk menampung kode-kode.untuk menambah module pada project anda mudah sekali yaitu dengan mengklik project pada menubar lalu pilih add module kemudian open, maka modulenya akan muncul.

Adapaun cara untuk membuat program tersebut ikuti langkah-langkah berikut.

Tambahkan kontrol-kontrol berikut pada form dan atur propertiesnya.

Jenis Kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	CD Rom
		BackColor	&H00000000&
Module	Module1	-	-
Label	Label1	Caption	Program Untuk Membuka dan Menutup CD/DVD Rom
		ForeColor	&H000000C0&
CommandButton	Command1	Caption	Open
CommandButton	Command2	Caption	Close

Susunlah kontrol-kontrol tersebut sehingga tanpak seperti gambar dibawah ini.
Tulis kode dibawah ini pada kode editor.

Tulis kode dibawah ini pada module yang telah ditambah pada project anda.

Option Explicit
Public Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString _
As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As _
Long
Public Function OpenCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("open " & drv & ": type cdaudio alias " & Alias _
& " wait", vbNullString, 0&, 0&)
retval = mciSendString("set " & Alias & " door open", vbNullString, 0&, _
0&)
OpenCDDoor = retval
End Function
Public Function CloseCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("set " & Alias & " door closed", vbNullString, _
0&, 0&)
retval = mciSendString("close " & Alias, vbNullString, 0&, 0&)
CloseCDDoor = retval
End Function

Dan tulis kode dibawah ini pada form yang telah tersedia

Option Explicit
Private Sub Command1_Click()
OpenCDDoor "E"
End Sub
Private Sub Command2_Click()
CloseCDDoor "E"
End Sub

simpan form dan project serta module anda.
jalankan program tersebut, dan lihatlah hasilnya…!klik open untuk membuka cd/dvd rom,dan klik close untuk menutup cd/dvd rom.maka anda tidak akan merasa lama jika ingin membuka atau menutup cd/dvd rom dengan program tersebut.

Jika menurut anda kurang menarik program tersebut,anda bisa menambah sendiri sesuai dengan keinginan anda.

Tips Membuat Lampu Natal Dengan VB

2009-07-29T01:29:00.001-07:00

Hari natal tak serasa lengkap jika tanpa lampu natal, nah sekarang kita mencoba untuk membuat Lampu Natal sendiri dengan menggunakan aplikasi Visual Basic, tanpa harus mengeluarkan uang untuk membeli lampu natal yang mungkin harganya mahal...!
Dengan lampu natal buatan sendiri tersebut, Hari Natal kita akan menjadi hari natal yang murah dan meriah.

Adapun cara membuatnya adalah sebagai berikut.
1. Tambahkan kontrol-kontrol ke Form dan atur Propertiesnya sebagai berikut.

Jenis Kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	Lampu Natal
Shape	Shape1	Caption	Lampu1
		BackColor	&H000040C0&
Shape	Shape2	Caption	Lampu2
		BackColor	&H000040C0&
Shape	Shape3	Caption	Lampu3
		BackColor	&H000040C0&
Shape	Shape4	Caption	Lampu4
		BackColor	&H000040C0&
Timer	Timer1	Interval	700

NB: Semakin kecil nilai interval pada Timer, maka semakin cepat pergantian warnanya. Tapi sebaliknya semakin besar nilainya, maka akan semakin lambat pergantian warnanya.
2. Susunlah letak kontrol-kontrol tersebut pada form sehingga kira-kira seperti gambar dibawah ini.
3. Ketiklah listing berikut pada kode editor.

Dim lamp As Boolean
Private Sub Timer1_Timer()

If Lamp=True Then
Shape2.BackColor=vbGreen
Shape4.BackColor=vbGreen
Shape1.BackColor=vbBlack
Shpae3.BackColor=vbBlack
lamp=False
Else
Shape1.backColor=vbRed
Shape3.BackColor=vbRed
Shape2.BackColor=vbBlue
Shape4.BackColor=vbBlue
lamp=True
End If

End Sub
4. Simpan Form dan Project anda.
5. Kemudian jalankan program tersebut dengan cara klik run pada menu bar, lalu klik start, atau dengan cara menekan F5 pada keyboard, atau juga dengan cara jalan pintas yaitu mengklik tombol yang bergambar simbol Play dibawah menu bar. Setelah anda menjalankan program tersebut lihatlah hasilnya, tidak kalah menarik dengan lampu aslinya kan...?

Virus Brontok Hasil Karya Sendiri

2009-07-29T01:27:00.001-07:00

Dalam belakangan waktu ini mungkin anda pernah mendengar nama virus Brontok?......ya betul virus yang menduplikatkan dirinya dan menyesuaikan nama virus barunya berdasarkan folder atau file pada window epxlorer yang aktif. Ciri khas dari virus ini adalah menggunakan Icon folder, sehingga dapat mengecoh seseorang yang melihatnya.

Mengapa membahas virus ini?,...hmm...m....sebetulnya saya tidak terlalu tertarik membahas ini, tau nggak apa yang menyebabkan saya tertarik membahasnya?...pasti nggak tau kan @!img13@.....ini disebabkan beberapa hari lalu banyak kehebohan mengenai virus brontok dan sempat menginfeksi beberapa komputer teman2ku @!img7@.

Ok untuk mempersingkat waktu kita langsung aja

Setelah dilihat struktur file dari virus tersebut ternyata pembuatan virusnya menggunakan visual basic 6.0 ops....ternyata made in vb coy....nah ini yang membuat tambah menarik.

Virus ini terdiri dari 1 form da 1 Module, dengan nama

Form -> BrontokForm
Module -> API

Dengan detail berikut:

Begin VB.Form BrontokForm
Caption = "Brontok.A"
ForeColor = &H8000000F&
ScaleMode = 1
BeginProperty Font
Name = ""
Size = 195323.4944
Charset = 29
Weight = 774
EndProperty

Begin VB.Timer TmrBrontok
Enabled = 0 'False
Interval = 2000
Left = 2160
Top = 0
Width = 57352
Height = 1
End
End

Dengan nama Project: Brontok.vbp, yang disimpan pada directory:
F:\VPROJECT\REHAB\Re-1\BRONTOK.A

Jelas sekali bahwa virus ini dibuat oleh sorang program lokal, yang mempunyai skill Menengah Keatas.

Ada beberapa procedure & function yang digunakan dengan nama:

Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
TmrBrontok_Timer()
Subr_004()
CekKoneksiInternet()
ManipulasiExec()
Subr_007()
KeluarDong()
BronReg()
CopyAppData()
DownloadVir()
StartDong()
StartUp()
DecTeks()
MutMutex()
MutCr()
DownloadFile()
CekUpdate()
InfekNetwork()
Judul()
CekRemDisk()
BikinFile()
GetEmailFile()
CekValidMail()
GetTeks()
CekKar()
ListMail()
GetTargetMBhs()
GavMailer()
BrontokMail()
Subr_031()
DataEmail()
DownMIME()
FindFilesAPI()
ListFileGav()
InfekFile()
SmallAttack()
MinggirLoe()
GetHostByNameAlias()
StripNulls()
BikinKredit()

Dan beberapa fungsi Api yang digunakan anatara lain:

Fungsi Baca Tulis Ke Register:
Declare Function RegOpenKeyExA Lib "advapi32.dll" ()
Declare Function RegSetValueExA Lib "advapi32.dll" ()
Declare Function RegCloseKey Lib "advapi32.dll" ()
Declare Function RegCreateKeyExA Lib "advapi32.dll" ()

Declare Function Sleep Lib "kernel32" ()

Mendapatkan Spesial Folder:
Declare Function SHGetPathFromIDList Lib "shell32.dll" ()
Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" ()

Membaca Isi Halaman Situs:
Declare Function InternetOpenA Lib "wininet.dll" ()
Declare Function InternetOpenUrlA Lib "wininet.dll" ()
Declare Function InternetReadFile Lib "wininet.dll" ()
Declare Function InternetCloseHandle Lib "wininet.dll" ()

Mendapatkan Caption Dari Sebuah Window:
Declare Function GetWindowTextA Lib "user32" ()
Declare Function GetWindowTextLengthA Lib "user32" ()

Dapatkan HWND Window aktif:
Declare Function GetForegroundWindow Lib "user32" ()

Shutdown, Reboot, LogOff Windows:
Declare Function ExitWindowsEx Lib "user32" ()
Declare Function GetCurrentProcess Lib "kernel32" ()
Declare Function OpenProcessToken Lib "advapi32" ()
Declare Function LookupPrivilegeValueA Lib "advapi32" ()
Declare Function AdjustTokenPrivileges Lib "advapi32" ()

Mendapatkan Jenis Media yang ada spt Removable Disk, CD-Rom dll:
Declare Function GetDriveTypeA Lib "kernel32" ()

Declare Function ShellExecuteA Lib "shell32.dll" ()
Declare Function RtlMoveMemory Lib "kernel32" ()

Winsock API:
Declare Function closesocket Lib "wsock32.dll" ()
Declare Function connect Lib "wsock32.dll" ()
Declare Function htons Lib "wsock32.dll" ()
Declare Function inet_addr Lib "wsock32.dll" ()
Declare Function recv Lib "wsock32.dll" ()
Declare Function send Lib "wsock32.dll" ()
Declare Function socket Lib "wsock32.dll" ()
Declare Function gethostbyname Lib "wsock32.dll" ()
Declare Function WSAStartup Lib "wsock32.dll" ()
Declare Function WSACleanup Lib "wsock32.dll" ()
Declare Function WSAAsyncSelect Lib "wsock32.dll" ()

Fungsi yang berhubungan dengan file:
Declare Function FindFirstFileA Lib "kernel32" ()
Declare Function FindNextFileA Lib "kernel32" ()
Declare Function GetFileAttributesA Lib "kernel32" ()
Declare Function FindClose Lib "kernel32" ()
dll...

Terlihat jelas pada fungsi-fungsi api yang digunakan bahwa penularan virus ini brontok menggunakan beberapa cara. seperti pengiriman lewat email, pencarian nama komputer yang terhubung kejaringan dengan menyalin dirinya pada folder yang di sharing dan menyalin dirinya pada window explorer yang aktif. kalo gak salah si pembuat virus mempunyai SMTP sendiri (wah ati-ati mas ntar ketangkep)

Jika dilihat kembali pada strukturnya ada beberapa kata yang di encrypt, kemungkinan berupa exploit code atau apalah namanya. hanya allah dan pembuat virus yang tau. @!img1@

Virus ini mempunyai fungsi ExitWindowsEx yang diimport dari file user32.dll, fungsi ini biasanya digunakan untuk mematikan windows.
kayaknya sipembuat virus membuat triger yang berisi perintah mematikan/merestart komputer.

Selain itu dalam struktur filenya terdapat kata-kata seperti ini:
FOLDER.HTT
RORO
.HTT
.DOC
.CSV
.EML
.CFM
.PHP
.WAB
.EML
.TXT
.HTML
.HTM
MY DATA SOURCES
MY EBOOKS
MY MUSIC
MY SHAPES
MY VIDEOS
MY DOCUMENT

Dan ada beberapa alamat situs yang diserang, apa DDOS ya...hik..hik..tau deh. Selain itu pembuat virus mencantumkan nama: --JowoBot#VM Community --

Selanjutnya coba lihat tiga fungsi api berikut:

Declare Function GetWindowTextA Lib "user32" ()
Declare Function GetWindowTextLengthA Lib "user32" ()
Declare Function GetForegroundWindow Lib "user32" ()

Sepertinya pembuat virus memanfaatkan windowexplorer untuk memperbanyak filenya ke folder yang lain. Dengan cara membaca Caption yang terdapat pada windows aktif yang berisi nama directory/path. Dengan menggunakan 2 fungsi diatas (GetWindowTextA & GetWindowTextLengthA), Sedangkan fungsi GetForegroundWindow digunakan untuk mendapatkan Handle Window (HWND) yang sedang aktif.

Jadi kesimpulannya virus ini tidak dapat menyalin dirinya kalo Caption pada windowExplorer bukan berupa Directory/Path. Sehinga si pembuat virus menonaktifkan setting pada Folder Options.

Kemudian yang lebih unik lagi virus ini membaca isi halaman situs yang terbuka pada sebuah InternetExplorer dengan menggunakan fungsi:

Declare Function InternetOpenA Lib "wininet.dll" ()
Declare Function InternetOpenUrlA Lib "wininet.dll" ()
Declare Function InternetReadFile Lib "wininet.dll" ()
Declare Function InternetCloseHandle Lib "wininet.dll" ()

Kalo saya tebak, sepertinya pembuat virus mencari alamat email pada halaman situs yang terbuka dan mengirimkan virus nya berdasarkan alamat email yang ditemukan pada halaman tersebut dengan kata kunci seperti mailto: ataupun @xxxx.com dll...

....Untuk membersihkannya silahkan baca selengkapnya di situs AntiVirus yang lain...he..he...maaf saya hanya membahas yang ini saja.

Tapi kalo pengen menonaktifkan virus ini secara cepat, coba masuk safemode kemudian rename file MSVBVM60.dll menjadi MSVBVM60.dl_
karena virus ini membutuhkan runtime vb. Nah kalo udah gak aktif baru kita bisa hapus beberapa registry entry dan file-file virus brontoknya.

Sayang sekali virus ini tidak menggunakan program compressor, sehingga memudahkan orang untuk mengenalinya.

Semoga bermanfaat,...@!img0@
Maaf kalo ada beberapa informasi yang salah, karena saya hanya mengambil dari pengalaman pribadi bukan bersumber dari informasi yang lain.

Membuat Picture Viewer Dengan VB

2009-07-27T00:52:00.000-07:00

Jika anda sering mengganti-ganti walpaper, tentunya sangat merepotkan jika anda harus membuka Control Panel, lalu Display Seting dan bla bla....
Dibicarakan saja sudah capek. Dengan aplikasi ini anda cukup memilih file gambar seperti pada program Picture Viewer dan mengklik sebuah tombol, maka sekejap wallpaper anda telah berubah.

Adapun caranya adalah sebagai berikut.
1. Tambahkan kontrol-kontrol ke Form dan atur propertiesnyaseperti berikut.

Jenis Kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	Picture Viewer
DriveListBox	Drive1	-	-
DirListBox	Dir1	-	-
FileListBox	File1	-	-
Image	Image1	Stretch	True
CommondButton	Command1	Caption	Set This Picture As Wallpaper

2. Susunlah letak kontrol-kontrol tersebut pada form sehingga menjadi kira-kira seperti gambar berikut.

3. Ketikkan listing berikut pada kode editor

Private Const SPIF_UPDATEINFILE=&H1
Private Const SPI_SETDESKWALLPAPER=20
Private Const SPIF_SENDWININICHANGE=&H2

Private Declare SystemParametersInfo

MP3 Sederhana Buatan Sendiri

2009-07-27T00:23:00.000-07:00

Anda sering mendengar musik dengan komputer?Jika ya, pasti anda sudah tahu dan akrab dengan Winamp,Windows Media Player, dan Aplikasi Multimedia lainnya.
Kita akan mencoba untuk membuat sendiri aplikasi untuk memutar MP3. Apa yang terlintas dibenak anda? "Wah berapa lama membuatnya?pasti rumit sekali!"

Jangan salah, dengan Active X semuanya pasti mudah. Kita hanya perlu membuat program untuk memerintahkan Active X tersebut untuk membuka file dan memainkannya.
Sebelumnya, tambahkan Active X MMControl ke ToolBox terlebih dahulu,yaitu dengan cara klik kanan toolbox,pilih Componen,lalu pilih Microsoft Multimedia Control.
Adapun cara membuat program tersebut adalah sebagai berikut.

Tambahkan kontrol-kontrol dibawah ini ke Form dan atur Propertiesnya.

Jenis Kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	MP3 Player
Label	Label1	Caption	(kosongkan)
-	-	BorderStyle	FixedSingle
MMControl	MMControl1	-	-
CommonDialog	CommonDialog	CancelError	True
-	-	Filter	MP3 Audio (.mp3)\|.mp3
CommandButton	Command1	Caption	Open File

Susunlah letak kontrol-kontrol tersebut pada Form sehingga menjadi kira-kira sebagai berikut.
Kitikkan listing program berikut pada kode editor.
Private Sub Command1_Click()
On Error GoTo errhandler
MMControl1.Command=”stop”
CommonDialog1.ShowOpen
MMControl.FileName=CommonDialog1.FileName
MMControl1.Command=”open”
Label1.Caption=CommonDialog1.FileTitle
Errhandler:
Exit Sub
End Sub
Private Sub Form_Unload(Cancel As Integer)
Mmcontrol1.Command=”stop”
End Sub
Simpan form dan project anda.
jalankan program tersebut dengan cara klok tombol Open File,pilih lagu yang anda inginkan,lalu klik tombol Play.maka musik yang anda pilih akan mengalun dari speaker anda.Ajiiiip...!

Mungkin anda merasa tidak puas dengan penampilan atau visualisasi dari program MP3 Player ini. Berkreasilah sesuka anda karena selera atau keinginan seseorang pasti berbeda-beda.