Jalankan MP3 tanpa OCX dengan VB 6.0
Tip kali ini adalah membuat sebuah player sederhana MP3 dengan menggunakan VB. Tidak seperti program-program lain yang menggunakan control atau komponen OCX, aplikasi ini
hanya menggunakan pemanggilan fungsi API.
Fungsi API yang penting dalam membuat aplikasi ini adalah fungsi mciSendString. Fungsi mciSendString berguna untuk mengirimkan perintah
ke device MCI. Jika sukses maka return value atau nilai yang dikembalikan adalah 0.
Langkah-langkah untuk membuat aplikasi ini adalah:
1) Buat form dengan sebuah textbox,
5 buah command button, dan sebuah check box. Command button yang pertama (command1) digunakan untuk membuka file MP3 yang hendak di-play. Command button ke-2 (command2) digunakan untuk mem-pause saat MP3 sedang dijalankan, command button ke-3 (command3) digunakan untuk menutup file MP3 yang sedang dijalankan, command button ke-4 (command4) digunakan untuk me-reset atau me-restart file MP3 yang sedang dijalankan, dan terakhir command button ke-5 (command5) digunakan un- tuk keluar dari program.
Check box digunakan untuk mengatur apakah
file MP3 yang di-play akan diulang atau tidak.
Tambahkan sebuah timer dengan nama timer1,
dan dialog box dengan nama dialogbox1.
2) Deklarasi yang digunakan adalah:
Private Declare Function mciGetErrorString _
Lib "winmm.dll" Alias "mciGetErrorStringA"
(ByVal dwError As Long, _
ByVal lpstrBuffer As String, ByVal uLength As
Long) As Long
Private Declare Function mciSendString _
Lib "winmm.dll" Alias "mciSendStringA" (ByVal
lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal
uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private mmOpen As String, sec As Integer, mins
Check box digunakan untuk mengatur apakah
file MP3 yang di-play akan diulang atau tidak.
Tambahkan sebuah timer dengan nama timer1,
dan dialog box dengan nama dialogbox1.
2) Deklarasi yang digunakan adalah:
Private Declare Function mciGetErrorString _
Lib "winmm.dll" Alias "mciGetErrorStringA"
(ByVal dwError As Long, _
ByVal lpstrBuffer As String, ByVal uLength As
Long) As Long
Private Declare Function mciSendString _
Lib "winmm.dll" Alias "mciSendStringA" (ByVal
lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal
uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private mmOpen As String, sec As Integer, mins
As Integer
Dim nFileName As String
Dim nFileName As String
bersambung...
Ohya, baca juga artikel: Nissan X-trail Mobil SUV Tangguh dan Sporty Terbaik
0 komentar:
Posting Komentar