SIMULASI REVERBERATION TIME SOUND SYSTEM EFEKTIF PADA BANGUNAN GEDUNG SC UNIVERSITAS ISLAM NEGERI MAULANA MALIK IBRAHIM MALANG SKRIPSI Oleh:
WAHYU FERA MUFIDA SARI NIM. 04540008
JURUSAN FISIKA FAKULTAS SAINS DAN TEKNOLOGI UNIVERSITAS ISLAM NEGERI MAULANA MALIK IBRAHIM MALANG
Desember 2009
SIMULASI REVERBERATION TIME SOUND SYSTEM EFEKTIF PADA BANGUNAN GEDUNG SC UNIVERSITAS ISLAM NEGERI MAULANA MALIK IBRAHIM MALANG SKRIPSI Diajukan Kepada Fakultas Sains Dan Teknologi Universitas Islam Negeri Maulana Malik Ibrahim Malang untuk Memenuhi Salah Satu Persyaratan Guna Memperoleh Gelar Strata Satu Sarjana Sains (S. Si)
Oleh:
WAHYU FERA MUFIDA SARI NIM. 04540008
JURUSAN FISIKA FAKULTAS SAINS DAN TEKNOLOGI UNIVERSITAS ISLAM NEGERI MAULANA MALIK IBRAHIM MALANG Desember 2009
LEMBAR PERSETUJUAN
SIMULASI REVERBERATION TIME SOUND SYSTEM EFEKTIF PADA BANGUNAN GEDUNG SC UNIVERSITAS ISLAM NEGERI MAULANA MALIK IBRAHIM MALANG
SKRIPSI
Oleh: WAHYU FERA MUFIDA SARI 04540008
Telah Disetujui Desember 2009 Dosen Pembimbing, Pembimbing I
Pembimbing I
Imam Tazi M.Si
Ach. Nasichuddin M.A
NIP. 19740730 200312 1002
NIP. 19730705 200003 1002
Mengetahui : Ketua Jurusan Fisika Fakultas Sains dan Teknologi Universitas Islam Negeri (UIN) Maulana Malik Ibrahim Malang
Drs. M. Tirono, M.Si NIP. 19641211 199111 1001
HALAMAN PENGESAHAN
SIMULASI REVERBERATION TIME SOUND SYSTEM EFEKTIF PADA BANGUNAN GEDUNG SC UNIVERSITAS ISLAM NEGERI MAULANA MALIK IBRAHIM MALANG SKRIPSI
OLEH WAHYU FERA MUFIDA SARI NIM 04540008 Telah Dipertahankan di Depan penguji Skripsi dan Dinyatakan Diterima sebagai Salah Satu Persyaratan untuk Memperoleh Gelar Sarjana Sains (S.Si)
Tanggal 21 Januari 2010 Susunan Dewan Penguji Susunan Dewan Penguji 1.
Penguji Utama : Dr. H. Agus Mulyono, M. Kes
Tanda tangan (................................)
NIP 19750808 199903 1 003 2.
Ketua Penguji : Imam Tazi, M.Si
(................................)
NIP 19740730 200312 1 002 3.
Seketaris
:Novi Avisena, M. Si
(................................)
NIP 19761109 200604 1 004 4.
Anggota
: Ach. Nasihuddin, M. A NIP 19730705 200003 1 002 Mengetahui dan Mengesahkan Ketua Jurusan Fisika
Drs. M. Tirono, M. Si NIP. 19641211 199111 1001
(................................)
MOTTO
آ و ا ’’Hiduplah Kamu secara mulia atau Matilah Dengan Secara Syahid’’
PERSEMBAHAN Ananda persembahkan karya ini teruntuk Ayahanda M. Ismuni M.T dan Ibunda Wido Amsrikah tercinta yang selalu mendo’akan ananada dimanapun ananada berada dan yang selalu melapangkan hati ananda agar tetap berdiri tegak melangkah mengarungi kehidupan ini... Guru-guru ananda yang tanpa kehadiran mereka, ananda tidaklah berarti apaapa dan tidak akan menyadari bahwa dunia ini sangatlah luas dan banyak yang perlu ananda pelajari dan ananda peroleh dari kehidupan ini Sahabat yang telah mengambil separuh hatiku yang kini jadi suami ku Abi Sulbi, yang telah memberikan separuh hati ku yang lain kepada putra ku Muhammad Sulthon al-Bawi Saudara-saudara ku tersayang Double Akbar Tanjung (Akbar Tanjung Badai Raja Manurung serta Akabar Tanjung Muhammad Deny Alamanda) dan Trio Wahyu (Nursyaidah Wahyu Ning pamungkas serta Wahyu Lailatul Baridah, yang terakhir Wahyu Fera) yang selalu membuat suasana ramai dan gembira Seluruh keluarga besar bani Martam serta bani Sudi, Sahabat-sahabatku yang dengan sabar dan setia telah menjadi tempat berbagi cerita untukku. Mbak Vita, Bude Erlina, jeng Dany yang selalu meluangkan waktu buat sulthon dan membuat suasana yang menyenangkan
KATA PENGANTAR
Dengan kerendahan dan ketulusan hati yang paling dalam, penulis panjatkan syukur alhamdulillah kehadirat Allah SWT, karena hanya dengan berkat rahmat, taufik, hidayah dan inayah-Nya skripsi yang berjudul “ Pemodelan Penempatan Sound System Efektif Pada Bangunan Gedung Sc Universitas Islam Negeri Maulana Malik Ibrahim Malang Skripsi“ dapat terselesaikan. Sholawat dan salam semoga senantiasa dilimpahkan Allah SWT kepada Nabi Muhammad SAW, yang telah menuntun ummatnya dari zaman kebodohan menuju jalan kebenaran yakni ‘Addinul Islam As-Shirothol-mustaqim dan semoga kita diberi kekuatan untuk melanjutkan perjuangan beliau. Penulis menyadari bahwa penulisan skripsi ini tidak akan selesai tanpa pengarahan dan bimbingan, serta bantuan dari berbagai pihak. Untuk itu penulis mengucapkan terima kasih yang sebesar-besarnya kepada : 1. Kedua Orang Tua, yang dengan kesabaran hati telah membantu dan memberikan perhatian, kasih sayang, mendidik, mengarahkan, memotivasi dan mendo’akan sehingga penulis dapat menyelesaikan skripsi ini. 2. Bapak Prof. Dr. Imam Suprayogo selaku Rektor UIN Malang. 3. Prof. Dr. Sutiman Bambang, SU, Dsc. Selaku Dekan Fakultas Sains dan Teknologi Universitas Islam Negeri (UIN) Maliki Malang. 4. Drs. Moh.Tirono, M.Si selaku Ketua Jurusan Fisika 5. Bapak Imama Tazi, M.Si selaku Dosen Pembimbing skripsi yang dengan tulus ikhlas dan penuh tanggung jawab serta kesabaran telah memberikan bimbingan ditengah-tengah kesibukannya, petunjuk serta motivasi
kepada
penulis
dalam
menyelesaikan
skripsi
ini.
Jazakumullah Khoiron Jaza’ 6. Bapak Nasihuddin, M.Ag selaku pembimbing kedua yang telah bersedia meluangkan waktunya untuk memberikan bimbingan dan
pengarahan selama penulisan skripsi di bidang integrasi Sains dan AlQur'an. 7. Segenap bapak ibu dosen pengajar UIN Maliki Malang terima kasih atas ilmu yang telah diberikan dengan penuh ketulusan kepada penulis. 8. Kakak Sulbi dan Adik Sulthon, terima kasih untuk semangat dan do’anya. Kepada semua pihak tersebut di atas, semoga Allah SWT memberikan pahala dan balasan yang berlipat ganda di dunia dan di akhirat, amin. Ahirnya dengan kerendahan hati, penulis menyadari bahwa dalam penulisan skripsi ini masih jauh dari kesempurnaan dan masih banyak kekurangan. Oleh karena itu, penulis sangat mengharap kritik dan saran dari semua pihak. Penulis berharap semoga penulisan skripsi ini dapat bermanfaat bagi para pembaca dan bagi penulis pribadi khususnya, amin ya rabbal’alamin. Wassalamualaikum Warohmatullahi Wabarokatuh
Malang, Desember 2009 Penulis
DAFTAR ISI
Halaman judul
....................................................................................... i
Halaman pengajuan ....................................................................................... ii Halaman persetujuan ....................................................................................... iii Halaman pengesahan ....................................................................................... iv Halaman persembahan ..................................................................................... v Motto
....................................................................................... iii
Kata pengantar
....................................................................................... iv
Daftar isi
....................................................................................... v
Daftar tabel
....................................................................................... xii
Daftar gambar
....................................................................................... xiii
Daftar persamaan
....................................................................................... xiv
Daftar lampiran
....................................................................................... xv
Abstrak
....................................................................................... xvi
Abstrac
....................................................................................... xvii
BAB I: PENDAHULUAN.............................................................................. 1-6 1.1 Latar Belakang
....................................................................................... 1
1.2 Rumusan Masalah ....................................................................................... 4 1.3 Tujuan
....................................................................................... 4
1.4 Batasan Masalah ....................................................................................... 5 1.5 Sistematika Penulisan.................................................................................. 5
BABII: KAJIAN PUSTAKA......................................................................... 7-41 2.1 Auditorium Multi Fungsi ............................................................................ 7 2.2 Bunyi
....................................................................................... 8
2.3 Sumber Bunyi
....................................................................................... 9
2.4 Gelombang Bunyi ....................................................................................... 11 2.5 Kecepatan Rambat Gelombang Bunyi ........................................................ 13 2.6 Intensitas Bunyi
....................................................................................... 15
2.7 Telinga Manusia ....................................................................................... 18 2.8 Pemantulan Bunyi ....................................................................................... 22 2.9 Penyerapan Bunyi ....................................................................................... 26 2.10 Difusi Bunyi
....................................................................................... 32
2.11 Difraksi Bunyi
....................................................................................... 33
2.12 Waktu Dengung ....................................................................................... 34 2.13 Resonansi Ruang ....................................................................................... 38 2.14 Keteraturan Dalam Perspektif Al-Qur’an ................................................... 39
BAB III: METODOLOGI PENELITIAN ................................................... 42-44 3.1
Waktu dan Tempat Penelitian .................................................................... 42
3.2
Jenis Penelitian
3.3
Rancangan Penelitian ................................................................................. 42
3.4
Perangkat Keras dan Perangkat Lunak ...................................................... 43
3.5
Bangunan
3.6
Prosedur Penelitian..................................................................................... 43
3.7
Perancangan Software ................................................................................ 44
3.7
Diagram Penelitian ..................................................................................... 45
....................................................................................... 42
....................................................................................... 43
BAB IV: HASIL DAN PEMBAHASAN ...................................................... 46-61 4.1
4.2
Penghitungan 4.1.1
Perhitungan Volume Ruang .............................................................. 46
4.1.2
Perhitungan Waktu Dengung ............................................................ 47
4.1.3
Perhitungan Intensitas Bunyi ............................................................ 49
4.1.4
Perhitungan Amplitudo ..................................................................... 49
4.1.5
Perhitungan Jarak Maksimal Loudspeaker Ke Audiens ................... 51
Hasil Simulasi 4.2.1
Hasil Simulasi Data Ruang ............................................................... 55
4.2.2
Hasil Simulasi Waktu Dengung ........................................................ 56
4.3
Pembahasan
....................................................................................... 56
4.4
Rekomendasi Pembangunan Gedung SC Selanjutnya .............................. 58
4.4
Keserasian Terhadap Al-Qur’an ................................................................ 60
BAB V: KESIMPULAN ................................................................................ 65-66 5.1
Kesimpulan
....................................................................................... 65
5.2
Saran
....................................................................................... 65
DAFTAR PUSTAKA ....................................................................................... 67
LAMPIRAN-LAMPIRAN ............................................................................... 68
DAFTAR TABEL
Tabel 2.1 Laju Bunyi ....................................................................................... 14 Tabel 2.2 Intensitas Beragai Macam Bunyi ........................................................ 22 Tabel 2.3 Koefisien Serap Bahan ....................................................................... 31 Tabel 2.4 Kesesuaian Waktu Dengung Menurut fungsi ruangan ...................... 36 Tabel 4.1 Panjang, Lebar dan Luas bangunan .................................................... 46 Tabel 4.2 Volume Ruangan ................................................................................ 47 Tabel 4.3 Koefisien Serap Bahan ....................................................................... 48 Tabel 4.4 Waktu Dengung .................................................................................. 49 Tabel 4.5 Amplitudo
....................................................................................... 51
DAFTAR GAMBAR
Gambar 2.1 Gambar Penampang Telingga Luar................................................. 19 Gambar 2.1 Gambar Penampang Telingga Tengah ............................................ 22 Gambar 2.3 Gambar Penampang Telingga Dalam ............................................. 23 Gambar 2.4 Skema Denah Perambatan Suara Dalam Ruang Tertutup ............... 24 Gambar 2.5 Skema Potongan Perambatan Suara Dalam Ruang Tertutup .......... 24 Gambar 2.6 Pemantul Penyerap .......................................................................... 26 Gambar 2.7 Medium Pemantulan Bunyi ............................................................. 26 Gambar 4.1 Kontrol Data Gedung ...................................................................... 52 Gambar 4.2 Kontrol Simulasi ............................................................................. 53 Gambar 4.3 Inisialisasi Gedung .......................................................................... 53 Gambar 4.4 Koefisien Serap Bahan .................................................................... 53 Gambar 4.5 Variabel Input.................................................................................. 54 Gambar 4.6 Variabel Output ............................................................................... 54 Gambar 4.7 Nilai Waktu Dengung ..................................................................... 54 Gambar 4.8 Variabel Pelengkap ......................................................................... 55 Gambar 4.9 Hasil Simulasi Data Ruang ............................................................. 55 Gambar 4.10 Hasil Simulasi Waktu Dengung .................................................... 56
DAFTAR PERSAMAAN
Pers 2.1 Cepat Rambat Gelombang Bunyi Pada Fluida 1 Dimensi .................. 13 Pers 2.2 Cepat Rambat Gelombang Bunyi Pada Gelombang Bunyi ................ 13 Pers 2.3 Cepat Rambat Gelombang Bunyi Pada Gas ........................................ 14 Pers 2.4 Temperatur Mutlak.............................................................................. 14 Pers 2.5 Konstanta Gas Universal ..................................................................... 14 Pers 2.6 Konstanta Massa Molar Gas ............................................................... 14 Pers 2.7 Rumus Intensitas Bunyi ...................................................................... 16 Pers 2.8 Rumus Tingkat Intensitas Bunyi ......................................................... 17 Pers 2.9 Rumus Amplitudo ............................................................................... 17 Pers 2.10 Rumus Pengukuran Tingkat Kekerasan Bunyi ................................... 24 Pers 2.11 Rumus Konstanta Ruangan ................................................................. 25 Pers 2.12 Rumus Rata-Rata Koefisien Absorpsi ................................................ 25 Pers 2.13 Rumus Tingkat Penyerapan ................................................................ 30 Pers 2.14 Rumus Efektivitas Penyerapan............................................................ 30 Pers 2.15 Rumus Waktu Dengung ...................................................................... 37 Pers 2.16 Rumus Penyerapan Ruangan Total ..................................................... 37 Pers 4.1 Rumus Waktu Dengung ...................................................................... 47 Pers 4.2 Rumus Penyerapan Ruangan Total ..................................................... 47 Pers 4.3 Rumus Intensitas Bunyi ...................................................................... 49 Pers 4.4 Rumus Amplitudo ............................................................................... 57 Pers 4.5 RumusJarak Maksimal Luodspeaker Ke Pendengar ........................... 57
DAFTAR LAMPIRAN
Lampiran 1 Perhitungan ...................................................................................... 65 Lampiran 2 Listing Program ............................................................................... 71 Lampiran 3 Cetak Biru Bangunan Gedung SC ................................................... 135 Lampiran 4 Kartu Bimbingan Skripsi ................................................................. 138
ABSTRAK
Sari, Wahyu Fera mufida. 2009. Simulasi Reverberation Time Sound System pada Bangunan SC Universitas Islam Negeri Maulana Malik Ibrahim Malang. Skripsi. Jurusan Fisika. Fakultas Sains dan Teknologi. Universitas Islam Negeri Maulana Malik Ibrahim Malang. Pembimbing: (1) Imam Tazi, M. Si. (2) Ach. Nashichuddin, M.A Kata kunci: koefisien serap, simulasi komputer, waktu dengung.
Bangunan Student Center Universitas Islam Negeri Malang fleksibel untuk digunakan berbagai macam kegiatan (ruangan multi fungsi). Dengan frekuensi SC yang sering digunakan untuk berbagai aktivitas, seharusnya bangunan tersebut memberikan kenyamanan bagi para penggunanya. Kejelasan berpidato (speech intelligibility) sebagai kriteria utama desain akustik auditorium merupakan fungsi dari waktu dengung (RT60). Penyediaan RT60 yang optimal (0,5-1,0 detik) yang tersebar merata (diffuse) di dalam ruangan ditentukan oleh faktor serap bidang dan geometri ruang. Di sisi lain, musik akan terasa hidup di dalam ruangan dengan waktu dengung yang cukup panjang (1,0-2,0 detik). Tulisan ini memaparkan pemakaian Delphi sebagai program untuk merancang posisi dan penempatan Sound system dalam auditorium. Fasilitas kalkulasi RT60 secara statistic, serta penghitungan variable lain menjadikan Delphi sebagai program simulasi akustik yang cukup memadai guna menentukan penempatan sound system pada ruangan. Variabel ruang diambil dari cetak biru bangunan, variabel koefisien serap bahan berdasar konstanta yang telah ada. Hasil pengujian program software menunjukkan bahwa penerapan hasil penempatan jarak maksimal sound system terhadap penonton dapat diketahui, nilai waktu dengung pada masing-masing frekuensi, nilai Amplitudo dan Intensitas bunyi, bahkan sound system dapat dirubah sesuai dengan jumlah penonton. Pada pengujian dan perhitungan waktu dengung pada bangunan SC dapat diketahui bahwa RT rata-rata pada bangunan SC UIN Malang sebesar 2,001 yang mana waktu dengung tersebut cocok digunakan sebagai ruang konser, bukan sebagai ruang pertemuan.
ABSTRACT Sari, Wahyu Fera Mufida. 2009. Placement Sound System Effective In SC Building State Islamic University of Malang Maulana Malik Ibrahim. Thesis. Department of Physics. Faculty of Science and Technology. Universitas Islam Negeri Maulana Malik Ibrahim Malang. Mentors: (1) Imam Tazi, M. Si. (2) Ach. Nashihuddin, M.A Keywords: absorption coefficient, computer simulation, when theb hum.
Clarity of speech (speech intelligibility) as the main criteria of the auditorium acoustic design is a function of time drone (RT60). Provision of optimal RT60 (0.5-1.0 seconds) spread evenly (diffuse) in the room is determined by the absorption factor and the geometry of space. This paper describes the use of Delphi as a program to design and placement positions in the auditorium sound system. Facilities RT60 statistical calculations, and other variable calculation makes Delphi as an acoustic simulation program that is adequate to determine placement in the room sound system. Variables taken from the blueprints of the building, variable absorption coefficient based material constants that have been there. The results of testing the software program showed that the application of the placement of the maximum distance a sound system of the audience can be known, the value of buzz at the time of each frequency, amplitude value and intensity of sound, even the sound system can be altered according to the number of spectators.
ABSTRACT Sari, Wahyu Fera Mufida. 2009. Simulation of Reverberation Time Sound System In SC Building State Islamic University of Malang Maulana Malik Ibrahim. Thesis. Department of Physics. Faculty of Science and Technology. State Islamic University (UIN) Malang. Mentors: (1) Imam Tazi, M. Si. (2) Nashihuddin, M.Ag. Keywords: absorption coefficient, computer simulation, reverberation time. The student Center Building of Islamic State University Maulana Malik Ibrahim Malang is flexible to us ein every moment, as multy function building with these need, the building should gives the enjoyment to the audience, mainly the acoustic enjoyment. The speech intelligibility as the main criteria of the auditorium acoustic design is a function of reverberation time (RT60). Provision of optimal RT60 (0.5-1.0 seconds) diffuse in the room is determined by the absorption factor and the geometry of space. Other, music would feel lively with the reverberation time between 1,0-2,0 second. This paper describes the use of Delphi as a program to design positions and the placement of auditorium sound system. Calculation of reverberation time 60 statistically, and other variable calculation makes Delphi as an acoustic simulation program that is adequate to determine placement sound system in the room. Room variables taken from the blueprints of the building, variable absorption coefficient based material constants that have been there. The results of testing software program showed that the maximal placement distance of a sound system to the audience can be known, reverberation time value, in each frequency, amplitude value and intensity of sound, even the sound system can be altered according the number of audiences. In the testing and calculation of reverberation time have known that reverberation time average in SC building is 2,001 which that reverberation time is suitable for use as concert room, not as meeting room.
SURAT PERNYATAAN ORISINALITAS PENELITIAN
Yang bertanda tangan di bawah ini: Nama
: Wahyu Fera Mufida Sari
NIM
: 04540008
Fakultas/Jurusan
: Saintek/ Fisika
Judul penelitian
: Simulasi Reverberation Time Sound System Efektif Pada Bangunan Gedung Sc Universitas Islam Negeri Maulana Malik Ibrahim Malang
Menyatakan dengan sebenar-benarnya bahwa hasil penelitian saya ini tidak terdapat unsur-unsur penjiplakan karya penelitian atau karya ilmiah yang pernah dilakukan atau dibuat oleh orang lain, kecuali yang secara tertulis dikutip dalam naskah ini dan disebutkan dalam sumber kutipan dalam daftar pustaka. Apabila ternyata hasil penelitian ini terbukti terdapat unsur-unsur penjiplakan, maka saya bersedia untuk mempertanggungjawabkan, serta diproses sesuai peraturan yang berlaku. Malang, 22, Desember 2009 Yang membuat pernyataan
WAHYU FERA MUFIDA SARI NIM. 04540008
1
BAB I PENDAHULUAN
1.1 Latar Belakang Universitas Islam Negeri Maulana Malik Ibrahim Malang merupakan salah satu perguruan tinggi negeri di Malang yang melengkapi dirinya dengan fasilitas penunjang guna mendukung kegiatan belajar mengajar, lapangan olah raga, gedung serba guna, serta beberapa fasilitas penunjang lainnya. Gedung serba guna yang dikenal dengan sebutan Student Center (SC) merupakan sebuah bangunan bertingkat, dimana di bangunan bawah berbentuk kolom-kolom yang digunakan sebagai ruang UKM, serta ruangan staf kemahasiswaan dan pada lantai dua bangunan berbentuk bentang lebar dengan tribun di samping kiri-kanannya. SC merupakan salah satu fasilitas penunjang yang banyak digunakan oleh kalangan mahasiswa ataupun karyawan. Mengingat konstruksinya sebagai bangunan bentang lebar, sehingga fleksibel untuk digunakan berbagai macam kegiatan (ruangan multi fungsi). Dengan frekuensi SC yang sering digunakan untuk berbagai aktivitas, seharusnya bangunan tersebut memberikan kenyamanan bagi para penggunanya. Auditorium dengan kapasitas besar dengan sistem penghawaan alami adalah tipikal auditorium yang dibangun di wilayah tropis dengan dana terbatas. Sebagai ruang pidato, auditorium menuntut penyediaan waktu dengung yang cukup pendek (0,5- 1,0 detik) untuk mengatasi penurunan kejelasan pengucapan (speech intelligibility). Di sisi lain, musik akan terasa hidup di dalam ruangan
2
dengan waktu dengung yang cukup panjang. Kedua persyaratan ini tentunya, menciptakan kondisi yang saling berlawanan, sehingga apa yang dibutuhkan di dalam mendesain ruang akustik sebuah auditorium adalah dengan melakukan satu pilihan penekanan fungsi akustik (untuk pidato saja) sebagaimana yang dilakukan pada studi ini (Agustinus Djoko Istiadji, 2007). Al-Qur’an menjelaskan bahwa penyediaan dan pemanfaatan alam ini, diperuntukkan sebesar-besarnya untuk kepentingan manusia, oleh karena itu, alam semesta ini bagi manusia merupakan obyek pemahaman dan sekaligus sebagai sumber pelajaran bagi manusia yang mau menggunakan akal pikirannya.
É=≈t6ø9F{$# ’Í<'ρT[{ ;M≈tƒUψ Í‘$pκ¨]9$#uρ È≅øŠ©9$# É#≈n=ÏF÷z$#uρ ÇÚö‘F{$#uρ ÏN≡uθ≈yϑ¡¡9$# È,ù=yz ’Îû āχÎ) ∩⊇⊃∪ Artinya: “Sesungguhnya dalam penciptaan langit dan bumi, dan silih bergantinya malam dan siang terdapat tanda-tanda bagi orangorang yang berakal” (QS. Al-‘Imran: 190) . Al-Qur’an juga menghimbau kepada manusia untuk memikirkan masa depannya dan berusaha merubah nasibnya melalui kegiatan-kegiatan yang dilakukan bertahap dan terus-menerus sesuai dengan ayat berikut:
öΝÍκŦàΡr'Î/B4($tΒρçÉitóヮLymΘöθs)Î/$tΒŸçÉitóãƒω!$#χÎ) 3 Artinya: “Sesungguhnya Allah tidak merubah keadaan sesuatu kaum sehingga mereka merubah keadaan yang ada pada diri mereka sendiri.” (QS.ar-Ra’d:11). Ayat di atas mengisyaratkan kepada manusia untuk senantiasa melakukan perubahan dalam hidupnya untuk mendapatkan kemudahan, terutama pada era modern sekarang ini.
3
Penekanan pada faktor kemudahan operasional dan kepraktisan membuat peralihan teknologi dari sistem analog ke sistem digital. Keadaan ini didasarkan pada tuntutan manusia yang selalu ingin memenuhi kebutuhannya secara cepat, praktis, dan efisien, bukan saja dalam memenuhi kebutuhan pokok sehari-hari tetapi juga mencakup penggunaan teknologi tepat guna. Pada penelitian yang sebelumnya mengenai desain interior ruangan auditorium multi fungsi, variabel yang diteliti
pada penelitan tersebut yakni
waktu dengung dan tingkat tekanan bunyi dengan bantuan software Ecotect. Pada penelitian tersebut masih terdapat kekurangan , yakni software tidak dapat menghitung nilai jarak maksimal ke pendengar, serta tidak dapat digunakan pada bangunan lain yang sejenis. Oleh peneliti kekurangan tersebut diperbaiki untuk mendapatkan perhitungan nilai jarak maksimal ke loudspeaker ke pendengar, serta dapat diketahui nilai perubahan daya yang digunakan pada sound system terlebih software dapat digunakan oleh bangunan-bangunan lain (Hedy C. Indrani, 2006s). Dari pernyataan teori tersebut di atas serta yang telah diisyaratkan oleh AlQur’an, maka akan diteliti berapa besar nilai waktu dengung, intensitas bunyi yang mempengaruhi penerimaan suara, sehingga judul penelitian ini nantinya ”Simulasi
Reverberation Time Sound System Efektif Pada Bangunan Gedung
SC Universitas Islam Negeri Maulana Malik Ibrahim Malang”. Karena penempatan Sound System yang tidak sesuai standar, akan berpengaruh terhadap kenyamanan penerimaan informasi pengguna bangunan tersebut. Penggunaan program komputer untuk simulasi akustik merupakan alternatif metode analisis akustik yang hemat waktu, biaya dan tenaga. Delphi
4
sebagai program computational building performance simulation menyediakan fasilitas untuk pendekatan desain akustik. Dengan graphic user interface yang dilakukan di bawah platform windows, program ini menjadi designer-friendly. Kelebihan ini memberi peluang bagi perancangan ruang akustik untuk memanfaatkan kecepatan dan ketepatan di dalam memperhitungkan dan memvisualisasikan hasil analisa, yang tentu akan berguna untuk mendukung pengambilan keputusan desain akustik ruang. Dari penelitian tersebut, diharapkan dapat dihasilkan data-data yang bermanfaat bagi perencanaan dan perancangan bangunan pada Universitas Islam Negeri Maulana Malik Ibrahim Malang selanjutnya.
1.2 Rumusan Masalah Rumusan masalah pada penelitian ini adalah: 1.
Apakah nilai waktu dengung pada bangunan SC sudah sesuai standar 0.5
2.
Bagaimana merancang pemodelan reverberation time pada gedung SC dengan menggunakan program Delphi?
I.3
Tujuan Penelitian Tujuan dari penelitian ini adalah :
1.
Menghitung nilai waktu dengung pada bangunan SC.
5
2.
Memberikan masukan bagi perencanaan dan perancangan bangunan di Universitas Islam Negeri Maulana Malik Ibrahim Malang atau pembangunan bangunan ditempat lainnya.
1.4
Batasan Masalah Mengingat luasnya permasalahan dan terbatasnya kemampuan dari
penulis, maka penulis membatasi masalah yakni: 1.
Variabel yang diteliti yaitu penggunaaan bahan-bahan penutup bidang permukaan pada elemen interior seperti dinding, keramik dan atap.
2.
Asumsi ruangan dianggap balok.
3.
Asumsi ruangan simetris.
1.5
Sistematika Penulisan Sistematika pembahasan dalam skripsi ini adalah sebagai berikut :
Bab I: Pendahuluan Pendahuluan menguraikan tentang latar belakang, rumusan masalah, tujuan, batasan masalah, metodologi, dan sistematika pembahasan masalah yang digunakan dalam pembuatan skripsi ini. Bab II: Tinjauan Pustaka Pada bab ini akan dibahas teori–teori secara garis besar standar kualitas suara auditorium, waktu dengung, efek desain interior pada ruangan, efek faktor geometri ruang pada akustik. Bab III: Perencanaan dan Pembuatan Perangkat lunak
6
Membahas secara lengkap tentang perencanaan dan pembuatan system simulasi yang nanti akan dipakai. Bab IV: Pengujian Alat dan Analisa Membahas tentang pengujian software dan menganalisa hasil dari system yang telah dibuat. Bab V Penutup Berisi tentang kesimpulan dan saran yang berdasarkan analisa hasil data yang diperoleh.
7
BAB II KAJIAN PUSTAKA
2.1
Auditorium multi fungsi Auditorium berasal dari kata ’audiens’ (penonton/penikmat) dan ’rium’
(tempat), sehinggaa auditorium dapat diartikan sebagai tempat berkumpul penonton untuk menyaksikan suatu pertunjukan tertentu (kamus besar bahasa indonesia: 1983). Berdasarkan jenis aktivitas yang dapat berlangsung di dalamnya, maka suatu auditotium dapat dibedakan menjadi: a. Speech auditorium yaitu auditorium mono fungsi untuk pertemuan dengan aktivitas utama percakapan (speech) seperti seminar, rapat, konferensi, kuliah dan sebagainya. b. Music auditorium yaitu auditortium mono fungsi dengan aktivitas utama sajian kesenian seperti seni musik, seni tari, teater musikal, dan sebagainya. Secara akustik, jenis auditorium ini masih dapat dibedakan lagi menjadi auditorium yang menampung aktivitas musik saja dan yang menampung aktivitas musik sekaligus gerak. c. Auditorium multi-fungsi, yaitu auditorium yang tidak dirancang secara khusus untuk fungsi percakapan atau musik saja, namun sengaja dirancang untuk mewadahi keduanya, yakni speech auditorium dan music auditorium. Agar sebuah auditorium multi fungsi dapat berfungsi maksimal bagi bermacam-macam aktivitas, maka auditorium tersebut harus memiliki bahan
8
penutup bidang permukaan interor yang fleksibel (mudah berubah-ubah), agar selalu mampu menyajikan RT yang ideal bagi setiap aktivitas yang berbeda-beda. Bila hal ini tidak terpenuhi maka dapat dipastikan kualitas akustik bagi setiap aktivitas di dalam auditotium tidak akan optimal (Doelle, 1972: 4).
2.2
Bunyi Bunyi menpunyai dua definisi: 1. Secara fisis, bunyi adalah penyimpangan tekanan, pergerakan 5partikel dalam medium elastis seperti udara. Ini merupakan bunyi obyektif. 2. Secara fisiologis, bunyi adalah sensasi pendengaran yang disebabkan penyimpangan
fisis.
Ini
adalah
bunyi
subyektif
misalnya;
kenyaringan bunyi (loudness) dan ketinggian bunyi (pitch) (Lessie L. Doelle, 1986:14). Secara umum bunyi menyatakan sensasi pendengaran yang lewat telinga dan timbul karena penyimpangan tekanan udara. Penyimpangan ini biasaanya disebabkan oleh beberapa benda yang bergetar, misalnya dawai gitar yang dipetik, atau gapu tala yang dipukul. Suara elemen yang bergetar ke depan dan merenggangkan udara sewaktu bergerak ke belakang menyebabkan gelombang terdengar. Udara tersebut mentransmisikan gangguan-ganguan ini keluar dari sumber sebagai sebuah gelombang. Sewaktu memasuki telinga, maka gelombanggelombang ini menghasilkan sensasi bunyi. Bentuk gelombang yang kira-kira periodik atau terdiri dari sejumlah kecil komponen yang kira-kira periodik akan
9
menimbulkan suatu sensasi yang menyenangkan (jika intensitasnya tidak terlalu tinggi). Bunyi yang mempunyai bentuk gelombang yang tidak periodik akan terdengar sebagai derau (noise). Derau dapat dinyatakan sebagai superposisi gelombang-gelombang periodik, tetapi banyaknya komponen adalah sangat besar (Halliday Ressnick, 1997:657) Rambatan gelombang bunyi disebabakan oleh lapisan perapatan dan perengaangan partikel-partikel udara yang bergerak ke arah luar, yaitu karena penyimpangan tekanan. Ini sama dengan penyebaran gelombang air pada permukaan suatu kolam dari titik di mana batu dijatuhkan. Partikel-partikel udara yang meneruskan gelombang bunyi tidak berubah
posisi normalnya, mereka
hanya bergetar sekitar posisi kesetimbangannya, yaitu posisi partikel bila tidak ada gelombang bunyi yang diteruskan, (Lessie L. Doelle, 1986: 14). Gelombanggelombang bunyi, jika tidak dirintangi, akan menyebar di dalam semua arah dari sumber.
2.3
Sumber Bunyi Menurut jumlah sumber getaran atau gerakan yang terjadi, bunyi dapat
dibedakan menjadi bunyi yang berasal dari sumber berbentuk titik dan bunyi yang berasal dari sumber berbentuk garis. Sumber bunyi yang terwujud sebagai titik adalah sumber yang muncul oleh adanya satu buah getaran saja (getaran tunggal). Selanjutnya bunyi ini terdistribusi atau merambat merambat dengan kekuatan yang sama kesegala arah, sehingga seolah-olah membentuk ruangan berwujud
10
bola. Sedangkan bunyi berwujud garis adalah bunyi yang dihasilkan oleh beberapa atau banyak getaran (majemuk). Pada sumber bunyi berbentuk garis, diasumsikan sebuah garis berada dalam suatu ruangan. Ketika bunyi terdistribusi atau merambat ke segalah arah, seolah-olah akan terbentuk akan terbentuk ruangan berwujud tabung atau silinder dengan sebuah garis sebagai pusat atau sumbunya. Karena dihasilkan oleh sumber tunggal, bunyi berbentuk titik memiliki kemampuan atau perambatan yang lebih rendah dari bunyi terbentuk garis bahwa pada sumber bunyi terbentuk titik, setiap kali jaraknya bertambah dua kali lipat dari sumber, maka kekuatannya akan turun sebesar 6 dB. Sedangkan pada sumber bunyi berbentuk garis, setiap kali jaraknya bertambah dua kali lipat dari sumber, maka kekuatannya akan turun 3 dB. Dalam kehidupan sehari-hari, terutama pada siang hari, jarang sekali kita mendengarkan bunyi yang berasal dari sebuah sumber tunggal, karena hampir tidak pernah terjadi kita mendengar satu-satunya bunyi yang muncul pada saat tertentu. Dalam waktu yang bersamaan, dapat dipastikan kita mendengarkan beberapa sumber bunyi sekaligus, misalnya bunyi percakapan teman, bunyi kendaraan bermotor melintas dan bunyi musik dari radio. Bahkan ketika radio tersebut berupa stereoset, meski bunyi hanya berasal dari satu radio, sumbernya sudah tidak berupa titik lagi, sebab setidaknya sudah ada dua speaker yang berbunyi. Hanya pada malam yang amat tenang, masih ada kemungkinan kita mendengarkan satu sumber bunyi saja, misalnya bunyi seekor jangkrik. Jenis bunyi (berwujud seperti garis) amat mudah kita jumpai di jalan raya yang super-sibuk, di mana aliran kendaraan berjalan tiada putus. Objek yang
11
berdiri di sisi jalan tersebut akan menerima distribusi dari sumber majemuk (Christina Eviustami Mediastika, 2005: 4-5).
2.4
Gelombang Bunyi Sama halnya dengan gelombang lainnya, gelombang bunyi dapat diukur
dalam satuan panjang gelombang, frekuensi dan kecepatan rambat. Mari kita tinjau satu-persatu. Panjang gelombang dinotasikan dengan lambang lamda ( λ ), adalah jarak antara dua
titik pada posisi yang sama yang saling berurutan,
misalnya jarak antara dua puncak gunung, atau jarak antara dua lembah. Panjang gelombang diukur dalam satuan meter (m) dan merupakan elemen yang menunjukkan kekuatan bunyi. Semakin panjang gelombangnya, semakin kuat pula bunyi tersebut, dalam arti, semakin jauh bunyi mampu merambat. Hal ini diperkuat oleh penelitian yang menunjukkan bahwa dalam medium udara, serapan udara pada bunyi dengan gelombang yang panjang, jauh lebih kecil dari serapan udara pada bunyi dengan gelombang yang pendek. Pada tingkat kecepatan rambat yang sama (dalam medium yang sama), bunyi dengan gelombang panjang identik dengan frekuensi rendah, dan demikian pula sebaliknya. Selain panjang gelombang, elemen bunyi yang lain adalah jumlah atau banyaknya getaran yang terjadi dalam setiap detik. Dalam pemodelan penggambaran kurva gunung dan lembah, frekuensi adalah banyaknya gelombang sinus (satu set kurva sinus terdiri dari satu gunung dan satu lembah setiap detik. Sesuai dengan nama penemunya, frekuensi dihitung dalam satuan Hertz (Hz). Jumlah getaran yang terjadi setiap detik tersebut sangat bergantung pada jenis
12
objek yang bergetar. Secara singkat, hal ini dapat diartikan sebagai bahan pembentuk objek tersebut. Oleh karena itu benda akan memiliki kekhasan bunyi yang berbeda dari benda lainnya. Dalam bahasa umum dapat diartikan bahwa benda memiliki kekhasan bunyi yang membedakannya dengan bunyi benda lainnya. Tanpa melihat, hanya dengan mendengar saja, seringkali kita dapat membedakan apakah suatu benda yang jatuh terbuat dari logam, kaca atau kayu. Bahkan ketika melalui pesawat telepon, kita juga dapat membedakan bunyi orangorang yang akan kita akrabi. Hal ini disebabkan karena setiap orang memiliki warna bunyi yang berbeda karena adanya perbedaan spektrum frekuensi. Ketika
yang
bergetar
adalah
sumber
tunggal,
gelombangnya
digambarkan sebagai gelombang sinusoidal. Sedangkan ketika beberapa bunyi yang berasal dari frekuensi yang berbeda muncul pada saat yang bersamaan, gelombang sinusoidal yang tergambar akan terdiri dari beberapa gelombang yang menyatu. Kemampuan telinga manusia dalam mendengarkan bunyi-bunyi yang muncul di sekitarnya dibatasi oleh ambang pendengarannya. Frekuensi terendah yang mampu didengar manusia berada pada 20 HZ sampai pada ambang batas atas 20.000 Hz. Bunyi-bunyi yang muncul pada frekuensi di bawah 20 Hz disebut bunyi infrasonik, sedangkan yang muncul di atas 20.000 Hz disebut bunyi ultrasonik. Dalam rentang 20 Hz sampai 20.000 Hz tersebut, bunyi masih dibedakan lagi menjadi bunyi-bunyi berfrekuensi rendah (dibawah 1000 Hz), frekuensi sedang (1000 Hz sampai 4000 Hz) dan frekuensi tinggi (di atas 4000 Hz). Penelitian menunjukkan bahwa manusia lebih nyaman mendengarkan bunyibunyi dalam frekuensi rendah(Christina Eviutami Mediastika, 2005: 6-7).
13
2.5
Kecepatan Rambat Gelombang Bunyi ν Elemen lain dari bunyi adalah kecepatan rambat bunyi dalam medium
tertentu. Laju gelombang bunyi berbeda untuk materi yang berbeda. Laju gelombang bunyi, seperti laju gelombang pada tali, juga bergantung pada sifat medium. Kecepatan rambat gelombang bunyi dapat menyebabkan cacat akustik seperti gaung (pemantulan yang berkepanjangan), gema dan dengung yang berlebihan. Untuk gelombang bunyi pada fluida (tinjauan dalam satu dimensi) seperti udara atau air, kecepatan rambat gelombang bunyiν diberikan oleh
ν=
Β
ρ
2.1
dengan ρ adalah rapat kesetimbangan medium dan Β adalah modulus limbak (bulk modulus). Untuk gelombang bunyi pada suatu batang padat dan panjang, modulus limbak di gantikan oleh modulus Young Y.
ν=
Υ
ρ
2.2
Dengan membandingkan persamaan 2.1 dan 2.2 untuk laju gelombang bunyi, kita dapat melihat bahwa secara umum, laju gelombang bergantung pada (Paul A. Tipler,1991:506): (1) Elastisitas medium, yaitu modulus Limbak atau Modulus Young, (2) Sifat inersial medium, yaitu rapat massa linier atau rapat massa volume. Untuk gelombang bunyi dalam gas seperti udara, modulus limbak berbanding lurus dengan tekanan, yang dengan sendirinya sebanding dengan
14
kerapatan ρ dan temperatur mutlak T. Dengan demikian maka kecepatan rambat gelombang bunyi tidak bergantung pada volume maupun pada tekanan, dan hanya sebanding dengan temperatur mutlak T. Persamaan 2.1 ekivalen dengan rumus laju bunyi dalam gas
ν=
γRT
2.3
M
Dalam persamaan ini, T merupakan temperatur mutlak yang diukur dalam Kelvin (K), yang dihubungkan dengan temperature Celcius tc oleh Τ = tc + 273
2.4
Konstanta R adalah konstanta gas universal, yang mempunyai nilai R = 8,314 J
2.5
mol.K
Konstanta M adalah massa molar gas (yaitu massa 1 mol gas), untuk udara bernilai M = 29 x 10-3 kg/mol
2.6
Dan γ merupakan konstanta yang bergantung pada jenis gas, dan untuk udara mempunyai nilai 1,4. Adapun konstanta kecepatan rambat gelombang bunyi (laju bunyi) di berbagai materi pada 20oC dan 1 atm adalah sebagai beriku: (Douglas C. Giancolli 1985: 410)
Materi
Tabel 2.1 Laju (m/s)
Udara
343
Udara (0oC)
331
15
2.6
Helium
1005
Hidrogen
1300
Air
1440
Air Laut
1560
Besi dan Baja
≈ 5000
Kaca
≈ 4500
Aluminium
≈ 5100
Kayu keras
≈ 4000
Intensitas Bunyi Gelombang-gelombang ditimbulkan oleh sumber titik yang bergerak naik
dan turun dengan gerakan harmonik sederhana. Panjang gelombang adalah jarak antara puncak-puncak gelombang berurutan, yang merupakan lingkaran-lingkaran konsentrik. Lingkaran-lingkaran ini disebut muka gelombang. Untuk sumber bunyi berupa titik, gelombang dipancarakan dalam tiga dimensi. Gelombanggelombang bergerak keluar ke semua arah, dan muka gelombang merupakan permukaan-permukaan bola konsentrik (Paul A. Tipler, 1991:512). Gerak kumpulan muka gelombang dapat ditunjukkan dengan sinar, yang merupakan garis berarah yang tegak lurus muka gelombang. untuk muka gelombang bola atau lingkaran, sinar merupakan garis-garis radial (Paul A. Tipller, 1998; 512-513). Seperti ketinggian, kenyaringan (pitch) merupakan sensasi dalam kesadaran manusia. Ketingggian juga berhubungan dengan besaran fisika yang dapat diukur, yaitu intensitas gelombang. Intensitas didefinisikan sebagai energi
16
yang dibawa sebuah gelombang per satuan waktu melalui satuan luas dan sebanding dengan kuadrat amplitudo gelombang. Karena energi per satuan waktu adalah daya, intensitas memiliki satuan daya per satuan waktu, atau watt/meter kuadrat (W/m2) (Douglass C. Giancoli, 2001: 410). Jika sumber titik memancarkan gelombang secara seragam ke semua arah, energi pada jarak r dari sumber akan terdistribusi secara seragam pada kulit bola berjari-jari r dan luas 4πr 2 . Jika P adalah daya yang dipancarkan oleh sumber,
daya per satuan luas pada jarak r dari sumber akan menjadi (Paul A. Tipler, 1991:513):
I=
Prata − rata 4πr 2
2.7
Telinga manusia dapat mendeteksi bunyi dengan intensitas serendah 1012
W/m2 dan setinggi 1 W/m2 (dan bahkan lebih tinggi, walaupun di atas ini akan
menyakitkan. Ini merupakan jangkauan intensitas yang luar biasa, mencakup faktor satu triliyun (1012) dari yang paling rendah sampai paling tinggi. Mungkin karena disebabkan oleh jangkauan yang lebar ini, kita menganggap kenyaringan tidak sebanding dengan intensitas. Untuk menghasilkan bunyi yang terdengar dua kali lebih keras dibutuhkan gelombang bunyi yang intensitasnya 10 kali lipat. Hal ini secara kasar berlaku di setiap tingkat bunyi untuk frekuensi di dekat pertengahan jangkauan yang bisa didengar (Douglas C. Giancolli, 2001:411). Karena hubungan antara sensasi subjektif dari kenyaringan dan besaran fisika terukur “intensitas” ini, biasanya tingkat intensitas bunyi dinyatakan dalam skala logaritmik. Satuan skala ini adalah bel, dari Alexander Graham Bell (1847-
17
1922), penemu telepon atau jauh lebih umum desibel (dB), yang merupakan
1 10
bel (10 dB = 1 bel). Tingkat intensitas β , dari bunyi didefinisikan dalam intensitasnya I, sebagai berikut (Douglas C. Giancolli, 2001:411):
β (dalamdB ) = 10 log
I , I0
2.8
Di mana I0 adalah intensitas tingkat acuan, dan logaritma adalah dari baris 10. I0 biasanya diambil dari intensitas minimum yang dapat didengar orang ratarata, yaitu “ambang pendengaran”, yang bernilai I o = 1,0 x10 −12W / m 2 (Douglass C. Giancoli, 2001; 410). Diatas telah dibahas bahwa frekuensi bunyi menentukan jenis atau warna bunyi yang muncul, sedangkan panjang gelombang bunyi menunjukkan kekuatan bunyi. Kekuatan ini tidak diartikan sebagai keras atau pelannya bunyi, namun kuat atau lemahnya getaran yang ditimbulkannya. Bunyi-bunyi berfrekuensi rendah adalah bunyi yang memiliki panjang gelombang yang besar. Semakin rendah frekuensinya semakin panjang gelombangnya sehingga semakin kuat getarannya. Oleh karena itu pada saat mempelajari bunyi-bunyi dengan frekuensi rendah, umumnya sekaligus dipelajari getaran yang terjadi (sound and vibratio). Ketika frekuensi dan panjang gelombang tidak menunjukkan keras atau pelannya bunyi, maka yang berpengaruh terhadap hal ini adalah amplitudo atau simpangan gelombang yang dilambangkan sebagai (A). Yang di rumuskan sebagai berikut:
A=
1 πf
I 2 ρν
2.9
18
Keterangan : f
: 125, 250, 500, 1000, 2000, 4000
ν
: Laju bunyi diu udara dengan suhu 20oC (343 m/s)
ρ
: Kerapatan udara (1.29 kg/m3) Tabel 2.2
Intensitas berbagai macam bunyi (Douglas, 2001:411)
Sumber Bunyi Pesawat jet pada jarak 30 m Ambang rasa sakit Konser rock yang keras dalam ruangan Sirine pada jarak 30 m Interior mobil yang melaju pada 90 km/jam Lalu lintas jalan raya yang sibuk Percakapan biasa, dengan jarak 50 cm Radio yang pelan Bisikan Gemerisik daun Batas pendengaran
2.7
Tingkat Intensitas (dB) 140 120 120 100 75 70 65 40 20 10 0
Intensitas (W/m2) 100 1 1 1 x 10-2 1 x 10-5 1 x 10-5 1 x 10-6 1 x 10-8 1 x 10-10 1 x 10-11 1 x 10-12
Telinga Manusia Manusia mendengarkan bunyi yang ada disekitarnya menggunakan indera
pendengaran. Telinga manusia, merupakan detektor bunyi yang sangat sensitif. Detektor bunyi mekanis, katakanlah mikrofon, tidak dapat menyamai telinga dalam mendeteksi bunyi yang berintensitas rendah (Christina Eviustami Mediastika, 2005:16). Fungsi telinga adalah untuk secara efisien merubah energi getaran dari gelombang menjadi sinyal listrik yang dibawa ke otak melalui saraf. Mikrofon melakukan tugas yang sama. Gelombang bunyi yang mengenai diafragma mikrofon yang mengetarkannya, dan getaran ini diubah menjadi sinyal listrik
19
dengan frekuensi yang sama, yang kemudian dapat dikuatkan dan dikirim ke pengeras suara atau tape recorder (Douglas C. Giancolli, 2001:414). Telinga dibagi menjadi tiga bagian utama dengan baik sekali: a.
Telinga luar Telinga luar terdiri dari daun telinga (dalam bahasa medis disebut
pinna) dan saluran telinga (yang disebut juga kanal telinga). Rangkaian telinga luar ini berfungsi menangkap gelombang bunyi dan meneruskannya ke gendang telinga yang terletak di ujung kanal. Bentuk daun telinga disesuaikan dengan tugasnya sebagai penangkap bunyi, yaitu berbentuk corong yang semakin membesar atau melebar ke arah luar. Sedangkan kanal berbentuk seperti pipa memanjang yang bertugas melindungi gendang telinga (Christina Eviutami Mediastika; 2005). Di telinga luar, gelombang bunyi dari luar merambat sepanjang saluran teliga ke gendang telinga (timpani), yang bergetar sebagai tanggapan terhadap gelombang yang menimpanya (Douglas C Giancolli, 2001).
Gambar 2.1 Gambar Penampang Telingan Luar b.
Telinga tengah Bagian telinga tengah dimulai dari gendang telinga, yaitu sebuah
membran yang sangat tipis. Membran ini akan menerima secara langsung
20
getaran yang telah ditangkap oleh daun telinga dan disalurkan melalui kanal. Oleh membran, getaran ini selanjutnya disampaikan pada tiga tulang pengumpil yang masing-masing disebut : maleus, incus dan stepes (dalam bahasa umum dikenal dengan nama: hammer, anvil dan stirrup). Ketiga tulang ini bertugas sebagai medium untuk menyesuaikan perpindahan getaran dari rongga berisi udara ke rongga berisi cairan yang mengisi telinga tengah. Rongga udara pada telinga tengah terhubung dengan kerongkongan melalui suatu aluran yang disebut eustachian. Pada telinga tengah juga terdapat tiga saluran setengah lingkaran berisi cairan yang bertugas mengatu keseimbangan manusia (Christina Eviustami Mediastika; 2005). Sistem pengungkit pada tiga tulang pengumpil yang halus ini, digabungkan dengan daerah yang relatif luas dari gendang telinga jika dibandingkan dengan luas jendela oval, menghasilkan tekanan yang dikuatkan dengan faktor sekitar 40. Telinga dalam terdiri dari saluran-saluran setengah lingkaran, yang penting untuk mengendalikan keseimbangan, dan rumah siput yang berisi cairan, di mana energi getaran dari gelombang bunyi di ubah menjadi energi listrik dan dikirimkan ke otak (Douglas C Giancolli, 2001).
Gambar 2.2 Gambar Penampang Telinga Tengah
21
c.
Telinga dalam Telinga dalam terdiri dari saluran berisi cairan yang berbentuk seperti
rumah siput yang disebut cochlea. Selain cairan, di dalam cochlea terdapat membran yang disebut balisar yang membagi rongga cochlea sepanjang saluran itu. Rangkaian telinga dalam ini bertugas untuk mengubah getaran mekanik yang diterimanya dari telinga menjadi denyut elektrik yang selanjutnya dikirim ke otak oleh sekitar 25.000 saraf yang terdapat di ujung akhir membran (Christina Eviutami Mediastika; 2005). Getaran bunyi merambat dari jendela oval, menempuh saluran vestibular dan kembali ke atas saluran timpani. Karena adanya viskositas cairan, terjadi peredaman yang cukup besar, tetapi energi yang tersisa dibuang di jendela bundar di ujung saluran timpani. Antara dua saluran ini ada saluran ketiga, yang disebut sebagai pembuluh rumah siput. Pada membran yang memisahkan pembuluh rumah siput dengan saluran timpani (membran basilar) terdapat “organ Corti”. Sementara gelombang tekanan melewati saluran timpani, gelombang ini menyebabkan riak-riak di membran basilar dan organ Corti yang melekat di situ, di sinilah energi diubah menjadi implus listrik
dan dikirim ke otak melalui saraf pendengaran. Membran basilar
mengalami tegangan, tetapi ketegangan tersebut berkurang dan membran menjadi lebih tebal dari telinga tengah menuju puncak rumah siput (Douglas C Giancolli, 2001:415). Uraian di atas menunjukkan bahwa mekanisme kerja telinga dalam menangkap dan menginterpretasikan bunyi tidak terlepas dari otak. Kondisi
22
telinga beserta kemampuan interpretasi tiap individu yang berbeda juga memiliki andil dalam menyebabkan penerimaan masing-masing individu pada sebuah bunyi yang berbeda-beda pula (Christina Eviutami Mediastika, 2005: 17).
Gambar 2.3 Gambar Penampang Telinga Dalam
2.8
Pemantulan bunyi Permukaan yang keras, tegar dan rata, seperti beton, bata, batu, polester
atau gelas memantulkan hampir semua energi bunyi yang jatuh padanya. Gejala pemantulan bunyi ini hampir serupa dengan pemantulan cahaya yang terkenal yang dikenal dengan hukum pemantulan, adapun bunyi hukum pemantulan cahaya adalah: ”sudut datang sama dengan sudut pantul” (Douglas C. giancolli, 2001:244). Jika hukum pantulan cahaya diterapkan pada gelombang bunyi maka, sinar bunyi datang dan pantul terletak dalam bidang datar sama dan sudut pantul bunyi datang sama dengan sudut pantul gelombang bunyi. Namun perlu diingat, bahwa panjang gelombang bunyi hanya berlaku jika panjang gelombang bunyi lebih kecil dibandingkan ukuran permukaan pemantul. Ini berarti bahwa penggunaan hukum pemantulan harus dipikirkan cermat untuk bunyi berfrekuensi rendah (Lessie L. Doelle, 1986:26).
23
Persamaan hukum pemantulan sesungguhnya hanya berlaku ketika bunyi menimpa penghalang yang memiliki permukaan licin sempurna dengan luas permukaan yang jauh lebih besar daripada panjang gelombang bunyi yang datang. Semakin keras, licin dan homogen suatu bidang batas yang memiliki kemampuan pantul yang besar akan terjadi pula tingkat pemantulan yang besar, sehingga tingkat kekerasan bunyi pada titik-titik berbeda dalam ruangan tersebut lebih kurang sama. Pada keadaan ini ruangan mengalami difusi dan semua cara pengukuran tingkat kekerasan bunyi tidak sahih. Namun demikian, sebuah ruangan normal umumnya tidak memiliki tingkat pemantulan difus. Pemantulan yang umumnya terjadi dapat digambarkan sebagai (Christina Eviustami Mediastika, 2005:77-78): a.
Near field, yaitu area yang terjadi di dekat sumber bunyi, yang jaraknya diukur sekitar satu panjang gelombang dari frekuensi bunyi tersebut, atau bila sumbernya mengeluarkan bunyi multifrekuensi, jaraknya diukur satu panjang gelombang dari bunyi frekuensi terendah.
b.
Reverberant
field, yaitu area yang terjadi di dekat bidang batas,
berseberangan dengan sumber bunyi. Mendekati bidang batas dan sangat memantul, reverberant field akan sangat dominan dan dapat mendekati kondisi difus. Meskipun sengaja dirancang memantulkan bunyi, untuk mendistribusikan bunyi secara merata, sebuah ruangan yang baik adalah ruangan yang jauh dari kondisi difus. c.
Free field, yaitu area yang berada di antara near dan reverberation field. Titik pada area yang cukup sahih untuk dipakai mengukur
24
tingkat kekerasan bunyi. Pada ruangan amat sempit yang bidang batasnya memantulkan bunyi, free field ini tidak terbentuk.
Gambar 2.4 skematik denah perambatan suara dalam ruang tertutup Near field
Free field
Reverberation field
Sound pressure level
Gambar 2.5 skematik potongan perambatan suara dalam ruang tertutup Perilaku bunyi di dalam ruang yang tertutup sangat tergantung pada karakteristik bidang batas menyebabkan pengukuran dengan cara Sound Pressure Level (SPL) menjadi kurang sahih. Oleh karena itu, diciptakanlah formula pengukuran tingkat kekerasan bunyi di dalam ruang dengan menggunakan Sound Power Level (PWL) : 4 1 SPL = PWL + 10 log + 2 R 4πr Dengan: SPL
= sound pressure level (dB)
PWL
= sound power level (dB)
r
= jarak dari sumber (m)
R
= konstanta ruangan (m2)
Sementara R dapat dicari dengan formula:
2.10
25
R=
Sα 1−α
2.11
Dengan: S = total luas permukaan pembentuk ruang (m2)
α = koefisien absorpsi
α = rata-rata koefisien absorpsi α dapat dicari dengan rumusan: α =
S1α1 + ..... + S nα n S1 + ..... + S n
2.12
Untuk memberikan suasana lebih hidup atau ‘live’, sebuah ruangan membutuhkan terjadinya pemantulan. Namun demikian sebagaimana telah diuraikan, pemantulan yang terjadi hendaknya tidak membuat ruangan berada dalam tingkat difus. Oleh karena itu, pemantulan yang berupa echo (gaung atau gema) selayaknya dihindarkan. Echo muncul bila pemantulan terjadi lebih lama 1/20 detik dari bunyi asli pada kecepatan rambat 340 m/s. waktu tunda (delay) ini identik dengan selisih jarak yang ditempuh bunyi asli dengan jarak yang ditempuh bunyi akibat pemantulan untuk sampai ke titik yang sama, lebih besar atau sama dengan 20,7 m. Echo biasanya muncul pada ruangan yang sangat besar dan dibatasi bidang memantul. Pada ruangan yang sempit memanjang dibatasi dinding memantul akan terjadi pemantulan berulang-ulang yang disebut flutter echo atau standing waves. Keadaan ini sebaiknya juga dihindari, karena akan mengurangi kualitas bunyi asli. Sebagaimana bidang batas yang terbentuk, maka pemantulan yang terjadi bisa berupa pemantulan yang tersebar (bila mengenai bidang batas mendatar atau
26
bidang batas cembung) dan bisa juga pemantulan terfokus (bila mengenai bidang batas cekung).
Reflektor (pemantul
Absorber (penyerap)
Gambar 2.6 pemantul, penyerap
datar cekung
baik buruk
bunyi bunyi
Gambar 2.7 medium pemantulan bunyi
2.9
Penyerapan Bunyi Bahan lembut, berpori dan kain serta juga manusia, menyerap sebagian
besar gelombang bunyi yang menumbuk mereka, dengan perkataan lain, mereka adalah penyerap bunyi. Menurut definisi, penyerapan bunyi adalah perubahan energi bunyi menjadi suatu bentuk lain, biasanya panas, ketika melewati suatu bahan atau ketika menumbuk suatu permukaan. Jumlah panas yang dihasilkan pada perubahan energi ini adalah sangat kecil, sedang kecepatan perambatan gelombang bunyi tidak dipenuhi oleh penyerapan. Sebenarnya semua bahan bangunan menyerap bunyi sampai batas tertentu, tetapi pengendalian akustik bangunan yang baik membutuhkan penggunaan bahan-bahan dengan tingkat penyerapan bunyi yang tinggi.
27
Dalam akustik unsur-unsur yang dapat menunjang penyerapan bunyi: 1. Lapisan permukaan dinding, lantai dan atap. 2. Isi ruangan seperti penontin, bahan tirai, tempat duduk dengan lapisan lunak dan karpet. 3. Udara dalam ruangan. Efisiensi penyerapan bunyi suatu bahan pada suatu frekuensi tertentu dinyatakan oleh koefisien penyerapan bunyi. Koefisien penyerapan bunyi suatu permukaan adalah bagian energi bunyi datang yang diserap, atau tidak dipantulkan oleh permukaan. Koefisien ini dinyatakan dalam huruf greek α . Nilai α dapat berada diantara 0 dan 1. Koefisien penyerapan bunyi berubah dengan sudut datang gelombang bunyi pada bahan dan dengan frekuensi. Nilai koefisien penyerapan bunyi pada suatu frekuensi tertentu, seperti yang ada dalam kepustakaan akustik arsitektur, dirata-rata terhadap semua sudut datang pada suatu frekuensi tertentu (datang acak). Standar untuk membuat daftar koefisien penyerapan bunyi pada frekuensi standar yang meliputi bagian yang paling penting dari jangkauan frekuensi audio, yaitu pada frekuensi 250, 2250, 500, 1000, 2000 dan 4000 Hz. Dalam kepustakaan akustik arsitektur dan pada lembaran informasi yang diterbitkan oleh pabrik-pabrik dan penyalur, bahan akustik komersial kadangkadang dicirikan reduksi bising (Noise Reduction Coefficient-NRC), yang rata-rata dari koefisien penyerapan bunyi pada frekuensi 250, 500, 1000, 2000 dan 4000 Hz (Lessi L Doelle;1986 ).
28
Sesuai dengan karakteristik materialnya, sebuah bidang batas selain dapat memantulkan kembali gelombang bunyi yang datang, juga dapat menyerap gelombang bunyi. Penyerapan ini akan mengakibatkan berkurang atau menurunnya energi bunyi yang menimpa bidang batas tersebut. Penyerapan oleh elemen pembatas ruangan sangat bermanfaat untuk mengurangi tingkat kekuatan bunyi yang terjadi, sehingga dapat mengurangi kebisingan di dalam ruang. Hal ini sekaligus bermanfaat untuk mengontrol waktu dengung (reverberation time). Tingkat penyerapan suatu material ditentukan oleh koefisien serap atau koefisien absorpsi material tersebut. Meskipun karakteristik material tidak berubah, koefisien absorpsi suatu material dapat berubah, menyesuaikan dengan frekuensi bunyi yang datang. Adapun koefisien absorpsi adalah angka yang menunjukkan jumlah atau proporsi dari keselurahan energi bunyi yang datang yang mampu diserap oleh material tersebut. Koefisien absorpsi α = jumlah suara yang diserap : total energi suara yang datang. Nilai maksimum ( α ) adalah 1 untuk permukaan yang menyerap (mengabsorpsi) sempurna, dan minimum adalah 0 untuk permukan yang memantulkan (merefleksi) sempurna. Oleh karena kemampuan absorpsi suatu material berubah-ubah sesuai frekuensi yang ada., maka ada beberapa jenis absorber yang sengaja diciptakan untuk bekerja efektif pada frekuensi tertentu. Adapun jenis-jenis absorpber yang umumnya dijumpai adalah:
29
a. Material berpori Penyerap yang terbuat dari material berpori bermanfaat untuk menyerap bunyi yang berfrekuensi tinggi, sebab pori-porinya yang kecil sesuai dengan besaran panjang gelombang bunyi yang datang. Material berpori efektif untuk menyerap bunyi berfrekuensi diatas 1000 Hz. Material berpori yang banyak digunakan adalah: soft-board, selimut akustik dan akustik tiles. b. Panel penyerap Penyerap ini terbuat dari lembaran-lembaran atau papan tipis yang mungkin saja tidak memiliki permukaan berpori. Panel semacam ini cocok untuk
menyerap
bunyi
berfrekuensi
rendah.
Cara
atau
proses
penyerapannya adalah sebagai berikut: -
Panel atau papan lembaran dipasang sebagai finishing dinding atau plafon. Pemasangannya tidak menempel pada elemen ruang secara langsung, tetapi pada jarak (dengan space) tertentu berisi udara.
-
Pada saat gelombang bunyi datang menimpal panel, panel ini akan ikut bergetar (sesuai frekuensi gelombang bunyi yang datang) dan selanjutnya meneruskan getaran tersebut pada ruang berisi udara di belakangnya.
-
Penyerapan maksimum akan terjadi bila panel beresonansi akibat memiliki frekuensi bunyi yang sama dengan gelombang bunyi yang datang.
30
-
Tingkat penyerapan yang terjadi dihitung menggunakan rumusan sebagai berikut: f =
60 md
2.13
Dengan: f = frekuensi material (Hz) (identik dengan frekuensi bunyi yang datang agar resonansi maksimal) m = massa panel (kg/m2) d = jarak/space udara (m) c. Rongga penyerap Penyerapan semacam ini disebut juga Helmholtz resonator, sesuai dengan nama penemunya. Rongga penyerap bermanfaat untuk menyerap bunyi pada frekuensi khusus yang telah diketahui sebelumnya. Rongga penyerap terdiri dari sebuah lubang yang sempit yang diikuti dengan ruang tertutup di belakangnya. Penyerap semacam ini sangat efektif bekerja pada frekuensi yang telah ditentukan dengan jalan menyerap atau ‘menangkap’ bunyi yang masuk ke dalam rongga tersebut. Efektivitas penyerapan dihitung dengan rumus sebagai berikut:
f = 55
a dV
2.14
Dengan: f = frekuensi material (Hz) (identik dengan frekuensi bunyi yang datang agar resonansi maksimal) a = luasan area lubang (m2)
31
d = kedalaman lubang (m) V = volume rongga di belakang lubang (m3) Tabel 2.3 koefisien serap bahan (Lessi L Doelle;1986) Bahan
Frekuensi
Hz
125
250
500
1000
2000
4000
Acoustic plaster, rata-rata
0.07
0.17
0.50.
0.60
0.68
0.66
Acoustic steel deck, 6 in (150 mm) ribs
0.58
0.64
0.71
0.63
0.47
0.40
Acoustone space tile, 32 in (81 cm) OC, per unit
0.22
0.81
1.88
2.28
2.16
1.83
Udara per volume 1000 ft3, kelembaban relative 50%
0.9
2.9
7.4
Udara per volume 100 m3, kelembaban relative 50%
0.3
0.90
2.4
Penonton dalam tempat duduk empuk per luas lantai
0.39
0.57
0.90
0.94
0.92
0.87
Tempat duduk empuk, kosong, per luas lantai
0.19
0.37
0.56
0.67
0.61
0.59
Tempat duduk, kosong, per luas lantai
0.15
0.25
0.36
0.40
0.37
0.35
Bangku kayu, kosong, per luas lantai
0.37
0.44
0.67
0.70
0.80
0.72
Pemusik, dengan tempat duduk dan alat musik, per orang
4.0
8.5
11.5
14.0
13.0
12.0
Bata, telanjang, tidak dihaluskan, tidak dicat
0.03
0.03
0.03
0.04
0.05
0.07
Karpet, berat pada beton
0.02
0.03
0.03
0.04
0.05
0.07
Karpet berat, pada 40 oz (1.35 kg/m2) bulu atau karet busa
0.08
0.24
0.57
0.69
0.71
0.73
Balok beton tidak dicat
0.36
0.44
0.31
0.29
0.39
0.25
Kain, velour medium, 14 oz (0.48 kg/m2), digantung
0.07
0.31
0.49
0.75
0.70
0.60
Lantai beton/teraso
0.01
0.01
0.015
0.02
0.02
0.02
Lantai linoleum, vinyl, karet atau lantai gabus pada beton
0.02
0.03
0.03
0.03
0.03
0.02
Lantai kayu
0.15
0.11
0.10
0.07
0.06
0.07
Lantai panggung kayu, dengan ruangan udara dibawahnya
0.40
0.30
0.20
0.17
0.15
0.10
Tegel geocoustic, 32 in (81 cm) OC, per unit
0.13
0.74
2.35
2.53
2.03
1.73
Gelas, pelat berat
0.18
0.06
0.04
0.03
0.02
0.02
Jendela biasa
0.35
0.25
0.18
0.12
0.07
0.09
Gypsum board ½ in (13 mm), pada tiang 2x3 in (50x100
0.29
0.10
0.05
0.04
0.07
0.09
Plaster, gypsum/lime, permukaan halus, pada bata
0.013
0.015
0.02
0.03
0.04
0.05
Plaster,gypsum pada balok beton
0.12
0.09
0.07
0.05
0.05
0.04
sampai setengah luas
mm), 16 in (41 cm) OC
32
Plester, gypsum/lime pada papan
0.14
0.10
0.05
0.04
0.07
0.09
Plaster pada papan, diatas ruang udara, atau pada tiang
0.30
0.15
0.10
0.05
0.04
0.05
Plywood, ¼ in (6 mm) di atas 3 in (75 mm) ruang udara, 1
0.60
0.30
0.10
0.09
0.09
0.09
Sound box unit, type B, 8 in (20 cm), dicat
0.74
0.57
0.45
0.35
0.36
0.34
Panel kayu, 3/8 in sampai ½ in (10 sampai 13 mm) di atas
0.30
0.25
0.20
0.17
0.15
0.10
in (25 mm) latar belakang fiber glass
ruang udara 2 sampai 4 in (50 sampai 100 mm) ruang udara
2.10
Difusi Bunyi Difusi atau difus adalah gejala terjadinya pemantulan yang menyebar.
Karena gelombang bunyi menerpa permukaan yang tidak rata. Gejala ini dipakai untuk menghilangkan terjadinya flutter echoes
atau pemantulan
berulang-ulang ketika bunyi memantul mengikuti hukum ‘sudut pantul = sudut datang’ (Christina Utami Mediastika, 2005:86) . Difusi bunyi yang cukup adalah ciri akustik yang diperlukan pada jenis-jenis ruang tertentu (ruang konser, studio radio dan rekaman dan ruangruang musik), karena ruang-ruang ini membutuhkan distribusi bunyi yang merata, mengutamakan kualitas musik dan pembicaraaan aslinya, dan menghalangi terjadinya cacat akustik yang tidak diinginkan. Difusi dapat diciptakan dengan berbagai cara: 1. Pemakaian permukaan dan elemen penyebar yang tidak teratur dalam jumlah yang banyak sekali, seperti pilaster, pier, balok-balok telanjang, langit-langit yang terkotak-kotak, pagar balkon yang dipahat dan dinding yang bergerigi.
33
2.
Penggunaan lapisan permukaan pemantul bunyi dan penyerap bunyi secara bergantian.
3. Distribusi lapisan penyerap bunyi yang berbeda secara tidak teratur dan acak. Harus diingat bahwa ukuran keseluruhan dari permukaan yang menonjol dan ukuran dari tempelan lapisan penyerap harus cukup besar dibanding panjang gelombang bunyi dalam seluruh jangkauan frekuensi audio. Pyoyeksi penonjolan permukaan tak teratur harus mencapai paling sedikit sepertujuh panjang gelombang bunyi yang harus didisfusikan (lesie L. Doellee, 1986; 27).
2.11
Difraksi Bunyi Difraksi adalah peristiwa menerusnya atau membeloknya perambatan
gelombang bunyi akibat ketidakmampuan penghalang berdimensi kecil untuk menahannya. Selain diakibatkan oleh dimensi penghalang yang kecil, difraksi gelombang bunyi dapat terjadi ketika bidang batas atau penghalang memiliki celah atau lubang untuk dilalui. Akibat adanya gejala difraksi gelombang bunyi, ketika kita sengaja membangun penghalang untuk menahan penyebaran gelombang bunyi, hendaknya kita memperhatikan gejala ini (Christina Utami Mediastika, 2005:86). Dengan kata lain, difraksi, yaitu pembelokan dan penghamburan gelombang bunyi sekeliling penghalang, lebih nyata pada frekuensi rendah daripada frekuensi tinggi. Ini membuktikan bahwa hukum akustik geometri tidak sesuai untuk meramal dengan tepat kelakuan bunyi dalam ruang tertutup
34
karena penghalang yang biasanya ada dalam akustik raung adalah terlampau kecil dibanding dengan panjang gelombang bunyi yang dapat didengar. Walaupun akustik geometri merupakan pendekatan yang berguna bila berhubungan dengan masalah-masalah yang berkaitan dengan bunyi frekuensi tinggi, akustik geometri ini hampir tak dapat digunakan untuk frekuensi di bawah 250 Hz. Dengan perkataan lain, bunyi frekuensi rendah (gelombang panjang besar) tidak akan mengikuti hukum akustik geometri bila mereka berhubungan dengan elemen arsitektur dengan ukuran kecil. Khususnya mereka tidak akan merambat dalam arah yang lurus melewati lubang dan tidak akan terdifraksi atau dihamburkan oleh elemen akustik skala kecil (Lesie L. Doellee, 1986; 28). Pengalaman memberikan banyak bukti bahwa balkon yang dalam mengakibatkan suatu bayangan akustik bagi penonton di bawahnya, dan dengan jelas menyebabkan hilangnya bunyi frekuensi tinggi (panjang gelombang pendek) yang tidak membelok sekitar tepi balkon yang menonjol. Hal ini menciptakan keadaan mendengar yang jelek di bawah balkon. Namun difraksi mengurangi cacat akustik ini, walaupun hanya untuk jangkauan frekuensi audio di bagian tengah (Lesie L. Doellee, 1986; 28).
2.12
Waktu Dengung Bila bunyi tunak (steady) dihasilkan dalam suatu ruang, tekanan bunyi
membesar secara bertahap, dan dibutuhkan berapa waktu (dalam kebanyakan ruang sekitar 1 sekon) bagi bunyi untuk mencapai nilai keadaan tunaknya.
35
Dengan cara yang sama, bila sumber bunyi telah berhenti, satu waktu yang cukup lama akan berlalu sebelum bunyi hilang (meluruh) dan tidak dapat didengar. Bunyi yang berkepanjangan ini sebagai akibat pemantulan yang berturut-turut dalam ruang tertutup setelah sumber bunyi dihentikan disebut dengung. Ia mempunyai pengaruh yang berbeda terhadap kondisi mendengar dalam auditorium karena kehadirannya mengubah persepsi atau tanggapan terhadap bunyi transient, yaitu bunyi yang mulai dan berhenti dengan tibatiba. Dalam pengendalian dengung dalam auditorium, bunyi transient dari pidato dan musik perlu dilindungi dan ditingkatkan untuk menjamin inteligibilitas pembicaraan yang tertinggi dan kenikmatan musik yang terlengkap (Lesie L. Doellee, 1986; 28). Pentingnya
pengendalian
dengung
dalam
rancangan
akustik
auditorium telah mengharuskan masuknya besaran standar yang relevan, yaitu waktu dengung atau reverberation time (RT). Ini adalah waktu agar TTB (Tingkat Tekanan Bunyi ) dalam ruang berkurang 60
dB setelah bunyi
dihentikan. Atau dengan kata lain waktu dengung adalah waktu yang dibutuhkan oleh suatu sumber bunyi yang dihentikan seketika untuk turun intensitasnya sebanyak 60 dB dari intensitas awal. Waktu dengung pada sebuah ruangan akan bergantung pada : Volume ruangan, luas permukaan bidang-bidang pembentuk ruangan, tingkat penyerapan permukaan bidang, dan frekuensi bunyi yang muncul dalam ruangan. Melalui waktu dengung, kualitas akustik suatu ruangan dapat ditentukan. Setiap ruangan dengan fungsi tertentu memiliki waktu dengung ideal, sesuai dengan aktivitas yang
36
diwadahinya. Secara garis besar, aktivitas di dalam ruangan yang berkaitan dengan akustik alamiah (tanpa peralatan yang menggunakan listrik) dibedakan menjadi : a. Aktivitas berbicara (speech), waktu dengung yang disarankan 0.5 sampai 1 detik, dengan waktu dengung ideal 0.75 detik. b. Aktivitas musik, waktu dengung disarankan 1 sampai 2 detik, dengan waktu dengung ideal 1.5 detik c. Untuk fungsi-fungsi lainnya, bisa dilihat pada tabel Table 2.4 Kesesuaian waktu dengung menurut fungsi ruangan (Mc Mullan, 1991) Fungsi ruangan
Volume ruangan (m3)
Waktu dengung (detik)
Kantor
30
0.5
100
0.75
100
0.5
1000
0.8
500
0.9
5000
1.5
500
1.5
5000
1.8
Ruang konferensi
Studio musik
Gereja
Waktu dengung dapat dihitung langsung pada suatu ruangan yang telah dipergungkaan dengan memakai bantuan Sound Level Meter (SLM) dan stop wacth. Prinsipnya adalah menyiapkan sumber bunyi dan meletakkan SLM pada area free field. Pastikan bahwa sumber mengeluarkan bunyi dengan intensitas
37
lebih tinggi dari 60 dB agar memudahkan peghitungan saat bunyi turun intensitasnya sebanyak 60 dB (agar bunyi tidak bernilai negatif). Selain untuk menentukan kualitas akustik suatu ruangan yang telah berdiri atau telah dipergunakan, perencanaan reverberation time suatu ruangan yang tengah direncanakan.
Formula sabine diperuntukkan bagi penghitungan
reverberation time pada ruangan yang tersusun dari elemen bidang batas yang sangat menyerap, seperti yang umumnya terjadi pada ruang studio, formula Eyring lebih tepat digunakan. Adapun formula sabine berwujud sebagai berikut: RT =
0.15V A + xV
2.15
Dimana; RT = waktu dengung atau Reverberation Time Persamaan rumusan diatas dipergunakan nuntuk menghitung waktu dengung bunyi pada frekuensi rendah (biasanya500 Hz), sebab ketika frekuensi melebihi 1000 Hz, absjorpsi udara harus diperhitungkan dalam reverberation time, sehingga formulanya menjadi: A = α1S1 + α 2 S 2 + α 3 S3 + .... + α n S n
2.16
Penyerapan suatu permukaan diperoleh dengan mengalikan luasnya S dengan koefisien penyerapan a, dan penyerapan ruang total A diperoleh dengan menjumlahkan perkalian-perkalian ini dengan mengikutsertakan penyerapan yang dilakukan oleh penonton
38
2.13
Resonansi Ruang Air yang dituangangkan ke dalam guci atau kendi menghasilkan bunyi
deguk (gurgling), frekuensinya naik secara bertahap bila jumlah air dalam guci bertambah. Udara dalam guci beresonansi pada frekuensi-frekuensi tertentu (seperti kamar mandi, yang dengan resonansinya sendiri, mendorong semangat menyanyi penyanyi-penyanyi awam). Suatu ruangan tertutup dengan permukaan interior pemantul bunyi tanpa diingkan menonjolkan frekuensi-frekuensi tertentu, yang disebut ragam pemantulan getaran normal (normal modes of vibration) ruang tersebut (Lessie L. Doelle, 1985:32). Pada saat mempelajari akustika bangunan penting kiranya dikemukakan mengenai resonansi. Resonanasi adalah peristiwa ikut bergetarnya objek yang berada pada jarak tertentu dari sebuah objek sumber bunyi yang bergetar, karena objek yang ikut bergetar tersebut memiliki kesamaan atau kemiripan frekuensi dengan objek sumber bunyi yang bergetar. Resonansi akan terjadi sangat kuat bila dua objek tersebut sama persisi frekuensinya, namun tidak terlalu kuat ketika jarak kedua objek cukup dekat. Selain diakibatkan oleh kesamaan aau kemiripan frekuensi, resonansi juga dapat terjadi ketika objek sumber bunyi yang bergetar adalah objek yang memiliki kekuatan getaran yang hebat (objek dengan panjang gelombang yang besar atau objek denga frekuensi rendah), sehingga mampu menggetarkan objek lain yang tidak memiliki kedekatan frekuensi (Christina Eviutami Mediastika, 2005:9). Ruang mempunyai ragam normal dalam jumlah yang banyak, dan tergantung pada bentuk dan ukurannya. Efek ragam normal yang mengganggu,
39
terutama jelas pada jangkauan frekuensi rendah, di mana ragam ini tidak didistribusikan secara sama, pengaruhnya yang merusak dapat dikurangi dengan cara: 1. Membagi ruangan secara akustik 2. Dengan secara tidak teratur menempatkan dinding ruang 3. Dengan secara berlimpah-limpah menggunakan permukaan tak teratur (penyebar/difusser), atau 4. Dengan mendistribusikan elemen penyerap secara merata pada dinding-dinding batas.
2.14
Keteraturan Dalam Perspektif Al-Qur’an Membahas masalah pengaturan, yang maha pengatur adalah Allah, karena
Allah berhak atas semua yang ada di langit dan yang ada di bumi. Hal ini dijelaskan dalam Al-Qur’an surat Az-Zumar ayat 62:
∩∉⊄ ×≅‹Ï.uρ &óx« Èe≅ä. 4’n?tã uθèδuρ ( &óx« Èe≅à2 ß,Î=≈yz ª!$# Artinya: “Allah menciptakan segala sesuatu dan Dia memelihara segala sesuatu”(QS. Az-Zumar:62). Kalimat “segala sesuatu” mencakup apa saja kecuali Alllah, karena sesuatu tidak mungkin menciptakan diri-Nya sendiri. Pernyataan ini mengandung konsekuensi kewajiban segala sesuatu untuk tunduk dan patuh kepada-Nya sebagai tuhan Yang Maha Esa, karena dialah sumber wujud mereka (M. Quraish Shihab, 2002: 259). Ayat di atas menjelaskan betapa sang Maha pencipta Allah SWT telah mengatur isi jagat raya, sehingga di dalamnya berlaku hukum-hukum alam dan
40
keteraturan. Menjadikan sesuatu memiliki kadar, serta system tertentu dan teliti baik itu yang berkaitan dengan materi, maupun waktu seperti pagi, siang, sore dan malam semuanya itu telah diatur oleh ketentuan Allah SWT. Maksudnya, dialah yang menerapkan seluruh ketetapan dan hukum yang diberlakukan terhadap semua makhluk Nya sesuai kehendak dan keingginann-Nya. Allah SWT berfirman dalam Al-Qur’an surat At-thalaq ayat 3:
4 ÍνÌøΒr& à Î=≈t/ ©!$# ¨βÎ) 4 ÿ…çµç7ó¡ym uθßγsù «!$# ’n?tã ö≅©.uθtGtƒ tΒuρ 4 Ü=Å¡tFøts† Ÿω ß]ø‹ym ôÏΒ çµø%ã—ötƒuρ ∩⊂∪ #Y‘ô‰s% &óx« Èe≅ä3Ï9 ª!$# Ÿ≅yèy_ ô‰s% Artinya:. “Dan memberinya rezki dari arah yang tiada disangkasangkanya. Dan barangsiapa yang bertawakkal kepada Allah niscaya Allah akan mencukupkan (keperluan)nya. Sesungguhnya Allah melaksanakan urusan yang (dikehendaki)Nya. Sesungguhnya Allah telah mengadakan ketentuan bagi tiap-tiap sesuatu”(QS.At-thalaq:3). Ayat ini menjelaskan bahwa orang yang bertaqwa kepada Allah akan memperoleh jalan keluar dari kesulitan dunia dan akhirat. Ayat ini menekankan bahwa barang siapa menyrahkan dirinya kepada Allah, niscaya Allah memeliharanya dari segala macam kesulitan dunia dan akhirat. Hendaklah aseorang hamba bersungguh-sungguh untuk memperoleh sesuatu yang diingkan dengan bertawakal kepada Allah, sehingga Allah pun membuka jalan dan memudahkan dia mencapai maksudnya. Dan Allah pasti melaksanakna semua hukum-Nya terhadap makhluk-Nya dan Allah telah menjadikan ukuran dan waktu bagi segala sesuatu. Maka, janganlah kamu bersedih hati bila belum memperoleh sesuatu karena urusan itu tergantung pada waktunya dan menurut kadar yang ditentukan (Teungku Muhammad Hasbi ash-Shiddieqy, 2000: 4262-4263).
41
Ayat ini menerangkan kepada kita semua bagaimana konsep pengaturan alam. Alam semesta ini diatur dengan tatanan yang sangat rapi, hal itu menunjukkan keseimbangan kontrol yang di buat oleh Allah SWT untuk kemaslahatan dan kelangsungan hidup makhluk-Nya (Abdullah bin Muhammad; 2007 : 448-449).
42
BAB III METODOLOGI PENELITIAN
3.1
Waktu dan Tempat Penelitian Penelitian ini akan dilakukan pada tanggal 10 Oktober 2009 di
Laboratorium Jurusan Fisika UIN Malik Ibrahim Malang.
3.2
Jenis Penelitian Jenis penelitian adalah perancangan software.
3.3
Rancangan penelitian Penelitian ini akan dilakukan simulasi penempatan sound system pada
bangunan SC yang mana variabel yang mempengaruhi adalah sebagai berikut: 1. Panjang, lebar, luas dan volume ruangan yang di ukur sesuai dengan blue print bangunan gedung. 2. Luasan permukaan permasing-masing bahan (dinding, lantai, atap, dan tribun) 3. Nilai serap bahan pada permukaan di ambil menurut koefisien penyerapan bunyi bahan-bahan bangunan, bahan akustik, dan isi ruang yang telah ada. 4. Waktu dengung diukur berdasar nilai koefisien serap yang ada, bukan menggunakan Sound Level Meter (SLM). 5. Waktu dengung dihitung dengan menggunakan rumus Sabine, RT =
0.16V . A + xV
6. Frekuensi yang digunakan sesuai dengan frekuensi wakil dari jangkauan frekuensi audio, yakni pada frekuensi 125 Hz, 250 Hz, 500 Hz, 1000 Hz, 2000 Hz, 4000 Hz.
43
7. Pada amplitudo, kecepatan rambat udara diasumsikan pada suhu 27oC yakni sebesar 47.6 m/s. 8. Sistem
ekualisasi
(equalization)
diasumsikan
normal,
karena
merupakan efek subjektif pada setiap audiens. 9. Hubungan antara jarak loudspeaker, audiens dan waktu dengung dihitung dengan rumus: d = 0.18 × (
3.4
QV ) RT
Perangkat keras dan perangkat lunak Perangkat lunak dalam pembuatan Program pemodelan ini dengan
menggunakan program Delphi. Dan Perangkat keras dengan Personal Computer (PC) Intel pentium IV 500 MHz.
3.5
Bangunan Bangunan yang diteliti dalam penelitian ini adalah gedung Student Center
Universitas Islam Negeri Maulana Malik Ibrahim Malang.
3.6
Prosedur Penelitian Untuk menganalisis masalah bunyi sound system pada bangunan
Universitas Islam Negeri Maulana Malik Ibrahim Malang, maka terdapat langkahlangkah sebagai berikut: 1. Mempetakan bangunan menjadi bentuk persegi panjang. 2. Mengukur setiap luasan bahan dinding, lantai dan atap. 3. Mengukur volume ruang. 4. Menentukan bahan yang digunakan pada tiap luasan dinding, lantai dan atap. 5. Menghitung waktu dengung, intensitas bunyi, amplitudo dan jarak penempatan loudspeaker ke audiens.
44
3.7
Perancangan Software Adapun hasil simulasi software pemodelan penempatan sound system ini
terbagi menjadi dua bagian kontrol dalam satu form, yakni kontrol data gedung dan kontrol simulasi. Dibawah ini merupakan flowcart dari software:
45
3.8
Diagram alir penelitian Mulai
Mengukur dan menghitung variabel input bangunan Pembuatan program
Pengujian
Hasil
Kesimpulan Berdasarkan diagram diatas penelitian ini dapat didiskripsikan sebagai berikut: 1. Penelitian dimulai dengan studi literatur yaitu mempelajari materi-materi yang berhubungan dengan bunyi dan akustik bangunan. 2. Menghitung nilai input-an. 3. Membuat program pemodelan akustik dengan menggunakan program Delphi. 4. Menguji program dengan memberikan masukan pada panjang, lebar, tinggi, koefisien serap bahan, dan daya yang digunakan. 5. Menganalisis hasil dari program pemodelan dengan membandingkan hasil yang di lapangan dengan hasil simulasi. 6. Menyimpulkan hasil penelitian.
46
BAB IV HASIL DAN PEMBAHASAN 4.1
Penghitungan Secara umum, pengujian ini bertujuan untuk mengetahui apakah software
yang dibuat dapat bekerja sesuai dengan spesifikasi perencanaan yang telah ditentukan. Pengujian dilakukan untuk mengatahui kerja perangkat lunak pada masing-masing input-an sistem, antara lain pengujian waktu dengung, pengujian intensitas bunyi, pengujian amplitudo dan pengujian jarak loudspeaker ke audiens.
4.1.1
Penghitungan Volume Ruang Sebelum penghitungan volume ruang dimulai, maka harus melakukan
pengukuran pada bangunan yang meliputi panjang, lebar dan luas serta memetakan bentuk bangunan. Pengukuran dan pemetaan bangunan dapat dilakukan dengan menggunakan cetak biru gedung, karena setiap gedung instansi selalu mempunyai cetak biru. Adapun gambar cetak biru bangungan Student Center Universitas Islam Negeri Maulana Malik Ibrahim Malang ditunjukkan seperti gambar pada lampiran 2. Mengacu berdasarkan cetak biru bangungan yang ada, maka diperoleh data seperti pada tabel 4.1 di bawah ini: Atap
Lantai
Dinding
Tribun
Pnj
65
m
Pnj
60
m Pnj
49
m
Pnj/alas
40 m
Lbr
45
m
Lbr
40
m
Lbr
28
m
Lbr
5
Luas
2925 m2
Luas
2400 m2
Luas
1372 m2
Luas
100 m2
m
47
Panjang 60 Lebar 40 Tinggi 10 Volume 24000 m3 Tabel 4.2 Volume Ruang
4.1.2
Penghitungan Waktu Dengung Setiap ruangan mempunyai kebutuhan bunyi dengung yang berbeda-beda.
Bunyi dengung dapat dibutuhkan ataupun dihindari, tergantung penggunaan ruangan. Ruangan khusus untuk berceramah tidak begitu membutuhkan dengung dibanding ruangtan untuk panduan suara. Sebaliknya, bila tanpa dengung sama sekali, ruangan tentu kurang menarik bagi panduan suara. Waktu dengung (RT60, 0.5 ≤ RT 60 ≤ 1.8 ) adalah waktu yang diperlukan oleh bunyi untuk meluruh 60 dB, dihitung dalam detik. Adapun rumus dari waktu dengung RT =
0.15V A + xV
Α = α 1 S1 + α 2 S 2 + α 3 S 3 + α 4 S 4
Pers. 4.1 Pers. 4.2
Keterangan ; V
:Volume Ruang
A
: Penyerapan ruangan total
x
: Koefisien penyerapan udara
S
: luas permukaan
α
: koefisien penyerapan bahan
Frekuensi yang digunakan : 125, 250, 500, 1000, 2000, 4000
48
Dengan koefisien serap bahan lantai, dinding, atap serta tribun masingmasing sebagai berikut berdasar frekuensinya: Atap
Dinding
Lantai
Lantai + kursi
Tribun
Frek
α
Frek
α
Frek
α
Frek
α
Frek
α
125
0.30
125
0.013
125
0.40
125
0.01
125
0.39
250
0.1
250
0.015
250
0.30
250
0.01
250
0.57
500
0.10
500
0.02
500
0.20
500
0.015
500
0.90
1000
0.05
1000
0.03
1000
0.17
1000
0.02
1000
0.94
2000
0.04
2000
0.04
2000
0.15
2000
0.02
2000
0.92
4000
0.05
4000
0.05
4000
0.10
4000
0.02
4000
0.87
Tabel
4.3 koefisien serap bahan
Dari koefisien serap bahan dan luasan bahan, maka dapat dihitung nilai waktu dengungnya: f
A (penyerapan ruangan total)
RT (sekon)
125 250 500 1000 2000 4000
2336 887,35 616,4 453,44 420 697,95 Tabel 4.4 Waktu Dengung
1,54 4,057 5,84 0,47 0,16 0,06
Adapun proses perhitungan matematis dapat di lihat pada lampiran
49
4.1.3
Penghitungan Intensitas Bunyi Intensitas bunyi adalah banyaknya energi bunyi per satuan luasan, diukur
dengan watt/m2. energi sumber bunyi acuan adalah energi sumber bunyi terendah yang masih dapat didengar manusia, yaitu 10-12 W/m2 dan energi sumber bunyi tertinggi adalah 1 W/m2. adapun rumus dari intensitas adalah sebagai berikut: Misalkan, diketahui nilai daya (P) adalah 120 W, dengan jarak 5 m, maka di dapatkan nilai: Ι=
P 4πr 2
Pers. 4.3
120 4 × 3.14 × 25 Ι 5 = 0.382W / m 2 Ι5 =
4.1.4
Penghitungan Amplitudo Frekuensi bunyi menentukan jenis atau warna bunyi yang muncul,
sedangkan panjang gelombang bunyi menunjukkan kekuatan bunyi. Kekuatan ini tidak diartikan sebagai keras atau pelannya bunyi, namun kuat atau lemahnya getaran yang ditimbulkannya. Bunyi-bunyi berfrekuensi rendah adalah bunyi yang memiliki panjang gelombang yang besar. Semakin rendah frekuensinya semakin panjang gelombangnya sehingga semakin kuat getarannya. Oleh karena itu pada saat mempelajari bunyi-bunyi dengan rekuensi rendah, umumnya sekaligus dipelajari getaran yang terjadi (sound and vibratio). Ketika frekuensi dan panjang gelombang tidak menunjukkan keras atau pelannya bunyi, maka yang berpengaruh terhadap hal ini adalah amplitudo atau
50
simpangan gelombang yang dilambangkan sebagai (A), dimana dengan panjang gelombang berkisar antara 10 cm – 3 m. A dapat dituliskan dengan rumus: A=
1 πf
I
Pers. 4.4
2 ρν
Keterangan : f
: 125, 250, 500, 1000, 2000, 4000
ν
: Laju bunyi di udara dengan suhu 20oC (343 m/s)
ρ
: Kerapatan udara (1.29 kg/m3)
Adapun contoh nilai amplitudo dengan jarak sound system ke pendengar sebesar 5 m, maka dari masing-masing frekuensi yang telah di tentukan akan diperoleh nilai sebagai berikut: f 125 250 500 1000 2000 4000
Tabel
A (Amplitudo / m) 5,293 x 10-6 2,65 x 10-5 1,32 x 10-5 6,624 x 10-6 3,312 x 10-6 1,656 x 10-6
4.5 amplitudo
Adapun proses perhitungan matematis dapat dilihat pada lampiran.
51
4.1.5
Penghitungan Jarak Maksimal Loudspeker ke Audiens Jarak loudspeaker ke
audiens (d) sangat penting guna mendapatkan
kenyamanan peneriamaan suara sound system. Adapun rumus dari d adalah sebagai berikut: 0.5
QV d = 0.18 × m RT
Pers. 4.5
Dengan : d
= jarak maksimum loudspeaker ke pendengar, m
Q
=direktivitas loudspeaker (antara 2-15, semakin besar nilainya berarti semakin terfokus, untuk suara orang direktivitasnnnya adalah 2)
V
= Volume ruang,
RT = Waktu dengung Jika volume ruang telah diketahui sebesar 24000 m3, dan nilai RT 1,54 sekon pada frekuensi 4000 Hz, serta besarnya nilai direktivitas sound (Q) 5, maka dapat dihitung nilai d sebesar 50,24 meter.
4.2
Hasil simulasi Adapun hasil simulasi software pemodelan penempatan sound system ini
terbagi menjadi dua bagian kontrol dalam satu form, yakni kontrol data gedung dan kontrol simulasi. Software ini tidak hanya dapat digunakan fokus pada bangunan gedung SC Universitas Islam Negeri Malang, namun juga dapat digunakan pada bangunan lainnya, dengan mengubah entri masukan dengan cara:
52
- Klik kiri mouse pada file - Klik data gedung - Klik laporan/delet pada menu yang telah disediakan - Klik kanan pada menu ruangan/alamat - Pilih menu edit untuk mengedit, atau menu delet untuk menghapus masukan data - Masukkan data pada tabel yang telah tersedia - Tangkah terakhir klik simpan Tampilan dari software ini untuk kontrol data gedung adalah sebagai berikut:
Gambar 4.1 Kontrol Data Gedung Pada kontrol data gedung menampilkan panjang lebar serta luas ruangan, serta koefisien serap masing-masing bahan sesuai dengan frekuensinya. Sedangkan tampilan dari kontrol simulasi adalah sebagai berikut:
Gambar 4.2
kontrol Simulasi
53
Yang mana pada kontrol simulasi ini menerangkan tentang nilai-nilai variabel output yang telah diperoleh. Adapun variabel output tersebut meliputi A (penyerapan ruangan total), RT (Waktu Dengung), Daya sound, jarak sound terhadap penonton, intensitas bunyi (I), Kuat bunyi (dB), serta d yakni jarak loudspeaker ke audiens. Adapun untuk lebih mendetail dari tampilan software tersebut, maka tampilan dapat dipisahkan menjadi: 1. Inisialisasi gedung
Gambar 4.3 Inisialisasi Gedung
2. Koefisien serap bahan
Gambar 4.4 Koefien serap bahan
3. Variabel Input
Gambar 4.5 Variabel Input
54
4. Variabel Output
Gambar 4.6 Variabel output
5. RT
Gambar 4.7 Nilai Waktu dengung
6. Variabel pelengkap
Gambar 4.8 Variabel pelengkap
55
4.2.1 Hasil Simulasi Data Ruang Hasil perhitungan pada program didapatkan hasil sebagai berikut:
Gambar 4.9
Hasil simulasi data ruang
Dimana nilai tersebut diatas sesuai dengan perhitungan matematis, adapun penulisan listing programnya adalah sebagai berikut: P2.Caption:=fDm.Ruangan.FieldByname('Lantai_Luas').AsString; E6.Caption:=fDm.Ruangan.FieldByname('Atap_Panjang').AsString; E7.Caption:=fDm.Ruangan.FieldByname('Atap_Lebar').AsString; P3.Caption:=fDm.Ruangan.FieldByname('Atap_Luas').AsString; E9.Caption:=fDm.Ruangan.FieldByname('Dinding_Panjang').AsString; E10.Caption:=fDm.Ruangan.FieldByname('Dinding_Lebar').AsString; P4.Caption:=fDm.Ruangan.FieldByname('Dinding_Luas').AsString; E12.Caption:=fDm.Ruangan.FieldByname('Tribun_Panjang').AsString; E13.Caption:=fDm.Ruangan.FieldByname('Tribun_Lebar').AsString; P5.Caption:=fDm.Ruangan.FieldByname('Tribun_Luas').AsString;
4.2.1
Hasil Simulasi Waktu Dengung Hasil perhitungan pada program didapatkan hasil sebagai berikut:
56
Gambar 4.10 Hasil simulasi waktu dengung Adapun penulisan listing program tersebut adalah sebagai berikut: //mencari RT V:=STrToFloat(E9.CAption) * STrToFloat(E10.CAption) * (10); S5.Cells[3,1]:= FLoatTostr(( (15/100) * V ) / ( STrToFloat(S5.Cells[2,1]) + ( 0 * V))); S5.Cells[3,2]:=FLoatTostr(( (15/100)*V ) / ( STrToFloat(S5.Cells[2,2]) + ( 0 * V) )); S5.Cells[3,3]:=FLoatTostr(( (15/100)*V ) / ( STrToFloat(S5.Cells[2,3]) + ( 0 * V))); S5.Cells[3,4]:=FLoatTostr(( (15/100)*V ) / ( STrToFloat(S5.Cells[2,4]) + ( (3/10) * V);
4.3
Pembahasan Hasil perhitungan menunjukkan RT60 rata-rata pada frekuensi 125-4000
Hz berkisar antara 2,001 yang mana pada interval tersebut sesuai untuk jenis music auditorium (1
57
Apabila
bangunan
konferensi/auditorium
tersebut
multi-fungsi
akan
di
maka
gunakan
sebagai
hendaknya
ruangan dilakukan
pemasangan/penambahan/penggantian bidang serap yang telah ada pada bagianbagian tertentu berdasarkan perilaku energi suara terhadap geometri ruang guna menghasilkan nilai RT60 yang optimum terurama untuk frekuensi tinggi. Nilai RT60 untuk bangunan tersebut sebenernya masih dalam jangkauan nilai optimum untuk pertunjukan musik. Namun apabila hasil perhitungan dibaca lebih detail maka nilai tersebut kurang memenuhi syarat, perlu adanya pengurangan bidang serap dengan mengkaji ulang analisa akustiknya secara lebih mendetail. Penentuan bidang serap yang akan dipasang didasarkan pada dua pertimbangan. Pertama, mengurangi panjang perjalanan suara dengan meredam energinya sehingga garis suara yang memiliki kemungkinana terpentul berulangulang karena dua bidang pantul yang rapat (ruang dengan bentuk empat persegi panjang) akan diserap guna mengurangi efek gaung atau gema. kedua, suara pantul diharapkan tiba pada pendengar selambat-lambatnya dengan waktu tempuh kurang dari 20 ms (mili second, mili detik, seperseribu detik) untuk bunyi pantulan dan telah melemah energinya guna meningkatkan speech level dan speech intelligibility serta mengurangi ketegangan suara, hasil saling bertabrakan maupun pengaburan suara (blur). Ruangan musik berbentuk empat persegi panjang sebaiknya mempunyai perbandingan panjang dan lebar kurang dari 2. Secara empiris terbukti bahwa gedung konser yang baik di Eropa mempunyai perbandingan tinggi dan lebar lebih besar 0,7. Serta pemukaan pantul bunyi di dekat panggung harus dapat memantulkan bunyi kembali ke panggung, sehingga
58
pemain dapat merasakan respon ruangan yang memadai (Prasasto Satwiko ; 2008: 344).
4.4
Rekomendasi Untuk Pengelola SC Berdasarkan perhitungan manual dan software yang telah dibuat diketahui
bahwa nilai rata-rata RT pada bangunan SC adalah sebesar 2,001 detik, dengan nilai ideal RT sebesar 1,54 detik pada frekuensi 125 Hz, nilai RT tertinggi sebesar 5,8 detik pada frekuensi 500 Hz dan nilai terendah RT sebesar 0,06 detik pada frekuensi 4000 Hz. Hal ini menunjukkan bahwa bangunan SC cocok digunakan sebagai ruang pertemuan dengan frekuensi pada sound system sebesar 125 Hz, namun hal tersebut mustahil, karena pada bangunan dengan karakteristik bentang lebar frekuensi yang digunakan biasanya frekuensi tinggi diatas 1000 Hz. Melihat data yang telah ada di atas, maka penulis merekomendasikan beberapa hal terkait dengan bangungan SC Universitas Islam Maulana Malik Ibrahim Malang: 1. Sebaiknya bangunan SC di desain dan di bangun ulang dengan melibatkan ahli akustik pada pembangunan selanjutnya. 2. Dalam meningkatkan kualitas akustik berkarakter speech maupun music, peletakan bahan (absorbtif/reflektif) pada luasan bidang permukaan elemen interior juga perlu mendapat perhatian. 3. Untuk meningkatkan ketajaman speech guna menghasilkan dengung yang tidak berlebihan, bahan absorber berbentuk baffle yang tidak dicat
59
(baffle: 3” unpainted berukuran 0,60 x 1,20 m) yang dapat berfungdi bolak-balik harus ditempatkan pada lokasi 2/3 bagian plafon (di atas temnpat duduk penonton) seluas 4,64% dan tirai berat terlipat (drapery: 476 g/m, pleated 50%) di dinding seluas 25,86%. 4. Untuk memperoleh dengung yang cukup panjang dan echo, bafflel yang tidak dicat (baffle: 3” unpainted) dilepas dari plafon dan tirai berat berlipat (drapery: 476 g/m, pleated 50%) disingkap dari dinding sekeliling tempat duduk penonton serta menambahkan luasan bidangbidang reflektif sebesar 11,82% dengan cara melepas tirai pada dinding panggung dan karpet absorber pada wilayah 1/3 area tempat duduk penonton. 5. jika tidak mempertimbangkan biaya, jenis bahan absorber produk luar negeri merupakan bahan akustik dengan sistem modular yang dapat dipergunakan dengan praktis dan mudah beradaptasi dengan kebutuhan aktivitas yang berbeda-beda. Hal ini sesuai dengan pendapat Doelle, yang menyatakan bahwa koefisien absorpsi bahan tertentu sangat menentukan perubahan kualitas suara akustik ruang. Bahan-bahan absorptif dengan total koefisien penyerapan tinggi ( α >0,2) dipergunakan untuk peningkatan kualitas akustik berkarakter speech, sedangkan bahan-bahan reflektif dengan total koefisien penyerapan rendah ( α <0,2) dipergunakan untuk peningkatan kualitas akustik berkarakter musik.
60
4.5 Pemodelan Sebagai Miniatur Keteraturan Alam Penggunaan konsep pengaturan telah digambarkan oleh Allah dalam pengaturan alam semesta sebagaimana FirmanNya:
ö≅yδ u|Çt7ø9$# ÆìÅ_ö‘$$sù ( ;Nâθ≈xs? ÏΒ Ç≈uΗ÷q§9$# È,ù=yz †Îû 3“ts? $¨Β ( $]%$t7ÏÛ ;N≡uθ≈yϑy™ yìö7y™ t,n=y{ “Ï%©!$# ∩⊆∪ ×Å¡ym uθèδuρ $Y∞Å™%s{ ç|Çt7ø9$# y7ø‹s9Î) ó=Î=s)Ζtƒ È÷s?§x. u|Çt7ø9$# ÆìÅ_ö‘$# §ΝèO ∩⊂∪ 9‘θäÜèù ÏΒ 3“ts? Artinya: “ Yang Telah menciptakan tujuh langit berlapis-lapis. kamu sekali-kali tidak melihat pada ciptaan Tuhan yang Maha Pemurah sesuatu yang tidak seimbang. Maka Lihatlah berulang-ulang, Adakah kamu lihat sesuatu yang tidak seimbang? Kemudian pandanglah sekali lagi niscaya penglihatanmu akan kembali kepadamu dengan tidak menemukan sesuatu cacat dan penglihatanmu itupun dalam keadaan payah” (QS. Al-mulk: 3-4). Ayat diatas menjelaskan bahwa Allahlah yang menciptakan kematiann dan
kehidupan, serta menetapkan mati dan hidupnya terhadap segala sesuatu yang telah berwujud di dunia. Untuk masing-masing itu Allah menentukan waktunya, dan hanya Dia sendiri yang mengetahuinya. Allahlah yang telah menciptakan tujuh lapis langit, sebagiannya diletakkan diatas sebagian yang lain di angkasa yang tinggi, tanpa tiang penyangga dan pengikat, sedangkan masing-masing mempunyai aturan-aturan yang kukuh, serta tidak menjumpai suatu kekurangan atau ketidakselarasan dalam penciptaan Allah (Teungku Muhammad Hasbi ashShiddieqy, 2000: 4289-4290). Ayat ini mejelaskan betapa sang maha pencipta Allah SWT telah mengatur isi jagat raya, sehingga di dalamnya berlaku hukum-hukum alam dan keteraturan. Konsep pengaturan alam semesta ini dengan tatanan yang sangat rapi sebagaimana telah diuraikan diatas, hal ini menunjukkan keseimbangan kontrol yang dibuat oleh Allah SWT untuk kemaslahatan demi kelangsungan hidup makluk-Nya (Abdullah bin Muhammad, 2007: 448-449).
61
Kontrol otomatis pada alam semesta ini menggambarkan bagaimana Allah SWT telah mengatur alam semesta ini dengan pengaturan yang sangat baik sesuai dengan hukum-hukum dan ketentuan-Nya. Ayat ini menjadikan gambaran alat yang dibuat sesuai dengan hasil penelitian, dimana software yang dibuat dapat dikontrol secara otomatis dan disesuaikan dengan kebutuhan penggunaan sound system, maupun jumlah penontonnya. Dengan di buat software penempatan sound system efektif, maka di harapkan dapat ditentukan tempat yang sesuai untuk penempatan sound system berdasar nilai matematisnya. Berkenaan dengan keefektifan, keefisienan dan keekonomisan ini dalam Al-Qur’an sangatlah dianjurkan. Dalam Al-Qur’an dijelaskan:
ß≈sÜø‹¤±9$# tβ%x.uρ ( ÈÏÜ≈u‹¤±9$# tβ≡uθ÷zÎ) (#þθçΡ%x. tÍ‘Éj‹t6ßϑø9$# ¨βÎ)
∩⊄∉∪ #ƒÉ‹ö7s? ö‘Éj‹t7è? Ÿωuρ ∩⊄∠∪ #Y‘θàx. ϵÎn/tÏ9
Artinya: “…Dan janganlah kamu menghambur-hamburkan (hartamu) secara boros, Sesungguhnya pemboros-pemboros itu adalah saudara-saudara syaitan dan syaitan itu adalah sangat ingkar kepada Tuhannya” (QS. Al-Israa’: 26-27). Kata () tabdzir (pemborosan) dipahami oleh ulama’ dalam arti pengeluaran yang bukan haq. Al-Qur’an disini melarang menghambur-hamburkan harta, seperti yang ditafsirkan oleh Ibnu Mas’ud, yang dimaksud dengan menghambur-hamburkan harta disini adalah menginfakkan harta bukan dalam kebaikan dan bukan untuk sesuatu yang bermanfaat. (Quraish Shihab, 2002: 451) Kemudian dalam ayat 27 Allah SWT memperingatkan betapa buruknya menghambur-hamburkan harta itu dengan mengklasifikasikannya dengan syaitan.
62
yakni, saudara dalam keborosan, kebodohan, pengabaian terhadap ketaatan dan kemaksiatan kepada Allah. (Ahmad Mushthafa Al-Maraghi, 1993: 69). Ayat ini menganjurkan kepada manusia untuk selalu membiasakan hidupnya tidak bersikap boros baik dalam menggunakan harta dan waktunya yakni selalu bersikap ekonomis dan efisien. Ayat ini sesuai dengan tujuan penelitian dimana software yang dibuat dapat dioperasikan untuk memenuhi kebutuhan manusia secara ekonomis dan efesien karena membutuhkan biaya dan waktu yang sedikit dalam pengoperasiannya. Dalam Al-Qur’an Allah SWT juga menjelaskan sebagaimana firman-Nya:
∩∉∪ #Zô£ç„ Îô£ãèø9$# yìtΒ ¨βÎ) ∩∈∪ #ô£ç„ Îô£ãèø9$# yìtΒ ¨βÎ*sù Artinya: “Karena Sesungguhnya sesudah kesulitan itu ada kemudahan, Sesungguhnya sesudah kesulitan itu ada kemudahan.” (QS. Asy-Syarah: 5-6) Ayat diatas seakan-akan menyatakan: jika engkau telah mengetahui dan menyadari betapa besar anugrah Allah itu, maka dengan demikian, menjadi jelas pula bahwa sesungguhnya bersama atau sesaat sesudah kesulitan ada kemudahan yang besar, sesungguhnya bersama kesulitan ada kemudahan yang besar. Kata ( ) اal-‘usr digunakan untuk sesuatu yang sangat keras atau sulit atau berat. Sedangkan kata ( ) yusr dalam kamus-kamus bahasa digunakan untuk menggambarkan sesuatu yang mudah, lapang, berat kadarnya atau banyak (seperti harta). Allah SWT dalam ayat ini bermaksud menjelaskan salah satu sunnah-Nya yang bersifat umum dan konsisten yaitu, ”setiap kesulitan pasti disertai atau disusul
oleh
kemudahan
selama
yang
bersangkutan
bertekat
untuk
63
menanggulanginya”. Betapapun beratnya kesulitan yang dihadapi, pasti dalam celah-celah kesulitan itu terdapat kemudahan-kemudahan. ayat ini memesankan agar manusia berusaha menemukan segi-segi positif yang dapat dimanfaatkan dari setiap kesulitan, karena bersama setiap kesulitan terdapat kemudahan. Ayat-ayat ini seakan-akan berpesan agar setiap orang mencari peluang pada setiap tantangan dan kesulitan yang dihadapi. (Quraish Shihab, 2003 : 361-363). Ayat di atas juga mengisyaratkan kepada kita bahwa kita akan memperoleh kelapangan beserta kesempitan. Kitapun bisa mencapai apa yang kita maksudnya, walaupun sarana untuk mencapainya tidak mencukupi, asal kita sabar danbertawakal kepada Tuhan. Karena Allah telah menetapkan bahwa kelapangan bersama-sama kesukaran. Apaila kamu bersabar dan dengan kemauan yang kuat dan kamu mengerjakan dengan sekuat tenagamu untuk melepaskan diri dari kesukaran, maka akan datanglah kemudahan sesudah kesukaran itu (Teungku Muhammad Hasbi ash-Shiddieqy, 2000: 4632-4633). Ayat ini sesuai dengan tujuan pembuatan software penempatan sound system efektif yang dibuat. Dimana dengan dibuatnya software ini menjadikan lebih mudah dan baik dalam
penempatan sound system di gedung Student Center
Universitas Islam Maulana Malik Ibrahim Malang karena dikontrol secara otomatis. Pengaturan sound system yang seimbang antara daya, penonton serta bentuk ruangan sangat diperlukan guna mendapatkan kenyamanan. Jika daya yang digunakan terlalu besar maka dan ruangnya kecil, maka dapat dipastikan suara
64
yang dihasilkan akan memekakkan telinga, bahkan mungkin dapat merusak gendang telinga kita. Karena telinga manusia merupakan organ yang vital bagi kehidupan. Begitu pula sebaliknya jika daya yang digunakan terlalu kecil pada ruangan besar maka dapat dipastikan pula akan suara yang dihasilkan tidak jelas. Untuk itu diperlukanlah sebuah pengaturan penempatan sound system yang sesuai guna mendapatkan kenyaman pendengaran.
65
BAB V PENUTUP
5.1 Kesimpulan Dari hasil penelitian dan pembahasan tentang simulasi reverberation time sound system efektif pada bangunan Universitas Islam Negeri Maulana Malik Ibrahim Malang yang telah diuraikan di atas maka dapat ditarik kesimpulan sebagai berikut: 1. RT rata-rata pada bangunan SC UIN Malang sebesar 2,001 yang mana waktu dengung tersebut cocok digunakan sebagai ruang konser. 2. Perangkat lunak dari sistem yang dibuat (Bahasa Delphi) dapat menghitung nilai I, RT, d, A dan menentukan jumlah kursi serta sound system yang di kehendaki oleh operator. 3. Software pemodelan yang dibuat dapat bekerja sebagaimana mestinya setelah didukung oleh perangkat keras (hardware) dan perangkat lunak (software).
5.2 Saran 1. Perlu pengkajian lebih lanjut mengenai tribun, serta perangkat pendukung lainnya yang terdapat pada bangunanan SC. 2. Menggunakan bahasa pemrogaman yang sesuai dengan kontruksi bangunan, misalnya ecotec, room mode. 3. Pada
bangunan
SC
sendiri
penambahan/penggantian
material
perlu serap
adanya pada
peredam,
bagian-bagian
atau tertentu
66
berdasarkan perilaku energi suara guna menghasilkan nilai RT60 yang optimum terutama untuk frekuensi tinggi. 4. Untuk perancangan dan pembangunan bangunan lain selanjutnya, arsitek perlu memahami atau menghayati karakter sumber bunyi. Pemahaman akan gelombang bunyi memudahkan arsitek membayangkan sifat-sifat bunyi dan perilakunya di saat merancang karya arsitektural tertentu.
67
Daftar Pustaka
Abdullah bin Muhammad. 2007. Tafsir Ibnu Katsir. Bogor: Pustaka Imam Asy-Syafi’i. Asy-Syiddieqy, Teungku Muhammad Hasbi. 2007. Tafsir Al-Qur’anul Majid AnNur jilid 5, P.T Pustaka Rizki Putra: Semarang. C. Indrani, Hedy. 2006. Dimensi teknik Arsitektur Vol. 35, Univ. Petra: Surabaya. Doelle, Lessie L. 1972. Akustik Lingkungan, Erlangga: Jakarta. Giancolli, Douglas C. 1998. Fisika, Jakarta: Erlangga. Kinsler, Lawrence E., Frey, Austin R., Coppens, Alan B., Sanders. 2000. James V., Fundamental of Acoustic. USA: John Willey and Sons. Inc. Mediastika, Eviustami Christina. 2005. Akustika Bangunan Prinsip-Prinsip dan Penerapannya di Indonesia, Jakarta: Erlangga. Satwiko, Prasasto. 2008. Fisika Bangunanan, Andi: Yogyakarta. Shihab, Quraish. 2003. Tafsir Al-Misbah Pesan Kesan Dan Keserasian AlQur’an. Jakarta: Lentera Hati . Tippler, Paul A. 1991. Fisika Untuk Sains dan Teknik, Jakarta: Erlangga
68
Lampiran 1 Perhitungan Variabel
1.
Luas per area
Atap
Lantai
Dinding
Tribun
Pnj
65
m
Pnj
60
m
Pnj
49
m
Pnj/alas
40 m
Lbr
45
m
Lbr
40
m
Lbr
28
m
Lbr
5
Luas
2925 m2
Luas
2400 m2
Luas
1372 m2
Luas
100 m2
m
Rumus yang di gunakan pada perhitungan luas area atap, dinding dan lantai pada dasarnya sama yakni dengan Rumus : Luas = panjang X lebar Yang membedakan hanya nilai panjang dan lebar masing-masing area. Sedangkan rumus yang di gunakan pada perhitungan area tribun berbeda, karena tribun di asumsikan berbentuk segitiga sama siku, untuk mencari luasnya biasanya di gunakan rumus : Luas = ½ alas (panjang) X tinggi (lebar) Sehingga perhitungan dari luassan area tersebut dapat dituliskan sebagai berikut: -
Latap = 65 X 45 = 2925 m2
-
LDinding
= 60 X 40
69
= 2400 m2 -
LLantai = 49 X 28 =1372 m2
-
LTribun = (½ X 40) X 5 = 100 m2
2.
Volume ruangan Volume Ruang Total Panjang 60 Lebar 40 Tinggi 10 Volume 24000 m3
Rumus yang di gunakan untuk menghitung Volume ruang adalah : V = Panjang X Lebar X Tinggi V = 60 X 40 X 10 V = 24000 m3
3.
Penyerapan ruangan total Rumus yang di gunakan pada penyerapan ruangan total berdasarkan koefisien serap bahan adalah: Α = α 1 S1 + α 2 S 2 + α 3 S 3 + α 4 S 4
A125
= (0.40 x 1372) + (0.30 x 2925) + (0.013 x 2400) + (0.01 x 100) = 2336
70
A250
=(0.30 x 1372) + (0.15 x 2925) + (0.015 x 2400) + (0.01 x 100) + (0.57 x 2925) = 887,35
A500
=(0.20 x1372) + (0.10 x 2925) + (0.02 x 2400) + (0.015 x 100) + (0.90x 2925) = 616,4
A1000 =(0.17 x1372) + (0.05 x 2925) + (0.03 x 2400) + (0.02 x 100) + (0.94 x 2925) =453,44 A2000 =(0.15 x1372) + (0.04 x 2925) + (0.04 x 2400) + (0.02 x 100) + (0.92 x 2925) =420 A4000 =(0.10 x1372) + (0.05 x 2925) + (0.05 x 2400) + (0.02 x 100) + (0.87 x 2925) = 697,95
4.
Waktu dengung RT =
0.16V A + xV
Adapun proses perhitungannya sebagai berikut:
0.16 × 24000 1713.692 + (0 × 24000 ) = 1,54
RT125 = RT125
71
0.16 × 24000 887.35 + (0 × 24000 ) = 4,057
RT250 = RT250
0.16 × 24000 1270.758 + (0 × 2400 ) = 5,84
RT500 = RT500
0.16 × 24000 475.49 + (0.3 × 24000 ) = 0,47
RT1000 = RT1000
0.16 × 24000 1142.52 + (0.9 × 24000 ) = 0,16
RT2000 = RT2000
0.16 × 24000 427.45 + (2.4 × 24000 ) = 0,06
RT2000 = RT4000
5.
Intensitas Bunyi Rumus Umum Intensitas Bunyi adalah Ι=
P 4πr 2
Dengan daya 120 W, jarak sound dengan penonton sejauh 5 meter, maka di peroleh nilai I sebesar: 120 4 × 3.14 × 25 Ι 5 = 0.382W / m 2 Ι5 =
72
6.
Kuat bunyi Dimana hubungan antara sensasi subjektif dari kenyaringan dan besaran fisika terukur “intensitas” ini, biasanya tingkat intensitas bunyi dinyatakan dalam skala logaritmik. Satuan skala ini adalah bel, dari Alexander Graham Bell (1847-1922), penemu telepon atau jauh lebih umum desibel (dB), yang merupakan
1 bel (10 dB = 1 bel). Tingkat 10
intensitas β , dari bunyi didefinisikan dalam intensitasnya I, sebagai berikut
β = 10 log
Ι , Ιo
Jika diketahui nilai I sebesar 0.382 W/m2, maka nilai tingkat intensitas bunyi sebesar
0.382 10 −12 β 5 = 115.8dB
β 5 = 10 log
7.
Amplitudo A=
1 πf
I 2 ρν
,
Jika nilai frekuens yang di gunakan 125, 250, 500, 1000, 2000, 4000 , serta jarak sound ke pendengar sejauh 5 meter, maka:
1 0.382 3.14 × 125 2 × 1.29 × 343 = 5.293.10 −6 m
Α125;5 = A125;5
73
1 0.382 3.14 × 250 2 × 1.29 × 343 = 2.65 × 10 −5 m
Α 250;5 = A250;5
1 0.382 3.14 × 500 2 × 1.29 × 343 = 1.32 × 10 −5 m
Α 500;5 = A500;5
1 0.382 3.14 × 1000 2 × 1.29 × 343 = 6.624 × 10 −6 m
Α1000;5 = A1000;5
1 0.382 3.14 × 2000 2 × 1.29 × 343 = 3.312 × 10 −6 m
Α 2000;5 = A2000;5
1 0.382 3.14 × 4000 2 × 1.29 × 343 = 1.656 × 10 −6 m
Α 4000;5 = A4000;5
74
Lampiran 2 Listing Program unit Umain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, ComCtrls, ExtCtrls, Menus,math, jpeg; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; Label1: TLabel; C1: TComboBox; PageControl2: TPageControl; TabSheet3: TTabSheet; TabSheet4: TTabSheet; Label16: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; S0: TStringGrid; S2: TStringGrid; s3: TStringGrid; S4: TStringGrid; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; P2: TPanel; P3: TPanel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; P4: TPanel; P5: TPanel; E3: TPanel; E4: TPanel;
75
E7: TPanel; E6: TPanel; E1: TPanel; E2: TPanel; E10: TPanel; E9: TPanel; E13: TPanel; E12: TPanel; Panel40: TPanel; c2: TComboBox; Label20: TLabel; B5: TPanel; B4: TPanel; B3: TPanel; B2: TPanel; B1: TPanel; Panel10: TPanel; Panel13: TPanel; Panel14: TPanel; Panel15: TPanel; Panel16: TPanel; Panel24: TPanel; B6: TPanel; Panel1: TPanel; S5: TStringGrid; S1: TStringGrid; Button2: TButton; Panel2: TPanel; jrk1: TPanel; Panel3: TPanel; ComboBox1: TComboBox; Sound1: TImage; Sound2: TImage; Sound3: TImage; Sound4: TImage; Sound5: TImage; Sound6: TImage; Sound7: TImage; sound8: TImage; sound9: TImage; sound10: TImage; i1: TImage; I2: TImage; I3: TImage; I4: TImage; I5: TImage;
76
Panel17: TPanel; K1: TComboBox; Panel18: TPanel; K2: TComboBox; Panel19: TPanel; I6: TImage; I7: TImage; I8: TImage; I9: TImage; I10: TImage; // lakukan pengulangan sampai jumlah kursi yang dikehendaki Edit1: TEdit; MainMenu1: TMainMenu; file1: TMenuItem; DataGedung1: TMenuItem; pen1: TPanel; foto: TImage; procedure FormShow(Sender: TObject); procedure DataGedung1Click(Sender: TObject); procedure C1Change(Sender: TObject); procedure Button2Click(Sender: TObject); procedure B1Click(Sender: TObject); procedure B2Click(Sender: TObject); procedure B3Click(Sender: TObject); procedure B4Click(Sender: TObject); procedure B5Click(Sender: TObject); procedure B6Click(Sender: TObject); procedure c2KeyPress(Sender: TObject; var Key: Char); procedure ComboBox1KeyPress(Sender: TObject; var Key: Char); procedure ComboBox1Change(Sender: TObject); procedure sound2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure i1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Sound3MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Sound4MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Sound5MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Sound6MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Sound7MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
77
procedure sound8MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure sound9MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure sound10MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure K2Change(Sender: TObject); procedure K1Change(Sender: TObject); procedure K1Exit(Sender: TObject); procedure K2Exit(Sender: TObject); procedure Edit1Exit(Sender: TObject); private { Private declarations } public Function Pangkat(A:DOuble;B:Integer):Double; procedure Kursi(jml:Integer); { Public declarations } end; var Form1: TForm1; AX,Ay, Zoom : Integer; implementation uses Ugedung, Udm; {$R *.dfm} Function TForm1.Pangkat(A:DOuble;B:Integer):Double; Var Hasil:Double; I:Integer; Begin Hasil:=1; For I:=1 To B Do Begin Hasil:=Hasil * A; ENd; Pangkat:=Hasil; ENd; procedure TForm1.FormShow(Sender: TObject); Var I : Integer; begin PageControl1.ActivePageIndex:=0;
78
S0.Cells[0,0]:='No'; S0.Cells[1,0]:='Frex(f)'; S0.Cells[2,0]:='Koef (¢) Kosong'; S0.Cells[3,0]:='Koef (¢) Ada Audien'; S0.ColWidths[0]:=20; S0.ColWidths[1]:=45; S0.ColWidths[2]:=85; S0.ColWidths[3]:=85; S2.Cells[0,0]:='No'; S2.Cells[1,0]:='Frex(f)'; S2.Cells[2,0]:='Koef (¢))'; S2.ColWidths[0]:=20; S2.ColWidths[1]:=45; S2.ColWidths[2]:=45; S3.Cells[0,0]:='No'; S3.Cells[1,0]:='Frex(f)'; S3.Cells[2,0]:='Koef (¢))'; S3.ColWidths[0]:=20; S3.ColWidths[1]:=45; S3.ColWidths[2]:=45; S4.Cells[0,0]:='No'; S4.Cells[1,0]:='Frex(f)'; S4.Cells[2,0]:='Koef (¢))'; S4.ColWidths[0]:=20; S4.ColWidths[1]:=45; S4.ColWidths[2]:=45; for i :=1 to 6 do begin S0.cells[0,i]:=inttostr(i); S2.cells[0,i]:=inttostr(i); S3.cells[0,i]:=inttostr(i); S4.cells[0,i]:=inttostr(i); C1Change(Sender); end; C1.Clear; C1.Refresh; Fdm.Ruangan.First; Repeat C1.Items.Add(Fdm.ruangan.FieldByName('Nomer').AsString); Fdm.ruangan.Next;
79
Until FDm.Ruangan.Eof; C1.ItemIndex:=0; S5.Cells[0,0]:='No'; S5.Cells[1,0]:='Frex'; S5.Cells[2,0]:='A'; S5.Cells[3,0]:='RT'; S5.ColWidths[0]:=20; S5.ColWidths[1]:=30; S5.ColWidths[2]:=90; S5.ColWidths[3]:=90; S1.Cells[0,0]:='No'; S1.Cells[1,0]:='Keterangan'; S1.Cells[2,0]:='Nilai'; S1.Cells[1,1]:='Daya Sound'; S1.Cells[1,2]:='Jr Terendah'; S1.Cells[1,3]:='Jr Medium'; S1.Cells[1,4]:='Jr Terjauh'; S1.Cells[1,5]:='I-1'; S1.Cells[1,6]:='I-2'; S1.Cells[1,7]:='I-3'; S1.Cells[1,8]:='dB_1'; S1.Cells[1,9]:='dB_2'; S1.Cells[1,10]:='dB_3'; S1.Cells[1,11]:='A1,125'; S1.Cells[1,12]:='A1,250'; S1.Cells[1,13]:='A1,500'; S1.Cells[1,14]:='A1,1000'; S1.Cells[1,15]:='A1,2000'; S1.Cells[1,16]:='A1,4000'; S1.Cells[1,17]:='A2,125'; S1.Cells[1,18]:='A2,250'; S1.Cells[1,19]:='A2,500'; S1.Cells[1,20]:='A2,1000'; S1.Cells[1,21]:='A2,2000'; S1.Cells[1,22]:='A2,4000'; S1.Cells[1,23]:='A3,125'; S1.Cells[1,24]:='A3,250'; S1.Cells[1,25]:='A3,500'; S1.Cells[1,26]:='A3,1000';
80
S1.Cells[1,27]:='A3,2000'; S1.Cells[1,28]:='A3,4000'; S2.Cells[1,23]:='125'; S2.Cells[1,24]:='250'; S2.Cells[1,25]:='500'; S2.Cells[1,26]:='1000'; S2.Cells[1,27]:='2000'; S2.Cells[1,28]:='4000'; S1.Cells[1,29]:='d'; S1.Cells[2,1]:='120'; S1.Cells[2,2]:='5'; S1.Cells[2,3]:='10'; S1.Cells[2,4]:='20'; S1.ColWidths[0]:=30; S1.ColWidths[1]:=80; S1.ColWidths[2]:=130; For I:=1 To S1.RowCOunt-1 do Begin S1.Cells[0,i]:=Inttostr(I); End; end; procedure TForm1.DataGedung1Click(Sender: TObject); begin FGedung.ShowModal; C1.Clear; C1.Refresh; Fdm.Ruangan.First; Repeat C1.Items.Add(Fdm.ruangan.FieldByName('Nomer').AsString); Fdm.ruangan.Next; Until FDm.Ruangan.Eof; C1.ItemIndex:=0; end; procedure TForm1.C1Change(Sender: TObject); Var I, Kesamping, Kebelakang : Integer; V: Double; Begin If fDm.Ruangan.Findkey([C1.Text]) Then Begin
81
E1.Caption:= fDm.Ruangan.FieldByname('nama_ruangan').AsString; E2.Caption:=fDm.Ruangan.FieldByname('alamat').AsString; E3.Caption:=fDm.Ruangan.FieldByname('Lantai_Panjang').AsString; E4.Caption:=fDm.Ruangan.FieldByname('Lantai_Lebar').AsString; Kesamping:=ROund((fDm.Ruangan.FieldByname('Lantai_Lebar').AsInteger * 100)/40); Kebelakang:=ROund((fDm.Ruangan.FieldByname('Lantai_Panjang').AsInteger* 100)/70); K1.Clear; K1.Refresh; K1.Items.Add('0'); For I:=1 To Kesamping Do Begin K1.Items.Add(Inttostr(I)); End; K1.Itemindex:=0; K2.Clear; K2.Refresh; K2.Items.Add('0'); For I:=1 To Kebelakang Do Begin K2.Items.Add(Inttostr(I)); End; K2.Itemindex:=0; P2.Caption:=fDm.Ruangan.FieldByname('Lantai_Luas').AsString; E6.Caption:=fDm.Ruangan.FieldByname('Atap_Panjang').AsString; E7.Caption:=fDm.Ruangan.FieldByname('Atap_Lebar').AsString; P3.Caption:=fDm.Ruangan.FieldByname('Atap_Luas').AsString; E9.Caption:=fDm.Ruangan.FieldByname('Dinding_Panjang').AsString; E10.Caption:=fDm.Ruangan.FieldByname('Dinding_Lebar').AsString; P4.Caption:=fDm.Ruangan.FieldByname('Dinding_Luas').AsString; E12.Caption:=fDm.Ruangan.FieldByname('Tribun_Panjang').AsString; E13.Caption:=fDm.Ruangan.FieldByname('Tribun_Lebar').AsString; P5.Caption:=fDm.Ruangan.FieldByname('Tribun_Luas').AsString; //koefisien serap bahan S0.Cells[1,1]:= fDm.Ruangan.FieldByname('FSBL1').AsString; S0.Cells[1,2]:= fDm.Ruangan.FieldByname('FSBL2').AsString; S0.Cells[1,3]:= fDm.Ruangan.FieldByname('FSBL3').AsString; S0.Cells[1,4]:= fDm.Ruangan.FieldByname('FSBL4').AsString; S0.Cells[1,5]:= fDm.Ruangan.FieldByname('FSBL5').AsString; S0.Cells[1,6]:= fDm.Ruangan.FieldByname('FSBL6').AsString;
82
S0.Cells[3,1]:= fDm.Ruangan.FieldByname('KSBL_K1').AsString; S0.Cells[3,2]:= fDm.Ruangan.FieldByname('KSBL_K2').AsString; S0.Cells[3,3]:= fDm.Ruangan.FieldByname('KSBL_K3').AsString; S0.Cells[3,4]:= fDm.Ruangan.FieldByname('KSBL_K4').AsString; S0.Cells[3,5]:= fDm.Ruangan.FieldByname('KSBL_K5').AsString; S0.Cells[3,6]:= fDm.Ruangan.FieldByname('KSBL_K6').AsString; S0.Cells[2,1]:= fDm.Ruangan.FieldByname('KSBL1').AsString; S0.Cells[2,2]:= fDm.Ruangan.FieldByname('KSBL2').AsString; S0.Cells[2,3]:= fDm.Ruangan.FieldByname('KSBL3').AsString; S0.Cells[2,4]:= fDm.Ruangan.FieldByname('KSBL4').AsString; S0.Cells[2,5]:= fDm.Ruangan.FieldByname('KSBL5').AsString; S0.Cells[2,6]:= fDm.Ruangan.FieldByname('KSBL6').AsString; S2.Cells[1,1]:= fDm.Ruangan.FieldByname('KSBL_K1').AsString; S2.Cells[1,2]:= fDm.Ruangan.FieldByname('KSBL_K1').AsString; S2.Cells[1,3]:= fDm.Ruangan.FieldByname('KSBL_K1').AsString; S2.Cells[1,4]:= fDm.Ruangan.FieldByname('KSBL_K1').AsString; S2.Cells[1,5]:= fDm.Ruangan.FieldByname('KSBL_K1').AsString; S2.Cells[1,6]:= fDm.Ruangan.FieldByname('KSBL_K1').AsString; S2.Cells[1,1]:='125'; S2.Cells[1,2]:='250'; S2.Cells[1,3]:='500'; S2.Cells[1,4]:='1000'; S2.Cells[1,5]:='2000'; S2.Cells[1,6]:='4000'; S2.Cells[2,1]:= fDm.Ruangan.FieldByname('KSBA1').AsString; S2.Cells[2,2]:= fDm.Ruangan.FieldByname('KSBA2').AsString; S2.Cells[2,3]:= fDm.Ruangan.FieldByname('KSBA3').AsString; S2.Cells[2,4]:= fDm.Ruangan.FieldByname('KSBA4').AsString; S2.Cells[2,5]:= fDm.Ruangan.FieldByname('KSBA5').AsString; S2.Cells[2,6]:= fDm.Ruangan.FieldByname('KSBA6').AsString; S3.Cells[1,1]:= fDm.Ruangan.FieldByname('FSBD1').AsString; S3.Cells[1,2]:= fDm.Ruangan.FieldByname('FSBD2').AsString; S3.Cells[1,3]:= fDm.Ruangan.FieldByname('FSBD3').AsString; S3.Cells[1,4]:= fDm.Ruangan.FieldByname('FSBD4').AsString; S3.Cells[1,5]:= fDm.Ruangan.FieldByname('FSBD5').AsString; S3.Cells[1,6]:= fDm.Ruangan.FieldByname('FSBD6').AsString; S3.Cells[2,1]:= fDm.Ruangan.FieldByname('KSBD1').AsString; S3.Cells[2,2]:= fDm.Ruangan.FieldByname('KSBD2').AsString; S3.Cells[2,3]:= fDm.Ruangan.FieldByname('KSBD3').AsString; S3.Cells[2,4]:= fDm.Ruangan.FieldByname('KSBD4').AsString;
83
S3.Cells[2,5]:= fDm.Ruangan.FieldByname('KSBD5').AsString; S3.Cells[2,6]:= fDm.Ruangan.FieldByname('KSBD6').AsString; S4.Cells[1,1]:= fDm.Ruangan.FieldByname('FSBT1').AsString; S4.Cells[1,2]:= fDm.Ruangan.FieldByname('FSBT2').AsString; S4.Cells[1,3]:= fDm.Ruangan.FieldByname('FSBT3').AsString; S4.Cells[1,4]:= fDm.Ruangan.FieldByname('FSBT4').AsString; S4.Cells[1,5]:= fDm.Ruangan.FieldByname('FSBT5').AsString; S4.Cells[1,6]:= fDm.Ruangan.FieldByname('FSBT6').AsString; S4.Cells[2,1]:= fDm.Ruangan.FieldByname('KSBT1').AsString; S4.Cells[2,2]:= fDm.Ruangan.FieldByname('KSBT2').AsString; S4.Cells[2,3]:= fDm.Ruangan.FieldByname('KSBT3').AsString; S4.Cells[2,4]:= fDm.Ruangan.FieldByname('KSBT4').AsString; S4.Cells[2,5]:= fDm.Ruangan.FieldByname('KSBT5').AsString; S4.Cells[2,6]:= fDm.Ruangan.FieldByname('KSBT6').AsString; S5.Cells[0,1]:='1'; S5.Cells[0,2]:='2'; S5.Cells[0,3]:='3'; S5.Cells[0,4]:='4'; S5.Cells[0,5]:='5'; S5.Cells[0,6]:='6'; S5.Cells[1,1]:='125'; S5.Cells[1,2]:='250'; S5.Cells[1,3]:='500'; S5.Cells[1,4]:='1000'; S5.Cells[1,5]:='2000'; S5.Cells[1,6]:='4000'; //Penyerapan ruangan total If StrToFLoat(edit1.text)<=0 Then Begin S5.Cells[2,1]:= FLoatTostr( STrToFloat(S0.Cells[2,1]) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,1]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,1]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,1]) * STrToFloat(P5.Caption) ) ; S5.Cells[2,2]:= FLoatTostr( STrToFloat(S0.Cells[2,2]) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,2]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,2]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,2]) * STrToFloat(P5.Caption) ) ; S5.Cells[2,3]:= FLoatTostr( STrToFloat(S0.Cells[2,3]) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,3]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,3]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,3]) * STrToFloat(P5.Caption) ) ;
84
S5.Cells[2,4]:= FLoatTostr( STrToFloat(S0.Cells[2,4]) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,4]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,4]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,4]) * STrToFloat(P5.Caption) ) ; S5.Cells[2,5]:= FLoatTostr( STrToFloat(S0.Cells[2,5]) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,5]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,5]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,5]) * STrToFloat(P5.Caption) ) ; S5.Cells[2,6]:= FLoatTostr( STrToFloat(S0.Cells[2,6]) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,6]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,6]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,6]) * STrToFloat(P5.Caption) ) ; End Else Begin S5.Cells[2,1]:= FLoatTostr( (STrToFloat(S0.Cells[2,1])+STrToFloat(S0.Cells[3,1])) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,1]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,1]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,1]) * STrToFloat(P5.Caption) ) ; S5.Cells[2,2]:= FLoatTostr( (STrToFloat(S0.Cells[2,1])+STrToFloat(S0.Cells[3,2])) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,2]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,2]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,2]) * STrToFloat(P5.Caption) ) ; S5.Cells[2,3]:= FLoatTostr( (STrToFloat(S0.Cells[2,1])+STrToFloat(S0.Cells[3,3])) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,3]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,3]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,3]) * STrToFloat(P5.Caption) ) ; S5.Cells[2,4]:= FLoatTostr( (STrToFloat(S0.Cells[2,1])+STrToFloat(S0.Cells[3,4])) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,4]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,4]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,4]) * STrToFloat(P5.Caption) ) ; S5.Cells[2,5]:= FLoatTostr( (STrToFloat(S0.Cells[2,1])+STrToFloat(S0.Cells[3,5])) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,5]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,5]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,5]) * STrToFloat(P5.Caption) ) ; S5.Cells[2,6]:= FLoatTostr( (STrToFloat(S0.Cells[2,1])+STrToFloat(S0.Cells[3,6])) * STrToFloat(P2.Caption) + STrToFloat(S2.Cells[2,6]) * STrToFloat(P3.Caption) + STrToFloat(S3.Cells[2,6]) * STrToFloat(P4.Caption) + STrToFloat(S4.Cells[2,6]) * STrToFloat(P5.Caption) ) ; ENd;
85
//mencari RT V:=STrToFloat(E9.CAption) * STrToFloat(E10.CAption) * (10); S5.Cells[3,1]:= FLoatTostr(( (15/100) * ( 0 * V) )); S5.Cells[3,2]:= FLoatTostr(( (15/100) * ( 0 * V) )); S5.Cells[3,3]:= FLoatTostr(( (15/100) * ( 0 * V) )); S5.Cells[3,4]:= FLoatTostr(( (15/100) * ( (3/10) * V) )); S5.Cells[3,5]:= FLoatTostr(( (15/100) * ( (9/10) * V) )); S5.Cells[3,6]:= FLoatTostr(( (15/100) * ( (24/10) * V) )); End eLSE bEGIN E1.Caption:= ''; E2.Caption:=''; E3.Caption:=''; E4.Caption:=''; P2.Caption:=''; E6.Caption:=''; E7.Caption:=''; P3.Caption:=''; E9.Caption:=''; E10.Caption:=''; P4.Caption:=''; E12.Caption:=''; E13.Caption:=''; P5.Caption:=''; For I:=1 To S1.ROwCOunt-1 Do Begin S1.Cells[1,i]:= ''; S1.Cells[2,i]:= ''; ENd; For I:=1 To S2.ROwCOunt-1 Do Begin S2.Cells[1,i]:= ''; S2.Cells[2,i]:= ''; ENd; For I:=1 To S3.ROwCOunt-1 Do Begin S3.Cells[1,i]:= '';
V ) / ( STrToFloat(S5.Cells[2,1]) + V ) / ( STrToFloat(S5.Cells[2,2]) + V ) / ( STrToFloat(S5.Cells[2,3]) + V ) / ( STrToFloat(S5.Cells[2,4]) + V ) / ( STrToFloat(S5.Cells[2,5]) + V ) / ( STrToFloat(S5.Cells[2,6]) +
86
S3.Cells[2,i]:= ''; ENd; For I:=1 To S4.ROwCOunt-1 Do Begin S4.Cells[1,i]:= ''; S4.Cells[2,i]:= ''; ENd; End; PageControl1.ActivePageIndex:=0; end; procedure TForm1.Button2Click(Sender: TObject); Var Hasil_i, R, Pi, daya,A, V : Double; begin If StrToint(Combobox1.Text)>=1 Then Begin
//SOUND 1 //Dekat Hasil_i:=0; daya:=StrToFLoat(S1.Cells[2,1]); R:=StrToFLoat(S1.Cells[2,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[2,5]:= FLoatTostr(Hasil_i); Pi:=Log10(Hasil_i); S1.Cells[2,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Medium Hasil_i:=0; daya:=StrToFLoat(S1.Cells[2,1]); R:=StrToFLoat(S1.Cells[2,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[2,6]:= FLoatTostr(Hasil_i); S1.Cells[2,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Jauh Hasil_i:=0; daya:=StrToFLoat(S1.Cells[2,1]); R:=StrToFLoat(S1.Cells[2,4]);
87
Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[2,7]:= FLoatTostr(Hasil_i); S1.Cells[2,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[2,5])/(2 * (129/100) * 347,2)); S1.Cells[2,11]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[2,5])/(2 * (129/100) * 347,2)); S1.Cells[2,12]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[2,5])/(2 * (129/100) * 347,2)); S1.Cells[2,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[2,5])/(2 * (129/100) * 347,2)); S1.Cells[2,14]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[2,5])/(2 * (129/100) * 347,2)); S1.Cells[2,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[2,5])/(2 * (129/100) * 347,2)); S1.Cells[2,16]:=FLoatTostr(A); //Amplitudo A2 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[2,6])/(2 * (129/100) * 347,2)); S1.Cells[2,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[2,6])/(2 * (129/100) * 347,2)); S1.Cells[2,18]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[2,6])/(2 * (129/100) * 347,2)); S1.Cells[2,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[2,6])/(2 * (129/100) * 347,2)); S1.Cells[2,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[2,6])/(2 * (129/100) * 347,2)); S1.Cells[2,21]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[2,6])/(2 * (129/100) * 347,2)); S1.Cells[2,22]:=FLoatTostr(A);
//Amplitudo A3 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[2,7])/(2 * (129/100) * 347,2)); S1.Cells[2,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[2,7])/(2 * (129/100) * 347,2)); S1.Cells[2,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[2,7])/(2 * (129/100) * 347,2)); S1.Cells[2,25]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[2,7])/(2 * (129/100) * 347,2)); S1.Cells[2,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[2,7])/(2 * (129/100) * 347,2)); S1.Cells[2,27]:=FLoatTostr(A);
88
A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[2,7])/(2 * (129/100) * 347,2)); S1.Cells[2,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke opendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption); S1.Cells[2,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); End; If StrToint(Combobox1.Text)>=2 Then Begin //SOUND 2 //Dekat Hasil_i:=0; daya:=StrToFLoat(S1.Cells[3,1]); R:=StrToFLoat(S1.Cells[3,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[3,5]:= FLoatTostr(Hasil_i); Pi:=Log10(Hasil_i); S1.Cells[3,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Medium Hasil_i:=0; daya:=StrToFLoat(S1.Cells[3,1]); R:=StrToFLoat(S1.Cells[3,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[3,6]:= FLoatTostr(Hasil_i); S1.Cells[3,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Jauh Hasil_i:=0; daya:=StrToFLoat(S1.Cells[3,1]); R:=StrToFLoat(S1.Cells[3,4]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[3,7]:= FLoatTostr(Hasil_i); S1.Cells[3,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[3,5])/(2 * (129/100) *));347,2 S1.Cells[3,11]:=FLoatTostr(A);
89
A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[3,5])/(2 * (129/100) *347,2)); S1.Cells[3,12]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[3,5])/(2 * (129/100) *347,2)); S1.Cells[3,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[3,5])/(2 * (129/100) *347,2)); S1.Cells[3,14]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[3,5])/(2 * (129/100) *347,2)); S1.Cells[3,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[3,5])/(2 * (129/100) *347,2)); S1.Cells[3,16]:=FLoatTostr(A); //Amplitudo A2 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[3,6])/(2 * (129/100) *347,2)); S1.Cells[3,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[3,6])/(2 * (129/100) *347,2)); S1.Cells[3,18]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[3,6])/(2 * (129/100) *347,2)); S1.Cells[3,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[3,6])/(2 * (129/100) *347,2)); S1.Cells[3,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[3,6])/(2 * (129/100) *347,2)); S1.Cells[3,21]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[3,6])/(2 * (129/100) *347,2)); S1.Cells[3,22]:=FLoatTostr(A); //Amplitudo A3 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[3,7])/(2 * (129/100) *347,2)); S1.Cells[3,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[3,7])/(2 * (129/100) *347,2)); S1.Cells[3,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[3,7])/(2 * (129/100) *347,2)); S1.Cells[3,25]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[3,7])/(2 * (129/100) *347,2)); S1.Cells[3,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[3,7])/(2 * (129/100) *347,2)); S1.Cells[3,27]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[3,7])/(2 * (129/100) *347,2)); S1.Cells[3,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke opendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption); S1.Cells[3,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); End;
90
If StrToint(Combobox1.Text)>=3 Then Begin //SOUND 3 //Dekat Hasil_i:=0; daya:=StrToFLoat(S1.Cells[4,1]); R:=StrToFLoat(S1.Cells[4,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[4,5]:= FLoatTostr(Hasil_i); Pi:=Log10(Hasil_i); S1.Cells[4,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Medium Hasil_i:=0; daya:=StrToFLoat(S1.Cells[4,1]); R:=StrToFLoat(S1.Cells[4,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[4,6]:= FLoatTostr(Hasil_i); S1.Cells[4,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Jauh Hasil_i:=0; daya:=StrToFLoat(S1.Cells[4,1]); R:=StrToFLoat(S1.Cells[4,4]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[4,7]:= FLoatTostr(Hasil_i); S1.Cells[4,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[4,5])/(2 * (129/100) *347,2)); S1.Cells[4,11]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[4,5])/(2 * (129/100) *347,2)); S1.Cells[4,12]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[4,5])/(2 * (129/100) *347,2)); S1.Cells[4,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[4,5])/(2 * (129/100) *347,2)); S1.Cells[4,14]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[4,5])/(2 * (129/100) *347,2)); S1.Cells[4,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[4,5])/(2 * (129/100) *347,2)); S1.Cells[4,16]:=FLoatTostr(A); //Amplitudo A2
91
A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[4,6])/(2 * (129/100) *347,2)); S1.Cells[4,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[4,6])/(2 * (129/100) *347,2)); S1.Cells[4,18]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[4,6])/(2 * (129/100) *347,2)); S1.Cells[4,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[4,6])/(2 * (129/100) *347,2)); S1.Cells[4,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[4,6])/(2 * (129/100) *347,2)); S1.Cells[4,21]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[4,6])/(2 * (129/100) *347,2)); S1.Cells[4,22]:=FLoatTostr(A); //Amplitudo A3 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[4,7])/(2 * (129/100) *347,2)); S1.Cells[4,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[4,7])/(2 * (129/100) *347,2)); S1.Cells[4,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[4,7])/(2 * (129/100) *347,2)); S1.Cells[4,25]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[4,7])/(2 * (129/100) *347,2)); S1.Cells[4,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[4,7])/(2 * (129/100) *347,2)); S1.Cells[4,27]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[4,7])/(2 * (129/100) *347,2)); S1.Cells[4,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke opendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption); S1.Cells[4,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); End; If StrToint(Combobox1.Text)>=4 Then Begin //SOUND 4 //Dekat Hasil_i:=0; daya:=StrToFLoat(S1.Cells[5,1]); R:=StrToFLoat(S1.Cells[5,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[5,5]:= FLoatTostr(Hasil_i);
92
Pi:=Log10(Hasil_i); S1.Cells[5,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Medium Hasil_i:=0; daya:=StrToFLoat(S1.Cells[5,1]); R:=StrToFLoat(S1.Cells[5,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[5,6]:= FLoatTostr(Hasil_i); S1.Cells[5,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Jauh Hasil_i:=0; daya:=StrToFLoat(S1.Cells[5,1]); R:=StrToFLoat(S1.Cells[5,4]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[5,7]:= FLoatTostr(Hasil_i); S1.Cells[5,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[5,5])/(2 * (129/100) *347,2)); S1.Cells[5,11]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[5,5])/(2 * (129/100) *347,2)); S1.Cells[5,12]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[5,5])/(2 * (129/100) *347,2)); S1.Cells[5,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[5,5])/(2 * (129/100) *347,2)); S1.Cells[5,14]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[5,5])/(2 * (129/100) *347,2)); S1.Cells[5,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[5,5])/(2 * (129/100) *347,2)); S1.Cells[5,16]:=FLoatTostr(A); //Amplitudo A2 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[5,6])/(2 * (129/100) *347,2)); S1.Cells[5,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[5,6])/(2 * (129/100) *347,2)); S1.Cells[5,18]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[5,6])/(2 * (129/100) *347,2)); S1.Cells[5,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[5,6])/(2 * (129/100) *347,2)); S1.Cells[5,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[5,6])/(2 * (129/100) *347,2)); S1.Cells[5,21]:=FLoatTostr(A);
93
A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[5,6])/(2 * (129/100) *347,2)); S1.Cells[5,22]:=FLoatTostr(A); //Amplitudo A3 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[5,7])/(2 * (129/100) *347,2)); S1.Cells[5,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[5,7])/(2 * (129/100) *347,2)); S1.Cells[5,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[5,7])/(2 * (129/100) *347,2)); S1.Cells[5,25]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[5,7])/(2 * (129/100) *347,2)); S1.Cells[5,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[5,7])/(2 * (129/100) *347,2)); S1.Cells[5,27]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[5,7])/(2 * (129/100) *347,2)); S1.Cells[5,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke pendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption); S1.Cells[5,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); End; If StrToint(Combobox1.Text)>=5 Then Begin //SOUND 5 //Dekat Hasil_i:=0; daya:=StrToFLoat(S1.Cells[6,1]); R:=StrToFLoat(S1.Cells[6,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[6,5]:= FLoatTostr(Hasil_i); Pi:=Log10(Hasil_i); S1.Cells[6,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Medium Hasil_i:=0; daya:=StrToFLoat(S1.Cells[6,1]); R:=StrToFLoat(S1.Cells[6,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[6,6]:= FLoatTostr(Hasil_i);
94
S1.Cells[6,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Jauh Hasil_i:=0; daya:=StrToFLoat(S1.Cells[6,1]); R:=StrToFLoat(S1.Cells[6,4]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[6,7]:= FLoatTostr(Hasil_i); S1.Cells[6,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[6,5])/(2 * (129/100) *347,2)); S1.Cells[6,11]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[6,5])/(2 * (129/100) *347,2)); S1.Cells[6,12]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[6,5])/(2 * (129/100) *347,2)); S1.Cells[6,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[6,5])/(2 * (129/100) *347,2)); S1.Cells[6,14]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[6,5])/(2 * (129/100) *347,2)); S1.Cells[6,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[6,5])/(2 * (129/100) *347,2)); S1.Cells[6,16]:=FLoatTostr(A); //Amplitudo A2 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[6,6])/(2 * (129/100) *347,2)); S1.Cells[6,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[6,6])/(2 * (129/100) *347,2)); S1.Cells[6,18]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[6,6])/(2 * (129/100) *347,2)); S1.Cells[6,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[6,6])/(2 * (129/100) *347,2)); S1.Cells[6,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[6,6])/(2 * (129/100) *347,2)); S1.Cells[6,21]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[6,6])/(2 * (129/100) *347,2)); S1.Cells[6,22]:=FLoatTostr(A); //Amplitudo A3 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[6,7])/(2 * (129/100) *347,2)); S1.Cells[6,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[6,7])/(2 * (129/100) *347,2)); S1.Cells[6,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[6,7])/(2 * (129/100) *347,2)); S1.Cells[6,25]:=FLoatTostr(A);
95
A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[6,7])/(2 * (129/100) *347,2)); S1.Cells[6,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[6,7])/(2 * (129/100) *347,2)); S1.Cells[6,27]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[6,7])/(2 * (129/100) *347,2)); S1.Cells[6,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke opendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption); S1.Cells[6,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); end; If StrToint(Combobox1.Text)>=6 Then Begin //SOUND 6 //Dekat Hasil_i:=0; daya:=StrToFLoat(S1.Cells[7,1]); R:=StrToFLoat(S1.Cells[7,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[7,5]:= FLoatTostr(Hasil_i); Pi:=Log10(Hasil_i); S1.Cells[7,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Medium Hasil_i:=0; daya:=StrToFLoat(S1.Cells[7,1]); R:=StrToFLoat(S1.Cells[7,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[7,6]:= FLoatTostr(Hasil_i); S1.Cells[7,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000)));
//Jauh Hasil_i:=0; daya:=StrToFLoat(S1.Cells[7,1]); R:=StrToFLoat(S1.Cells[7,4]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[7,7]:= FLoatTostr(Hasil_i); S1.Cells[7,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000)));
96
//Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[7,5])/(2 * (129/100) *347,2)); S1.Cells[7,11]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[7,5])/(2 * (129/100) *347,2)); S1.Cells[7,12]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[7,5])/(2 * (129/100) *347,2)); S1.Cells[7,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[7,5])/(2 * (129/100) *347,2)); S1.Cells[7,14]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[7,5])/(2 * (129/100) *347,2)); S1.Cells[7,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[7,5])/(2 * (129/100) *347,2)); S1.Cells[7,16]:=FLoatTostr(A); //Amplitudo A2 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[7,6])/(2 * (129/100) *347,2)); S1.Cells[7,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[7,6])/(2 * (129/100) *347,2)); S1.Cells[7,18]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[7,6])/(2 * (129/100) *347,2)); S1.Cells[7,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[7,6])/(2 * (129/100) *347,2)); S1.Cells[7,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[7,6])/(2 * (129/100) *347,2)); S1.Cells[7,21]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[7,6])/(2 * (129/100) *347,2)); S1.Cells[7,22]:=FLoatTostr(A); //Amplitudo A3 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[7,7])/(2 * (129/100) *347,2)); S1.Cells[7,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[7,7])/(2 * (129/100) *347,2)); S1.Cells[7,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[7,7])/(2 * (129/100) *347,2)); S1.Cells[7,25]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[7,7])/(2 * (129/100) *347,2)); S1.Cells[7,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[7,7])/(2 * (129/100) *347,2)); S1.Cells[7,27]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[7,7])/(2 * (129/100) *347,2)); S1.Cells[7,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke opendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption);
97
S1.Cells[7,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); end; If StrToint(Combobox1.Text)>=7 Then Begin //SOUND 7 //Dekat Hasil_i:=0; daya:=StrToFLoat(S1.Cells[8,1]); R:=StrToFLoat(S1.Cells[8,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[8,5]:= FLoatTostr(Hasil_i); Pi:=Log10(Hasil_i); S1.Cells[8,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Medium Hasil_i:=0; daya:=StrToFLoat(S1.Cells[8,1]); R:=StrToFLoat(S1.Cells[8,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[8,6]:= FLoatTostr(Hasil_i); S1.Cells[8,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Jauh Hasil_i:=0; daya:=StrToFLoat(S1.Cells[8,1]); R:=StrToFLoat(S1.Cells[8,4]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[8,7]:= FLoatTostr(Hasil_i); S1.Cells[8,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[8,5])/(2 * (129/100) *347,2)); S1.Cells[8,11]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[8,5])/(2 * (129/100) *347,2)); S1.Cells[8,12]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[8,5])/(2 * (129/100) *347,2)); S1.Cells[8,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[8,5])/(2 * (129/100) *347,2)); S1.Cells[8,14]:=FLoatTostr(A);
98
A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[8,5])/(2 * (129/100) *347,2)); S1.Cells[8,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[8,5])/(2 * (129/100) *347,2)); S1.Cells[8,16]:=FLoatTostr(A); //Amplitudo A2 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[8,6])/(2 * (129/100) *347,2)); S1.Cells[8,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[8,6])/(2 * (129/100) *347,2)); S1.Cells[8,18]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[8,6])/(2 * (129/100) *347,2)); S1.Cells[8,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[8,6])/(2 * (129/100) *347,2)); S1.Cells[8,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[8,6])/(2 * (129/100) *347,2)); S1.Cells[8,21]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[8,6])/(2 * (129/100) *347,2)); S1.Cells[8,22]:=FLoatTostr(A); //Amplitudo A3 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[8,7])/(2 * (129/100) *347,2)); S1.Cells[8,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[8,7])/(2 * (129/100) *347,2)); S1.Cells[8,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[8,7])/(2 * (129/100) *347,2)); S1.Cells[8,25]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[8,7])/(2 * (129/100) *347,2)); S1.Cells[8,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[8,7])/(2 * (129/100) *347,2)); S1.Cells[8,27]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[8,7])/(2 * (129/100) * 343)); S1.Cells[8,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke opendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption); S1.Cells[8,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); end; If StrToint(Combobox1.Text)>=8 Then Begin //SOUND 8 //Dekat Hasil_i:=0;
99
daya:=StrToFLoat(S1.Cells[9,1]); R:=StrToFLoat(S1.Cells[9,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[9,5]:= FLoatTostr(Hasil_i); Pi:=Log10(Hasil_i); S1.Cells[9,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000)));
//Medium Hasil_i:=0; daya:=StrToFLoat(S1.Cells[9,1]); R:=StrToFLoat(S1.Cells[9,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[9,6]:= FLoatTostr(Hasil_i); S1.Cells[9,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Jauh Hasil_i:=0; daya:=StrToFLoat(S1.Cells[9,1]); R:=StrToFLoat(S1.Cells[9,4]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[9,7]:= FLoatTostr(Hasil_i); S1.Cells[9,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[5,5])/(2 * (129/100) *347,2)); S1.Cells[9,11]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[9,5])/(2 * (129/100) *347,2)); S1.Cells[9,12]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[9,5])/(2 * (129/100) * 343)); S1.Cells[9,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[9,5])/(2 * (129/100) *347,2)); S1.Cells[9,14]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[9,5])/(2 * (129/100) *347,2)); S1.Cells[9,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[9,5])/(2 * (129/100) *347,2)); S1.Cells[9,16]:=FLoatTostr(A); //Amplitudo A2 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[9,6])/(2 * (129/100) *347,2)); S1.Cells[9,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[9,6])/(2 * (129/100) *347,2)); S1.Cells[9,18]:=FLoatTostr(A);
100
A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[9,6])/(2 * (129/100) *347,2)); S1.Cells[9,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[9,6])/(2 * (129/100) *347,2)); S1.Cells[9,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[9,6])/(2 * (129/100) *347,2)); S1.Cells[9,21]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[9,6])/(2 * (129/100) *347,2)); S1.Cells[9,22]:=FLoatTostr(A); //Amplitudo A3 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[9,7])/(2 * (129/100) *347,2)); S1.Cells[9,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[9,7])/(2 * (129/100) *347,2)); S1.Cells[9,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[9,7])/(2 * (129/100) *347,2)); S1.Cells[9,25]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[9,7])/(2 * (129/100) *347,2)); S1.Cells[9,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[9,7])/(2 * (129/100) *347,2)); S1.Cells[9,27]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[9,7])/(2 * (129/100) *347,2)); S1.Cells[9,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke opendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption); S1.Cells[9,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); end; If StrToint(Combobox1.Text)>=9 Then Begin //SOUND 9 //Dekat Hasil_i:=0; daya:=StrToFLoat(S1.Cells[10,1]); R:=StrToFLoat(S1.Cells[10,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[10,5]:= FLoatTostr(Hasil_i); Pi:=Log10(Hasil_i); S1.Cells[10,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Medium Hasil_i:=0;
101
daya:=StrToFLoat(S1.Cells[10,1]); R:=StrToFLoat(S1.Cells[10,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[10,6]:= FLoatTostr(Hasil_i); S1.Cells[10,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000)));
//Jauh Hasil_i:=0; daya:=StrToFLoat(S1.Cells[10,1]); R:=StrToFLoat(S1.Cells[10,4]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[10,7]:= FLoatTostr(Hasil_i); S1.Cells[10,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,11]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,12]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,14]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,16]:=FLoatTostr(A); //Amplitudo A2 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,18]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,21]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,22]:=FLoatTostr(A); //Amplitudo A3
102
A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,25]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,27]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke opendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption); S1.Cells[10,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); end; If StrToint(Combobox1.Text)>=10 Then Begin //SOUND 10 //Dekat Hasil_i:=0; daya:=StrToFLoat(S1.Cells[11,1]); R:=StrToFLoat(S1.Cells[11,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[11,5]:= FLoatTostr(Hasil_i); Pi:=Log10(Hasil_i); S1.Cells[11,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); 10,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Medium Hasil_i:=0; daya:=StrToFLoat(S1.Cells[10,1]); R:=StrToFLoat(S1.Cells[10,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[10,6]:= FLoatTostr(Hasil_i); S1.Cells[10,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Jauh
103
Hasil_i:=0; daya:=StrToFLoat(S1.Cells[10,1]); R:=StrToFLoat(S1.Cells[10,4]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[10,7]:= FLoatTostr(Hasil_i); S1.Cells[10,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,11]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,12]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,14]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[10,5])/(2 * (129/100) *347,2)); S1.Cells[10,16]:=FLoatTostr(A); //Amplitudo A2 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,18]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,21]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[10,6])/(2 * (129/100) *347,2)); S1.Cells[10,22]:=FLoatTostr(A); //Amplitudo A3 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,25]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,27]:=FLoatTostr(A);
104
A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[10,7])/(2 * (129/100) *347,2)); S1.Cells[10,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke opendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption); S1.Cells[10,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); end; If StrToint(Combobox1.Text)>=10 Then Begin //SOUND 10 //Dekat Hasil_i:=0; daya:=StrToFLoat(S1.Cells[11,1]); R:=StrToFLoat(S1.Cells[11,2]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[11,5]:= FLoatTostr(Hasil_i); Pi:=Log10(Hasil_i); S1.Cells[11,8]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Medium Hasil_i:=0; daya:=StrToFLoat(S1.Cells[11,1]); R:=StrToFLoat(S1.Cells[11,3]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[11,6]:= FLoatTostr(Hasil_i); S1.Cells[11,9]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Jauh Hasil_i:=0; daya:=StrToFLoat(S1.Cells[11,1]); R:=StrToFLoat(S1.Cells[11,4]); Pi:=22/7; Hasil_i:= daya / (4 * Pi * (R*R)); S1.Cells[11,7]:= FLoatTostr(Hasil_i); S1.Cells[11,10]:= FLoatTostr(Log10(Hasil_i/ (1/1000000000000))); //Amplitudo A1 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[11,5])/(2 * (129/100) *347,2)); S1.Cells[11,11]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[11,5])/(2 * (129/100) *347,2)); S1.Cells[11,12]:=FLoatTostr(A);
105
A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[11,5])/(2 * (129/100) *347,2)); S1.Cells[11,13]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[11,5])/(2 * (129/100) *347,2)); S1.Cells[11,14]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[11,5])/(2 * (129/100) *347,2)); S1.Cells[11,15]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[11,5])/(2 * (129/100) *347,2)); S1.Cells[11,16]:=FLoatTostr(A);
//Amplitudo A2 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[11,6])/(2 * (129/100) *347,2)); S1.Cells[11,17]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[11,6])/(2 * (129/100) *347,2)); S1.Cells[11,18]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[11,6])/(2 * (129/100) *347,2)); S1.Cells[11,19]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[11,6])/(2 * (129/100) *347,2)); S1.Cells[11,20]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[11,6])/(2 * (129/100) *347,2)); S1.Cells[11,21]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[11,6])/(2 * (129/100) *347,2)); S1.Cells[11,22]:=FLoatTostr(A); //Amplitudo A3 A:=(1/(Pi*125)) * Sqrt( StrToFLoat(S1.Cells[11,7])/(2 * (129/100) *347,2)); S1.Cells[11,23]:=FLoatTostr(A); A:=(1/(Pi*250)) * Sqrt( StrToFLoat(S1.Cells[11,7])/(2 * (129/100) *347,2)); S1.Cells[11,24]:=FLoatTostr(A); A:=(1/(Pi*500)) * Sqrt( StrToFLoat(S1.Cells[11,7])/(2 * (129/100) *347,2)); S1.Cells[11,25]:=FLoatTostr(A); A:=(1/(Pi*1000)) * Sqrt( StrToFLoat(S1.Cells[11,7])/(2 * (129/100) *347,2)); S1.Cells[11,26]:=FLoatTostr(A); A:=(1/(Pi*2000)) * Sqrt( StrToFLoat(S1.Cells[11,7])/(2 * (129/100) *347,2)); S1.Cells[11,27]:=FLoatTostr(A); A:=(1/(Pi*4000)) * Sqrt( StrToFLoat(S1.Cells[11,7])/(2 * (129/100) *347,2)); S1.Cells[11,28]:=FLoatTostr(A); //Mencari Jarak loadspeaker ke pendengar V:=StrToFLoat(E3.CAption) + StrToFLoat(E12.CAption) * StrToFLoat(E10.CAption); S1.Cells[11,29]:=FLoatToStr( (18/100) * ( Sqrt( (StrToFLoat(C2.text) * V)/ StrToFloat(S5.cells[3,1])) ) ); end; end;
106
procedure TForm1.B1Click(Sender: TObject); begin B1.Color:=ClRed; B2.Color:=clBtnFace; B3.Color:=clBtnFace; B4.Color:=clBtnFace; B5.Color:=clBtnFace; B6.Color:=clBtnFace; end; procedure TForm1.B2Click(Sender: TObject); begin B1.Color:=ClRed; B2.Color:=ClRed; B3.Color:=clBtnFace; B4.Color:=clBtnFace; B5.Color:=clBtnFace; B6.Color:=clBtnFace; end; procedure TForm1.B3Click(Sender: TObject); begin B1.Color:=ClRed; B2.Color:=ClRed; B3.Color:=ClRed; B4.Color:=clBtnFace; B5.Color:=clBtnFace; B6.Color:=clBtnFace; end; procedure TForm1.B4Click(Sender: TObject); begin B1.Color:=ClRed; B2.Color:=ClRed; B3.Color:=ClRed; B4.Color:=ClRed; B5.Color:=clBtnFace; B6.Color:=clBtnFace; end; procedure TForm1.B5Click(Sender: TObject); begin B1.Color:=ClRed;
107
B2.Color:=ClRed; B3.Color:=ClRed; B4.Color:=ClRed; B5.Color:=ClRed; B6.Color:=clBtnFace; end; procedure TForm1.B6Click(Sender: TObject); begin B1.Color:=ClRed; B2.Color:=ClRed; B3.Color:=ClRed; B4.Color:=ClRed; B5.Color:=ClRed; B6.Color:=ClRed; end; procedure TForm1.c2KeyPress(Sender: TObject; var Key: Char); begin Key:=#0; end; procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char); begin Key:=#0; end; procedure TForm1.ComboBox1Change(Sender: TObject); Var I: Integer; begin S1.COlcount:=StrToint(Combobox1.Text)+2; For I:=1 To S1.ColCOunt-1 Do Begin S1.Cells[I,0]:='Nilai Sound '+IntTostr(I-1); S1.colwidths[I]:=130; S1.Cells[I,1]:='110'; End; //meniadakan sound Sound2.Visible:=false; Sound3.Visible:=false; Sound4.Visible:=false; Sound5.Visible:=false; Sound6.Visible:=false; Sound7.Visible:=false; Sound8.Visible:=false; Sound9.Visible:=false;
108
Sound10.Visible:=false; If StrToint(Combobox1.Text)=1 Then Begin Sound1.Visible:=True; S1.Cells[2,1]:='120'; S1.Cells[2,2]:='5'; S1.Cells[2,3]:='10'; S1.Cells[2,4]:='20'; End; If StrToint(Combobox1.Text)=2 Then Begin Sound1.Visible:=True; Sound2.Visible:=True; S1.Cells[2,1]:='120'; S1.Cells[2,2]:='5'; S1.Cells[2,3]:='10'; S1.Cells[2,4]:='20'; S1.Cells[3,1]:='120'; S1.Cells[3,2]:='5'; S1.Cells[3,3]:='10'; S1.Cells[3,4]:='20'; End; If StrToint(Combobox1.Text)=3 Then Begin Sound1.Visible:=True; Sound2.Visible:=True; Sound3.Visible:=True; S1.Cells[2,1]:='120'; S1.Cells[2,2]:='5'; S1.Cells[2,3]:='10'; S1.Cells[2,4]:='20'; S1.Cells[3,1]:='120'; S1.Cells[3,2]:='5'; S1.Cells[3,3]:='10'; S1.Cells[3,4]:='20'; S1.Cells[4,1]:='120'; S1.Cells[4,2]:='5'; S1.Cells[4,3]:='10'; S1.Cells[4,4]:='20'; End;
109
If StrToint(Combobox1.Text)=4 Then Begin Sound1.Visible:=True; Sound2.Visible:=True; Sound3.Visible:=True; Sound4.Visible:=True; S1.Cells[2,1]:='120'; S1.Cells[2,2]:='5'; S1.Cells[2,3]:='10'; S1.Cells[2,4]:='20'; S1.Cells[3,1]:='120'; S1.Cells[3,2]:='5'; S1.Cells[3,3]:='10'; S1.Cells[3,4]:='20'; S1.Cells[4,1]:='120'; S1.Cells[4,2]:='5'; S1.Cells[4,3]:='10'; S1.Cells[4,4]:='20'; S1.Cells[5,1]:='120'; S1.Cells[5,2]:='5'; S1.Cells[5,3]:='10'; S1.Cells[5,4]:='20'; End; // sound fleksibel procedure TForm1.sound2MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sound2.Top:=Sound2.Top+(Y-AY); Sound2.Left:=Sound2.Left+(X-AX); //jrk1.caption:=Inttostr(Pen1.Top-sound2.Top); //S1.Cells[3,2]:=Inttostr(Pen1.Top-sound2.Top); //S1.Cells[3,3]:=Inttostr(Pen1.Top-sound2.Top+44); //S1.Cells[3,4]:=Inttostr(Pen1.Top-sound2.Top+89); Button2Click(Sender); end; procedure TForm1.i1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sound1.Top:=Sound1.Top+(Y-AY); Sound1.Left:=Sound1.Left+(X-AX);
110
jrk1.caption:=Inttostr(Pen1.Top-sound1.Top); S1.Cells[2,2]:=Inttostr(Pen1.Top-sound1.Top); S1.Cells[2,3]:=Inttostr(Pen1.Top-sound1.Top+44); S1.Cells[2,4]:=Inttostr(Pen1.Top-sound1.Top+89); Button2Click(Sender); end; procedure TForm1.Sound3MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sound3.Top:=Sound3.Top+(Y-AY); Sound3.Left:=Sound3.Left+(X-AX); jrk1.caption:=Inttostr(Pen1.Top-sound3.Top); S1.Cells[4,2]:=Inttostr(Pen1.Top-sound3.Top); S1.Cells[4,3]:=Inttostr(Pen1.Top-sound3.Top+44); S1.Cells[4,4]:=Inttostr(Pen1.Top-sound3.Top+89); Button2Click(Sender); end; procedure TForm1.Sound4MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sound4.Top:=Sound4.Top+(Y-AY); Sound4.Left:=Sound4.Left+(X-AX); jrk1.caption:=Inttostr(Pen1.Top-sound4.Top); S1.Cells[5,2]:=Inttostr(Pen1.Top-sound4.Top); S1.Cells[5,3]:=Inttostr(Pen1.Top-sound4.Top+44); S1.Cells[5,4]:=Inttostr(Pen1.Top-sound4.Top+89); Button2Click(Sender); end; procedure TForm1.Sound5MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sound5.Top:=Sound5.Top+(Y-AY); Sound5.Left:=Sound5.Left+(X-AX); jrk1.caption:=Inttostr(Pen1.Top-sound5.Top); S1.Cells[6,2]:=Inttostr(Pen1.Top-sound5.Top); S1.Cells[6,3]:=Inttostr(Pen1.Top-sound5.Top+44); S1.Cells[6,4]:=Inttostr(Pen1.Top-sound5.Top+89); Button2Click(Sender); end;
111
procedure TForm1.Sound6MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sound6.Top:=Sound6.Top+(Y-AY); Sound6.Left:=Sound6.Left+(X-AX); jrk1.caption:=Inttostr(Pen1.Top-sound6.Top); S1.Cells[7,2]:=Inttostr(Pen1.Top-sound6.Top); S1.Cells[7,3]:=Inttostr(Pen1.Top-sound6.Top+44); S1.Cells[7,4]:=Inttostr(Pen1.Top-sound6.Top+89); Button2Click(Sender); end; procedure TForm1.Sound7MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sound7.Top:=Sound7.Top+(Y-AY); Sound7.Left:=Sound7.Left+(X-AX); jrk1.caption:=Inttostr(Pen1.Top-sound7.Top); S1.Cells[8,2]:=Inttostr(Pen1.Top-sound7.Top); S1.Cells[8,3]:=Inttostr(Pen1.Top-sound7.Top+44); S1.Cells[8,4]:=Inttostr(Pen1.Top-sound7.Top+89); Button2Click(Sender); end; procedure TForm1.sound8MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sound8.Top:=Sound8.Top+(Y-AY); Sound8.Left:=Sound8.Left+(X-AX); jrk1.caption:=Inttostr(Pen1.Top-sound8.Top); S1.Cells[9,2]:=Inttostr(Pen1.Top-sound8.Top); S1.Cells[9,3]:=Inttostr(Pen1.Top-sound8.Top+44); S1.Cells[9,4]:=Inttostr(Pen1.Top-sound8.Top+89); Button2Click(Sender); end; procedure TForm1.sound9MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sound9.Top:=Sound9.Top+(Y-AY); Sound9.Left:=Sound9.Left+(X-AX);
112
jrk1.caption:=Inttostr(Pen1.Top-sound9.Top); S1.Cells[10,2]:=Inttostr(Pen1.Top-sound9.Top); S1.Cells[10,3]:=Inttostr(Pen1.Top-sound9.Top+44); S1.Cells[10,4]:=Inttostr(Pen1.Top-sound9.Top+89); Button2Click(Sender); end; procedure TForm1.sound10MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Sound10.Top:=Sound2.Top+(Y-AY); Sound10.Left:=Sound2.Left+(X-AX); jrk1.caption:=Inttostr(Pen1.Top-sound10.Top); S1.Cells[11,2]:=Inttostr(Pen1.Top-sound10.Top); S1.Cells[11,3]:=Inttostr(Pen1.Top-sound10.Top+44); S1.Cells[11,4]:=Inttostr(Pen1.Top-sound10.Top+89); Button2Click(Sender); end; procedure TForm1.Kursi(jml:Integer); Begin //deklarasi kursi I1.Visible:=False; I2.Visible:=False; I3.Visible:=False; I4.Visible:=False; I5.Visible:=False; I6.Visible:=False; I7.Visible:=False; I8.Visible:=False; I9.Visible:=False; I10.Visible:=False; //diteruskan sesuai jumlah kursi yang diminta// If Jml=1 Then Begin I1.Visible:=True; End; If Jml=2 Then Begin I1.Visible:=True; I2.Visible:=True; End; If Jml=3 Then
113
Begin I1.Visible:=True; I2.Visible:=True; I3.Visible:=True; End; If Jml=4 Then Begin I1.Visible:=True; I2.Visible:=True; I3.Visible:=True; I4.Visible:=True; End; If Jml=5 Then Begin I1.Visible:=True; I2.Visible:=True; I3.Visible:=True; I4.Visible:=True; I5.Visible:=True; End; //diteruskan sesuai jumlah kursi yang diminta// procedure TForm1.K2Change(Sender: TObject); Var I: Integer; begin edit1.text:=Inttostr(StrToint(K1.Text) * StrToint(K2.Text)); Kursi(StrToint(edit1.text)); end; procedure TForm1.K1Change(Sender: TObject); Var I: Integer; begin edit1.text:=Inttostr(StrToint(K1.Text) * StrToint(K2.Text)); Kursi(StrToint(edit1.text)); end; procedure TForm1.K1Exit(Sender: TObject); Var I: Integer; begin edit1.text:=Inttostr(StrToint(K1.Text) * StrToint(K2.Text)); end; procedure TForm1.K2Exit(Sender: TObject); Var I: Integer; begin edit1.text:=Inttostr(StrToint(K1.Text) * StrToint(K2.Text));
114
end; procedure TForm1.Edit1Exit(Sender: TObject); begin Kursi(StrToint(edit1.text)); end; end.