Sabtu, 28 Januari 2012

cara membuat media player sendiri dengan visual basic 2010



pernahkan km buat media player sendiri,klo ga' pernah,ane share tutornya   walaupun di windows dah ada aplikasi windows media player,tapi sekali-kali kita coba untuk menjadi seorang pencipta bukan hanya menjadi seorang pemakai....


dah cukup basa-basinya  ,skarang langsung ke tutornya :


Alat2 di VB 2010 :


1) 1 OpenFileDialog
2) 1 MenuStrip
3) 1 Komponen Windows Media Player
=============================


1) Buka VB,pilih New Project, pilih Windows Forms Application,ganti Name terserah anda. dan klik OK. Setelah OK,akan ada sebuah Form berbentuk kotak. Form itu yg akan kita gunakan untuk membuat windows media player. setelah Form muncul,ganti judul Form terserah anda,tapi saya ganti dgn judul RieqyNS13. cara mengganti judul Form nya adalah dgn cara mengganti "Text" pada bagian Properties(pojok kanan bawah),dan isi text sesuka anda


untuk lebih jelasnya,lihat gambar dibawah :



2) Setelah anda ganti judul Form nya sesuai keinginan anda,maka kemudian lihat pada ToolBox,pada kotak sebelah kiri. dan carilah komponen "Windows Media Player",jika anda tidak menemukan komponen Windows Media Player, maka ikuti langkah2 berikut :


*Pada bagian kotak ToolBox,klik kanan dan kemudian pilih "Choose Items..."...akan ada sebuah kotak,pilih yang tab yg bertulisan "COM Components",kemudian cari dan centang komponen Windows Media Player,setelah itu klik OK
untuk lebih jelasnya,lihat gambar berikut :

3) Setelah di klik OK,maka pada kotak ToolBox sudah ada komponen Windows Media Player seperti gambar berikut ini :



4) Kemudian klik komponen Windows Media Player,dan tambahkan/taruh komponen Windows Media Player pada Form, kemudian klik 1 kali Windows Media Player yg telah kita tambahkan pada Form dan cari kotak bertulisan Dock pada bagian Properties Windows Media Player, dan kita pilih gambar kotak yg paling besar pada Dock,gunanya untuk memperbesar windows media player.
untuk lebih jelasnya,silahkan lihat gambar berikut :



5) Pada kotak ToolBox,cari dan klik komponen "MenuStrip"dan tambahkan/taruh pada Form,gunanya untuk menampilkan pilihan menu pada bagian atas seperti gambar berikut :



6) Dan pada masing2 "MenuStrip"nya,kita tambahkan nama "Open File", "Play", "Resume", "Pause", "Stop" seperti gambar berikut :


ingat : : Nama2 "MenuStrip" harus sama dengan yang telah saya tulis di atas,karena kalau berbeda,pada saat proses compilasi akan terjadi error. sebenarnya nama "menustrip" boleh berbeda-beda,tapi ini saya sudah rencanakan scripts hanya untuk nama2 MenuStrip seperti diatas


7) Setelah itu,pada kotak ToolBox kita cari dan klik komponen OpenFileDialog,dan tambahkan/taruh pada Form. Setelah ditambahkan pada Form,kemudian pada bagian "Properties OpenFileDialog"cari tabel bertulisan Filter,dan kemudian pada tabel Filter tersebut kita tulis : All Files |*.*
untuk lebih jelasnya,lihat gambar berikut



 Setelah semua selesai,sekarang saatnya proses pengcodean. Klik 2 kali Form,dan akan muncul tampilan putih dgn scripts sebagai berikut
____________________________________________________________
_________
Public Class Form1



End Class

 ___________________________________________________________
__________

Hapus semua scripts tersebut,maka tampilan akan menjadi kosong....


8) Setelah tampilan kosong,maka masukkan scripts berikut
____________________________________________________________
___________
Public Class Form1


    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenFileToolStripMenuItem.Clic
