Kamis, 12 November 2009

Download Aplikasi Ringtone beserta source code VB

Trik Aplikasi Ringtone ver 1.0  


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 :






Semoga bermanfaat, 









   

0 komentar:

Posting Komentar

Pengikut