Aplikasi Multimedia Dengan Visual Basic

Multimedia dengan Visual Basic

Windows media player dengan visual basic 6.0

Langkah-langkah :

1. Instalasi program visual basic  

2. Lalu buka Start-Progam-Microsoft Visual Studio  6.0-Microsoft Visual Basic 6.0 

3. Akan ada Tampilan utama,
pilih standard EXE untuk memulai membuat aplikasi baru, dan klik open untuk memulainya

4. Setelah pilih standart dan klik open,akan tampak tampilan form1 untuk memulai aplikasi

5. klik kanan pada toolbox pilih component

6. Pilih microsoft windows common dialog control 6.0
dan windows media player, lalu pilih apply dan ok

7. Buatlah Desain seperti ini dengan :

1 windows media player
1 common dialog
1 text box ( kosongkan )
dan 2 command button ( beri nama pilih dan keluar )

8. jika sudah klik 2x pada command pilih dan beri coddingan seperti ini
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1 = CommonDialog1.FileName
WindowsMediaPlayer1.URL = Text1.Text
End Sub

9. dan klik 2 x pada command keluar dan beri coddingan seperti ini
Private Sub Command2_Click()
End
End Sub

10. untuk membuat menu bar di setiap aplikasi yang dibuat di vb6
- klik menu editor pada toolbar vb6 

- isi bagian nama &caption sesuai yang dinginkan (seperti: file/edit/about dll), kemudian ok

- untuk memasukan codingnya, klik 2x menubar yang telah kita bikin

11. lalu jalankan program dengan F5

12. dan pilih tombol klik untuk memasukkan lagu

13. lalu pilih open dan program akan running dan windows media player berhasil di jalankan

Aplikasi Multimedia dengan Visual Basic

Setelah membuat Windows Media Player, kita dapat menambahkan command-command lainnya, seperti menambahkan perintah add to playlist,list,image,dan lainnya.

 

Coding :

Private Sub addcmd_Click()

LstSumber.AddItem cmdlg.FileName

LstJudul.AddItem cmdlg.FileTitle

End Sub

Private Sub cmdDelete_Click()

On Error GoTo R

LstSumber.RemoveItem LstSumber.ListIndex

LstJudul.RemoveItem LstJudul.ListIndex

Exit Sub

R:  MsgBox "Choose First.", vbCritical, "Not Choose File."

End Sub

Private Sub CmdExit_Click()

End

End Sub

Private Sub cmdnext_Click()

LstSumber.ListIndex = LstSumber.ListIndex + 1

LstJudul.ListIndex = LstJudul.ListIndex + 1

wmp.URL = LstSumber.Text

Label1 = "Now Playing - " & LstJudul.Text

End Sub

Private Sub cmdopen_Click()

cmdlg.ShowOpen

If cmdlg.FileName = "" Then

' nothing happened

Else

wmp.URL = cmdlg.FileName

Label1 = "Now Playing - " & cmdlg.FileTitle

End If

End Sub

Private Sub cmdprev_Click()

LstSumber.ListIndex = LstSumber.ListIndex - 1

LstJudul.ListIndex = LstJudul.ListIndex - 1

wmp.URL = LstSumber.Text

Label1 = "Now Playing - " & LstJudul.Text

End Sub

Private Sub form_load()

Me.Width = 7020

mnAdd.Visible = False

Timer2.Enabled = False

Timer3.Enabled = False

End Sub

Private Sub Timer1_Timer()

Image4.Visible = False

Image2.Visible = True

Timer2.Enabled = True

Timer1.Enabled = False

End Sub

Private Sub Timer2_Timer()

Image2.Visible = False

Image3.Visible = True

Timer3.Enabled = True

Timer2.Enabled = False

End Sub

Private Sub Timer3_Timer()

Image3.Visible = False

Image4.Visible = True

Timer1.Enabled = True

Timer3.Enabled = False

End Sub

Private Sub LstJudul_Click()

LstSumber.ListIndex = LstJudul.ListIndex

End Sub

Private Sub LstJudul_DblClick()

wmp.URL = LstSumber.Text

Label1 = "Now Playing - " & LstJudul.Text

End Sub

Private Sub mnAdd_Click()

LstSumber.AddItem cmdlg.FileName

LstJudul.AddItem cmdlg.FileTitle

End Sub

Private Sub mnExit_Click()

End

End Sub

Private Sub mnOpen_Click()

cmdlg.ShowOpen

If cmdlg.FileName = "" Then

' nothing happened

Else

wmp.URL = cmdlg.FileName

Label1 = "Now Playing - " & cmdlg.FileTitle

End If

End Sub

Object	Property	Value
Listbox 1	Name	LstJudul
Command Button 1	Name	cmdprev
	Picture	D://Picture/icon_prev
Command Button 2	Name	cmdDelete
	Caption	Remove From Playlist
Command Button 3	Name	cmdnext
	Picture	D://Picture/icon_next
Command Button 4	Name	addcmd
	Caption	Add to Playlist
Command Button 5	Name	Cmdopen
	Caption	Open File
Command Button 6	Name	CmdExit
	Caption	Exit
Timer1	Interval	1:500
Timer2	Interval	1:500
Timer3	Interval	1:500
Image1	Picture	D://Picture/Layout
Image2	Picture	D://Picture/Multimedia
Image3	Picture	D://Picture/1KA03
Image4	Picture	D://Picture/Mantap