Breaking

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.....:)

Tidak ada komentar:

Posting Komentar