Tempat Putar Lagu Dengan Visual Basic

Setelah beberapa hari ngak posting, hari ini mulai posting lagi maklum karena admin ada kesibukan dikit di dunia nyata jadi ngak sempat untuk mikirin ide untuk posting. Berhubung ini saya lagi belajar pemograman maka dengan itu admin hari ini mau berbagi sedikit cara buat pemutar lagu dengan visual basic 6.0.

Terkadang anda bosan dengan tempat pemutar lagu yang itu-itu aja, maka anda bisa berkreatif dengan membuatnya sendiri yaitu dengan menggunakan visual basic. Berikut adalah caranya dan ini khusus bagi para newbie seperti saya ini.

• Bukalah Visual basic 6.0 dan pilihlah Standard EXE dan open.
• Di keyboar tekan Ctrl + T dan pilih Microsoft Common Dialog Control (6.0) dan Microsoft Multimedia Control (6.0)
• Selanjutnya klik Apply atau OK.
• Aturlah seperti di bawah ini.

Keterangan : 
Label 2 ( label2 : BackStyle : 0 - Transparent. Caption : terserah mau isi nama apa ) (label1 : BorderStyle : 1 - Fixed Single. Caption kosongkan)
 2 buah Command Button (Caption : Open dan Close),1 buah MMControl dan 1 buah Common Dialog.

Klik kanan di Form1  pilih View Code dan masukkan kode di bawah ini.

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
Private Sub Command1_Click()
On Error GoTo loncat
MMControl1.Command = "stop"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Label1.Caption = CommonDialog1.FileTitle
loncat:
Exit Sub
End Sub

Private Sub File1_Click()
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop"
End Sub

Private Sub Command2_Click()
End
End Sub

Sekarang sudah selesai coba di Start (dijalankan) dan openkan lagunya. selamat mencoba. dibawah ini yang saya buat.

Tempat Putar Lagu Dengan Visual Basic 2014-04-26T01:51:00-07:00 Rating: 4.5 Diposkan Oleh: tamiko