k
        OpenFileDialog1.ShowDialog()
    End Sub


    Private Sub PlayToolStripMenuItem_Click(By
Val sender As System.Object, ByVal e As System.EventArgs) Handles PlayToolStripMenuItem.Click
        AxWindowsMediaPlayer1.URL = (OpenFileDialog1.FileName)
    End Sub


    Private Sub ResumeToolStripMenuItem_Click(
ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResumeToolStripMenuItem.Click
        AxWindowsMediaPlayer1.Ctlcontr
ols.play()
    End Sub


    Private Sub PauseToolStripMenuItem_Click(B
yVal sender As System.Object, ByVal e As System.EventArgs) Handles PauseToolStripMenuItem.Click
        AxWindowsMediaPlayer1.Ctlcontr
ols.pause()
        PlayToolStripMenuItem.Visible = True
    End Sub


    Private Sub StopToolStripMenuItem_Click(By
Val sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem.Click
        AxWindowsMediaPlayer1.Ctlcontr
ols.stop()
    End Sub


    Private Sub player_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PlayToolStripMenuItem.Visible = True
    End Sub
End Class

 ___________________________________________________________
________


jika tulisan kurang jelas,lihat scripts yg udah ane tulis di sini



9) Setelah semua scripts sudah anda masukkan,lihat di tabel Error List,pada bagian bawah,jika tabel error list kosong seperti gambar di bawah,


itu berarti menandakan bahwa tidak ada kesalahan dan langsung bisa di compile/dicoba


10) Untuk mencoba hasil aplikasi anda,silahkan tekan F5 atau klik tombol panah hijau pada bagian atas....dan liha hasilnya


11) Jika anda ingin memperindah tampilan aplikasi anda,seperti menambah icon,backround,silahkan ikuti langak2 berikut ini :


a) Pada bagian "MenuStrip" bagian atas,pilih salah satu menu,kemudian klik kanan,dan pilih "Set Image..."..klik "Import",dan pilih salah satu gambar. ingat : gambar yg bisa dijadikan icon adalah gambar yg berformat *.icon....
untuk lebih jelasnya,lihat gambar berikut :



12) Menu2 yg lainnya juga beri gambar icon dgn cara seperti diatas. Jika semua "MenuStrip" sudah kita beri gambar icon,maka akan seperti gambar berikut :



13) Setelah semua menustrip sudah kita beri gambar icon,selanjutnya adalah memberi gambar pada backround menustrip agar terlihat lebih indah. caranya dgn klik 1 kali pada bagian dasar "MenuStrip",dan pilih tabel kecil bertulisan BackroundImage pada bagian Properties
untuk lebih jelasnya,silahkan lihat gambar berikut :



dan aplikasi sudah terlihat lebih indah...


14) Yang terakhir adalah memberi icon form dan icon dasar. yg ane tau icon form adalah icon yg terletak di bagian pojok kiri atas puol yg berdekatan ama judul form. cara memberi icon dgn cara mencari tabel bertulisan icon pada bagian properties form,dan kita pilih icon yg kita suka,dan ingat! gambar icon harus berformat *.icon



15) Sekarang memberi icon pada icon dasar. icon dasar setau ane kayaknya icon yg menjadi gambar dasar aplikasi tersebut sebelum aplikasi dibuka. ahh..anggep aja sbg gambar desktop
hmm...bagian ini ane kasih tutor bergambar aja ya...

16) Setelah itu,aplikasinya di coba dulu,jangan langsung disimpan. kita coba dgn cara tekan F5 atau dgn klik panah hijau di bagian atas,setelah itu baru Save All  . dan tinggal pilih foldernya yg ingin dijadikan tempat penyimpanan.



Saumpama kita save dgn nama RieqyNS13 di D:\Folder Rieqy\, trus jika kita ingin buka aplikasi yg telah kita buat tersebut, caranya dgn cari di D:\Folder Rieqy\RieqyNS13\bin\Debug\Rieq
yNS13.exe


sekian tutorial dari ane,semoga bermanfaat

1 komentar:

  1. kenapa gak pake contoh gambarnya ajah, biar lebih gampang mahaminya..

    BalasHapus