PERCOBAAN 4 MEMBUAT APLIKASI SUARA PIANO

PERCOBAAN 4

MEMBUAT APLIKASI SUARA PIANO

1. Tujuan : Agar Bamasis mampu membuat aplikasi suara Aplikasi Piano

 

2. Alat dan Bahan : 

    a.    Laptop

    b.    Aplikasi Delphi

     c.    Shellexecute

     d.    SndPlaySound

     e.    Timer

 

3. Dasar Teori :

    a.    Uses MMSystem

 

MMSystem adalah library yang digunakan untuk mengakses berbagai fungsi dan fasilitas yang berkaitan dengan pengaturan multimedia pada sistem operasi Windows. Library ini menyediakan kumpulan rutin dan konstanta yang memungkinkan pengembang perangkat lunak Delphi untuk mengontrol aspek-aspek multimedia seperti suara, video, dan interaksi dengan perangkat keras multimedia.

 

Library MMSystem ini menghubungkan aplikasi Delphi dengan API (Application Programming Interface) multimedia di sistem operasi Windows. Beberapa fitur yang dapat diakses melalui unit MMSystem ini meliputi:

 

1)    Pemutaran Audio

2)    Perekaman Suara

3)    Musik MIDI

4)    Pemutaran Video dan Animasi

5)    Manajemen File Multimedia

 

Contoh penggunaan library MMSystem di Delphi untuk memainkan suara, merekam audio, mengontrol pemutaran video, dan mengakses informasi perangkat keras multimedia. Pada dasarnya, library ini memberikan akses yang lebih mendalam ke fitur-fitur multimedia sistem operasi Windows melalui pemrograman menggunakan Delphi.

 

    b.    Uses ShellApi

Library ShellAPI pada Delphi adalah bagian dari VCL (Visual Component Library) yang menyediakan akses ke berbagai fungsi dan operasi yang terkait dengan antarmuka shell (lingkungan grafis pengguna) dalam sistem operasi Windows. Library ini memungkinkan pengembang perangkat lunak untuk berinteraksi dengan berbagai elemen antarmuka pengguna, seperti berkas, folder, ikon, jendela dialog, dan banyak lagi.

 

Library ShellAPI menyediakan berbagai fungsi yang memungkinkan pengembang Delphi untuk melakukan tugas-tugas seperti:

 

1)    Manajemen Berkas dan Folder

2)    Pengaturan Display

3)    Manipulasi Icon dan Gambar

4)    Pengaturan Aplikasi Default

5)    Pengiriman Pesan ke Aplikasi Lain / Mail

 

c.    SndPlaySound

Fungsi SndPlaySound pada Aplikasi Delphi adalah bagian dari Library MMSystem yang digunakan untuk memutar file suara atau nada tertentu dalam format wave (.wav) di aplikasi Delphi. Fungsi ini memungkinkan untuk memutarkan efek suara atau nada secara sederhana tanpa perlu melibatkan manipulasi lebih lanjut terhadap aliran suara.

       Berikut adalah contoh coding dari fungsi SndPlaySound:

      SndPlaySound(lpszSound: PChar; fuSound: UINT): BOOL; stdcall;

 

d.    Shellexecute

ShellExecute adalah fungsi API Windows dalam Delphi yang sebagian besar digunakan untuk menjalankan aplikasi eksternal dari aplikasi Delphi kita. Fungsi ini terhubung dengan fungsi API Windows ShellExecute. Fungsi ini mengembalikan bilangan bulat yang sesuai dengan kode kesalahan yang sangat berguna ketika kita perlu menampilkan beberapa status apakah fungsi tersebut berhasil atau tidak.

 

Dengan menggunakan ShellExecute, kita juga dapat melakukan operasi berikut ini:

 

1)            Dapat mencetak dokumen dari dalam program, tanpa secara eksplisit memulai aplikasi yang membuat dokumen tersebut, misalnya: mencetak dokumen Word tanpa memulai Word.

2)            Dapat membuka peramban dengan halaman HTML lokal

3)            Dapat berselancar ke suatu situs, misalnya membuka tautan URL eksternal dari aplikasi Delphi

4)            Dapat mengirim surel melalui Outlook.

 

4. Langkah-langkah Percobaan

    a.    Flowchart

 

b.    Coding

            Source code pada MainForm untuk masuk ke FormPiano

           

             Source code untuk memainkan file suara 1 s/d 14.wav

 Source code untuk Timer, berfungsi untuk merubah warna shape selama satu detik

         

    

                  

5. Hasil dan Pembahasan

    a.    Hasil Video

 

b.    Pembahasan

1)         Terjadi proses seleksi pada TEdit mainform dimana pada saat user memasukan password “PIANO” maka formPiano akan muncul.

2)         Di dalam formPiano terdapat komponen Button, Shape serta Timer. Button berfungsi untuk menjalankan perintah SndPlaySound sedangkan Shape serta Timer berfungsi untuk merubah warna pada saat Button dijalankan.

3)         Pada saat menggunakan perintah SndPlaySound, kita harus menggunakan uses MMSystem.

4)         Ketika tombol tangga nada ditekan, maka Shape akan berubah menjadi warna kuning selama 0,25 detik. Kemudian berubah kembali menjadi warna putih. Hal ini merupakan fungsi dari komponen Timer yang diaktifkan berbarengan dengan pemutaran file Audio. Masing-masing komponen Timer di-set dengan interval 250 (0,25 detik).                          

 

6. Kesimpulan

    Pada percobaan kali ini dapat disimpulkan bahwa Aplikasi Delphi mempunyai fitur memainkan file Multimedia yang terintegrasi langsung dengan Windows API. File yang diputar dapat berupa Video maupun Musik. Dengan demikian kita dapat membuat aplikasi Piano menggunakan fitur MMSystem melalui coding SndPlaySound. Adapun Aplikasi ini dapat dikembangkan kedepan dengan menerapkan event KeyBoard Listener. Dimana File suara dapat ditekan tanpa melalui Cursor Mouse, melainkan dapat melalui Keyboard sehingga mirip dengan fungsi Piano pada umumnya.

 

 Daftar Pustaka

Referensi