Aplikasi ini saya buat dengan software VB6, pada tahun 2001, tentunya aplikasi ini mendukung dengan fitur tekhnologi HP pada saat jaman tersebut, bagi anda yang ingin mengembangkan ataupun hanya sekedar menggunakan saja, saya menyertakan source codenya yang dapat di download secara gratis,
Component pendukung aplikasi pada VB yaitu MMControl, Dirlistbox, Filelistbox, dan CommonDialog. aplikasi ini juga bisa dipergunakan sebagai player untuk file-file suara seperti Wav, Midi, MP3.
1. Cara Menggunakan Aplikasi :
Ada 4 kolom pada tampilan halaman pada saat aplikasi dijalankan :
Kolom 1 : adalah kolom sumber filenya (Wav, Midi,MP3) kita bisa merubah drive tujuan dengan mengklik combo diatas, selanjutnya pilih Folder yang mengandung file2 suara tersebut.
Kolom 2 : adalah kolom file2 suara yang berekstensi WAV, jika folder pada kolom pertama mengandung file WAV, maka pada kolom kedua menampilkan daftar file WAV tersebut, pada saat kita klik pada salah satu file di kolom kedua otomatis file Wav tersebut akan berbunyi, jika kita klik ganda pada file tersebut akan mengirim file ke target yaitu HP pengguna.
Kolom 3 : adalah kolom file2 suara yang berekstensi Mid(Polyphonic) , jika folder pada kolom pertama mengandung file WAV, maka pada kolom kedua menampilkan daftar file Mid tersebut, pada saat kita klik pada salah satu file di kolom kedua otomatis file Mid tersebut akan berbunyi, jika kita klik ganda pada file tersebut akan mengirim file ke target yaitu HP pengguna.
Kolom 4 : adalah kolom file2 suara yang berekstensi MP3 , jika folder pada kolom pertama mengandung file WAV, maka pada kolom kedua menampilkan daftar file MP3 tersebut, pada saat kita klik pada salah satu file di kolom kedua otomatis file MP3 tersebut akan berbunyi, jika kita klik ganda pada file tersebut akan mengirim file ke target yaitu HP pengguna.
2. Source Code :
Private Sub Dir1_Change()
On Error Resume Next
File1.FileName = Dir1.Path
File2.FileName = Dir1.Path
File3.FileName = Dir1.Path
End Sub
Private Sub Dir1_GotFocus()
If NILAI = 1 Then
FVERIFIKASI.Show
Else
' Unload FVERIFIKASI
End If
End Sub
Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
On Error Resume Next
MMControl1.Command = "Close"
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
'MMControl1.DeviceType = "MIDISequencer"
MMControl1.DeviceID = "WAV"
MMControl1.FileName = Dir1.Path & "\" & Trim(File1.FileName)
MMControl1.Command = "Open"
MMControl1.Command = "Play"
Text1.Text = Dir1.Path & "\" & Trim(File1.FileName)
End Sub
Private Sub File1_DblClick()
CD1.Filter = "Wave File|*.WAV|"
CD1.DefaultExt = "*.WAV"
CD1.InitDir = Dir1.Path & "\" & Trim(File1.FileName)
CD1.FileName = File1.FileName
CD1.ShowOpen
End Sub
Private Sub File2_Click()
On Error Resume Next
MMControl1.Command = "Close"
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceID = "MID"
MMControl1.FileName = Dir1.Path & "\" & Trim(File2.FileName)
MMControl1.Command = "Open"
MMControl1.Command = "Play"
Text1.Text = Dir1.Path & "\" & Trim(File2.FileName)
End Sub
Private Sub File2_DblClick()
CD1.Filter = "Midi FIle |*.Mid|"
CD1.DefaultExt = "*.Mid"
CD1.InitDir = Dir1.Path & "\" & Trim(File2.FileName)
CD1.FileName = File2.FileName
CD1.ShowOpen
End Sub
Private Sub File3_Click()
On Error Resume Next
MMControl1.Command = "Close"
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceID = "MID"
MMControl1.FileName = Dir1.Path & "\" & Trim(File3.FileName)
MMControl1.Command = "Open"
MMControl1.Command = "Play"
Text1.Text = Dir1.Path & "\" & Trim(File3.FileName)
End Sub
Private Sub File3_DblClick()
CD1.Filter = "Mp3 Files |*.Mp3|"
CD1.DefaultExt = "*.mp3"
CD1.InitDir = Dir1.Path & "\" & Trim(File3.FileName)
CD1.FileName = File3.FileName
CD1.ShowOpen
End Sub
Private Sub Form_Load()
NILAI = 1
If NILAI = 1 Then
' FVERIFIKASI.Show
End If
' Unload FVERIFIKASI
Text4.Text = vuser
End Sub
Private Sub Timer1_Timer()
Text2 = Format(Date, "dd-mmm-yy")
Text3 = Time
End Sub
3. Download FIle Source code Aplikasi klik tautan dibawah ini :
Semoga bermanfaat,
0 komentar:
Posting Komentar