• Tips website membahas seputar membuat website dengan mudah, menarik dan banyak pengunjungnya, dengan design yang menawan, pengaturan yang sangat mudah bagi pemula tentunya.
  • Tips Photoshop bagaimana cara menggunakan photoshop bagi pemula dan mahir dalam pengeditan gambar yang kurang maksimal menjadi maksimal, dan mengetahui dengan mudah fungsi-fungsi tool dalam photoshop.
  • Tips CorelDraw berisikan cara-cara membuat design perpaduan gambar dengan drawing tool, tips bagi pemula yang menyukai coreldraw, serta membuat berbagai bentuk design undangan dengan mudah.
  • Tips Jaringan mengulas bagaimana membuat sebuah jaringan Local maupun peer to peer yang berbasis kabel maupun wifi, bagaimana security jaringan yang baik dan pengeloaan jaringan yang aman, dan masih banyak lagi yang lain
  • Tips Visual Basic disini akan dijelaskan bagaimana membuat ssebuah program yang dari sederhana ke tingkat yang mahir dan profesional, terdapat tips bagaimana cara cepat membuat program dengan mudah.

Aplikasi Ringtone ver 1.0 VB.6

Selasa, 05 Oktober 2010

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,
sumber http://tiptopku.blogspot.com/2009/11/download-aplikasi-ringtone-beserta.html

0 komentar:

Poskan Komentar

Related Posts with Thumbnails
 
Tutorial IT Gratis © 2010 | Designed by Jon_no