Membuat MP3Player yang sangat Sederhana dan Penuh Warna dengan Visual Basic 6.0

Selamat Sore, Hari terakhir di tahun 2015 ini saya mau posting lagi tentang Visual Basic 6.0. Postingan kali ini saya mau mencoba berbagi tentang cara membuat MP3 Player Sederhana tapi dengan tampilan yang lumayan cantik dan berkilauan (tema tahun baru),hehehehe…

                Sebenarnya program ini berasal dari berbagai tutorial yang saya coba praktekan,lalu saya coba tambahkan dan aplikasikan di aplikasi mp3 player yang dibuat ini.daripada lama, langsung saja kita mulai, Pertama buka Visual Basic 6.0 milik anda.  

Tambahkan Component Microsoft Common Dialog Control 6.0 (SP3) dan Microsoft Multimedia Control 6.0. lalu klik OK dan component nya akan tampil.

Sekarang kita buat Desain Form nya seperti berikut.

Label yang diberi kotak adalah label dengan properties Backstyle : Transparent dan Borderstyle : None

Kenapa label yang ke 2 saya buat kosong dan transparan, karena itu dibuat untuk nanti tampilan judul lagu yang diputar bisa tampil sesuai dengan nama file lagu tersebut. Dan 2buah timer sendiri saya gunakan untuk  yang pertama agar label1 bisa berkelip-kelip, kemudian timer ke 2 saya gunakan untuk label ke 2 yaitu judul lagu bisa berjalan dari kanan ke kiri dan berkelip-kelip. Kecepatan kelip atau jalannya text bisa di atur melalui interval di masing-masing timer. Sesuaikan saja menurut selera anda.Untuk gambar background silahkan mau pake atau tidak terserah anda. Jika ingin memakai background silahkan masukan gambarnya di properties,lalu picture dan pilih gambar yang ada di computer anda. mp3 player ini juga ketika di run tidak bisa di perbesar atau di perkecil form nya.

Listing code untuk mp3 player ini adalah sebagai berikut silahkan anda copy:

Private Const GWL_STYLE = (-16)

Private Const WS_THICKFRAME = &H40000

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _

        (ByVal hwnd As Long, ByVal nIndex As Long, _

        ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _

        (ByVal hwnd As Long, ByVal nIndex As Long) 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 form_load()

Dim lStyle As Long

    lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)

    lStyle = lStyle And Not WS_THICKFRAME

    Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)

End Sub

Private Sub Form_Unload(Cancel As Integer)

MMControl1.Command = "stop"

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

    If (Label1.Left + Label1.Width) <= 0 Then

        Label1.Left = Me.Width

    End If

    Label1.Left = Label1.Left - 100

End Sub

Private Sub Timer2_Timer()

Label2.ForeColor = RGB(Rnd * 250, Rnd * 250, Rnd * 250)

End Sub

Sekian cara membuat Mp3 Player sederhana yang penuh warna,hehehe... terimakasih sudah berkunjung di blog ini. Seperti biasa saya juga akan menyertakan project dari program yang dibuat ini silahkan download disini. terima kasih.... Selamat Tahun baru 2016...