LABTI Gunadarna : Cara Membuat Windows Media Player menggunakan Visual Basic 6.0

LAPORAN AKHIR

Mata Praktikum        : ALGORITMA & PEMROGRAMAN 2A

Kelas                          : 1IA11

Praktikum ke-            : 8

Tanggal                     : 25 April 2016

Materi                         : Windows Media Player Visual Basic 6.0

NPM                           : 55415187

Nama                         : NUR IRFAN EKA FADHILAH

Ketua Asisten           : BUDHI UTAMA

Nama Asisten           :

Paraf Asisten                        :

Jumlah Lembar        : 12 Lembar

LABORATORIUM TEKNIK INFORMATIKA

UNIVERSITAS GUNADARMA

2016

LISTING PROGRAM

Private Sub Command1_Click() WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 5 End Sub Private Sub Command2_Click() WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume - 5 End Sub Private Sub Command3_Click() WindowsMediaPlayer1.fullScreen = True End Sub Private Sub Command4_Click() a = List2.ListIndex a = b If a > -1 Then List1.RemoveItem (a) Else MsgBox "Pilih FIle", vbCritical, "Error" End If End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub

Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() List1.AddItem File1.FileName List2.AddItem Dir1.Path & "/" & File1.FileName End Sub Private Sub List1_Click() List2.ListIndex = List1.ListIndex WindowsMediaPlayer1.URL = List2 End Sub Private Sub Option1_Click() WindowsMediaPlayer1.settings.setMode "loop", True End Sub Private Sub Option2_Click() WindowsMediaPlayer1.settings.setMode "loop", False End Sub

LOGIKA PROGRAM

            Pada pertemuan minggu ke-8 kita akan memebuat Windows Media Player menggunakan visual basic 6.0. Dalam pembuatan pemrograman kali ini kita hanya membutuhkan 1 buah form saja dan komponen-komponen nya yaitu:

-       2 Label

-       2 ListBox

-       1 DriveListBox

-       1 DirListBox

-       1 FileListBox

-       4 CommandButton

-       2 RadioButton

-       1 WindowsMediaPlayer

            Pertama kita masukkan dahulu komponen WindowsMediaPlayer1 dikarenakan tidak terdapat dalam toolbox maka kita harus menambahkan dahulu komponen WindowsMediaPlayer dengan cara :

 

-       Klik menu Project

-       Klik kiri sub menu Components (Ctrl+T)

-       Lalu kita checklist komponen WindowsMediaPlayer

-       Lalu klik apply

