Software bantu yg saya gunakan dalam artikel ini adalah :
1. Adobe Audition
Saya mempunyai sekumpulan file mp3, anggaplah jumlahnya 200 file yg terdiri atas 150 lagu + iringan musik dan 50 musiknya saja (instrumentalia). 200 file tsb adalah lagu dan musik yg sudah saya seleksi. 200 file tsb terdiri atas genre lagu dan musik yg berbeda-beda. 200 file tsb terdiri atas group band atau penyanyi yg berbeda-beda.
Ketika saya mendengarkan kumpulan lagu dan musik tsb secara cermat ternyata saya dapatkan masalah sbb :
1. Ada beberapa file lagu/musik yg volumenya berubah secara drastis. Ilustrasinya :
Dari gambar di atas terlihat bahwa ada 2 blok kenaikan volume secara drastis di bagian akhir dari suatu lagu/musik. Hal ini bisa dianggap sebagai sebuah masalah tapi bisa juga dianggap itu bukan masalah. Dianggap masalah karena di bagian akhir lagu/musik tiba2 volumenya naik secara drastis sehingga terdengar di telinga terlalu kencang suaranya. Dianggap bukan masalah karena memang sudah dari sononya lagu/musiknya memang seperti itu.
Kemudian jika hal tsb dianggap sebagai masalah lalu bagaimana solusinya? Solusinya adalah dengan cara mengedit file mp3-nya sehingga volumenya terdengar lebih stabil atau naik turunnya tidak begitu drastis. Ilustrasinya :
2. Silence area atau wilayah hening tanpa suara dari sebuah lagu/musik di bagian kiri (awal) dan kanan (akhir) seringkali panjangnya tidak sama. Ilustrasinya :
Solusinya adalah dengan cara mengedit file mp3-nya yaitu dengan menyamakan panjang silence area di kiri maupun kanan. Misalkan kita ingin supaya jarak antar judul lagu/musik mulai berbunyi adalah setelah 10 detik maka kita atur silence area setiap judul lagu/musik adalah selama 5 detik di kiri dan 5 detik di kanan, jadi totalnya 10 detik untuk setiap judul lagu/musik. Ilustrasinya :
3. Volume kanal kiri (L) dan kanal kanan (R) kadang2 tidak sama atau terlalu jauh selisihnya. Ilustrasinya :
Solusinya adalah dengan cara mengedit file mp3-nya yaitu dengan menyamakan volume kanal kiri (L) dengan volume kanal kanan (R). Ilustrasinya :
4. Volume antar lagu/musik tidak sama atau terlalu jauh selisihnya. Jika masalah ini dibiarkan maka ketika lagu/musik tsb giliran diputar akan terjadi volume terlalu lemah atau bisa juga volume terlalu kencang dibanding lagu/musik sebelum atau sesudahnya. Solusinya adalah dengan cara
mengedit file mp3-nya yaitu dengan mengatur atau set ulang volume lagu/musik tsb ke ukuran target volume yg dikehendaki, misalnya target volume diset ke 95db. Cara ini dapat dilakukan dengan bantuan software MP3 Gain yg dapat didownload di : http://mp3gain.sourceforge.net/download.php
Langkah-langkahnya :
a. Di jendela MP3 Gain, klik [Add File (s)] untuk memasukkan satu atau sekaliguas beberapa file lagu. Kalau lagu Anda sudah rapi dalam suatu folder, klik [Add Folder] untuk menambahkan folder lagu Anda ke dalam MP3 Gain.
b. Anda bisa level volumenya pada volume standar pada 89.0 dB. Aturlah agar sesuai dengan telinga Anda.
c. Kalau Anda ingin menganalisis volume suatu lagu agar Anda bisa menentukan volume setiap lagu secara manual, klik [Track Analysis].
d. Untuk langsung mengatur volume lagu, Anda bisa mengklik [Track Gain].
e. Proses penyamarataan volume dalam proses. Setelah selesai, Anda bisa menutup program tersebut.
5. Setingan equalizer antar lagu/musik tidak sama atau terlalu jauh selisihnya. Solusinya adalah dengan cara mengedit file mp3-nya yaitu dengan mengatur atau set ulang equalizer lagu/musik tsb ke bentuk seting equalizer yg dikehendaki. Untuk itu sebaiknya kita mempunyai satu lagu/musik sebagai patokan dasar atau standar pada saat kita melakukan seting equalizer. Solusi untuk masalah ini tidak mudah karena dibutuhkan feeling, ketekunan dan ketelitian yg tinggi. Selain itu juga dibutuhkan waktu lama untuk file lagu/musik yg tergolong "sulit".
=============================================
Trik Simpel Mengacak Urutan Pemutaran Lagu Atau Musik
Saya mempunyai sekumpulan file mp3 dengan kondisi sbb :
1. Ada judul lagu yg hanya ada satu dalam daftar.
2. Ada judul lagu yg sama yg dinyanyikan oleh beberapa orang penyanyi.
3. Ada judul lagu yg sama yg dinyanyikan oleh satu orang penyanyi tetapi berbeda versi atau terdengar beda apabila didengarkan.
4. Nama file vs judul lagu adalah hampir sama.
Ilustrasinya :
Kondisi Player (Alat Pemutar Lagu Atau Musik) MP3 :
1. Di Komputer :
a. Ada fitur sort by file name.
b. Ada fitur sort by title.
c. Ada fitur random play.
2. Di Alat Player Mp3 Non Komputer :
a. Play berdasarkan waktu file ditulis ke flasdisk atau card memori. Singkatnya hanya ada fitur sort by write time.
Ketika daftar lagu tsb diputar :
1. Di Komputer :
a. sort by file name, efeknya ada (banyak) judul lagu sama yg dimainkan berulang tanpa jeda.
b. sort by title, efeknya ada (banyak) judul lagu sama yg dimainkan berulang tanpa jeda.
c. random play, kemungkinan masih ada judul lagu sama yg dimainkan berulang tanpa jeda.
2. Di Alat Player Mp3 Non Komputer :
a. sort by write time, efeknya ada (banyak) judul lagu sama yg dimainkan berulang tanpa jeda.
Yang saya inginkan adalah tidak ada judul lagu sama yg dimainkan berulang tanpa jeda. Untuk itu ada beberapa cara :
1. Di Komputer :
Kita atur secara manual atau sorting manual dengan cara menggeser posisi lagu yg judulnya sama untuk menghindari pengulangan play judul lagu tsb.
2. Di Alat Player Mp3 Non Komputer :
Kita copy paste satu persatu file mp3 sedemikian rupa sehingga tidak ada pengulangan play untuk judul lagu yg sama.
Apabila jumlah file mp3-nya sedikit tentu tidak masalah cara tsb dilakukan dan waktu yg dibutuhkan juga singkat. Tetapi hal tsb akan menjadi masalah ketika koleksi mp3 kita berjumlah ratusan bahkan ribuan. Waktu kita akan habis tersita hanya untuk proses sorting manual tsb. Belum lagi kalau ada tambahan sekelompok file mp3 baru dan kita ingin sorting ulang daftar judul lagu tsb, akan tambah merepotkan tentunya.
Lalu bagaimana solusinya? Tentu ada banyak solusi tetapi disini saya akan memperkenalkan solusi versi saya, yaitu dengan metode random play yg direkayasa. Untuk melakukan itu saya membuat program komputer sederhana memakai bahasa program yg mudah yaitu Visual Basic. Adapun potongan koding program yg saya buat tsb adalah :
Misalkan kita mempunyai 1237 file mp3. File pertama (opening) dan terakhir (closing) tidak ikut diproses. Jadi ada 1237-2 = 1235 file mp3 yg akan diproses.
Sorting ASC = urut dari A to Z.
Sorting DESC = urut dari Z to A.
Tombol Reset DB :
Koding programnya :
Private Sub CmdReset1_Click() 'HHHHHHHHHHHHHHHH'
If MsgBox("Reset DataBase , Lanjutkan?", vbYesNo + vbQuestion, "Konfirmasi") = vbNo Then Exit Sub '##[OK]##'
BtnOnOff False '##[OK]##'
'==============================================='
StrSQL = "update MasterMp3 set Flag=0" '##[OK]##'
CmdAcc.CommandText = StrSQL '##[OK]##'
CmdAcc.Execute '##[OK]##'
DoEvents '##[OK]##'
'====================='
StrSQL = "delete from FinalSort" '##[OK]##'
CmdAcc.CommandText = StrSQL '##[OK]##'
CmdAcc.Execute '##[OK]##'
DoEvents '##[OK]##'
'-----Update 0 Intro--------------'
StrSQL = "update MasterMp3 set flag=1 where NmFile='0 Intro.mp3'" '##[OK]##'
CmdAcc.CommandText = StrSQL '##[OK]##'
CmdAcc.Execute '##[OK]##'
DoEvents '##[OK]##'
'--------------'
StrSQL = "insert into FinalSort values('0 Intro.mp3','0 Intro',1,'0001')" '##[OK]##'
CmdAcc.CommandText = StrSQL '##[OK]##'
CmdAcc.Execute '##[OK]##'
DoEvents '##[OK]##'
'-----Update 0 Intro--------------'
'-----Update Z Closing------------'
StrSQL = "update MasterMp3 set flag=1 where NmFile='Z Closing.mp3'" '##[OK]##'
CmdAcc.CommandText = StrSQL '##[OK]##'
CmdAcc.Execute '##[OK]##'
DoEvents '##[OK]##'
'--------------'
StrSQL = "insert into FinalSort values('Z Closing.mp3','Z Closing',1,'9999')" '##[OK]##'
CmdAcc.CommandText = StrSQL '##[OK]##'
CmdAcc.Execute '##[OK]##'
DoEvents '##[OK]##'
'-----Update Z Closing------------'
CloseAccA '##[OK]##'
CloseAccB '##[OK]##'
CloseAccC '##[OK]##'
DoEvents '##[OK]##'
RefCount '##[OK]##'
'===================================='
MsgBox "Reset OK", vbInformation, "Konfirmasi" '##[OK]##'
'===================================='
BtnOnOff True '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Tombol Cek Master :
Koding programnya :
Private Sub CmdCekMst1_Click() 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
BtnOnOff False '##[OK]##'
'=============================='
TxtRst1.Text = "" '##[OK]##'
TxtRst2.Text = "" '##[OK]##'
DoEvents '##[OK]##'
'--------------------------'
jMod = 0 '##[OK]##'
StrSQL = "select NmFile,NmGrup,Flag from MasterMp3 order by NmFile" '##[OK]##'
CloseAccA '##[OK]##'
RecAccA.Open StrSQL '##[OK]##'
Set Grid1.DataSource = RecAccA '##[OK]##'
Grid1.Columns(0).Width = 150 '##[OK]##'
Grid1.Columns(1).Width = 100 '##[OK]##'
Grid1.Columns(2).Width = 50 '##[OK]##'
Grid1.Columns(2).Alignment = dbgCenter '##[OK]##'
TxtGrid1.Text = RecAccA.RecordCount '##[OK]##'
DoEvents '##[OK]##'
'--------------------------'
While Not RecAccA.EOF '##[OK]##'
If InStr(1, RecAccA!NmFile, RecAccA!NmGrup, 1) = 0 Then '##[OK]##'
jMod = jMod + 1 '##[OK]##'
TxtRst1.Text = TxtRst1.Text + RecAccA!NmFile + " <> " + RecAccA!NmGrup + vbCrLf '##[OK]##'
TxtRst2.Text = jMod '##[OK]##'
DoEvents '##[OK]##'
End If '##[OK]##'
'---------------'
If CekFile(RecAccA!NmFile) = False Then '##[OK]##'
jMod = jMod + 1 '##[OK]##'
TxtRst1.Text = TxtRst1.Text + RecAccA!NmFile + " tidak ketemu!" + vbCrLf '##[OK]##'
TxtRst2.Text = jMod '##[OK]##'
DoEvents '##[OK]##'
End If '##[OK]##'
'---------------'
RecAccA.MoveNext '##[OK]##'
Delay iDelay '##[OK]##'
Wend '##[OK]##'
'---------------'
MsgBox "Cek Master OK", vbInformation, "Konfirmasi" '##[OK]##'
'===================================='
BtnOnOff True '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Tombol Move >>> :
Koding programnya :
Private Sub CmdMove1_Click() 'HHHHHHHHHHHHHHHH'
BtnOnOff False '##[OK]##'
'=============================='
iMax = Val(CmbMax1.Text) '##[OK]##'
iQty = Val(CmbQty1.Text) '##[OK]##'
iLimit = 0 '##[OK]##'
bSortDesc = False '##[OK]##'
RefCount '##[OK]##'
'------------------------------'
For iDobel = 1 To 2 '##[OK]##'
Set Grid1.DataSource = Nothing '##[OK]##'
TxtGrid1.Text = "" '##[OK]##'
DoEvents '##[OK]##'
'-----------------'
If bSortDesc = False Then '##[OK]##'
StrSQL = "select NmGrup,Count(NmGrup) as Jum from MasterMp3 where Flag=0 group by NmGrup order by NmGrup asc" '##[OK]##'
Else '##[OK]##'
StrSQL = "select NmGrup,Count(NmGrup) as Jum from MasterMp3 where Flag=0 group by NmGrup order by NmGrup desc" '##[OK]##'
End If '##[OK]##'
'-----------------'
CloseAccA '##[OK]##'
RecAccA.Open StrSQL '##[OK]##'
Set Grid1.DataSource = RecAccA '##[OK]##'
Grid1.Columns(0).Width = 250 '##[OK]##'
Grid1.Columns(1).Width = 50 '##[OK]##'
Grid1.Columns(1).Alignment = dbgRight '##[OK]##'
TxtGrid1.Text = RecAccA.RecordCount '##[OK]##'
DoEvents '##[OK]##'
'------------------------------'
If RecAccA.RecordCount = 0 Then '##[OK]##'
MsgBox "Sumber copy habis(A1)!", vbCritical, "Konfirmasi" '##[OK]##'
CloseAccB '##[OK]##'
GoTo 10 '##[OK]##'
End If '##[OK]##'
'=============================='
Do '##[OK]##'
If RecAccA.EOF And RecAccD!Jum = 0 Then '##[OK]##'
MsgBox "Sumber copy habis(A2)!", vbCritical, "Konfirmasi" '##[OK]##'
CloseAccA '##[OK]##'
CloseAccB '##[OK]##'
GoTo 10 '##[OK]##'
ElseIf RecAccA.EOF And RecAccD!Jum > 0 Then '##[OK]##'
RecAccA.MoveLast '##[OK]##'
End If '##[OK]##'
'------------------------------'
If bSortDesc = False Then '##[OK]##'
StrSQL = "select top " + CStr(iQty) + " NmFile,NmGrup,Flag from MasterMp3 where flag=0 and NmGrup='" + RecAccA!NmGrup + "' order by NmFile asc" '##[OK]##'
Else '##[OK]##'
StrSQL = "select top " + CStr(iQty) + " NmFile,NmGrup,Flag from MasterMp3 where flag=0 and NmGrup='" + RecAccA!NmGrup + "' order by NmFile desc" '##[OK]##'
End If '##[OK]##'
'------------------------------'
CloseAccB '##[OK]##'
RecAccB.Open StrSQL '##[OK]##'
Set Grid2.DataSource = RecAccB '##[OK]##'
Grid2.Columns(0).Width = 150 '##[OK]##'
Grid2.Columns(1).Width = 100 '##[OK]##'
Grid2.Columns(2).Width = 50 '##[OK]##'
Grid2.Columns(2).Alignment = dbgCenter '##[OK]##'
TxtGrid2.Text = RecAccB.RecordCount '##[OK]##'
DoEvents '##[OK]##'
'------------------------------'
If RecAccB.RecordCount = 0 Then '##[OK]##'
MsgBox "Sumber copy habis(B)!", vbCritical, "Konfirmasi" '##[OK]##'
Exit Do '##[OK]##'
End If '##[OK]##'
'------------------------------'
While Not RecAccB.EOF '##[OK]##'
StrSQL = "insert into FinalSort(NmFile,NmGrup) values('" '##[OK]##'
StrSQL = StrSQL + RecAccB!NmFile + AA '##[OK]##'
StrSQL = StrSQL + RecAccB!NmGrup + DD '##[OK]##'
'---------------'
CmdAcc.CommandText = StrSQL '##[OK]##'
CmdAcc.Execute '##[OK]##'
'---------------'
RecAccB!Flag = 1 '##[OK]##'
RecAccB.Update '##[OK]##'
'-------------------------'
iLimit = iLimit + 1 '##[OK]##'
If iLimit >= iMax Then Exit Do '##[OK]##'
'-------------------------'
RecAccB.MoveNext '##[OK]##'
Delay iDelay '##[OK]##'
Wend '##[OK]##'
'-------------------------'
RefCount '##[OK]##'
RecAccA.MoveNext '##[OK]##'
Delay iDelay '##[OK]##'
Loop '##[OK]##'
'-------------------------'
iLimit = 0 '##[OK]##'
'-------------------------'
If bSortDesc = False Then '##[OK]##'
bSortDesc = True '##[OK]##'
Else '##[OK]##'
bSortDesc = False '##[OK]##'
End If '##[OK]##'
'-------------------------'
RefCount '##[OK]##'
Next '##[OK]##'
'============='
MsgBox "Move OK", vbInformation, "Konfirmasi" '##[OK]##'
'-------------------------'
Set Grid1.DataSource = Nothing '##[OK]##'
TxtGrid1.Text = "" '##[OK]##'
DoEvents '##[OK]##'
'-----------------'
StrSQL = "select NmGrup,Count(NmGrup) as Jum from MasterMp3 where Flag=0 group by NmGrup order by NmGrup asc" '##[OK]##'
'-----------------'
CloseAccA '##[OK]##'
RecAccA.Open StrSQL '##[OK]##'
Set Grid1.DataSource = RecAccA '##[OK]##'
Grid1.Columns(0).Width = 250 '##[OK]##'
Grid1.Columns(1).Width = 50 '##[OK]##'
Grid1.Columns(1).Alignment = dbgRight '##[OK]##'
TxtGrid1.Text = RecAccA.RecordCount '##[OK]##'
DoEvents '##[OK]##'
'-------------------------'
10: '##[OK]##'
RefCount '##[OK]##'
'======================'
BtnOnOff True '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Tombol Sorting :
Koding programnya :
Private Sub CmdSort1_Click() 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
BtnOnOff False '##[OK]##'
'=============================='
TxtRst1.Text = "" '##[OK]##'
'----------------------'
StrSQL = "select top 1 NoUrut from FinalSort where flag=1 and nourut<'9999' order by NoUrut desc" '##[OK]##'
CloseAccC '##[OK]##'
RecAccC.Open StrSQL '##[OK]##'
iNoUrut = Val(RecAccC!NoUrut) '##[OK]##'
'----------------------'
If Option1.Value = True Then '##[OK]##'
iMod = 0 '##[OK]##'
Else '##[OK]##'
iMod = 1 '##[OK]##'
End If '##[OK]##'
'----------------------'
jMod = 1 '##[OK]##'
Do '##[OK]##'
iMod = iMod + 1 '##[OK]##'
iNoUrut = iNoUrut + 1 '##[OK]##'
'-----------------------'
If iMod Mod 2 <> 0 Then '##[OK]##'
StrSQL = "select * from FinalSort where Flag=0 order by NmFile asc" '##[OK]##'
Else '##[OK]##'
StrSQL = "select * from FinalSort where Flag=0 order by NmFile desc " '##[OK]##'
End If '##[OK]##'
'-----------------------'
CloseAccC '##[OK]##'
RecAccC.Open StrSQL '##[OK]##'
Set Grid3.DataSource = RecAccC '##[OK]##'
Grid3.Columns(0).Width = 150 '##[OK]##'
Grid3.Columns(1).Width = 100 '##[OK]##'
Grid3.Columns(2).Width = 50 '##[OK]##'
Grid3.Columns(2).Alignment = dbgCenter '##[OK]##'
Grid3.Columns(3).Width = 70 '##[OK]##'
Grid3.Columns(3).Alignment = dbgCenter '##[OK]##'
TxtGrid3.Text = RecAccC.RecordCount '##[OK]##'
DoEvents '##[OK]##'
'-----------------------'
If RecAccC.RecordCount = 0 Then '##[OK]##'
'MsgBox "Sumber copy habis(C)!", vbCritical, "Konfirmasi" '##[OK]##'
Exit Do '##[OK]##'
End If '##[OK]##'
'-----------------------'
If jMod = 1 Then '##[OK]##'
RecAccC!Flag = 1 '##[OK]##'
RecAccC!NoUrut = Right("0000" + CStr(iNoUrut), 4) '##[OK]##'
RecAccC.Update '##[OK]##'
Else '##[OK]##'
If jMod Mod 2 <> 0 Then '##[OK]##'
While RecAccC!NmGrup = StrRefA '##[OK]##'
RecAccC.MoveNext '##[OK]##'
If RecAccC.EOF Then '##[OK]##'
StrSQL = "select NmFile from FinalSort where Flag=0 order by NmFile" '##[OK]##'
CloseAccD '##[OK]##'
RecAccD.Open StrSQL '##[OK]##'
While Not RecAccD.EOF '##[OK]##'
TxtRst1.Text = TxtRst1.Text + RecAccD!NmFile + vbCrLf '##[OK]##'
RecAccD.MoveNext '##[OK]##'
Wend '##[OK]##'
GoTo 10 '##[OK]##'
End If '##[OK]##'
Wend '##[OK]##'
Else '##[OK]##'
While RecAccC!NmGrup = StrRefZ '##[OK]##'
RecAccC.MoveNext '##[OK]##'
If RecAccC.EOF Then '##[OK]##'
StrSQL = "select NmFile from FinalSort where Flag=0 order by NmFile" '##[OK]##'
CloseAccD '##[OK]##'
RecAccD.Open StrSQL '##[OK]##'
While Not RecAccD.EOF '##[OK]##'
TxtRst1.Text = TxtRst1.Text + RecAccD!NmFile + vbCrLf '##[OK]##'
RecAccD.MoveNext '##[OK]##'
Wend '##[OK]##'
GoTo 10 '##[OK]##'
End If '##[OK]##'
Wend '##[OK]##'
End If '##[OK]##'
'---------------'
RecAccC!Flag = 1 '##[OK]##'
RecAccC!NoUrut = Right("0000" + CStr(iNoUrut), 4) '##[OK]##'
RecAccC.Update '##[OK]##'
End If '##[OK]##'
'---------------'
If jMod Mod 2 <> 0 Then '##[OK]##'
StrRefA = RecAccC!NmGrup '##[OK]##'
Else '##[OK]##'
StrRefZ = RecAccC!NmGrup '##[OK]##'
End If '##[OK]##'
'---------------'
RecAccC.MoveNext '##[OK]##'
jMod = jMod + 1 '##[OK]##'
Delay iDelay '##[OK]##'
Loop '##[OK]##'
'=========================================='
10: '##[OK]##'
If Trim(TxtRst1.Text) = "" Then '##[OK]##'
MsgBox "Sorting OK", vbInformation, "Konfirmasi" '##[OK]##'
Else '##[OK]##'
MsgBox "Sebagian sorting gagal!", vbCritical, "Konfirmasi" '##[OK]##'
End If '##[OK]##'
'-------------------------'
StrSQL = "select * from FinalSort where flag=1 order by NoUrut" '##[OK]##'
'-------------------------'
CloseAccC '##[OK]##'
RecAccC.Open StrSQL '##[OK]##'
Set Grid3.DataSource = RecAccC
Grid3.Columns(0).Width = 150 '##[OK]##'
Grid3.Columns(1).Width = 100 '##[OK]##'
Grid3.Columns(2).Width = 50 '##[OK]##'
Grid3.Columns(2).Alignment = dbgCenter '##[OK]##'
Grid3.Columns(3).Width = 70 '##[OK]##'
Grid3.Columns(3).Alignment = dbgCenter '##[OK]##'
TxtGrid3.Text = RecAccC.RecordCount '##[OK]##'
RecAccC.MoveLast '##[OK]##'
DoEvents '##[OK]##'
'===================================='
BtnOnOff True '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Tombol Cek Sorting :
Koding programnya :
Private Sub CmdCekSort1_Click() 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
BtnOnOff False '##[OK]##'
'=============================='
TxtRst1.Text = "" '##[OK]##'
TxtRst2.Text = "" '##[OK]##'
DoEvents '##[OK]##'
'--------------------------'
StrSQL = "select * from FinalSort where Flag=1 order by NoUrut" '##[OK]##'
CloseAccC '##[OK]##'
RecAccC.Open StrSQL '##[OK]##'
Set Grid3.DataSource = RecAccC '##[OK]##'
Grid3.Columns(0).Width = 150 '##[OK]##'
Grid3.Columns(1).Width = 100 '##[OK]##'
Grid3.Columns(2).Width = 50 '##[OK]##'
Grid3.Columns(2).Alignment = dbgCenter '##[OK]##'
Grid3.Columns(3).Width = 70 '##[OK]##'
Grid3.Columns(3).Alignment = dbgCenter '##[OK]##'
TxtGrid3.Text = RecAccC.RecordCount '##[OK]##'
iCount = RecAccC.RecordCount '##[OK]##'
DoEvents '##[OK]##'
'-----------'
jMod = 0 '##[OK]##'
For iMod = 1 To RecAccC.RecordCount - 1 '##[OK]##'
StrRefA = RecAccC!NmFile + "/" + RecAccC!NoUrut '##[OK]##'
RecAccC.MoveNext '##[OK]##'
StrRefZ = RecAccC!NmFile + "/" + RecAccC!NoUrut '##[OK]##'
'-----------------------'
If Left(StrRefA, 1) = Left(StrRefZ, 1) Then '##[OK]##'
If ChkFill1.Value = 1 Then '##[OK]##'
StrSQL = "select * from FinalSort where Flag=1 and NoUrut>='" + RecAccC!NoUrut + "' and NoUrut<'9999' order by NoUrut" '##[OK]##'
CloseAccD '##[OK]##'
RecAccD.Open StrSQL '##[OK]##'
While Not RecAccD.EOF '##[OK]##'
RecAccD!Flag = 0 '##[OK]##'
RecAccD.Update '##[OK]##'
RecAccD.MoveNext '##[OK]##'
Wend '##[OK]##'
Exit For '##[OK]##'
Else '##[OK]##'
jMod = jMod + 1 '##[OK]##'
TxtRst1.Text = TxtRst1.Text + StrRefA + " = " + StrRefZ + vbCrLf '##[OK]##'
TxtRst2.Text = jMod '##[OK]##'
End If '##[OK]##'
End If '##[OK]##'
Delay iDelay '##[OK]##'
Next '##[OK]##'
'============='
If iCount Mod 2 = 0 Then '##[OK]##'
Option1.Value = True '##[OK]##'
Option2.Value = False '##[OK]##'
Else '##[OK]##'
Option1.Value = False '##[OK]##'
Option2.Value = True '##[OK]##'
End If '##[OK]##'
'============='
MsgBox "Cek Sorting OK", vbInformation, "Konfirmasi" '##[OK]##'
'===================================='
BtnOnOff True '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Tombol Last Sorting :
Koding programnya :
Private Sub CmdLastSort1_Click() 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
BtnOnOff False '##[OK]##'
'=============================='
TxtRst1.Text = "" '##[OK]##'
'----------------------'
StrSQL = "select top 1 NoUrut from FinalSort where flag=1 and nourut<'9999' order by NoUrut desc" '##[OK]##'
CloseAccC '##[OK]##'
RecAccC.Open StrSQL '##[OK]##'
iNoUrut = Val(RecAccC!NoUrut) '##[OK]##'
'----------------------'
If Option1.Value = True Then '##[OK]##'
iMod = 0 '##[OK]##'
Else '##[OK]##'
iMod = 1 '##[OK]##'
End If '##[OK]##'
'----------------------'
jMod = 1 '##[OK]##'
iNoUrut = iNoUrut + 200 '##[OK]##'
'----------------------'
Do '##[OK]##'
iMod = iMod + 1 '##[OK]##'
iNoUrut = iNoUrut + 1 '##[OK]##'
'-----------------------'
If iMod Mod 2 <> 0 Then '##[OK]##'
StrSQL = "select * from FinalSort where Flag=0 order by NmFile asc" '##[OK]##'
Else '##[OK]##'
StrSQL = "select * from FinalSort where Flag=0 order by NmFile desc " '##[OK]##'
End If '##[OK]##'
'-----------------------'
CloseAccC '##[OK]##'
RecAccC.Open StrSQL '##[OK]##'
Set Grid3.DataSource = RecAccC '##[OK]##'
Grid3.Columns(0).Width = 150 '##[OK]##'
Grid3.Columns(1).Width = 100 '##[OK]##'
Grid3.Columns(2).Width = 50 '##[OK]##'
Grid3.Columns(2).Alignment = dbgCenter '##[OK]##'
Grid3.Columns(3).Width = 70 '##[OK]##'
Grid3.Columns(3).Alignment = dbgCenter '##[OK]##'
TxtGrid3.Text = RecAccC.RecordCount '##[OK]##'
DoEvents '##[OK]##'
'-----------------------'
If RecAccC.RecordCount = 0 Then '##[OK]##'
'MsgBox "Sumber copy habis(C)!", vbCritical, "Konfirmasi" '##[OK]##'
Exit Do '##[OK]##'
End If '##[OK]##'
'-----------------------'
If jMod = 1 Then '##[OK]##'
RecAccC!Flag = 1 '##[OK]##'
RecAccC!NoUrut = Right("0000" + CStr(iNoUrut), 4) '##[OK]##'
RecAccC.Update '##[OK]##'
Else '##[OK]##'
If jMod Mod 2 <> 0 Then '##[OK]##'
While RecAccC!NmGrup = StrRefA '##[OK]##'
RecAccC.MoveNext '##[OK]##'
If RecAccC.EOF Then '##[OK]##'
iNoUrut = iNoUrut + 200 '##[OK]##'
StrSQL = "select * from FinalSort where Flag=0 order by NmFile" '##[OK]##'
CloseAccD '##[OK]##'
RecAccD.Open StrSQL '##[OK]##'
While Not RecAccD.EOF '##[OK]##'
iNoUrut = iNoUrut + 1 '##[OK]##'
RecAccD!Flag = 1 '##[OK]##'
RecAccD!NoUrut = Right("0000" + CStr(iNoUrut), 4) '##[OK]##'
RecAccD.Update '##[OK]##'
RecAccD.MoveNext '##[OK]##'
Wend '##[OK]##'
Exit Do '##[OK]##'
End If '##[OK]##'
Wend '##[OK]##'
Else '##[OK]##'
While RecAccC!NmGrup = StrRefZ '##[OK]##'
RecAccC.MoveNext '##[OK]##'
If RecAccC.EOF Then '##[OK]##'
iNoUrut = iNoUrut + 200 '##[OK]##'
StrSQL = "select * from FinalSort where Flag=0 order by NmFile" '##[OK]##'
CloseAccD '##[OK]##'
RecAccD.Open StrSQL '##[OK]##'
While Not RecAccD.EOF '##[OK]##'
iNoUrut = iNoUrut + 1 '##[OK]##'
RecAccD!Flag = 1 '##[OK]##'
RecAccD!NoUrut = Right("0000" + CStr(iNoUrut), 4) '##[OK]##'
RecAccD.Update '##[OK]##'
RecAccD.MoveNext '##[OK]##'
Wend '##[OK]##'
Exit Do '##[OK]##'
End If '##[OK]##'
Wend '##[OK]##'
End If '##[OK]##'
'---------------'
RecAccC!Flag = 1 '##[OK]##'
RecAccC!NoUrut = Right("0000" + CStr(iNoUrut), 4) '##[OK]##'
RecAccC.Update '##[OK]##'
End If '##[OK]##'
'---------------'
If jMod Mod 2 <> 0 Then '##[OK]##'
StrRefA = RecAccC!NmGrup '##[OK]##'
Else '##[OK]##'
StrRefZ = RecAccC!NmGrup '##[OK]##'
End If '##[OK]##'
'---------------'
RecAccC.MoveNext '##[OK]##'
jMod = jMod + 1 '##[OK]##'
Delay iDelay '##[OK]##'
Loop '##[OK]##'
'=========================================='
MsgBox "Last Sorting OK", vbInformation, "Konfirmasi" '##[OK]##'
'===================================='
BtnOnOff True '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Tombol ReNo Urut :
Koding programnya :
Private Sub CmdReUrut1_Click() 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
BtnOnOff False '##[OK]##'
'=========================='
StrSQL = "select * from FinalSort where Flag=1 order by NoUrut" '##[OK]##'
CloseAccC '##[OK]##'
RecAccC.Open StrSQL '##[OK]##'
Set Grid3.DataSource = RecAccC '##[OK]##'
Grid3.Columns(0).Width = 150 '##[OK]##'
Grid3.Columns(1).Width = 100 '##[OK]##'
Grid3.Columns(2).Width = 50 '##[OK]##'
Grid3.Columns(2).Alignment = dbgCenter '##[OK]##'
Grid3.Columns(3).Width = 70 '##[OK]##'
Grid3.Columns(3).Alignment = dbgCenter '##[OK]##'
TxtGrid3.Text = RecAccC.RecordCount '##[OK]##'
DoEvents '##[OK]##'
'-----------------'
iNoUrut = 0 '##[OK]##'
'-----------------'
While Not RecAccC.EOF '##[OK]##'
iNoUrut = iNoUrut + 1 '##[OK]##'
RecAccC!NoUrut = Right("0000" + CStr(iNoUrut), 4) '##[OK]##'
RecAccC.Update '##[OK]##'
RecAccC.MoveNext '##[OK]##'
Delay iDelay '##[OK]##'
Wend '##[OK]##'
'==============='
StrSQL = "select * from FinalSort where Flag=0 order by NoUrut,NmFile" '##[OK]##'
CloseAccC '##[OK]##'
RecAccC.Open StrSQL '##[OK]##'
Set Grid3.DataSource = RecAccC '##[OK]##'
Grid3.Columns(0).Width = 150 '##[OK]##'
Grid3.Columns(1).Width = 100 '##[OK]##'
Grid3.Columns(2).Width = 50 '##[OK]##'
Grid3.Columns(2).Alignment = dbgCenter '##[OK]##'
Grid3.Columns(3).Width = 70 '##[OK]##'
Grid3.Columns(3).Alignment = dbgCenter '##[OK]##'
TxtGrid3.Text = RecAccC.RecordCount '##[OK]##'
DoEvents '##[OK]##'
'------------'
While Not RecAccC.EOF '##[OK]##'
iNoUrut = iNoUrut + 1 '##[OK]##'
RecAccC!NoUrut = Right("0000" + CStr(iNoUrut), 4) '##[OK]##'
RecAccC.Update '##[OK]##'
RecAccC.MoveNext '##[OK]##'
Delay iDelay '##[OK]##'
Wend '##[OK]##'
'==============='
StrSQL = "select * from FinalSort order by NoUrut" '##[OK]##'
CloseAccC '##[OK]##'
RecAccC.Open StrSQL '##[OK]##'
Set Grid3.DataSource = RecAccC '##[OK]##'
Grid3.Columns(0).Width = 150 '##[OK]##'
Grid3.Columns(1).Width = 100 '##[OK]##'
Grid3.Columns(2).Width = 50 '##[OK]##'
Grid3.Columns(2).Alignment = dbgCenter '##[OK]##'
Grid3.Columns(3).Width = 70 '##[OK]##'
Grid3.Columns(3).Alignment = dbgCenter '##[OK]##'
TxtGrid3.Text = RecAccC.RecordCount '##[OK]##'
RecAccC.MoveLast '##[OK]##'
DoEvents '##[OK]##'
'==============='
MsgBox "Re-NoUrut OK", vbInformation, "Konfirmasi" '##[OK]##'
'===================================='
BtnOnOff True '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Tombol Proses (Last Numbering) :
Koding programnya :
Private Sub CmdPros1_Click() 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
If MsgBox("Last Numbering , Lanjutkan?", vbYesNo + vbQuestion, "Konfirmasi") = vbNo Then Exit Sub '##[OK]##'
BtnOnOff False '##[OK]##'
'=============================='
sStart = Right("0000" + TxtStartNo1.Text, 4) '##[OK]##'
iCount = Val(TxtCount1.Text) '##[OK]##'
iStep = Val(TxtStep1.Text) '##[OK]##'
iNoLast = 0 '##[OK]##'
'----------------------------------------'
StrSQL = "select * from FinalSort where Flag=1 order by NoUrut" '##[OK]##'
CloseAccC '##[OK]##'
RecAccC.Open StrSQL '##[OK]##'
Set Grid3.DataSource = RecAccC '##[OK]##'
Grid3.Columns(0).Width = 150 '##[OK]##'
Grid3.Columns(1).Width = 100 '##[OK]##'
Grid3.Columns(2).Width = 50 '##[OK]##'
Grid3.Columns(2).Alignment = dbgCenter '##[OK]##'
Grid3.Columns(3).Width = 70 '##[OK]##'
Grid3.Columns(3).Alignment = dbgCenter '##[OK]##'
TxtGrid3.Text = RecAccC.RecordCount '##[OK]##'
DoEvents '##[OK]##'
'-----------'
RecAccC.Find "NoUrut=" + sStart '##[OK]##'
'--------------------------'
For I = 1 To iCount '##[OK]##'
iNoLast = iNoLast + iStep '##[OK]##'
RecAccC!NoUrut = Right("0000" + CStr(iNoLast), 4) '##[OK]##'
RecAccC.Update '##[OK]##'
'--------------------------'
RecAccC.MoveNext
Delay iDelay '##[OK]##'
Next '##[OK]##'
'--------------------------'
MsgBox "Last Numbering OK", vbInformation, "Konfirmasi" '##[OK]##'
'===================================='
BtnOnOff True '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Tombol Refresh (Statistik) :
Koding programnya :
Private Sub CmdRef1_Click() 'HHHHHHHHHHHHHHHH'
RefCount '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHH'
Tombol Exit :
Koding programnya :
Private Sub CmdExit1_Click() 'HHHHHHHHHHHHHHHH'
End '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHH'
Prosedur Lainnya :
General Declaration :
Option Explicit '##[OK]##'
Sub AddCmbMax() 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
For iMod = 20 To 40 '##[OK]##'
CmbMax1.AddItem iMod '##[OK]##'
Next '##[OK]##'
CmbMax1.ListIndex = 10 '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Sub AddCmbQty() 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
CmbQty1.AddItem 2 '##[OK]##'
CmbQty1.AddItem 3 '##[OK]##'
CmbQty1.AddItem 4 '##[OK]##'
CmbQty1.ListIndex = 0 '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Sub BtnOnOff(bEnable As Boolean) 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
CmdReset1.Enabled = bEnable '##[OK]##'
CmdCekMst1.Enabled = bEnable '##[OK]##'
'-----------------------------------'
CmbMax1.Enabled = bEnable '##[OK]##'
CmbQty1.Enabled = bEnable '##[OK]##'
CmdMove1.Enabled = bEnable '##[OK]##'
FSort1.Enabled = bEnable '##[OK]##'
CmdSort1.Enabled = bEnable '##[OK]##'
ChkFill1.Enabled = bEnable '##[OK]##'
CmdCekSort1.Enabled = bEnable '##[OK]##'
'-----------------------------------'
CmdLastSort1.Enabled = bEnable '##[OK]##'
CmdReUrut1.Enabled = bEnable '##[OK]##'
'================='
CmdPros1.Enabled = bEnable '##[OK]##'
'================='
DoEvents '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Function CekFile(sfNmFile As String) As Boolean '#########'
CekFile = Fso.FileExists(Path$ + sfNmFile) '##[OK]##'
End Function '###########################################'
Sub Delay(ifDelay As Long) 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
For vDelay = 1 To ifDelay '##[OK]##'
DoEvents '##[OK]##'
Next '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Sub RefCount() 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
'-----Set Value to 0---------------------'
TxtAllSong1.Text = "0" '##[OK]##'
TxtDisAllSong1.Text = "0" '##[OK]##'
TxtDisAllSinger1.Text = "0" '##[OK]##'
TxtDisSongAllSong1.Text = "0" '##[OK]##'
TxtDisSingerAllSong1.Text = "0" '##[OK]##'
TxtDisSingerDisSong1.Text = "0" '##[OK]##'
'----------------------------------------'
TxtFin1.Text = "0" '##[OK]##'
TxtMst1.Text = "0" '##[OK]##'
'---------------------------'
DoEvents '##[OK]##'
'======================================='
'======================================='
'======================================='
'---------Count All Song---------------'
StrSQL = "select count(NmFile) as Jum from MasterMp3" '##[OK]##'
CloseAccD '##[OK]##'
RecAccD.Open StrSQL '##[OK]##'
TxtAllSong1.Text = RecAccD!Jum '##[OK]##'
'---------Count All Song---------------'
'---------Distinct All Song------------'
StrSQL = "select distinct NmGrup from MasterMp3 order by NmGrup asc" '##[OK]##'
CloseAccD '##[OK]##'
RecAccD.Open StrSQL '##[OK]##'
TxtDisAllSong1.Text = RecAccD.RecordCount '##[OK]##'
'---------Distinct All Song------------'
'---------Distinct All Singer----------'
StrSQL = "select distinct NmArtis from MasterMp3 order by NmArtis asc" '##[OK]##'
CloseAccD '##[OK]##'
RecAccD.Open StrSQL '##[OK]##'
TxtDisAllSinger1.Text = RecAccD.RecordCount '##[OK]##'
'---------Distinct All Singer----------'
'---------Dis Song/All Song------------'
TxtDisSongAllSong1.Text = Format(Val(TxtDisAllSong1.Text) / Val(TxtAllSong1.Text) * 100, "#0.#0") '##[OK]##'
'---------Dis Song/All Song------------'
'---------Dis Singer/All Song----------'
TxtDisSingerAllSong1.Text = Format(Val(TxtDisAllSinger1.Text) / Val(TxtAllSong1.Text) * 100, "#0.#0") '##[OK]##'
'---------Dis Singer/All Song----------'
'---------Dis Singer/Dis Song----------'
TxtDisSingerDisSong1.Text = Format(Val(TxtDisAllSinger1.Text) / Val(TxtDisAllSong1.Text) * 100, "#0.#0") '##[OK]##'
'---------Dis Singer/Dis Song----------'
'======================================='
'---------Count FinalSort--------------'
StrSQL = "select count(NmFile) as Jum from FinalSort" '##[OK]##'
CloseAccD '##[OK]##'
RecAccD.Open StrSQL '##[OK]##'
TxtFin1.Text = RecAccD!Jum '##[OK]##'
'---------Count FinalSort--------------'
'---------Count MasterMp3 where Flag=0--------'
StrSQL = "select count(NmFile) as Jum from MasterMp3 where Flag=0" '##[OK]##'
CloseAccD '##[OK]##'
RecAccD.Open StrSQL '##[OK]##'
TxtMst1.Text = RecAccD!Jum '##[OK]##'
'---------Count MasterMp3 where Flag=0--------'
DoEvents '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Private Sub Form_Load() 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
RefConAcc '##[OK]##'
AddCmbMax '##[OK]##'
AddCmbQty '##[OK]##'
RefCount '##[OK]##'
'================='
TxtStartNo1.Text = 0 '##[OK]##'
TxtCount1.Text = 0 '##[OK]##'
TxtStep1.Text = 0 '##[OK]##'
'================='
iDelay = 2400 '##[OK]##'
End Sub 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH'
Modul Main :
Option Explicit '##[OK]##'
'-------------------------------------------------------------------'##[OK]##'
Public ConAcc As New ADODB.Connection 'ADODB Koneksi->Ms Access'
Public CmdAcc As New ADODB.Command 'ADODB Perintah->Ms Access'
Public RecAccA As New ADODB.Recordset 'ADODB Recordset->Ms Access'
Public RecAccB As New ADODB.Recordset 'ADODB Recordset->Ms Access'
Public RecAccC As New ADODB.Recordset 'ADODB Recordset->Ms Access'
Public RecAccD As New ADODB.Recordset 'ADODB Recordset->Ms Access'
'===================================='
Public iDelay As Long '##[OK]##'
Public vDelay As Long '##[OK]##'
Public iMod As Integer '##[OK]##'
Public StrSQL As String '##[OK]##'
Public AA As String '##[OK]##'
Public DD As String '##[OK]##'
Public jMod As Integer '##[OK]##'
Public Path$ '##[OK]##'
Public Fso As New FileSystemObject '##[OK]##'
Public iMax As Integer '##[OK]##'
Public iQty As Integer '##[OK]##'
Public iLimit As Integer '##[OK]##'
Public bSortDesc As Boolean '##[OK]##'
Public iDobel As Integer '##[OK]##'
Public iNoUrut As Integer '##[OK]##'
Public StrRefA As String '##[OK]##'
Public StrRefZ As String '##[OK]##'
Public iCount As Integer '##[OK]##'
Public iPesan As Integer '##[OK]##'
Public sStart As String '##[OK]##'
Public iStep As Integer '##[OK]##'
Public iNoLast As Integer '##[OK]##'
Public I As Integer '##[OK]##'
'===================================='
Public AA As String '##[OK]##'
Public DD As String '##[OK]##'
'===================================='
Sub CloseAccA() '#####################################'
If RecAccA.State = 1 Then RecAccA.Close '##[OK]##'
End Sub '############################################'
Sub CloseAccB() '#####################################'
If RecAccB.State = 1 Then RecAccB.Close '##[OK]##'
End Sub '############################################'
Sub CloseAccC() '#####################################'
If RecAccC.State = 1 Then RecAccC.Close '##[OK]##'
End Sub '############################################'
Sub CloseAccD() '#####################################'
If RecAccD.State = 1 Then RecAccD.Close '##[OK]##'
End Sub '############################################'
Sub RefConAcc() '####################################'
If ConAcc.State = 1 Then ConAcc.Close '##[OK]##'
'InitDbAcc "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Path$ + "DbAcak.mdb" '##[OK]##'
InitDbAcc "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\#CopyPasteManagement\DbAcak.mdb" '##[OK]##'
End Sub '############################################################################################'
Sub InitDbAcc(sfCon As String) '#################'
'set koneksi Access---------------------'##[OK]##'
ConAcc.ConnectionString = sfCon '##[OK]##'
ConAcc.Open '##[OK]##'
'set command Access---------------------'##[OK]##'
CmdAcc.CommandTimeout = 5000 '##[OK]##'
CmdAcc.CommandType = adCmdText '##[OK]##'
CmdAcc.ActiveConnection = ConAcc '##[OK]##'
'set recordset Access-------------------'##[OK]##'
RecAccA.CursorType = adOpenDynamic '##[OK]##'
RecAccA.CursorLocation = adUseClient '##[OK]##'
RecAccA.LockType = adLockOptimistic '##[OK]##'
RecAccA.ActiveConnection = ConAcc '##[OK]##'
'set recordset Access-------------------'##[OK]##'
RecAccB.CursorType = adOpenDynamic '##[OK]##'
RecAccB.CursorLocation = adUseClient '##[OK]##'
RecAccB.LockType = adLockOptimistic '##[OK]##'
RecAccB.ActiveConnection = ConAcc '##[OK]##'
'set recordset Access-------------------'##[OK]##'
RecAccC.CursorType = adOpenDynamic '##[OK]##'
RecAccC.CursorLocation = adUseClient '##[OK]##'
RecAccC.LockType = adLockOptimistic '##[OK]##'
RecAccC.ActiveConnection = ConAcc '##[OK]##'
'set recordset Access-------------------'##[OK]##'
RecAccD.CursorType = adOpenDynamic '##[OK]##'
RecAccD.CursorLocation = adUseClient '##[OK]##'
RecAccD.LockType = adLockOptimistic '##[OK]##'
RecAccD.ActiveConnection = ConAcc '##[OK]##'
End Sub '########################################'
Sub SetVar() '#######################'
AA = "','" '##[OK]##'
DD = "')" '##[OK]##'
' Path$ = App.Path + "\" '##[OK]##'
Path$ = "D:\#00_Final_Edit_MP3_Gain_Fix_94dB\"
' BB = "'," '##[OK]##'
' CC = ",'" '##[OK]##'
' EE = "'" '##[OK]##'
' FF = "," '##[OK]##'
' Enter = vbCrLf '##[OK]##'
End Sub '############################'
Sub Main() '#####################'
SetVar '##[OK]##'
FMain.Show '##[OK]##'
End Sub '#####################'
Desain Visual Program :
Desain Database (MS-Access) :
DbAcak.mdb
Tabel MasterMp3 :
NmFile Text[100], Primary Key
NmGrup(judul_lagu) Text[100]
NmArtis Text[50]
Flag Number
Tabel FinalSort :
NmFile Text[100], Primary Key
NmGrup(judul_lagu) Text[100]
Flag Number
NoUrut Text[4]
Hasil Sorting Setelah Melalui Proses Program :
Dari potongan gambar diatas terlihat jelas lagu yg judulnya sama akan diulang 2x tapi ada jeda 3 judul lagu dalam pengulangan tsb, contoh : lagu no 0005-Youre Still The One3.mp3 akan diulang pada lagu no 0009-Youre Still The One2.mp3 dengan jeda 3 judul lagu yg lain.
Penjualan
Kompilasi Mp3 koleksi saya yg sudah melalui proses tsb diatas saya jual di TokoPedia : https://www.tokopedia.com/soundbosteraltve/kompilasi-musik-lagu-campuran-mp3-tertata-terformat
=============================================
Kata Kunci :
cara menyamakan volume mp3
cara menyamakan volume lagu mp3
cara menyamakan volume musik mp3
cara meratakan volume mp3
cara meratakan volume lagu mp3
cara meratakan volume musik mp3
cara menyeragamkan volume mp3
cara menyeragamkan volume lagu mp3
cara menyeragamkan volume musik mp3
cara sorting lagu mp3
cara sorting musik mp3
cara sorting acak lagu mp3
cara sorting acak musik mp3
cara sorting random lagu mp3
cara sorting random musik mp3
=========================
Daftar Musik Lagu Mp3 Update 26-Apr-2022 :
0001-0 Intro.mp3
0002-A Groovy Kind Of Love (Piano).mp3
0003-Youre The Inspiration.mp3
0004-A Summer Place Theme (Instrument).mp3
0005-Youre Still The One3.mp3
0006-A Groovy Kind Of Love.mp3
0007-Youre The Inspiration (Piano).mp3
0008-A Thousand Years (Piano).mp3
0009-Youre Still The One2.mp3
0010-A Time For Us (Biola).mp3
0011-Youre My Everything.mp3
0012-A View To A Kill (Medley).mp3
0013-Your Song.mp3
0014-A Time For Us (Guitar).mp3
0015-Kudu Misuh1.mp3
0016-Youll See.mp3
0017-A View To A Kill1 (Instrument1).mp3
0018-Your Song (Instrument).mp3
0019-A Whiter Shade Of Pale (Mendem).mp3
0020-You Raise Me Up4.mp3
0021-A Whole New World1.mp3
0022-You Needed Me2.mp3
0023-A Whiter Shade Of Pale01 (Instrument01).mp3
0024-You Raise Me Up3.mp3
0025-A Whole New World2.mp3
0026-You Needed Me1.mp3
0027-Aces High.mp3
0028-You Are The Best Think In My Life.mp3
0029-Ada Rindu Untukmu.mp3
0030-You And I (Guitar).mp3
0031-Ada Rindu.mp3
0032-Kala Cinta Menggoda4.mp3
0033-Yogyakarta.mp3
0034-Afraid To Shoot Strangers (Guitar).mp3
0035-Yesus Saja Kawanku Musafir (Instrument).mp3
0036-Against All Odds1.mp3
0037-Yesus Kau Nahkodaku (Instrument).mp3
0038-Afraid To Shoot Strangers (Instrument).mp3
0039-Yesus Engkau Baik (Piano).mp3
0040-Against All Odds2.mp3
0041-Yesterday5.mp3
0042-Air Dan Api.mp3
0043-Yes You Do.mp3
0044-Air Mata Api.mp3
0045-Yesterday4.mp3
0046-Ajaib Kau Tuhan (Piano).mp3
0047-Ku Tetap Pegang Salib Yesus (Instrument).mp3
0048-Yang Tersendiri2.mp3
0049-Ajaib Tuhan.mp3
0050-Yang Terlupakan3.mp3
0051-Aku Antarkan.mp3
0052-Yang Tersendiri1.mp3
0053-Aku Begini Engkau Begitu1.mp3
0054-Yang Terlupakan2.mp3
0055-Aku Cinta Dia (Guitar).mp3
0056-Yang Pertama Kali.mp3
0057-Aku Begini Engkau Begitu2.mp3
0058-Ya Yesus Kuberjanji (Instrument).mp3
0059-Aku Cinta Dia.mp3
0060-Ya Tuhan Tiap Jam.mp3
0061-Aku Cinta Indonesia.mp3
0062-Ya Tuhan Bimbing Aku3 (Instrument3).mp3
0063-Aku Dan Bintang.mp3
0064-Kala Sang Surya Tenggelam (Instrument).mp3
0065-Ya Atau Tidak.mp3
0066-Aku Ingin Pulang.mp3
0067-Ya Tuhan Bimbing Aku2 (Instrument2).mp3
0068-A Time For Us.mp3
0069-Youre Still The One1.mp3
0070-A View To A Kill1.mp3
0071-You Raise Me Up2.mp3
0072-A Time For Us1 (Instrument1).mp3
0073-Youre Still The One (Instrument).mp3
0074-A View To A Kill2 (Instrument2).mp3
0075-You Raise Me Up1.mp3
0076-A Whiter Shade Of Pale01.mp3
0077-Yesterday3.mp3
0078-Against All Odds3.mp3
0079-Ku Tak Dapat Jalan Sendiri (Instrument).mp3
0080-Yang Terlupakan1.mp3
0081-A Whiter Shade Of Pale02 (Instrument02).mp3
0082-Yesterday2.mp3
0083-Aku Jatuh Cinta (Instrument).mp3
0084-Ya Tuhan Bimbing Aku1 (Instrument1).mp3
0085-Aku Mau (Guitar).mp3
0086-Wonten Darah Suci Mancur2 (Instrument2).mp3
0087-Aku Jatuh Cinta.mp3
0088-Wonderful Tonight5.mp3
0089-Aku Mengasihi Engkau Yesus (Piano).mp3
0090-Wonten Darah Suci Mancur1 (Instrument1).mp3
0091-Aline1 (Instrument1).mp3
0092-Wonderful Tonight4.mp3
0093-Aku Mengasihi Engkau Yesus.mp3
0094-Woman.mp3
0095-Aline1.mp3
0096-Kala Cinta Menggoda5.mp3
0097-Woman In Love2 (Instrument2).mp3
0098-All By My Self.mp3
0099-Wo Ai Ni.mp3
0100-All I Am1.mp3
0101-Woman In Love1 (Instrument1).mp3
0102-All I Have To Do Is Dream (Instrument).mp3
0103-Without You3.mp3
0104-All I Am2.mp3
0105-Wild World.mp3
0106-All I Have To Do Is Dream1.mp3
0107-Without You3 (Instrument3).mp3
0108-Allah Peduli (Instrument).mp3
0109-Why Do You Love Me.mp3
0110-Alone1.mp3
0111-Ku Nyanyi Haleluya.mp3
0112-Whiskey And Soda (Instrument).mp3
0113-Allah Peduli.mp3
0114-Where You Going Now.mp3
0115-Alone2.mp3
0116-Where Are You Now.mp3
0117-Always (Instrument).mp3
0118-When Youre Gone.mp3
0119-Amazing Grace.mp3
0120-When You Tell Me That You Love Me3.mp3
0121-Always1.mp3
0122-When The Children Cry.mp3
0123-Amelia (Guitar).mp3
0124-When You Tell Me That You Love Me2.mp3
0125-Anak Sekolah.mp3
0126-When I Need You2.mp3
0127-Andai Aku Bisa1.mp3
0128-Kala Sang Surya Tenggelam.mp3
0129-When A Man Loves A Woman.mp3
0130-Andaikan Kau Datang1.mp3
0131-When I Need You1.mp3
0132-Andai Aku Bisa2.mp3
0133-When A Man Loves A Woman (Instrument).mp3
0134-A Time For Us2 (Instrument2).mp3
0135-Yesterday1.mp3
0136-A View To A Kill2.mp3
0137-Wonderful Tonight3.mp3
0138-A Time For Us3 (Instrument3).mp3
0139-Yesterday (Piano).mp3
0140-A View To A Kill3.mp3
0141-Wonderful Tonight3 (Instrument3).mp3
0142-A Whiter Shade Of Pale02.mp3
0143-Ku Menanti Seorang Kekasih2.mp3
0144-Woman In Love.mp3
0145-Aline2 (Instrument2).mp3
0146-Without You2.mp3
0147-A Whiter Shade Of Pale03 (Instrument03).mp3
0148-When You Tell Me That You Love Me1.mp3
0149-Aline2.mp3
0150-Without You2 (Instrument2).mp3
0151-All I Have To Do Is Dream2.mp3
0152-When I Need You (Instrument).mp3
0153-Alone3.mp3
0154-When A Blind Man Cries2.mp3
0155-Always2.mp3
0156-Whats Up2 (Instrument2).mp3
0157-Andaikan Kau Datang2.mp3
0158-When A Blind Man Cries1.mp3
0159-Always3.mp3
0160-Kala Cinta Menggoda6.mp3
0161-Whats Up1 (Instrument1).mp3
0162-Andaikan Kau Datang3.mp3
0163-What A Wonderful World3.mp3
0164-Angie1.mp3
0165-Welcome To My Paradise (Instrument).mp3
0166-Angin Laut.mp3
0167-What A Wonderful World2.mp3
0168-Angie2.mp3
0169-We Are The World2.mp3
0170-Angin Malam1.mp3
0171-We Are The Champions (Guitar).mp3
0172-Annies Song.mp3
0173-We Are The World1.mp3
0174-Angin Malam2.mp3
0175-Ku Mau Cinta Yesus (Piano).mp3
0176-Wasting Love2.mp3
0177-Another Day In Paradise.mp3
0178-Wasted Years4.mp3
0179-Antara Aku Kau Dan Bekas Pacarmu.mp3
0180-Wasting Love1.mp3
0181-Antara Hitam Dan Putih (Instrument).mp3
0182-Wasted Years3.mp3
0183-Anugerah Terindah.mp3
0184-Walau Ku Tak Dapat Melihat.mp3
0185-Anything Thats Part Of You.mp3
0186-Viva Forever.mp3
0187-Apa Salah Dan Dosaku (Instrument).mp3
0188-Visions.mp3
0189-Apakah Ada Bedanya.mp3
0190-Viva Forever (Guitar).mp3
0191-Apapun Juga Menimpamu (Instrument).mp3
0192-Kalian Dengarkan Keluhanku.mp3
0193-Untukmu Kekasih.mp3
0194-Apel.mp3
0195-Untukku2.mp3
0196-Asmaning Gusti Kula.mp3
0197-Untuk Sebuah Nama.mp3
0198-Astaga (Guitar).mp3
0199-Untukku1.mp3
0200-A Whiter Shade Of Pale03.mp3
0201-Yesterday (Instrument).mp3
0202-Aline3 (Instrument3).mp3
0203-Wonderful Tonight2.mp3
0204-A Whiter Shade Of Pale04 (Instrument04).mp3
0205-Without You1.mp3
0206-Aline3.mp3
0207-Ku Menanti Seorang Kekasih1.mp3
0208-Wonderful Tonight2 (Instrument2).mp3
0209-Angin Malam3.mp3
0210-Without You1 (Instrument1).mp3
0211-Astaga (Instrument).mp3
0212-Whats Up.mp3
0213-Angin Malam4.mp3
0214-What A Wonderful World1.mp3
0215-Aubrey (Guitar).mp3
0216-Wasting Love (Guitar).mp3
0217-Auld Lang Syne (Instrument).mp3
0218-What A Wonderful World (Instrument).mp3
0219-Aubrey1.mp3
0220-Wasted Years2.mp3
0221-Ayah.mp3
0222-Untuk Kita Renungkan2.mp3
0223-Ayam Den Lapeh (Instrument).mp3
0224-Kalung Emas (Guitar).mp3
0225-Wasted Years1.mp3
0226-Ayem Wonten Ing Gusti.mp3
0227-Untuk Kita Renungkan1.mp3
0228-Ayam Den Lapeh1 (Guitar1).mp3
0229-Unknown Title2 (Guitar2).mp3
0230-Babe1.mp3
0231-Unchained Melody2.mp3
0232-Baby I Love Your Way1.mp3
0233-Unknown Title1 (Guitar1).mp3
0234-Babe2.mp3
0235-Unchained Melody2 (Instrument2).mp3
0236-Baby I Love Your Way2.mp3
0237-Unbreak My Heart.mp3
0238-Bagaikan Bejana (Piano).mp3
0239-Ku Heran Allah Mau Memberi.mp3
0240-Ujung Aspal Pondok Gede.mp3
0241-Bagi Yesus Kuserahkan (Instrument).mp3
0242-Unbreak My Heart (Instrument).mp3
0243-Bagaikan Bejana.mp3
0244-Tuntun Aku Tuhan Allah (Instrument).mp3
0245-Bahasa Cinta (Instrument).mp3
0246-Tul Jaenak.mp3
0247-Bahasa Kalbu.mp3
0248-Tuhanku Yesus (Instrument).mp3
0249-Bahasa Cinta (Piano).mp3
0250-Tuhanku Bila Hati Kawanku2.mp3
0251-Ballade Pour Adeline1 (Instrument1).mp3
0252-Tuhan Sumber Gembiraku.mp3
0253-Banyu Langit1.mp3
0254-Tuhanku Bila Hati Kawanku1.mp3
0255-Ballade Pour Adeline2 (Instrument2).mp3
0256-Kangen.mp3
0257-Tuhan Pimpin AnakMu (Instrument).mp3
0258-Banyu Langit2.mp3
0259-Tuhan Menetapkan Langkah Orang.mp3
0260-Bapa Engkau Sungguh Baik.mp3
0261-Tuhan Kau Gembala Kami (Instrument).mp3
0262-Bapa Surgawi (Piano).mp3
0263-Tuhan Allah Hadir (Instrument).mp3
0264-Barcelona.mp3
0265-Tuhan Allah Beserta Engkau2 (Instrument2).mp3
0266-A Whiter Shade Of Pale04.mp3
0267-Wonderful Tonight2 (Guitar2).mp3
0268-Aubrey2.mp3
0269-What A Wonderful World (Guitar).mp3
0270-A Whiter Shade Of Pale05 (Instrument05).mp3
0271-Ku Gadaikan Cintaku.mp3
0272-Wonderful Tonight1.mp3
0273-Aubrey3.mp3
0274-Wasted Years (Guitar).mp3
0275-Ayam Den Lapeh2 (Guitar2).mp3
0276-Untuk Kita Renungkan (Instrument).mp3
0277-Bahasa Cinta.mp3
0278-Unchained Melody1.mp3
0279-Ballade Pour Adeline3 (Instrument3).mp3
0280-Unbreak My Heart (Guitar).mp3
0281-Beat It (Instrument).mp3
0282-Unchained Melody1 (Instrument1).mp3
0283-Ballade Pour Adeline4 (Instrument4).mp3
0284-Tuhan Allah Beserta Engkau1 (Instrument1).mp3
0285-Beautiful Girl.mp3
0286-Tuhan Adalah Gembalaku.mp3
0287-Beauty And The Beast1.mp3
0288-Kasih Dari Surga.mp3
0289-True Love.mp3
0290-Becak (Guitar).mp3
0291-Tragedi Buah Apel.mp3
0292-Beauty And The Beast2.mp3
0293-Toy Soldiers.mp3
0294-Begitu Indah.mp3
0295-Torn2.mp3
0296-Believe.mp3
0297-Top Of The World.mp3
0298-Belum Ada Judul.mp3
0299-Torn1.mp3
0300-Benci Untuk Mencinta1.mp3
0301-Tonight I Celebrate My Love.mp3
0302-Bengong Jeumpa (Guitar).mp3
0303-Ku Daki Jalan Mulia (Instrument).mp3
0304-To Tame A Land.mp3
0305-Benci Untuk Mencinta2.mp3
0306-To Love Somebody.mp3
0307-Bento.mp3
0308-Titip Rindu Buat Ayah2.mp3
0309-Berdoa Dan Bekerja (Instrument).mp3
0310-Tikus Tikus Kantor.mp3
0311-Berita Kepada Kawan (Instrument).mp3
0312-Titip Rindu Buat Ayah1.mp3
0313-Berita TVRI Opening (Instrument).mp3
0314-Tiap Langkahku Diatur Oleh Tuhan.mp3
0315-Berita Kepada Kawan1.mp3
0316-Tiada Lagi (Instrument).mp3
0317-Berkacalah Jakarta.mp3
0318-The Young And The Restless3 (Instrument3).mp3
0319-Bersama Bintang.mp3
0320-Kasih Ibu (Guitar).mp3
0321-The Wonderful Season Of Love3 (Instrument3).mp3
0322-Berserah Kepada Yesus (Instrument).mp3
0323-The Young And The Restless2.mp3
0324-Bersyukur Selalu (Piano).mp3
0325-The Wonderful Season Of Love2.mp3
0326-Berserah Kepada Yesus.mp3
0327-The Way We Were3.mp3
0328-Best I Ever Had (Guitar).mp3
0329-The Unforgiven (Guitar).mp3
0330-A Whiter Shade Of Pale05.mp3
0331-Wonderful Tonight1 (Instrument1).mp3
0332-Beauty And The Beast3.mp3
0333-Titip Rindu Buat Ayah (Instrument).mp3
0334-A Whiter Shade Of Pale06 (Instrument06).mp3
0335-Ku Cari Jalan Terbaik.mp3
0336-Wonderful Tonight1 (Guitar1).mp3
0337-Berita Kepada Kawan2.mp3
0338-The Young And The Restless2 (Instrument2).mp3
0339-Best I Ever Had.mp3
0340-The Wonderful Season Of Love2 (Instrument2).mp3
0341-Betapa Hatiku (Piano).mp3
0342-The Young And The Restless1.mp3
0343-Betapa Ku Cinta Padamu (Instrument).mp3
0344-The Wonderful Season Of Love1.mp3
0345-Biarlah Bulan Bicara.mp3
0346-The Way We Were2.mp3
0347-Bila Kulihat Bintang Gemerlapan.mp3
0348-The Trooper2.mp3
0349-Bila Muka Dengan Muka (Instrument).mp3
0350-The Way We Were2 (Instrument2).mp3
0351-Bimbang.mp3
0352-Kasih Putih.mp3
0353-The Trooper1.mp3
0354-Bintang Di Surga1.mp3
0355-The Way We Were1.mp3
0356-Bintang Kecil (Guitar).mp3
0357-The Time Alone With You.mp3
0358-Bintang Di Surga2.mp3
0359-The Six Million Dollar Man Theme (Instrument).mp3
0360-Bintang Kehidupan.mp3
0361-The Right Combination.mp3
0362-Biru.mp3
0363-The Power Of Love.mp3
0364-Birunya Rinduku (Instrument).mp3
0365-The Moon Represents My Heart2 (Instrument2).mp3
0366-Bis Sekolah1.mp3
0367-Ku Bersyukur Bapa.mp3
0368-The Moment (Instrument).mp3
0369-Birunya Rinduku.mp3
0370-The Moon Represents My Heart2 (Guitar2).mp3
0371-Bis Sekolah2.mp3
0372-The Man Who Sold The World.mp3
0373-Black Magic Woman1.mp3
0374-The Lord Will Make A Way (Hammond).mp3
0375-Blood Brothers.mp3
0376-The Lonely Shepherd2 (Instrument2).mp3
0377-Black Magic Woman2.mp3
0378-The Greatest Love Of All4.mp3
0379-Bohemian Rhapsody (Piano).mp3
0380-The Lonely Shepherd1 (Instrument1).mp3
0381-Bongkar.mp3
0382-The Greatest Love Of All3.mp3
0383-Bohemian Rhapsody.mp3
0384-Kasih SetiaMu.mp3
0385-The Great Pretender2.mp3
0386-Boulevard (Instrument).mp3
0387-The First Noel (Instrument).mp3
0388-Bright Eyes.mp3
0389-The Great Pretender1.mp3
0390-Boulevard1.mp3
0391-The Evil That Men Do4.mp3
0392-Buat Apa Susah.mp3
0393-The Entertainer (Guitar).mp3
0394-Bukan Cinta Biasa1.mp3
0395-The Evil That Men Do3.mp3
0396-A Whiter Shade Of Pale06.mp3
0397-The Young And The Restless1 (Instrument1).mp3
0398-Black Magic Woman3.mp3
0399-Ku Berbahagia.mp3
0400-The Wonderful Season Of Love1 (Instrument1).mp3
0401-A Whiter Shade Of Pale07 (Instrument07).mp3
0402-The Way We Were1 (Instrument1).mp3
0403-Bohemian Rhapsody1 (Guitar1).mp3
0404-The Trooper (Guitar).mp3
0405-Boulevard2.mp3
0406-The Moon Represents My Heart1 (Instrument1).mp3
0407-Bohemian Rhapsody2 (Guitar2).mp3
0408-The Greatest Love Of All2.mp3
0409-Bukan Cinta Biasa2.mp3
0410-The Moon Represents My Heart1 (Guitar1).mp3
0411-Buku Ini Aku Pinjam.mp3
0412-The Greatest Love Of All1.mp3
0413-Bung Hatta (Instrument).mp3
0414-The Great Pretender (Instrument).mp3
0415-Bunga Di Tepi Jalan1.mp3
0416-Kasih1.mp3
0417-The Evil That Men Do2.mp3
0418-Bung Hatta.mp3
0419-The End of The World2.mp3
0420-Bunga Di Tepi Jalan2.mp3
0421-The Evil That Men Do1.mp3
0422-Bungaku.mp3
0423-The End Of The World1.mp3
0424-Burung Camar (Instrument).mp3
0425-The Diamantina Drover.mp3
0426-Burung Kakatua (Guitar).mp3
0427-The Clansman.mp3
0428-Camelia 1.mp3
0429-Thats Why You Go.mp3
0430-Can You Feel The Love Tonight (Instrument).mp3
0431-Kreteg Ngunengan.mp3
0432-The Clansman (Guitar).mp3
0433-Camelia 2.mp3
0434-Thats Why You Go (Instrument).mp3
0435-Can You Feel The Love Tonight1.mp3
0436-That Thing You Do.mp3
0437-Candle In The Wind (Instrument).mp3
0438-Test To Mic (Guitar).mp3
0439-Cant Help Falling In Love1 (Instrument1).mp3
0440-Tersembunyi Ujung Jalan2 (Instrument2).mp3
0441-Candle In The Wind.mp3
0442-Test To Board (Guitar).mp3
0443-Cant Help Falling In Love1.mp3
0444-Tersembunyi Ujung Jalan1 (Instrument1).mp3
0445-Cant Take My Eyes Off You.mp3
0446-Terlambat2.mp3
0447-Caravan.mp3
0448-KasihMu Tiada Duanya (Piano).mp3
0449-Terlalu Besar.mp3
0450-Caravansary1 (Instrument1).mp3
0451-Terlambat1.mp3
0452-Careless Whisper (Piano).mp3
0453-Terima Kasih Tuhan2.mp3
0454-Caravansary2 (Instrument2).mp3
0455-Tenanglah Kini Hatiku2 (Instrument2).mp3
0456-Careless Whisper1 (Instrument1).mp3
0457-Terima Kasih Tuhan1.mp3
0458-Carrie (Guitar).mp3
0459-Tenanglah Kini Hatiku1 (Instrument1).mp3
0460-Celoteh Camar Tolol Dan Cemar.mp3
0461-Temple Of The King (Instrument).mp3
0462-Changes.mp3
0463-Ku Berbahagia (Instrument).mp3
0464-The Greatest Love Of All (Piano).mp3
0465-A Whiter Shade Of Pale07.mp3
0466-The Evil That Men Do (Guitar).mp3
0467-Bohemian Rhapsody3 (Guitar3).mp3
0468-The Greatest Love Of All (Instrument).mp3
0469-A Whiter Shade Of Pale08 (Instrument08).mp3
0470-Test To AmpMic (Guitar).mp3
0471-Camelia 4.mp3
0472-Tenanglah Kini Hatiku.mp3
0473-Can You Feel The Love Tonight2.mp3
0474-Temple Of The King (Guitar).mp3
0475-Cant Help Falling In Love2 (Instrument2).mp3
0476-Tears Of The Dragon.mp3
0477-Careless Whisper1.mp3
0478-Tears In Heaven.mp3
0479-Cant Help Falling In Love2.mp3
0480-Kasih2.mp3
0481-Tears Of The Dragon (Guitar).mp3
0482-Careless Whisper2 (Instrument2).mp3
0483-Tangan Tak Sampai.mp3
0484-Chants.mp3
0485-Tanah Airku (Guitar).mp3
0486-Child.mp3
0487-Take Me Home2.mp3
0488-CHiPs Theme (Instrument).mp3
0489-Tak Ku Tahu Kan Hari Esok.mp3
0490-Christie.mp3
0491-Take Me Home1.mp3
0492-Chunts.mp3
0493-Tak Ingin Sendiri2.mp3
0494-Cinta Satu Malam (Instrument).mp3
0495-Kop Dan Headen.mp3
0496-Syukur PadaMu Ya Allah.mp3
0497-Cinta Sebening Embun.mp3
0498-Tak Ingin Sendiri1.mp3
0499-Cinta Yang Hitam1.mp3
0500-Symphony No 40 Mozart (Instrument).mp3
0501-Cinta Yang Tulus1.mp3
0502-Symphoni Yang Indah2.mp3
0503-Cinta Yang Hitam2.mp3
0504-Sweet Child O Mine2 (Guitar2).mp3
0505-Cinta Yang Tulus2.mp3
0506-Symphoni Yang Indah1.mp3
0507-Cintaku Kandas Di Rerumputan (Instrument).mp3
0508-Sweet Child O Mine1 (Guitar1).mp3
0509-Cintaku Padamu (Guitar).mp3
0510-Sweep Over My Soul (Hammond).mp3
0511-Cintaku Kandas Di Rerumputan.mp3
0512-Katakan Sejujurnya (Instrument).mp3
0513-Sway3.mp3
0514-Cintaku1.mp3
0515-Suwe Ora Jamu (Guitar).mp3
0516-Cintamu Telah Berlalu1.mp3
0517-Sway2.mp3
0518-Cintaku2.mp3
0519-Susanna (Instrument).mp3
0520-Cintamu Telah Berlalu2.mp3
0521-Surat Buat Wakil Rakyat.mp3
0522-Close To Heaven.mp3
0523-Sungguh Lembut Tuhan Yesus Memanggil.mp3
0524-Coconut Island Verleiding.mp3
0525-Sumbang.mp3
0526-Come As You Are.mp3
0527-Kokorono Tomo2.mp3
0528-Sukiyaki2.mp3
0529-Come Undone.mp3
0530-Take Me Home (Instrument).mp3
0531-A Whiter Shade Of Pale08.mp3
0532-Sway1.mp3
0533-Cant Help Falling In Love3.mp3
0534-Sukiyaki1.mp3
0535-A Whiter Shade Of Pale09 (Instrument09).mp3
0536-Suci Suci Suci (Instrument).mp3
0537-Cant Help Falling In Love4.mp3
0538-Sukiyaki (Guitar).mp3
0539-Careless Whisper2.mp3
0540-Suci Dalam Debu (Instrument).mp3
0541-Cinta Yang Hitam3.mp3
0542-SuaraMu Kudengar (Instrument).mp3
0543-Careless Whisper3 (Instrument3).mp3
0544-Kau Auraku (Instrument).mp3
0545-Stuck On You.mp3
0546-Cinta Yang Hitam4.mp3
0547-Strangers In The Night5.mp3
0548-Cintamu Telah Berlalu3.mp3
0549-Still Loving You2 (Guitar2).mp3
0550-Como Estais Amigos.mp3
0551-Strangers In The Night4.mp3
0552-Coney Island Cakewalk (Guitar).mp3
0553-Still Loving You1 (Guitar1).mp3
0554-Crazy (Instrument).mp3
0555-Still Got The Blues2 (Instrument2).mp3
0556-Creep1.mp3
0557-Stasiun Balapan.mp3
0558-Crazy1.mp3
0559-Koi (Instrument).mp3
0560-Still Got The Blues1 (Instrument1).mp3
0561-Creep2.mp3
0562-Stand By Me2 (Instrument2).mp3
0563-Dalam Kerinduan.mp3
0564-Stairway To Heaven (Guitar).mp3
0565-Dalam Rumah Bapaku.mp3
0566-Stand By Me1 (Instrument1).mp3
0567-Dan.mp3
0568-Speak Softly Love3.mp3
0569-Danau Penantian.mp3
0570-Sore Tugu Pancoran.mp3
0571-Dara Manisku.mp3
0572-Speak Softly Love2.mp3
0573-Dari Terbit Matahari (Instrument).mp3
0574-Song For You.mp3
0575-Darling I Love You1.mp3
0576-Kau Seputih Melati1.mp3
0577-Song For Renny (Guitar).mp3
0578-Datanglah Roh Kudus (Piano).mp3
0579-Somewhere Out There3.mp3
0580-Darling I Love You2.mp3
0581-Sometimes When We Touch3.mp3
0582-Datanglah Roh Kudus.mp3
0583-Somewhere Out There2.mp3
0584-Dealova (Guitar).mp3
0585-Sometimes When We Touch2.mp3
0586-Delilah.mp3
0587-Sometimes Love Just Aint Enough.mp3
0588-Demi Kau Dan Si Buah Hati.mp3
0589-Something Stupid.mp3
0590-Derita1.mp3
0591-Kokorono Tomo1.mp3
0592-Something About You.mp3
0593-Di Doa Ibuku Namaku Disebut1.mp3
0594-Soldier Of Fortune.mp3
0595-Derita2.mp3
0596-Something About You (Instrument).mp3
0597-A Whiter Shade Of Pale09.mp3
0598-Strangers In The Night3.mp3
0599-Cant Help Falling In Love5.mp3
0600-Still Loving You (Instrument).mp3
0601-A Whiter Shade Of Pale1 (Guitar1).mp3
0602-Strangers In The Night2.mp3
0603-Cant Help Falling In Love6.mp3
0604-Still Got The Blues.mp3
0605-Careless Whisper3.mp3
0606-Stand By Me.mp3
0607-Crazy2.mp3
0608-Kau Tercipta Bukan Untukku (Instrument).mp3
0609-Speak Softly Love1.mp3
0610-Careless Whisper4 (Instrument4).mp3
0611-Stand By Me (Guitar).mp3
0612-Crazy3.mp3
0613-Speak Softly Love (Piano).mp3
0614-Creep3.mp3
0615-Somewhere Out There1.mp3
0616-Di Doa Ibuku Namaku Disebut2.mp3
0617-Sometimes When We Touch1.mp3
0618-Creep4.mp3
0619-Somewhere Out There (Piano).mp3
0620-Di Jalan Ku Diiring1 (Instrument1).mp3
0621-Soldier Of Fortune (Instrument).mp3
0622-Di Muka Tuhan Yesus (Instrument).mp3
0623-Knocking On Heaven Door (Piano).mp3
0624-Softly And Tenderly.mp3
0625-Di Jalan Ku Diiring2 (Instrument2).mp3
0626-So Much In Love.mp3
0627-Di Muka Tuhan Yesus.mp3
0628-Smooth2.mp3
0629-Dia Mengerti (Piano).mp3
0630-Smoke On The Water (Guitar).mp3
0631-Dia Sanggup (Piano).mp3
0632-Smooth1.mp3
0633-Dingin.mp3
0634-Smoke Gets In Your Eyes.mp3
0635-Disaat Kau Harus Memilih.mp3
0636-Sleepwalk9 (Instrument9).mp3
0637-Do That To Me One More Time (Instrument).mp3
0638-Smoke Gets In Your Eyes (Guitar).mp3
0639-Doa Pengobral Dosa.mp3
0640-Kau Seputih Melati2.mp3
0641-Sleepwalk8 (Instrument8).mp3
0642-Do That To Me One More Time.mp3
0643-Sleeping Child (Instrument).mp3
0644-Doa Suciku.mp3
0645-Skyfall2.mp3
0646-Dont Cry (Guitar).mp3
0647-Sketsa Rembulan Emas.mp3
0648-Dont Cry For Me Argentina.mp3
0649-Skyfall1.mp3
0650-Dont Cry Joni (Instrument).mp3
0651-Since I Dont Have You.mp3
0652-Dont Cry For Me Argentina1 (Instrument1).mp3
0653-Sinaran.mp3
0654-Dont Cry Joni1.mp3
0655-Kokorono Tomo (Instrument).mp3
0656-Silent Morning.mp3
0657-Dont Know Much.mp3
0658-Sinaran (Guitar).mp3
0659-Dont Let The Sun Go Down On Me1.mp3
0660-Silence Is Golden.mp3
0661-A Whiter Shade Of Pale10.mp3
0662-Strangers In The Night2 (Instrument2).mp3
0663-Cant Help Falling In Love7.mp3
0664-Speak Softly Love (Instrument).mp3
0665-A Whiter Shade Of Pale11.mp3
0666-Strangers In The Night1.mp3
0667-Cant Help Falling In Love8.mp3
0668-Speak Softly Love (Guitar).mp3
0669-Careless Whisper4.mp3
0670-Somewhere Out There (Instrument).mp3
0671-Creep5.mp3
0672-Kau Yang Terindah (Piano).mp3
0673-Sleepwalk7 (Instrument7).mp3
0674-Di Jalan Ku Diiring3 (Instrument3).mp3
0675-Sign Of The Cross.mp3
0676-Dont Cry For Me Argentina2 (Instrument2).mp3
0677-Sleepwalk6 (Instrument6).mp3
0678-Dont Cry Joni2.mp3
0679-Sign Of The Cross (Guitar).mp3
0680-Dont Let The Sun Go Down On Me2.mp3
0681-Si Patokaan (Guitar).mp3
0682-Dont Sleep Away This Night1.mp3
0683-Shes Gone (Instrument).mp3
0684-Dont Let The Sun Go Down On Me3.mp3
0685-Setulus Hatimu Semurni Cintamu2.mp3
0686-Dont Sleep Away This Night2.mp3
0687-Knife.mp3
0688-SetiaMu Tuhanku Tiada Bertara.mp3
0689-Dont Tell Me Stories.mp3
0690-Setulus Hatimu Semurni Cintamu1.mp3
0691-Dr. Sun & Ching Ling (Instrument).mp3
0692-Setengah Hati.mp3
0693-Du (Instrument).mp3
0694-Setangkai Anggrek Bulan3.mp3
0695-Dua Cincin.mp3
0696-Serdadu.mp3
0697-Du.mp3
0698-Setangkai Anggrek Bulan2.mp3
0699-Dua Dua Januari.mp3
0700-Seraut Wajah.mp3
0701-Duri Dan Cinta.mp3
0702-Seperti Yang Kau Minta.mp3
0703-Dust In The Wind (Guitar).mp3
0704-Kaulah Tuhanku (Instrument).mp3
0705-Seperti Yang Kau Ingini.mp3
0706-Duwea Swiwi.mp3
0707-Seperti Rusa Rindu SungaiMu2.mp3
0708-Dust In The Wind1.mp3
0709-Separuh Aku.mp3
0710-Dying Young (Instrument).mp3
0711-Seperti Rusa Rindu SungaiMu1.mp3
0712-Easy1.mp3
0713-Sepanjang Jalan Kenangan2 (Guitar2).mp3
0714-Ecce Homo (Guitar).mp3
0715-Sendiri Lagi.mp3
0716-Easy2.mp3
0717-Sepanjang Jalan Kenangan1 (Guitar1).mp3
0718-Ecce Homo.mp3
0719-Kisah Seorang Pramuria.mp3
0720-Senandung Pucuk Pinus.mp3
0721-Elegi Esok Pagi.mp3
0722-Senandung Jatuh Cinta.mp3
0723-Elizabethan Reggae (Instrument).mp3
0724-Semua Tentang Kita.mp3
0725-Endless Love (Guitar).mp3
0726-Sembilan Belas Oktober.mp3
0727-A Whiter Shade Of Pale12.mp3
0728-Strangers In The Night1 (Instrument1).mp3
0729-Dust In The Wind2.mp3
0730-Speak Softly Love (Biola).mp3
0731-A Whiter Shade Of Pale13.mp3
0732-Sleepwalk5 (Instrument5).mp3
0733-Endless Love (Instrument).mp3
0734-Setangkai Anggrek Bulan1.mp3
0735-Entah1.mp3
0736-Kau Yang Terindah1.mp3
0737-Sleepwalk4 (Instrument4).mp3
0738-Endless Love (Piano).mp3
0739-Selamat Ulang Tahun (Guitar).mp3
0740-Entah2.mp3
0741-Selamat Jalan.mp3
0742-Endless Love1.mp3
0743-Sejauh Timur Dari Barat.mp3
0744-Episode Cinta Yang Hilang.mp3
0745-Seberkas Cinta Yang Sirna.mp3
0746-Esok Kan Masih Ada.mp3
0747-Sebelum Kau Bosan.mp3
0748-Eternal Flame (Instrument).mp3
0749-Sebelas Januari.mp3
0750-Ethiopia.mp3
0751-Knife (Instrument).mp3
0752-Sealed With A Kiss3.mp3
0753-Eternal Flame1.mp3
0754-Save The Best For Last.mp3
0755-Everbody Hurts.mp3
0756-Sealed With A Kiss2.mp3
0757-Every Breath You Take.mp3
0758-Satu Satu.mp3
0759-Everything I Do (Instrument).mp3
0760-Satu Cinta Tiga Hati.mp3
0761-Everytime You Go Away (Instrument).mp3
0762-Sarjana Muda.mp3
0763-Fade To Black (Instrument).mp3
0764-Sampai Akhir Hidupku.mp3
0765-Everytime You Go Away.mp3
0766-Sailing.mp3
0767-Fallen1.mp3
0768-Kehilangan (Instrument).mp3
0769-Sail Over Seven Seas.mp3
0770-Fear Of The Dark (Guitar).mp3
0771-Sabda Alam3.mp3
0772-Fallen2.mp3
0773-Saat Pagi Hari (Piano).mp3
0774-Fear Of The Dark (Piano).mp3
0775-Sabda Alam2.mp3
0776-Feelings1.mp3
0777-Saat Ku MenyembahMu (Piano).mp3
0778-Fernando1 (Instrument1).mp3
0779-Rumah Masa Depan Theme (Instrument).mp3
0780-Feelings2.mp3
0781-Rudolph The Red Nosed Reindeer (Guitar).mp3
0782-Fernando2 (Instrument2).mp3
0783-Kisah Seorang Pramuria (Instrument).mp3
0784-Roh Kudus Yang Manis (Piano).mp3
0785-First Love1.mp3
0786-Roh Kudus Pembawa Terang (Instrument).mp3
0787-Five Hundred Miles1.mp3
0788-Roh Kudus Hadir Disini (Piano).mp3
0789-First Love2.mp3
0790-Risalah Hati.mp3
0791-Five Hundred Miles2.mp3
0792-Rhythm Of The Rain.mp3
0793-Fixing A Broken Heart.mp3
0794-Revelations2.mp3
0795-A Whiter Shade Of Pale14.mp3
0796-Sleepwalk3 (Instrument3).mp3
0797-Endless Love2.mp3
0798-Sealed With A Kiss2 (Instrument2).mp3
0799-A Whiter Shade Of Pale15.mp3
0800-Kau Yang Terindah2.mp3
0801-Sleepwalk2 (Instrument2).mp3
0802-Endless Love3.mp3
0803-Sealed With A Kiss1.mp3
0804-Eternal Flame2.mp3
0805-Sabda Alam1.mp3
0806-Fear Of The Dark1.mp3
0807-Revelations1.mp3
0808-First Love3.mp3
0809-Rembulan Menangis.mp3
0810-Fear Of The Dark2.mp3
0811-Release Me.mp3
0812-Flash Of The Blade.mp3
0813-Rek Ayo Rek (Guitar).mp3
0814-Forever In Love1 (Instrument1).mp3
0815-Kisah Sedih Di Hari Minggu.mp3
0816-Reallity.mp3
0817-Forever Young (Instrument).mp3
0818-Rayuan Pulau Kelapa.mp3
0819-Forever In Love2 (Instrument2).mp3
0820-Rain And Tears2 (Instrument2).mp3
0821-From A Distance (Instrument).mp3
0822-Putri Sion Nyanyilah (Instrument).mp3
0823-Frosted (Instrument).mp3
0824-Rain And Tears1 (Instrument1).mp3
0825-From A Distance (Piano).mp3
0826-Pupus (Instrument).mp3
0827-Frustrasi.mp3
0828-Pujilah Tuhan Sang Raja (Instrument).mp3
0829-Fur Elise (Instrument).mp3
0830-Puing2.mp3
0831-Future World (Guitar).mp3
0832-Kembali Ke Jakarta.mp3
0833-Prowler.mp3
0834-Galang Rambu Anarki.mp3
0835-Puing1.mp3
0836-Galih Dan Ratna.mp3
0837-Praise To The Lord.mp3
0838-Gambang Suling (Guitar).mp3
0839-Potong Bebek Angsa (Guitar).mp3
0840-Gedabrul (Guitar).mp3
0841-Plaisir Damour.mp3
0842-Gembala Baik Bersuling Nan Merdu.mp3
0843-Piknik 1972.mp3
0844-Genjer Genjer1.mp3
0845-Plaisir Damour (Instrument).mp3
0846-Gembala Baik Bersuling Nan Merdu1 (Instrument1).mp3
0847-Kisah Kasih Di Sekolah.mp3
0848-PHK.mp3
0849-Genjer Genjer2.mp3
0850-Pesawat Tempurku.mp3
0851-Gereja Tua1.mp3
0852-Pergilah Kasih3.mp3
0853-Gerimis Mengundang (Guitar).mp3
0854-Perfect Day.mp3
0855-Gereja Tua2.mp3
0856-Pergilah Kasih2.mp3
0857-Gethuk (Guitar).mp3
0858-Perempuan Malam.mp3
0859-A Whiter Shade Of Pale16.mp3
0860-Sleepwalk1 (Instrument1).mp3
0861-From A Distance.mp3
0862-Sealed With A Kiss1 (Instrument1).mp3
0863-A Whiter Shade Of Pale17.mp3
0864-Kembali Pada Tuhan1 (Instrument1).mp3
0865-Rain And Tears.mp3
0866-Gembala Baik Bersuling Nan Merdu2 (Instrument2).mp3
0867-Plaisir Damour (Guitar).mp3
0868-Genjer Genjer3.mp3
0869-Pergilah Kasih1.mp3
0870-Gereja Tua3.mp3
0871-Pepito.mp3
0872-Genjer Genjer4.mp3
0873-Penyanyi Butuh Uang.mp3
0874-Gethuk.mp3
0875-Pengalaman Pertama (Guitar).mp3
0876-Girl You Know Its True.mp3
0877-Pelangi4.mp3
0878-Golden Harvest Theme (Instrument).mp3
0879-Kisah Cintaku2.mp3
0880-Pelangi Di Matamu.mp3
0881-Gomes Romans (Guitar).mp3
0882-Pelangi3.mp3
0883-Goodbye.mp3
0884-Payung Fantasi.mp3
0885-Grande Valse (Guitar).mp3
0886-Patience2 (Guitar2).mp3
0887-Grease1.mp3
0888-Pass Me Not O Gentle Savior.mp3
0889-Great Is Thy Faithfulness (Hammond).mp3
0890-Patience1 (Guitar1).mp3
0891-Grease2.mp3
0892-Party Doll.mp3
0893-Great Is Thy Faithfulness.mp3
0894-Panggilan Dari Gunung.mp3
0895-Gubahanku1.mp3
0896-Kembali.mp3
0897-Paint My Love2.mp3
0898-Gundul Pacul (Guitar).mp3
0899-Over And Over Again.mp3
0900-Gubahanku2.mp3
0901-Paint My Love1.mp3
0902-Gusti Mugi Sampun Langkung.mp3
0903-Oshin (Instrument).mp3
0904-Gusti Panuntun Kula.mp3
0905-Ordinary World2.mp3
0906-Hallowed Be Thy Name (Guitar).mp3
0907-Orang-Orang Terkucil.mp3
0908-Hampa (Guitar).mp3
0909-Ordinary World1.mp3
0910-Hanya Dia.mp3
0911-Killing Me Softly With His Song.mp3
0912-Only You4.mp3
0913-Hampa (Instrument).mp3
0914-One Moment In Time.mp3
0915-Hard To Say Im Sorry (Guitar).mp3
0916-Only You3.mp3
0917-Harta Berharga.mp3
0918-One Day In Your Life2.mp3
0919-Hard To Say Im Sorry (Instrument).mp3
0920-Ondel-Ondel (Guitar).mp3
0921-Haruskah Ku Mati.mp3
0922-One Day In Your Life1.mp3
0923-Hati Selembut Salju1.mp3
0924-Oh The Deep Love Of Jesus.mp3
0925-A Whiter Shade Of Pale18.mp3
0926-Pelangi2.mp3
0927-Genjer Genjer5.mp3
0928-Kembali Pada Tuhan2 (Instrument2).mp3
0929-Only You2.mp3
0930-A Whiter Shade Of Pale19.mp3
0931-Pelangi1.mp3
0932-Hampa.mp3
0933-Only You1.mp3
0934-Hard To Say Im Sorry (Piano).mp3
0935-Oh Carol.mp3
0936-Hati Selembut Salju2.mp3
0937-Ode To Nature (Instrument).mp3
0938-Hard To Say Im Sorry1.mp3
0939-Oh Carol (Instrument).mp3
0940-Hati Yang Luka (Instrument).mp3
0941-Ode To My Family.mp3
0942-Hati Yang Terluka.mp3
0943-Kisah Cintaku1.mp3
0944-Obladi Oblada (Instrument).mp3
0945-Hatiku Beku1.mp3
0946-O La La.mp3
0947-Have I Told You Lately (Instrument).mp3
0948-O Holy Night2.mp3
0949-Hatiku Beku2.mp3
0950-Nyidam Sari (Guitar).mp3
0951-Have I Told You Lately1.mp3
0952-O Holy Night1.mp3
0953-Hawaii Five O Theme1 (Instrument1).mp3
0954-Nyanyian Rindu2.mp3
0955-Heal The World (Instrument).mp3
0956-Nyanyian Cinta Satu Ketika.mp3
0957-Hawaii Five O Theme2 (Instrument2).mp3
0958-Nyanyian Rindu1.mp3
0959-Heal The World.mp3
0960-Kemesraan1.mp3
0961-Nunggil Kaliyan Gusti.mp3
0962-Hello.mp3
0963-Nun Di Bukit Yang Jauh (Instrument).mp3
0964-Hening1.mp3
0965-Numb2 (Piano2).mp3
0966-Here For You (Guitar).mp3
0967-Nuansa Bening.mp3
0968-Hening2.mp3
0969-Numb1 (Piano1).mp3
0970-Hero (Guitar).mp3
0971-Now And Forever.mp3
0972-Hey Jude (Instrument).mp3
0973-November Rain.mp3
0974-Hero (Piano).mp3
0975-Killing Me Softly With His Song (Instrument).mp3
0976-Nothing Gonna Change My Love For You2.mp3
0977-Hey Jude.mp3
0978-November Rain (Piano).mp3
0979-Hidup Dalam Bui.mp3
0980-Nothing Gonna Change My Love For You1.mp3
0981-Hidup Yang Sepi.mp3
0982-Nothing Else Matters.mp3
0983-Hidupku Sunyi (Instrument).mp3
0984-Nona.mp3
0985-High And Dry.mp3
0986-Nothing Else Matters (Guitar).mp3
0987-Hidupku Sunyi.mp3
0988-Nobodys Child (Instrument).mp3
0989-Hold Me Thrill Me Kiss Me1.mp3
0990-No Prayer For The Dying.mp3
0991-A Whiter Shade Of Pale2 (Guitar2).mp3
0992-Kenalkah Kau Kan Yesus (Instrument).mp3
0993-Only You (Instrument).mp3
0994-Hard To Say Im Sorry2.mp3
0995-Numb (Guitar).mp3
0996-A Whiter Shade Of Pale20.mp3
0997-November Rain (Guitar).mp3
0998-Have I Told You Lately2.mp3
0999-Nothing Gonna Change My Love For You (Instrument).mp3
1000-Hening3.mp3
1001-No More Lonely Night.mp3
1002-Hero.mp3
1003-Nina Bobok2 (Guitar2).mp3
1004-Hold Me Thrill Me Kiss Me2.mp3
1005-Naik-Naik Ke Puncak Gunung (Guitar).mp3
1006-Holiday.mp3
1007-Kidung.mp3
1008-Nina Bobok1 (Guitar1).mp3
1009-Honestly (Guitar).mp3
1010-Nagari Ingkang Endah.mp3
1011-Hormat Bagi Allah Bapa.mp3
1012-My Way8 (Instrument8).mp3
1013-Honestly1.mp3
1014-My Love3.mp3
1015-Hormat Bagi Allah Bapa1 (Instrument1).mp3
1016-My Way7 (Instrument7).mp3
1017-Hotel California (Guitar).mp3
1018-My Love2.mp3
1019-House For Sale (Instrument).mp3
1020-My Heart Will Go On4.mp3
1021-Hotel California (Instrument).mp3
1022-My Girl.mp3
1023-House For Sale1.mp3
1024-Kemesraan2.mp3
1025-My Heart Will Go On3.mp3
1026-House Of The Rising Sun1.mp3
1027-Mungkinkah3.mp3
1028-How Can I Tell Her (Instrument).mp3
1029-Mother How Are You Today2.mp3
1030-House Of The Rising Sun2.mp3
1031-Mungkinkah2.mp3
1032-How Can I Tell Her.mp3
1033-Mother How Are You Today1.mp3
1034-How Deep Is Your Love (Guitar).mp3
1035-Morning Rain (Guitar).mp3
1036-How Do I Live Whitout You (Instrument).mp3
1037-Morning Has Broken2.mp3
1038-How Deep Is Your Love (Instrument).mp3
1039-Killing Me Softly With His Song (Guitar).mp3
1040-More Than Words.mp3
1041-Hujan (Guitar).mp3
1042-Morning Has Broken1.mp3
1043-I Dont Like To Sleep Alone (Instrument).mp3
1044-More Than Words (Guitar).mp3
1045-I Dont Wanna Miss A Thing1.mp3
1046-Moon River3 (Instrument3).mp3
1047-I Dont Like To Sleep Alone1.mp3
1048-Modernisasi Desa.mp3
1049-I Dont Wanna Miss A Thing2.mp3
1050-Moon River2 (Instrument2).mp3
1051-I Dont Wanna Talk About It (Instrument).mp3
1052-Mimpi Yang Terbeli.mp3
1053-I Just Call To Say I Love You1 (Instrument1).mp3
1054-Mimpi Sedih.mp3
1055-I Dont Wanna Talk About It1.mp3
1056-Kenangan Desember.mp3
1057-Michelle.mp3
1058-I Just Call To Say I Love You1.mp3
1059-Merpati Tak Pernah Ingkar Janji2.mp3
1060-A Whiter Shade Of Pale21.mp3
1061-My Way6 (Instrument6).mp3
1062-Honestly2.mp3
1063-My Love1.mp3
1064-Hormat Bagi Allah Bapa2 (Instrument2).mp3
1065-My Way5 (Instrument5).mp3
1066-Honestly3.mp3
1067-My Heart Will Go On3 (Instrument3).mp3
1068-Hormat Bagi Allah Bapa3 (Instrument3).mp3
1069-Mungkinkah1.mp3
1070-Hotel California1.mp3
1071-Kereta Tiba Pukul Berapa.mp3
1072-My Heart Will Go On2.mp3
1073-House For Sale2.mp3
1074-Mother How Are You Today (Instrument).mp3
1075-Hotel California2.mp3
1076-Moon River1 (Instrument1).mp3
1077-How Deep Is Your Love.mp3
1078-Merpati Tak Pernah Ingkar Janji1.mp3
1079-I Dont Like To Sleep Alone2.mp3
1080-Moon River.mp3
1081-I Dont Wanna Miss A Thing3.mp3
1082-Merepih Alam.mp3
1083-I Dont Wanna Talk About It2.mp3
1084-Menjaring Matahari.mp3
1085-I Just Call To Say I Love You2 (Instrument2).mp3
1086-Menghapus Jejakmu.mp3
1087-I Love How You Love Me.mp3
1088-Kenangan Terindah.mp3
1089-Mencari Alasan.mp3
1090-I Just Call To Say I Love You2.mp3
1091-Member Only.mp3
1092-I Love You Daddy.mp3
1093-Mencari Alasan (Instrument).mp3
1094-I Love You1.mp3
1095-Mawar Berduri.mp3
1096-I Need Thee Every Hour1.mp3
1097-Mata Indah Bola Ping Pong.mp3
1098-I Love You2.mp3
1099-Mata Dewa.mp3
1100-I Need Thee Every Hour2.mp3
1101-Masih Ada Waktu.mp3
1102-I Never Love This Way Again.mp3
1103-Kepala Yang Berdarah2 (Instrument2).mp3
1104-Mariage Damour (Piano).mp3
1105-I Started A Joke (Instrument).mp3
1106-Maria.mp3
1107-I Wanna Hold Your Hand (Guitar).mp3
1108-Mari Mari.mp3
1109-I Started A Joke1.mp3
1110-Mareka Marang Gusti.mp3
1111-I Want Out (Guitar).mp3
1112-Manis Dan Sayang2.mp3
1113-I Want To Know What Love Is1.mp3
1114-Mampirlah Dengar Doaku3.mp3
1115-I Will Always Love You (Instrument).mp3
1116-Manis Dan Sayang1.mp3
1117-I Want To Know What Love Is2.mp3
1118-Mampirlah Dengar Doaku2.mp3
1119-I Will Always Love You1.mp3
1120-KepadaMu Kuberdoa (Instrument).mp3
1121-Malam Yang Dingin.mp3
1122-Ibu Pertiwi.mp3
1123-Malam Pertama.mp3
1124-Ibu.mp3
1125-Making Love.mp3
1126-Hotel California3.mp3
1127-My Way4 (Instrument4).mp3
1128-I Just Call To Say I Love You3 (Instrument3).mp3
1129-My Heart Will Go On2 (Instrument2).mp3
1130-Hotel California4.mp3
1131-My Way3 (Instrument3).mp3
1132-I Love You3.mp3
1133-My Heart Will Go On2 (Guitar2).mp3
1134-I Started A Joke2.mp3
1135-KepadaMu Kuberdoa3.mp3
1136-Moon River (Guitar).mp3
1137-I Will Always Love You2.mp3
1138-Mampirlah Dengar Doaku1.mp3
1139-I Started A Joke3.mp3
1140-Making Love (Instrument).mp3
1141-Id Do Anything For Love (Piano).mp3
1142-Mampirlah Dengar Doaku (Instrument).mp3
1143-Id Love You To Want Me (Instrument).mp3
1144-Magnificent Seven (Guitar).mp3
1145-If Ever Youre In My Arms Again.mp3
1146-Madu Dan Racun (Guitar).mp3
1147-Id Love You To Want Me1.mp3
1148-Maafkanlah.mp3
1149-If We Hold On Together.mp3
1150-Maaf Cintaku.mp3
1151-If.mp3
1152-Kepala Yang Berdarah1 (Instrument1).mp3
1153-Lullaby (Guitar).mp3
1154-Ill Be In Love With You.mp3
1155-Love2.mp3
1156-Ill Be There1.mp3
1157-Love Will Lead You Back.mp3
1158-Ill Stand By You.mp3
1159-Love1.mp3
1160-Ill Be There2.mp3
1161-Love Story5.mp3
1162-Im Coming Home1.mp3
1163-Love Of My Life3 (Guitar3).mp3
1164-Im Gonna Lose You.mp3
1165-Love Story4.mp3
1166-Im Coming Home2.mp3
1167-KepadaMu Kuberdoa1.mp3
1168-Love Of My Life2 (Guitar2).mp3
1169-Im Gonna Miss You.mp3
1170-Love Me With All Of Your Heart2.mp3
1171-Im In Love For The Very First Time.mp3
1172-Love Me Tender2.mp3
1173-Imagine (Guitar).mp3
1174-Love Me With All Of Your Heart1.mp3
1175-In Love With You.mp3
1176-Love Me Tender2 (Instrument2).mp3
1177-Imagine.mp3
1178-Love Is On The Way.mp3
1179-In My Place.mp3
1180-Love Is Blue.mp3
1181-In The End (Piano).mp3
1182-Love Is All Around.mp3
1183-Indonesia Pusaka (Guitar).mp3
1184-KepadaMu Kuberdoa2.mp3
1185-Love Is Blue (Instrument).mp3
1186-Indonesia Tetap Merdeka (Guitar).mp3
1187-Lost In Your Eyes2.mp3
1188-Infinite Dreams (Guitar).mp3
1189-Los Dol.mp3
1190-Id Love You To Want Me2.mp3
1191-My Way2.mp3
1192-Ill Be There3.mp3
1193-My Heart Will Go On1.mp3
1194-Imagine1 (Instrument1).mp3
1195-My Way2 (Instrument2).mp3
1196-Infinite Dreams1.mp3
1197-My Heart Will Go On1 (Instrument1).mp3
1198-Imagine2 (Instrument2).mp3
1199-Love Story3.mp3
1200-Infinite Dreams2.mp3
1201-Love Of My Life1 (Guitar1).mp3
1202-Inginkah Kau Ikut Tuhan (Instrument).mp3
1203-Love Story2.mp3
1204-Infinite Dreams3.mp3
1205-Love Of My Life.mp3
1206-Ini Rindu (Guitar).mp3
1207-Love Me With All Of Your Heart (Instrument).mp3
1208-Irama Desa1.mp3
1209-Love Me Tender1.mp3
1210-Isi Rimba Tak Ada Tempat Berpijak Lagi.mp3
1211-Lost In Your Eyes1.mp3
1212-Irama Desa2.mp3
1213-Love Me Tender1 (Instrument1).mp3
1214-Isyu.mp3
1215-Looking Through The Eyes Of Love2.mp3
1216-It Must Have Been Love (Instrument).mp3
1217-Liquidator (Instrument).mp3
1218-Its My Life (Guitar).mp3
1219-Looking Through The Eyes Of Love1.mp3
1220-Ive Been Away Too Long.mp3
1221-Lilin Lilin Kecil2.mp3
1222-Its My Life.mp3
1223-Let It Be2 (Instrument2).mp3
1224-Jadikan Aku Setia1.mp3
1225-Lilin Lilin Kecil1.mp3
1226-Jadikanlah Aku Pacarmu.mp3
1227-Let It Be1 (Instrument1).mp3
1228-Jadikan Aku Setia2.mp3
1229-Leaving On A Jet Plane.mp3
1230-Jadilah Tuhan KehendakMu (Instrument).mp3
1231-Layu Sebelum Berkembang.mp3
1232-Jangan Sakiti Hatinya (Instrument).mp3
1233-Layang Layang.mp3
1234-Jangan Tutup Dirimu.mp3
1235-Layang Kangen.mp3
1236-Janji Suci.mp3
1237-Lancar.mp3
1238-Januari Yang Biru.mp3
1239-Layang Kangen (Guitar).mp3
1240-Je Taime Moi Non Plus1 (Instrument1).mp3
1241-Lagu Untuk Sebuah Nama.mp3
1242-Jendela Kelas Satu.mp3
1243-Lagu Satu.mp3
1244-Je Taime Moi Non Plus2 (Instrument2).mp3
1245-Lagi Syantik (Instrument).mp3
1246-Jingle Bells (Guitar).mp3
1247-L For Love (Instrument).mp3
1248-Jiwaku Pujilah Tuhan (Instrument).mp3
1249-Lagi Syantik (Guitar).mp3
1250-Jingle Bells.mp3
1251-Kupu Kupu Kertas.mp3
1252-Judgement Of Heaven.mp3
1253-Kumandel Ing Allah.mp3
1254-Je Taime Moi Non Plus3 (Instrument3).mp3
1255-My Way1.mp3
1256-Just For You1.mp3
1257-My Heart Will Go On1 (Guitar1).mp3
1258-Je Taime Moi Non Plus4 (Instrument4).mp3
1259-My Way1 (Instrument1).mp3
1260-Just For You2.mp3
1261-Love Story2 (Instrument2).mp3
1262-Just The Way You Are (Instrument).mp3
1263-Lilin Lilin Kecil (Instrument).mp3
1264-Kala Cinta Menggoda1.mp3
1265-Love Story1.mp3
1266-Just The Way You Are1.mp3
1267-Let It Be.mp3
1268-Kala Cinta Menggoda2.mp3
1269-My Way (Guitar).mp3
1270-Je Taime Moi Non Plus5 (Instrument5).mp3
1271-Love Story1 (Instrument1).mp3
1272-Just The Way You Are2.mp3
1273-Kudu Misuh2.mp3
1274-Je Taime Moi Non Plus6 (Instrument6).mp3
1275-Love Story (Piano).mp3
1276-Kala Cinta Menggoda3.mp3
1277-Z Closing.mp3
