Aplikasi Ringtone ver 1.0 VB.6

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.

Gambar aplikasi :

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 :

http://www.4shared.com/file/150929336/6bb1bfba/SourceRingTone.html

Semoga bermanfaat,
sumber http://tiptopku.blogspot.com/2009/11/download-aplikasi-ringtone-beserta.html