-       Lalu klik close

            Setelah selesai menambahkan komponen WindowsMediaPlayer lalu kita masukkan komponen WindowsMediaPlayer1 yaitu dengan cara klik WindowsMediaPlayer pada ToolBox lalu kita taruh kedalam Form1. Setelah selesai memasukkan WindowsMediaPlayer lalu kita masukkan komponen DriveListBox1 yaitu dengan cara klik kiri komponen DriveListBox pada ToolBox lalu kita taruh ke dalam Form1. Lalu kita masukkan komponen DirListBox1 yaitu dengan cara klik kiri komponen DirListBox pada ToolBox lalu kita taruh ke dalam Form1. Lalu kita masukkan komponen FileListBox1 yaitu dengan cara klik kiri komponen FileListBox pada ToolBox lalu kita taruh ke dalam Form1. Lalu kita masukkan komponen ListBox1 yaitu dengan cara klik komponen ListBox pada ToolBox lalu kita taruh ke dalam Form1. Lalu kita masukkan komponen ListBox2 yaitu dengan cara klik komponen ListBox pada ToolBox lalu kita taruh ke dalam Form1. Lalu kita masukkan komponen Label1 yaitu dengan cara klik komponen Label pada ToolBox lalu kita taruh ke dalam Form1 setelah itu kita ke menu properties Label1 lalu kita ganti caption dari Label1 menjadi Click To Play. Lalu kita masukkan kembali komponen Label yaitu dengan nama otomatis Label 2 yaitu dengan cara klik komponen Label pada ToolBox setelah itu kita ke menu properties Label 2 lalu kita ganti caption dari Label2 menjadi Daftar File Media. Lalu kita masukkan komponen CommandButton1 yaitu dengan cara klik komponen CommandButtion pada ToolBox lalu kita taruh ke dalam Form1 setelah itu kita ke properties CommandButton1 lalu kita ganti caption dari CommandButton1 menjadi Vol +. Lalu kita masukkan komponen CommandButton2 yaitu dengan cara klik komponen CommandButtion pada ToolBox lalu kita taruh ke dalam Form1 setelah itu kita ke properties CommandButton2 lalu kita ganti caption dari CommandButton2 menjadi Vol -. Lalu kita masukkan komponen CommandButton3 yaitu dengan cara klik komponen CommandButton pada ToolBox lalu kita taruh ke dalam Form1 setelah itu kita ke properties CommandButtion1 lalu kita ganti caption dari CommandButton3 menjadi Full Screen. Lalu kita masukkan komponen CommandButton4 yaitu dengan cara klik komponen CommandButton pada ToolBox lalu kita taruh ke dalam Form1 setelah itu kita ke properties CommandButtion4 lalu kita ganti caption dari CommandButton1 menjadi Hapus File. Lalu kita masukkan komponen RadioButton1 yaitu dengan cara klik kiri komponen RadioButton pada ToolBox setelah itu ke properties RadioButton1 lalu kita ganti caption dari RadioButton1 menjadi Repeat On. Lalu kita masukkan komponen RadioButton1 yaitu dengan cara klik kiri komponen RadioButton pada ToolBox setelah itu ke properties RadioButton2 lalu kita ganti caption dari RadioButton2 menjadi Repeat Off.

            Setelah kita selesai memasukkan komponen-komponen ke dalam Form1 maka kita tuliskan sintaks pada CommandButton1 yaitu dengan cara klik 2 kali komponen CommandButton1:

Private Sub Command1_Click()

WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 5

End Sub

            Fungsi dari sintaks WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume +5 adalah digunakan untuk menambahkan volume dengan nilai 5 dari 100 di WindowsMediaPlayer1.

            Setelah kita selesai menuliskan sintaks pada komponen CommandButton1, lalu kita tuliskan sintaks CommandButton2 yaitu dengan cara klik dua kali komponen CommandButton2:

Private Sub Command2_Click()

WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume - 5

End Sub

            Fungsi dari sintaks WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume -5 adalah digunakan untuk mengurangi volume dengan nilai 5 dari 100 di WindowsMediaPlayer1.

            Setelah kita selesai menuliskan sintaks pada komponen CommandButton2, lalu kita tuliskan sintaks CommandButton3 yaitu dengan cara klik dua kali komponen CommandButton3:

Private Sub Command3_Click()

WindowsMediaPlayer1.fullScreen = True

End Sub

            Fungsi dari sintaks WindowsMediaPlayer1.fullScreen = True adalah digunakan untuk menampilkan WindowsMediaPlayer secara layar penuh karena nilai nya true maka jika di klik button tersebut maka WindowsMediaPlayer akan tampil secara layar penuh.

            Setelah kita selesai menuliskan sintaks pada komponen CommandButton3, lalu kita tuliskan sintaks CommandButton4 yaitu dengan cara klik dua kali komponen CommandButton4:

Private Sub Command4_Click()

a = List2.ListIndex

b = a

If a > -1 Then

List1.RemoveItem (a)

List2.RemoveItem (b)

Else

MsgBox "Pilih File", vbCritical, "Error"

End If

