PERCOBAAN 4
MEMBUAT APLIKASI SUARA PIANO
1. Tujuan
Agar Bamasis Mampu Membuat Aplikasi Suara Piano
2. Alat dan Bahan
a. Laptop
b. Aplikasi Delphi
c. Shellexecute
d. Sndplaysound
e. Timer
3. Teori Dasar
a. Uses MMSystem
MMSystem (Multimedia System) adalah bagian dari Windows API (Application Programming Interface) yang digunakan untuk mengakses dan mengontrol berbagai fitur multimedia pada sistem operasi Windows. Dalam konteks aplikasi Delphi, MMSystem berperan penting dalam mengintegrasikan fitur multimedia ke dalam program Anda
Gambar 1. Tampilan MMSystem
b. Uses Shellapi
Pada aplikasi Delphi, unit ShellAPI adalah bagian dari Windows API yang memberikan akses ke berbagai fungsi yang berkaitan dengan lingkungan shell Windows. Lingkungan shell mengacu pada antarmuka pengguna grafis (GUI) dari sistem operasi Windows, termasuk desktop, ikon, jendela, dan fungsi-fungsi lain yang berkaitan dengan tampilan dan interaksi dengan sistem.
Gambar 2. Tampilan Shellapi
c. SndPlaysound
Fungsi SndPlaySound adalah bagian dari winmm.dll, yang merupakan pustaka multimedia pada sistem operasi Windows yang digunakan untuk memutar suara. Fungsi ini memungkinkan Anda memainkan file suara dalam format seperti WAV
Gambar 3. Tampilan SndPlaysound
d. Shellexecute
Fungsi ShellExecute adalah bagian dari unit ShellAPI dalam Delphi dan merupakan bagian dari Windows API. Fungsi ini memungkinkan Anda untuk menjalankan aplikasi, membuka file, atau melakukan tindakan lain tergantung pada ekstensi file, dengan menggunakan program yang terkait dengan jenis file tersebut pada sistem operasi Windows.
Gambar 4. Tampilan Shellexecute
4. Langkah – Langkah Percobaan
a. Flowchart
b. Coding Program
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, MMsystem, Vcl.StdCtrls;
type
TFormpiano = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Formpiano: TFormpiano;
implementation
{$R *.dfm}
procedure TFormpiano.Button10Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\10.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button11Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\11.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button12Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\12.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button13Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\13.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button14Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\14.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button15Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\15.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button16Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\16.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button1Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\1.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button2Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\2.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button3Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\3.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button4Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\4.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button5Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\5.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button6Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\6.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button7Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\7.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button8Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\8.wav',SND_NODEFAULT or SND_ASYNC);
end;
procedure TFormpiano.Button9Click(Sender: TObject);
begin
sndPlaySound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\percobaan 4\NADA OKTAF\9.wav',SND_NODEFAULT or SND_ASYNC);
end;
end.
5. Hasil dan Pembahasan
a. hasil Video
b. Pembahasan
Membuat aplikasi suara piano di Delphi yang pertama kita masuk ke aplikasi delphi kemudian letakan bebrapa TTutton di form sesuai dengan kebutuhan setiap tombol akan mewkili sebuah nada piano, dan di form tambahkan komponen musik sesuai dengan nada piano lakukan langkah yang sama untuk setiap nada yang berbeda kita juga bisa menyesuaikan tampilan tombol dan menambahkan keterangan nada di sekitar tombol untuk membuat antar muka yang lebih intuitif
6. Kesimpulan
Membuat aplikasi suara piano menggunakan Delphi adalah proyek yang penuh pembelajaran. Selain mengasah keterampilan dalam mengembangkan antarmuka pengguna dan pemrograman Delphi, proyek ini membuka wawasan tentang multimedia dan audio. Anda akan belajar mengolah suara dari input pengguna, menangani event, dan mengungkap kreativitas dalam menciptakan alat hiburan yang unik. Meskipun dapat dimulai dengan versi sederhana, proyek ini mengajak Anda untuk lebih dalam menjelajahi konsep pemrosesan suara dan memberikan pengalaman berharga dalam pengembangan aplikasi yang melibatkan aspek multimedia.
0 komentar:
Posting Komentar