Coding program winamp android yang bisa kamu copas (Gunakan sofware visual basic2008)

Aplikasi winamp adalah sebuah perangkat lunak komputer yang memiliki fungsi untuk pemutar music maupun video.

Dengan belajar ototidak, aplikasi ini saya buat dengan menggunakan sofware visual basic2008. Komponen visual basic memiliki fitur yaitu Toolbox.

Adapun komponen yang diambil dari toolbox untuk pembuatan aplikasi winamp android terdiri dari :

• > Label
• > ListBox
• > TrackBar
• > PictureBox
• > AxWindowsMediaPlayer
• > OpenFileDialog
• > Timer

Copas coding program dibawah ini :

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object,ByValeAs System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

        For Each track As String In OpenFileDialog1.FileNames

            ListBox1.Items.Add(track)

        Next

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object,ByValeAs System.EventArgs) Handles PictureBox1.Click

        AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object,ByValeAs System.EventArgs) Handles PictureBox2.Click

        OpenFileDialog1.ShowDialog()

    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByValeAs System.EventArgs) Handles PictureBox3.Click

        AxWindowsMediaPlayer1.Ctlcontrols.stop()

    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByValeAs System.EventArgs) Handles TrackBar1.Scroll

        Me.AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value

        Label2.Text = TrackBar1.Value

    End Sub

    Private Sub Timer1_Tick(ByValsenderAsSystem.Object,ByValeAs System.EventArgs) Handles Timer1.Tick

        If Label3.Text = "Maxi Music Media Players" Then

            Label3.Text = "Music Media Players Maxi"

        ElseIf Label3.Text = "Music Media Players Maxi" Then

            Label3.Text = "Media Players Maxi Music"

        ElseIf Label3.Text = "Media Players Maxi Music" Then

            Label3.Text = "Players Maxi Music Media"

        ElseIf Label3.Text = "Players Maxi Music Media" Then

            Label3.Text = "Maxi Music Media Players"

        End If

    End Sub

End Class

SELAMAT MENCOBA.....:)