JURUSAN TELEKOMUNIKASI
PRODI TEKNIK TELKOMMIL
PERCOBAAN 8
MEMBUAT LAPORAN APLIKASI REMOTE RCWS DENGAN TOWN DTMF
1. Tujuan
Agar bamasis mampu membuat aplikasi remote RCWS menggunakan town DTMF .
2. Alat dan Bahan
a. Laptop
b. Aplikasi Delphi
c. Uses MMSystem
d. Button
e. DTMF
3. Teori Dasar.
`a. Uses MMSystem
Penggunaan MMSystem pada kode Delphi Anda menunjukkan bahwa program tersebut melibatkan aspek-aspek multimedia dalam aplikasi tersebut. MMSystem adalah unit dalam Delphi yang menyediakan akses ke fasilitas multimedia di sistem operasi Windows. Unit ini memungkinkan pengembang untuk mengintegrasikan fitur-fitur multimedia seperti pemutaran suara (audio) dan manipulasi file multimedia.
Salah satu fungsi yang umum digunakan dari MMSystem adalah PlaySound, yang dapat digunakan untuk memainkan file suara dalam aplikasi Anda. Ini memberikan cara sederhana untuk mengintegrasikan efek suara atau sinyal audio lainnya sebagai tanggapan terhadap peristiwa tertentu dalam program.
Selain itu, MMSystem juga memberikan akses ke berbagai fitur multimedia lainnya, termasuk pengaturan volume, kontrol pemutaran, dan fungsi-fungsi lain yang mendukung manipulasi data multimedia. Dengan menggunakan unit ini, aplikasi Delphi dapat meningkatkan pengalaman pengguna dengan menambahkan elemen-elemen multimedia yang menyatu dengan fungsionalitas aplikasi secara keseluruhan. Oleh karena itu, penggunaan MMSystem menunjukkan upaya untuk meningkatkan aspek multimedia dan responsifitas audio dalam aplikasi Delphi yang Anda kembangkan.
b. Button
Dalam lingkungan pengembangan perangkat lunak menggunakan Delphi, komponen tombol (button) adalah salah satu elemen antarmuka pengguna yang fundamental dan sering digunakan. Tombol memberikan cara bagi pengguna untuk memicu tindakan atau peristiwa tertentu saat ditekan. Dengan menambahkan komponen tombol ke dalam formulir (form) Delphi, pengembang dapat membuat antarmuka yang lebih responsif dan interaktif.
Komponen tombol dalam Delphi tidak hanya menyediakan elemen visual yang dapat dilihat pengguna, tetapi juga memiliki properti dan peristiwa yang dapat dikustomisasi. Pengembang dapat mengatur teks yang ditampilkan pada tombol, menentukan aksi atau perintah yang akan dijalankan ketika tombol ditekan, dan mengonfigurasi tata letak dan gaya visual tombol tersebut. Selain itu, tombol dapat dihubungkan dengan kode prosedural menggunakan peristiwa seperti OnClick, di mana logika atau fungsi tertentu dapat dijalankan ketika tombol ditekan.
Dalam pengembangan aplikasi Delphi, penggunaan tombol tidak terbatas pada sekadar mengeksekusi perintah. Tombol juga dapat digunakan untuk memicu perubahan status, membuka formulir tambahan, atau mengonfirmasi tindakan pengguna. Dengan demikian, penggunaan komponen tombol menjadi esensial dalam membentuk pengalaman pengguna yang baik dan meningkatkan fungsionalitas aplikasi secara keseluruhan.
c. DTMF
Dual-Tone Multi-Frequency (DTMF) adalah sebuah metode untuk mengirimkan sinyal suara melalui jalur telekomunikasi analog. Dalam konteks pengembangan perangkat lunak menggunakan Delphi, DTMF sering kali digunakan untuk implementasi fitur pengendalian atau interaksi suara dalam aplikasi. DTMF bekerja dengan menghasilkan dua frekuensi berbeda secara bersamaan, mewakili setiap digit atau karakter pada keypad telepon. Setiap tombol pada keypad telepon menghasilkan kombinasi unik dari dua frekuensi, dan sinyal ini dapat dideteksi dan diinterpretasikan oleh sistem.
Dalam Delphi, terdapat komponen atau library yang dapat digunakan untuk memanipulasi atau mendeteksi sinyal DTMF. Pengembang dapat mengintegrasikan fungsi DTMF ke dalam aplikasi mereka untuk merespons input suara pengguna atau untuk berkomunikasi dengan perangkat telekomunikasi yang mendukung DTMF. Implementasi DTMF dalam Delphi seringkali melibatkan pemrosesan sinyal audio, pengenalan pola frekuensi, dan manajemen interaksi suara secara keseluruhan. Dengan adanya fitur DTMF, aplikasi Delphi dapat menjadi lebih interaktif dan mendukung berbagai skenario penggunaan, seperti sistem panggilan suara atau kontrol perangkat melalui suara.
4. Langkah – Langkah Percobaan
a. Flowchart
Gambar 1. Flowchart
b. Coding Program
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, MMSystem;
type
TForm1 = class(TForm)
Button7: TButton;
Button5: TButton;
Button3: TButton;
Button1: TButton;
Button2: TButton;
Button4: TButton;
Button6: TButton;
Timer1: TTimer;
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 Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound('D:\TK2\praktik bahasa pemograman\PRAKTIKUM FIX\percobaan16\percobaan16\D1.wav', SND_NODEFAULT OR SND_ASYNC);
Timer1.Enabled:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
sndPlaySound('D:\TK2\praktik bahasa pemograman\PRAKTIKUM FIX\percobaan16\percobaan16\D2.wav', SND_NODEFAULT OR SND_ASYNC);
Timer1.Enabled:=True;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
sndPlaySound('D:\TK2\praktik bahasa pemograman\PRAKTIKUM FIX\percobaan16\percobaan16\D3.wav', SND_NODEFAULT OR SND_ASYNC);
Timer1.Enabled:=True;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
sndPlaySound('D:\TK2\praktik bahasa pemograman\PRAKTIKUM FIX\percobaan16\percobaan16\D4.wav', SND_NODEFAULT OR SND_ASYNC);
Timer1.Enabled:=True;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Timer1.Interval:1000;
Timer1.Enabled:=True;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Timer1.Interval:500;
Timer1.Enabled:=True;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Timer1.Interval:200;
Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sndPlaySound('D:\TK2\praktik bahasa pemograman\PRAKTIKUM FIX\percobaan16\percobaan16\D0.wav', SND_NODEFAULT OR SND_ASYNC);
Timer1.Enabled:=False;
end;
end.
5. Hasil dan Pembahasan
a. hasil foto aplikasi dan video
b. Pembahasan
Aplikasi remote RCWS (Remote Controlled Weapon Station) dengan DTMF (Dual Tone Multi-Frequency) adalah sistem yang memungkinkan pengendalian senjata dari jarak jauh menggunakan sinyal suara DTMF. DTMF adalah metode komunikasi suara yang menggunakan kombinasi dua frekuensi untuk mengirimkan informasi.
6. Kesimpulan
Tidak ada komentar:
Posting Komentar