Pada artikel kali admin ingin berbagi tips dan trik yaitu bagaimana cara mengidentifikasi sebuah file mp3 dengan menggunakan kode vb6.
Form yang dibuat disini akan menampilkan sebuah informasi file mp3 suatu lagu biasanya terdapat dalam 128 byte terakhir.
Untuk mendapatkan informasi suatu lagu tersebut anda dapat menggunakan kode VB6 yang akan kita tampilkan dalam sebuah form, berikut dibawah ini adalah langkah-langkahnya:
1. Buka Form visual basic 6.0 dengan Standar EXE
2. Letakan dalam Form yang terdiri dari 5 Label, 4 Textbox, 1 Commandbuton dan 1 CommonDialogControl
3. Kemudian desainlah Form seperti gambar dibawah ini :
 |
| Desain Form |
4. Setelah mendesain form seperti gambar di atas, copypaste kode dibawah ini :
Option Explicit
Private Type TagInfo
Tag As String * 3
songname As String * 30
artist As String * 30
album As String * 30
year As String * 4
End Type
Dim FileName As String
Dim CurrentTag As TagInfo
Private Sub Command1_Click()
Dim temp As String
CommonDialog1.Filter = "MP3 Files|*.mp3"
CommonDialog1.ShowOpen
FileName = CommonDialog1.FileName
On Error Resume Next
Open FileName For Binary As #1
With CurrentTag
Get #1, FileLen(FileName) - 127, .Tag
If Not .Tag = "TAG" Then
Label5.Caption = "Informasi tidak didapat"
Close #1
Exit Sub
End If
Get #1, , .songname
Get #1, , .artist
Get #1, , .album
Get #1, , .year
Close #1
Text1.Text = RTrim(.songname)
Text2.Text = RTrim(.artist)
Text3.Text = RTrim(.album)
Text4.Text = RTrim(.year)
End With
End Sub
Private Sub Form_Load()
Label5.Caption = ""
End Sub
5. Jalankan Program Anda dan tekan "Identifikasi", kemudian Browse file Mp3 yang Anda miliki dan klik file mp3 yang akan Anda tampilkan informasinya.
 |
| output |
Demikian artikel hari ini tentang cara membuat form untuk mengidentifikasi file mp3 dengan kode vb6 , semoga artikel ini bermanfaat buat kita semua.Amin.
Selamat mencoba semoga berhasil.....
No comments:
Post a Comment