BAB III PEMBAHASAN MASALAH Aplikasi yang dibuat oleh penulis adalah aplikasi yang dapat menjalankan atau memainkan file – file multimedia khusus bereksientensi *.mp3, *.mpg, dan *.avi, karena itu penulis menyebutnya aplikasi Multimedia Player. Untuk dapat membuat aplikasi yang menyediakan fungsi – fungsi multimedia tersebut pada Microsoft Visual Basic 6 penulis menggunakan Multimedia player yang tersedia pada Microsoft Visual Basic 6. Pada bab ini penulis akan menjelaskan lebih lengkap mengenai cara dan alur pembuatan aplikasi Multimedia Player dengan menggunakan Microsoft Visual Basic 6. 3.1
Spesifikasi Hardware Dalam proses pembuatan aplikasi Multimedia Player ini, spesifikasi
hardware dan software minimum yang digunakan adalah sebagai berikut : 1. Sistem operasi windows 98SE 2. Processor AMD athlon 1GHz 3. Memori 128 SDRAM 4. Hardisk 20 giga 5. VGA 32 6. Soundcard
3.2
Algoritma Program Berikut ini merupakan algoritma program dalam bentuk diagram alur.
14
15
Start
Multimedia Player
Ya (D) Pilih File
Tidak (C) My Dokumen, My VB data, My music
My Music
Tampilkan Data
My dokumen, My VB data, Botox
Botox
Tampilkan Data
Play Play End
Gambar 3.1 Flochart algoritma program. 3.3
Perancangan Aplikasi Multimedia Player Sebelum membuat aplikasi Multimedia Player ini, penulis terlebih dahulu
merancang tampilan dari aplikasi Multimedia Player agar para pengguna aplikasi
16
Multimedia Player tersebut nantinya tidak merasa bosan atau jenuh menggunakan aplikasi. Aplikasi Multimedia Player yang akan dibuat oleh penulis terdiri dari 1 form dan 2 tab, yaitu tab mp3 dan layar video. Tab tersebut adalah Tab dengan tampilan Multimedia Player dimana para pengguna dapat menjalankan atau memainkan file – file musik yang berformat mp3, mpg, dan avi Perancangan aplikasi Multimedia Player tersebut akan dijelaskan pada sub-bab - sub-bab berikut : 3.3.1
Form Utama Drive List
Tab Bar
Dir List File List Command
Label
Horizontal Scroll Bar
Frame
Gambar 3.2 Rancangan Tab Mp3 Form Utama
Pada form utama terdapat satu buah object tab bar. Tab bar ini mempunyai 2 buah tab, yaitu mp3 dan layar video. Pada tab mp3 terdapar beberapa objek yaitu: 1 buah drive list box, 1 buah dir list box, 1 buah file
17
list box, 2 buah frame, 4 buah command, 1 buah horizontal scroll bar, dan 1 buah label. Tab Bar
Label Command
Picture Box + Media Player
Gambar 3.3 Rancangan Tab Layar Video Form Utama
Pada tab layar video terdapat beberapa objek, yaitu: 3 buah command, 1 buah label, dan 1 buah picture box yang digabungkan dengan Multimedia Player. 3.4
Pembuatan Aplikasi Multimedia Player Pada saat pertama kali membuka program Microsoft Visual Basic 6 akan
tampil kotak dialog yang memberikan pilihan beberapa jenis project yang akan dibuat. Pilih project dengan standar exe, lalu akan tampil lingkungan Microsoft Visual Basic 6 dengan satu buah form ( form 1) dimana nantinya form 1 tersebut menjadi lahan untuk aplikasi yang akan Kita buat. Form tersebut adalah lahan untuk aplikasi, dan fungsi – fungsi pada aplikasi dapat kita buat dengan
18
menambahkan kontrol – kontrol yang telah disediakan Microsoft Visual Basic 6 pada toolbox. 3.4.1
Pembuatan form utama
Gambar 3.4Pembuatan Form Utama Dengan 2 Tab
Pada tab mp3 terdapat 1 buah kontrol drive list box, 1 buah kontrol dir list box, 1 buah kontrol file list box, 3 kontrol option, 4 buah kontrol command, 1 buah kontrol label,dan 1 buah kontrol media player.
19
Berikut penjelasan masing – masing kontrol : 1. Kontrol drive list box Digunakan untuk melihat drive – drive pada computer yang digunakan
code : Private Sub Drive1_Change() On Error GoTo error Dir1.Path = Drive1.Drive Exit Sub error: MsgBox ("Drive not available") Drive1.Drive = Dir1.Path End Sub
2. Kontrol dir list box Digunakan untuk melihat isi direktori dari drive yang dipilih pada computer
code : Private Sub Dir1_Change() File1.FileName = Dir1.Path End Sub
3. Kontrol file list box
20
Digunakan untuk melihat isi file dari suatu direktori yang dipilih pada computer code :
Private Sub File1_Click() ext = Right$(File1.FileName, 3) If Not (ext = "mp3" Or ext = "MP3" Or ext = "mpg" Or ext = "MPG" Or ext = "avi" Or ext = "AVI") Then MsgBox ("Please select mp3, mpg, and avi files from the list") Else If Right$(Dir1.Path, 1) = "\" Then s = "" Else s = "\" End If p = Dir1.Path + s + File1.FileName Label1.Caption = p End Sub
4. Kontrol H Scroll Bar Digunakan untuk melakukan pengaturan volume suara:
code : Private Sub HScroll1_Change() MP.Volume = (0 - 3000) + (HScroll1.Value) End Sub Private Sub HScroll1_Scroll() MP.Volume = (0 - 3000) + (HScroll1.Value) End Sub
5. Kontrol command Pada program ini terdapat 4 buah kontrol command, yaitu :
Command 1 untuk tombol play
21
Digunakan untuk menjalankan atau memainkan file musik yang berformat mp3 Private Sub Command1_Click() mp.FileName = p mp.Play End Sub
Command 2 untuk tombol stop
Digunakan untuk menghentikan file musik yang sedang berjalan Private Sub Command2_Click() mp.Stop Label1.Caption = p End Sub
Command 3 untuk tombol next
Digunakan untuk memilih lagu satu lagu sesudah lagu yang aktif Private Sub Command3_Click() File1.ListIndex = File1.ListIndex + 1 On Error GoTo er With mp .FileName = p .AutoStart = True End With er: If Err.Number = 381 Then File1.ListIndex = 0 End Sub
Command 4 untuk tombol back
22
Digunakan untuk memilih lagu satu lagu sebelum lagu yang aktif Private Sub Command4_Click() File1.ListIndex = File1.ListIndex - 1 On Error GoTo er With mp .FileName = p .AutoStart = True End With er: If Err.Number = 381 Then File1.ListIndex = 0 End Sub
3.4.2
Pembuatan menu editor Menu editor adalah salah satu fasilitas dari Microsoft Visual Basic
6, dimana kita dapat membuat menu pada standar window pada aplikasi yang kita buat. Pada aplikasi Multimedia Player ini menu editor digunakan untuk membuat menu file dan help dan sub-menu keluar dan informasi. Untuk mengaktifkan menu editor kita dapat memilih menu tools>menu editor pada Microsoft Visual Basic 6. Berikut beberapa menu yang dibuat dengan menu editor : 1. Menu keluar Private Sub keluar_Click() End End Sub
Berikut ini adalah listing program yang harus ikut dicantumkan sebagai tambahan dan pendukung jalannya program Dim X As MediaPlayer Dim s As String, ext As String Dim p
23
Private Sub File1_DblClick() mp.FileName = p mp.AutoStart = True End Sub Private Sub Form_Load() Option2.Value = True End Sub Private Sub MediaPlayer1_DVDNotify(ByVal EventCode As Long, ByVal EventParam1 As Long, ByVal EventParam2 As Long) End Sub
3.5
Hubungan Aplikasi Multimedia Player Dengan Sistem Windows Aplikasi Multimedia Player ini sangat erat sekali hubungannya
dengan sistem operasi windows, karena pembuatan aplikasi Multimedia Player ini dilakukan dengan sistem operasi windows 98, maka aplikasi Multimedia Player ini hanya berfungsi atau dijalankan di dalam sistem operasi windows. Pada form utama, file mp3 dapat langsung dipilih dari file list box, dan dalam menjalankan aplikasi Multimedia Player ini penulis menggunakan komponen media player 8 yang ada pada Microsoft Visual Basic 6. Bila dipilih file Video maka untuk melihat video tersebut klik pada bar Layar Video. Untuk kontrol pada Layar Video mempunyai source yang sama dengan tab MP3. perbedaanyan hanya pada properti Media Player. Untuk lebih jelasnya, semua properti pada proyek ini dapat ditemui pada lampiran yang penulis lampirkan.