End Sub

            Fungsi dari sintaks a = List2.ListIndex adalah digunakan untuk membuat variabel dari a isi nya sama dengan List2, lalu fungsi dari sintaks b = a adalah digunakan untuk membuat variabel a sama dengan variabel b, lalu fungsi dari sintaks b = a, lalu fungsi dari sintaks If a > -1 Then List1.RemoveItem (a) List2.RemoveItem (b) digunakan untuk jika variabel dari a lebih dari -1 maka list1 yang di inisialisasi dengan variabel a akan terhapus dan list2 yang di inisialisasi dengan variabel b akan terhapus juga sedangkan else adalah digunakan untuk masuk ke pengkondisian yang lain, lalu fungsi dari sintaks MsgBox "Pilih File", vbCritical, "Error" adalah diguanakan untuk menanmpilkan message box sedangkan “Pilih File” adalah digunakan untuk sebagai isian dari si message box lalu, vbCritical adalah digunakan untuk menampilkan ikon tanda seru merah di dalam message box sedangkan , “Error” adalah digunakan sebagai title dari si message box, lalu fungsi dari sintaks End If adalah digunakan untuk mengakhiri dari sebuah pengkondisian.

            Setelah kita selesai menuliskan sintaks pada komponen CommandButton4, lalu kita tuliskan sintaks DirListBox1 yaitu dengan cara klik dua kali komponen DirListBox1:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Fungsi dari sintaks File1.Path = Dir1.Path adalah digunakan untuk path dari FileListBox1 maka sama dengan Dir1 dari path.

Setelah kita selesai menuliskan sintaks pada komponen DirListBox1, lalu kita tuliskan sintaks DriveListBox1 yaitu dengan cara klik dua kali komponen DriveListBox1:

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Fungsi dari sintaks Dir1.Path = Drive1.Drive adalah digunakan untuk path dari DirListBox1 maka sama dengan drive dari DriveListBox1.

Setelah kita selesai menuliskan sintaks pada komponen DriveListBox1, lalu kita tuliskan sintaks FileListBox1 yaitu dengan cara klik dua kali komponen FileListBox1:

Private Sub File1_Click()

List1.AddItem File1.FileName

List2.AddItem Dir1.Path & "/" & File1.FileName

End Sub

Fungsi dari sintaks List1.AddItem File1.FileName adalah digunakan untuk menambahkan item ke dalam List1 dari FileListBox1, sedangkan fungsi dari sintaks List2.AddItem Dir1.Path & "/" & File1.FileName adalah digunakan untuk menambahkan item ke dalam List 2 dari  path DirListBox1 dan nama file dari FileListBox1 yang telah dipilih namun dengan menyisipkan back slash diantara dari path Dir1 dan nama file FileListBox1.

Setelah kita selesai menuliskan sintaks pada komponen FileListBox1, lalu kita tuliskan sintaks Listbox1 yaitu dengan cara klik dua kali komponen ListBox1:

Private Sub List1_Click()

List2.ListIndex = List1.ListIndex

WindowsMediaPlayer1.URL = List2

End Sub

Fungsi dari sintaks List2.ListIndex = List1.ListIndex adalah digunakan isi dari List2 maka sama dengan isi dari List1, sedangkan fungsi dari sintaks WindowsMediaPlayer1.URL = List2 adalah digunakan untuk menampilkan dari mana alamat file itu berada dimana isi nya sama dengan List2.

Setelah kita selesai menuliskan sintaks pada komponen ListBox1, lalu kita tuliskan sintaks RadioButton1 yaitu dengan cara klik dua kali komponen RadioButton1:

Private Sub Option1_Click()

WindowsMediaPlayer1.settings.setMode "loop", True

End Sub

Fungsi dari sintaks WindowsMediaPlayer1.settings.setMode "loop", True adalah digunakan untuk melakukan mengulang kembali ke awal jika WindowsMediaPlayer1 selesai di putar dimana nilai nya true maka jika memilih RadioButton1 maka akan terjadi mengulang kembali.

Setelah kita selesai menuliskan sintaks pada komponen RadioButton1, lalu kita tuliskan sintaks RadioButton2 yaitu dengan cara klik dua kali komponen RadioButton2:

Private Sub Option1_Click()

WindowsMediaPlayer1.settings.setMode "loop", False

End Sub

Fungsi dari sintaks WindowsMediaPlayer1.settings.setMode "loop", False adalah digunakan untuk melakukan mengulang kembali ke awal jika WindowsMediaPlayer1 selesai di putar dimana nilai nya False maka jika memilih RadioButton1 maka tidak akan terjadi mengulang kembali.

OUTPUT PROGRAM