Cara membuat program sederhana dengan VB6

November 26, 2014
SERPChecker - Get deep insights into Google SERP
Assalamu'alaikum wr..wb !

Pemutar Music
SHARING404.NET | Pada kesempatan kali ini saya akan membagikan tutorial untuk membuat sebuah program sederhana melalui Microsoft Visual Basic 6.0 yaitu cara membuat program Pemutar Musik sederhana seperti pada gambar diatas !

Bahan-bahan yang dibutuhkan, antara lain :
  • Software VB6.0
  • Skill
  • Ketelitain
Cuma itu saja bahan-yang dibutuhkan, perlu di ingat bahwa untuk membuat sebuah program tidaklah mudah seperti yang kita bayangkan, terutama hal yang sangat dibutuhkan adalah ketelitian untuk menambahkan syntax pada form-form tertentu. Selain itu, dibutuhkan juga imajinasi kita untuk mendesign program tersebut sebagus mungkin agar tampilannya lebih menarik.

Okeys, sekarang kita langsung saja ke intinya yaitu langkah-langkah untuk membuat program pemutar musik sederhana.

1.Bukan Software VB6
2.Jika sudah terbuka selanjutnya tekan CTRL+T atau klik pada menu Project » Components..
3.Kemudian Beri tanda conteng (√) pada dua sub menu pada toolbar control, yaitu :
  • Microsoft common dialog control 6.0
  • Microsoft multimedia control 6.0
4.Kemudian masukkan 1 Label » 1 DriveListBox » 1 DirListBox » 1 ListBox dan 1 MMControl 
5.Atur tampilannya sesuai dengan yang anda inginkan, jika sudah kemudian Klik pada menu bar View dan pilih Code
6.Kemudian masukkan syntax ini ke area kosong code tadi !!
Private Sub Dir1_Change()
File1.Path = Dir1End Sub
Private Sub Drive1_Change()
Dir1 = Drive1.Drive
End Sub
Private Sub File1_Click()
Label1.Caption = File1.FileName
MMControl1.Command = "close"
MMControl1.FileName = File1.Path + "\" + File1.FileName
MMControl1.Command = "open"
MMControl1.Command = "play"End Sub
Private Sub Form_Load()
MMControl1.BackVisible = False
MMControl1.StepVisible = False
MMControl1.RecordVisible = False
MMControl1.EjectVisible = False
File1.Pattern = "*.mp3"End Sub



Private Sub MMControl1_Done(NotifyCode As Integer)
Dim a As Integer
On Error GoTo salah
If MMControl1.Position = MMControl1.Length Then
a = File1.ListIndex
a = a + 1
File1.Selected(a) = True
File1_Click
salah:
Exit Sub
End IfEnd Sub

7.Kemudian silahkan anda jalankan program yang sudah dibuat tadi dan jika sukses langsung bisa diputar musiknya
8.Selesai

NOTE :
Jika programnya keluar ERROR, maka tambahkan satu Common dialog pada form yang sudah dibuat tadi, common dialog ini tidak membutuhkan syntax lagi karena sudah ada semua pada syntax diatas tadi.

Untuk melihat hasil buatan saya, bisa langsung download DISINI

Hanya sekianlah tutorial membuat program pemutar musik sederhana, semoga bisa dipahami dan programnya sukses dibuat tanpa mengalami error, dan jangan lupa berkunjung dilain waktu karena saya akan update artikel setiap harinya.
Terimakasih


Tampilkan Komentar