SOURCE CODING MP3 PALYER by Lhourens

Tutorial Source Coding Visual Basic...

Private Sub aku_Click()
About_Me.Show
End Sub

Private Sub Apps_Click()
MsgBox "UTARI SEPTIANI UMI , Depok City © CopyLeft BSI 2012"
MsgBox "(Install Shockwave Flash Terlebih Dahulu)"
End Sub


Private Sub check_Click()
Shell "C:\Mp3 Player\Tari_Mp3\snd.bat"
End Sub

Private Sub Command1_Click()
ShockwaveFlash1.Movie = "StopPlay"
ShockwaveFlash1.Movie = App.Path & "\Shockwave Object\Photo slideshow.swf"
End Sub

Private Sub Command2_Click()
ShockwaveFlash1.Movie = "StopPlay"
ShockwaveFlash1.Movie = App.Path & "\Shockwave Object\Visual1.swf"
End Sub

Private Sub Command3_Click()
ShockwaveFlash1.Movie = "StopPlay"
ShockwaveFlash1.Movie = App.Path & "\Shockwave Object\BSI_ID.swf"
End Sub

Private Sub Form_Load()
MMControl2.BackVisible = False
MMControl2.EjectVisible = False
MMControl2.RecordVisible = False
MMControl2.StepVisible = False
MMControl2.NextVisible = False
End Sub

Private Sub MMControl2_PauseClick(Cancel As Integer)
MMControl2.Command = "StopPlay"
ShockwaveFlash1.Movie = "StopPlay"
End Sub

Private Sub MMControl2_PlayClick(Cancel As Integer)
MMControl2.Command = "Play"
ShockwaveFlash1.Movie = App.Path & "\Shockwave Object\Visual1.swf"
End Sub

Private Sub MMControl2_PrevClick(Cancel As Integer)
MMControl2.Command = "Previous"
End Sub

Private Sub MMControl2_StopClick(Cancel As Integer)
MMControl2.TabStop = True
If ShockwaveFlash1.Movie = "Play" Then
   ShockwaveFlash1.Movie = App.Path & "\Shockwave Object\Visual1.swf"
Else
ShockwaveFlash1.Movie = "Stop"
End If
End Sub

Private Sub Open_Click()
MMControl1.Command = "Close"
MMControl2.Command = "Close"
CommonDialog2.Filter = "File Audio Utari (*.MP3;*.WAV;*.MIDI;*.AMR)|*.mp3;*.wav;*.mid;*.amr"
CommonDialog2.ShowOpen
MMControl2.FileName = CommonDialog2.FileName
MMControl2.Command = "Open"
End Sub

Private Sub Quit_Click()
MMControl1.Command = "Close"
MMControl2.Command = "Close"
End
End Sub


Private Sub Video_Click()
MMControl1.Command = "Close"
MMControl2.Command = "Close"
CommonDialog1.Filter = "File Video Utari (*.AVI;*.3gp;*.MP4;*.MPEG;*.WMV;*.MPG)|*.avi;*.3GP;*.mp4;*.mpeg;*.wmv;*.mpg"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"
End Sub



Penjelasan Source Coding diatas......
1. Private Sub aku_Click()
About_Me.Show
End Sub     

Ini menjelaskan bahwa Object Aku....dengan Event Click..Atau On_Click...
Akan menampilkan Form About_Me.......
Show sebagai penampil form....pada inti form...dalam sebuah project.....program....

2. Private Sub Apps_Click()
MsgBox "UTARI SEPTIANI UMI , Depok City © CopyLeft BSI 2012"
MsgBox "(Install Shockwave Flash Terlebih Dahulu)"
End Sub


Private Sub check_Click()
Shell "C:\Mp3 Player\Tari_Mp3\snd.bat"
End Sub



Ini menjelaskan bahwa Object Apps Dan check...
Apps menampilkan sebuah perintah dasar message...atau pesan....
sedangkan check.....itu sendiri memanggil sebuah prompt shell windows....
yang berinisial (.bat) yang artinya Batch Files....
Merupakan File System didalam Windows.....

3.
Private Sub Command3_Click()
ShockwaveFlash1.Movie = "StopPlay"
ShockwaveFlash1.Movie = App.Path & "\Shockwave Object\BSI_ID.swf"
End Sub

Ini menjelaskan bahwa komponent Flash x...atau Shockwave....yang merupakan bawaan windows....atau disebut...Flash Player....(Flash.ocx)
Berjalan dengan menggunakan perintah didalam Pacth \Shockwave Object\.
 
4.
Private Sub Open_Click()
MMControl1.Command = "Close"
MMControl2.Command = "Close"
CommonDialog2.Filter = "File Audio Utari (*.MP3;*.WAV;*.MIDI;*.AMR)|*.mp3;*.wav;*.mid;*.amr"
CommonDialog2.ShowOpen
MMControl2.FileName = CommonDialog2.FileName
MMControl2.Command = "Open"
End Sub

Menjelaskan bahwa MMControl 1 dan 2.....berfungsi sebagai memutar lagu...yang berinisial...wav,mp3,amr dll
CommonDialog2 Berfungsi sebagai Pemfilter format lagu..ataupun video....
dan kemudian menampilkan dalam sebuah dialog atau Text Box....semacamnya***


Sekian Dulu Penjelasan x ...



nich Gambar Screen Shutnya.....

NB : untuk snd.bat...buat saja sendiri dengan menuliskan coding sebagai berikut :
@echo off

Start SndVol.exe

kemudian save dengan format snd.bat diPatch tempat pembuatan program......

GBU***
God Is With You and Family's