PERCOBAAN 4 PIANO

 JURUSAN TELEKOMUNIKASI

PRODI TEKNIK TELKOMMIL

 

 

PERCOBAAN 4

 MEMBUAT APLIKASI PIANO

 

1.         Umum.

 

            Delphi adalah Suatu bahasa pemrograman yang menggunakan visualisasi sama seperti Bahasa pemrograman Visual Basic ( VB ) . Namun Delphi menggunakan bahasa yang hampir sama dengan pascal (sering disebut objeck pascal ) . Sehingga lebih mudah untuk digunakan .
Bahasa pemrograman Delphi dikembangkan oleh CodeGear sebagai divisi pengembangan
perangkat lunak milik embarcadero . Divisi tersebut awalnya milik borland , sehingga bahasa
ini memiliki versi Borland Delphi .

Delphi juga menggunakan konsep yang berorientasi objek ( OOP ) , maksudnya
pemrograman dengan membantu sebuah aplikasi yang mendekati keadaan dunia yang
sesungguhnya . Hal itu bisa dilakukan dengan cara mendesign objek untuk menyelesaikan
masalah . OOP ini memiliki beberapa unsur yaitu ; Encapsulation ( pemodelan ) , Inheritance
( Penurunan ) , Polymorphism ( Polimorfisme ) .

Awalnya bahasa pemrograman delphi hanya dapat digunakan di Microsoft Windows,
namun saat ini telah dikembangkan sehingga dapat digunakan juga di Linux dan di Microsoft
.NET . Dengan menggunakan free pascal yang merupakan proyek OpenSource, bahasa
pemrograman ini dapat membuat program di sistem operasi Mac OS X dan Windows CE .
Umumnya delphi hanya digunakan untuk pengembangan aplikasi dekstop, enterprise
berbasis database dan program - program kecil . Namun karena pengembangan delphi yang
semakin pesat dan bersifat general purpose bahasa pemrograman ini mampu digunakan untuk
berbagai jenis pengembangan software . Dan Delphi juga disebut sebagai pelopor
perkembangan RadTool ( Rapid Apllication Development ) tahun 1995 . Sehinnga banyak
orang yang mulai mengenal dan menyukai bahasa pemrograman yang bersifat VCL ( Visual
Component Library ) ini .

 2.         Tujuan Praktikum.

            -    Agar Bamasis mampu membuat tampilan nama pribadi menggunakan                           Aplikasi Delphi.

3.         Alat dan Bahan.

            a.         Laptop/PC;

            b.         Aplikasi Delphi; dan

            c.         Coding Tampilan data.

4.  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

2.  Langkah – Langkah Percobaan

    a. flowchart

b. Coding Program

    class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    Button9: TButton;

    Label1: TLabel;

    Shape1: TShape;

    Shape2: TShape;

    Shape3: TShape;

    Shape4: TShape;

    Shape5: TShape;

    Shape6: TShape;

    Shape7: TShape;

    Shape8: TShape;

    Image1: TImage;

    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);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

FORM1.Close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

sndplaysound('D:\TELKOMMIL TK 2\Kol Arh Nurahman praktek bahasa program\percobaan 4\percobaan 4\NADAOKTAF\2.wav',SND_NODEFAULT Or SND_ASYNC);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

sndplaysound('D:\TELKOMMIL TK 2\Kol Arh Nurahman praktek bahasa program\percobaan 4\percobaan 4\NADAOKTAF\3.wav',SND_NODEFAULT Or SND_ASYNC);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

sndplaysound('D:\TELKOMMIL TK 2\Kol Arh Nurahman praktek bahasa program\percobaan 4\percobaan 4\NADAOKTAF\4.wav',SND_NODEFAULT Or SND_ASYNC);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

sndplaysound('D:\TELKOMMIL TK 2\Kol Arh Nurahman praktek bahasa program\percobaan 4\percobaan 4\NADAOKTAF\1.wav',SND_NODEFAULT Or SND_ASYNC);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

sndplaysound('D:\TELKOMMIL TK 2\Kol Arh Nurahman praktek bahasa program\percobaan 4\percobaan 4\NADAOKTAF\5.wav',SND_NODEFAULT Or SND_ASYNC);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

sndplaysound('D:\TELKOMMIL TK 2\Kol Arh Nurahman praktek bahasa program\percobaan 4\percobaan 4\NADAOKTAF\6.wav',SND_NODEFAULT Or SND_ASYNC);

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

sndplaysound('D:\TELKOMMIL TK 2\Kol Arh Nurahman praktek bahasa program\percobaan 4\percobaan 4\NADAOKTAF\7.wav',SND_NODEFAULT Or SND_ASYNC);

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

sndplaysound('D:\TELKOMMIL TK 2\Kol Arh Nurahman praktek bahasa program\percobaan 4\percobaan 4\NADAOKTAF\8.wav',SND_NODEFAULT Or SND_ASYNC);

1.  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.

 

2.  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. proyek ini mengajak Anda untuk lebih dalam menjelajahi konsep pemrosesan suara dan memberikan pengalaman berharga dalam pengembangan aplikasi yang melibatkan aspek multimedia.