PERCOBAAN 9 Membuat Aplikasi RCWS sensor dengan MAP

 

 PERCOBAAN 9

Membuat Aplikasi RCWS sensor dengan MAP

1. Tujuan : Agar Bamasis mampu membuat Aplikasi Sentry Gun dengan Map

2. Alat dan Bahan :

a. Laptop

b. Aplikasi Delphi

C. Edit Text

d. TLabel

e. TShape

3. Dasar Teori :

a. Image dalam Map

Digunakan untuk menampilkan gambar di dalam aplikasi. Komponen ini memungkinkan untuk menampilkan berbagai format gambar (seperti BMP, JPEG, PNG, GIF, dsb) di dalam form aplikasi.

b. Edit

Dalam konteks aplikasi pengembangan perangkat lunak seperti Delphi, "tool edit" mengacu pada komponen atau elemen grafis yang digunakan untuk memungkinkan pengguna memasukkan, mengedit, dan menampilkan teks atau data lainnya dalam aplikasi. Tool edit ini biasanya dikenal sebagai "Edit Controls" atau "Edit Boxes."

c. TLabel

TLabel adalah komponen visual pada Delphi yang digunakan untuk menampilkan teks statis pada formulir atau jendela aplikasi. Tujuan utama dari TLabel adalah memberikan label atau informasi tambahan kepada pengguna, seperti memberikan nama atau deskripsi terhadap kontrol atau bagian tertentu dari antarmuka pengguna. TLabel tidak dapat menerima input dari pengguna, tetapi memberikan informasi penting atau bantuan kepada pengguna terkait kontrol atau bagian lainnya pada formulir.

d. TShape

Komponen TShape adalah bagian dari kerangka kerja Visual Component Library (VCL) yang disediakan oleh Delphi. TShape dapat digunakan untuk membuat bentuk-bentuk dasar seperti persegi panjang, elips, garis, dan lain-lain di dalam form aplikasi. TShape biasanya digunakan untuk tujuan visual atau dekoratif, seperti membuat garis pemisah atau menampilkan ikon sederhana. Shape pada delphi 7 digunakan untuk membuat suatu objek seperti circle, rectangle, triangle dll.

4. Langkah Prcobaan

a. Flowchart

b. coding

unit Unit2;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.pngimage,

  Vcl.StdCtrls;

type

  TForm2 = class(TForm)

    Edit1: TEdit;

    Timer1: TTimer;

    Image1: TImage;

    Shape1: TShape;

    Shape2: TShape;

    Shape3: TShape;

    Shape4: TShape;

    Shape5: TShape;

    Shape6: TShape;

    Shape7: TShape;

    Shape8: TShape;

    Shape9: TShape;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    procedure Edit1Change(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Edit1Change(Sender: TObject);

begin

if edit1.Text ='u' then

begin

  shape2.Brush.Color := clred;

  end

  else if edit1.Text ='y' then

  begin

  shape3.Brush.Color := clred;

  end

  else if edit1.Text ='7' then

  begin

  shape4.Brush.Color := clred;

  end

  else if edit1.Text ='n' then

  begin

  shape5.Brush.Color := clred;

  end

  else if edit1.Text ='h' then

  begin

  shape6.Brush.Color := clred;

  end

  else if edit1.Text ='j' then

  begin

  shape7.Brush.Color := clred;

  end

  else if edit1.Text ='6' then

  begin

  shape8.Brush.Color := clred;

  end

  else if edit1.Text ='m' then

  begin

  shape1.Brush.Color := clred;

   end

   else

   begin

end;

edit1.Text:='';

timer1.Enabled := True;

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

shape1.Brush.Color := clwhite;

shape2.Brush.Color := clwhite;

shape3.Brush.Color := clwhite;

shape4.Brush.Color := clwhite;

shape5.Brush.Color := clwhite;

shape6.Brush.Color := clwhite;

shape7.Brush.Color := clwhite;

shape8.Brush.Color := clwhite;

timer1.Enabled := false;

end;

end.

5. Hasil dan Pembahasan

a. Hasil Video

 

b. Pembahasan

Aplikasi disimulasikan sebagai aplikasi yang dapat me-monitor sensor yang ditempatkan di 8 titik di peta.

Ketika Tombol U ditekan, maka Shapel (arah Utara) akan menjadi warna merah

Ketika Tombol Y ditekan, maka Shape2 (arah Timur Laut) akan menjadi warna merah

Ketika Tombol 7 ditekan, maka Shape3 (arah Timur) akan menjadi warna merah

Ketika Tombol n ditekan, maka Shape4 (arah Tenggara) akan menjadi warna merah

Ketika Tombol H ditekan, maka Shape5(arah Selatan) akan menjadi warna merah

Ketika Tombol J ditekan, maka Shape6 (arah Barat Daya) akan menjadi warna merah

Ketika Tombol 6 ditekan, maka Shape7 (arah Barat) akan menjadi warna merah

Ketika Tombol m ditekan, maka Shape8 (arah Barat Laut) akan menjadi warna merah

Kedelapan sensor ini diibaratkan sebagai titik ancaman musuh, ketika musuh terdeteksi oleh sensor berada di area tersebut, maka akan menjadi titik merah. Kemudian pada pengembangan selanjutnya ditempatkan sebuah Sentry Gun yang akan melakukan pointing/mengarah kepada arah ancaman tersebut.



 

6. Kesimpulan

Aplikasi ini dapat menjadi protoype untuk pembangunan Situasional Awarness bagi Pos atau pergelaran pasukan di garis musuh. Sensor menjadi indikator awal adanya ancaman dan akan mengarahkan Sentry Gun ke titik ancaman yang dituju. Aplikasi ini dapat dikembangkan lebih lanjut dengan menambah jenis sensor, menambah kamera di titik-titik sensor, menaikan tingkat responsivitas serta penambahan fitur-fitur lain.