PERCOBAAN 5 (KONTAK SENJATA MELALUI MAP)

 PERCOBAAN 5

MEMBUAT LAPORAN KONDISI KONTAK SENJATA DENGAN MUSUH MELALUI MAP

 1.        Tujuan :

        Agar Bintara Mahasiswa mampu membuat Laporan Kondisi Kontak Senjata Dengan Musuh Melalui Map.

 2.            Alat dan Bahan :

a.     Laptop

b.     Aplikasi Delphi

c.     Anydesk/Team Viewer

d.     Image

e.     Shape

f.       Pixel

 

3.    Teori :

 

a.     Jelaskan tentang penggunaan Image dalam Map

 

Image dalam map digunakan untuk menampilkan gambar atau peta di dalam aplikasi atau website yang berkaitan dengan informasi geospasial. Penggunaan image pada map sangat penting karena memungkinkan pengguna untuk melihat data geospasial secara visual dengan memanfaatkan gambar atau peta yang terintegrasi dalam aplikasi atau website.

 

Beberapa cara penggunaan image pada map antara lain:

 

1. Menampilkan peta: Image dapat digunakan untuk menampilkan peta atau citra satelit dalam aplikasi atau website map. Gambar peta akan membantu pengguna untuk lebih memahami lokasi dan informasi geospasial lainnya yang terkait dengan wilayah tertentu.

 

2. Menambahkan marker atau simbol: Image juga dapat digunakan untuk menambahkan marker atau simbol pada peta. Misalnya, pengguna dapat menambahkan marker untuk menandai lokasi kantor atau toko pada peta. Marker tersebut biasanya berupa gambar kecil yang dapat dipilih sesuai dengan kategori atau jenis titik di peta.

 

3. Menggambarkan rute atau jalan: Image dapat digunakan untuk menggambarkan rute atau jalan pada peta. Misalnya, pengguna dapat menambahkan gambar panah atau garis pada peta untuk menunjukkan rute perjalanan atau jalan yang harus diambil untuk sampai ke suatu tempat.

 

4. Melakukan zoom in dan zoom out: Image memungkinkan pengguna untuk melakukan zoom in dan zoom out pada peta. Fitur ini sangat penting karena memungkinkan pengguna untuk melihat detail peta dengan lebih jelas atau mengerluarkan tampilan peta untuk melihat wilayah yang lebih besar.

 

5. Menambahkan informasi tambahan: Image juga dapat digunakan untuk menambahkan informasi tambahan pada peta, seperti legenda, skala, atau koordinat. Informasi tambahan ini akan membantu pengguna dalam memahami informasi geospasial yang disajikan dalam peta.

 

Dalam Delphi, dapat menggunakan komponen TImage untuk menampilkan gambar atau peta pada aplikasi, sedangkan untuk menambahkan fitur interaktif pada peta, dapat menggunakan komponen TMapControl pada Delphi XE5 dan yang lebih baru.


Gambar 1.1. Contoh penggunaan Image dalam Map 

 

b.     Jelaskan tentang penggunaan Shape

 

Shape pada Delphi adalah salah satu komponen visual yang memungkinkan pengguna untuk menampilkan bentuk-bentuk dasar seperti kotak, lingkaran, segitiga, dll. di dalam aplikasi yang dibuat dengan Delphi. Shape biasanya digunakan sebagai bahan dasar untuk membuat bar atau grafik sederhana, atau sebagai elemen lain dalam tampilan aplikasi yang lebih kompleks.

Penggunaan Shape dalam aplikasi Delphi dapat memberikan beberapa manfaat bagi pengembang, antara lain:

1. Fleksibilitas: Shape sangat fleksibel dalam penggunaannya dan mudah untuk dimodifikasi. Anda dapat membuat bentuk apapun yang Anda inginkan, dan juga dapat mengubah warna, ukuran, posisi, dan pengaturan lainnya dengan mudah.

2. Kinerja yang cepat: Shape menggunakan sedikit sumber daya sistem yang membuat tampilan lebih cepat daripada interface yang dibuat dengan gambar yang besar.

3. Interaktif: Shape dapat diatur untuk merespons kejadian aksi pengguna, seperti ketika diklik dan di scroll mouse, ini dapat membantu meningkatkan interaksi user dengan aplikasi yang dibuat.

4. Pemrograman yang mudah: shape bisa diprogram untuk melakukan suatu aksi dan juga memiliki banyak properti yang bisa dilakukan untuk meng- custom tampilannya sesuai dengan aplikasi.

Pada Delphi, shape dapat diakses melalui komponen TShape. Komponen TShape sangat mudah digunakan untuk menambahkan shape ke dalam form aplikasi Delphi. Beberapa properti penting dari komponen TShape adalah Style (untuk mengatur bentuk Shape), PenColor dan BrushColor (untuk mengatur warnanya), dan lainnya. Dalam membuat aplikasi berbasis geospasial, shape sangat baik digunakan untuk menunjukkan titik atau point of interest pada peta atau sebagaia pengisi ruang pada peta yang masih kosong.


Gambar 1.2. Contoh penggunaan Shape

c.     Jelaskan tentang Pixel

Pixel adalah elemen terkecil pada sebuah gambar digital yang dapat ditampilkan pada layar monitor, televisi, atau perangkat tampilan lainnya. Pixel berasal dari kata picture element, yang merupakan satuan dasar dari sebuah gambar digital. Setiap pixel memiliki warna dan koordinat spesifik pada gambar.

Pixel biasanya ditunjukkan dengan titik-titik kecil dengan warna tertentu yang tersusun secara teratur untuk membentuk gambar yang lebih besar. Semakin banyak pixel yang terdapat pada gambar, akan semakin tinggi resolusi dan kualitas gambar tersebut. Kualitas gambar yang rendah biasanya disebabkan oleh jumlah pixel yang sedikit atau pixel yang berukuran besar.

Setiap piksel pada gambar digital dapat ditampilkan dalam berbagai format dan ukuran, tergantung pada jenis file gambar yang digunakan. Beberapa jenis format gambar digital yang umum digunakan adalah JPEG, PNG, BMP, dan GIF.

Dalam dunia komputasi, pixel juga memiliki peran penting dalam pengolahan gambar dan grafis. Misalnya, penggunaan teknologi raster yang mengolah gambar berdasarkan piksel-nya, atau dalam pengolahan citra digital dan pengenalan pola.

Kesimpulannya, pixel adalah elemen terkecil pada gambar digital yang menentukan kualitas, resolusi, dan warna dari gambar tersebut. Pixel memiliki peran penting dalam pengolahan gambar dan grafis serta dalam teknologi raster dan pengolahan citra digital.

 

 4.      Langkah Percobaan:

            a.    Flowchart



b.     Coding

unit Unit1;

interface

uses

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

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,

  Vcl.Imaging.pngimage;


type

  TForm1 = class(TForm)

    Image1: TImage;

    Edit1: TEdit;

    Button1: TButton;

    Shape1: TShape;

    Shape2: TShape;

    Shape3: TShape;

    Shape4: TShape;

    Label1: TLabel;

    Label2: TLabel;

    Shape5: TShape;

    Shape6: TShape;

    Shape7: TShape;

    Shape8: TShape;

    Label3: TLabel;

    Shape9: TShape;

    Shape10: TShape;

    Shape11: TShape;

    Shape12: TShape;

    Shape13: TShape;

    Label4: TLabel;

    Shape14: TShape;

    Shape15: TShape;

    Shape16: TShape;

    Shape17: TShape;

    Label5: TLabel;

    Shape18: TShape;

    Shape19: TShape;

    Shape20: TShape;

    Shape21: TShape;

    Label6: TLabel;

    Shape22: TShape;

    Shape23: TShape;

    Shape24: TShape;

    Shape25: TShape;

    Label7: TLabel;

    Shape26: TShape;

    Shape27: TShape;

    Shape28: TShape;

    Shape29: TShape;

    Label8: TLabel;

    Shape30: TShape;

    Shape31: TShape;

    Shape32: TShape;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

 

 begin

 if Edit1.text ='1H' then

   begin

     Shape2.Visible:= True;

     Shape3.Visible:= False;

     Shape4.Visible:= False;

     Shape6.Visible:=False;

    Shape7.Visible:=False;

    Shape8.Visible:=False;

    Shape10.Visible:=False;

    Shape11.Visible:=False;

    Shape12.Visible:=False;

    Shape14.Visible:=False;

    Shape15.Visible:=False;

    Shape16.Visible:=False;

    Shape18.Visible:=False;

    Shape19.Visible:=False;

    Shape20.Visible:=False;

    Shape22.Visible:=False;

    Shape23.Visible:=False;

    Shape24.Visible:=False;

    Shape26.Visible:=False;

    Shape27.Visible:=False;

    Shape28.Visible:=False;

    Shape30.Visible:=False;

    Shape31.Visible:=False;

    Shape32.Visible:=False;

   end

else

if Edit1.Text ='1K' then

  begin

  Shape2.Visible:= False;

  Shape3.Visible:= True;

  Shape4.Visible:= False;

  Shape6.Visible:=False;

  Shape7.Visible:=False;

  Shape8.Visible:=False;

  Shape10.Visible:=False;

  Shape11.Visible:=False;

  Shape12.Visible:=False;

  Shape14.Visible:=False;

  Shape15.Visible:=False;

  Shape16.Visible:=False;

  Shape18.Visible:=False;

  Shape19.Visible:=False;

  Shape20.Visible:=False;

  Shape22.Visible:=False;

  Shape23.Visible:=False;

  Shape24.Visible:=False;

  Shape26.Visible:=False;

  Shape27.Visible:=False;

  Shape28.Visible:=False;

  Shape30.Visible:=False;

  Shape31.Visible:=False;

  Shape32.Visible:=False;

  end

else

if Edit1.Text ='1M' then

  begin

  Shape2.Visible:= False;

  Shape3.Visible:= False;

  Shape4.Visible:= True;

  Shape6.Visible:=False;

  Shape7.Visible:=False;

  Shape8.Visible:=False;

  Shape10.Visible:=False;

  Shape11.Visible:=False;

  Shape12.Visible:=False;

  Shape14.Visible:=False;

  Shape15.Visible:=False;

  Shape16.Visible:=False;

  Shape18.Visible:=False;

  Shape19.Visible:=False;

  Shape20.Visible:=False;

  Shape22.Visible:=False;

  Shape23.Visible:=False;

  Shape24.Visible:=False;

  Shape26.Visible:=False;

  Shape27.Visible:=False;

  Shape28.Visible:=False;

  Shape30.Visible:=False;

  Shape31.Visible:=False;

  Shape32.Visible:=False;

  end

 

else

if Edit1.text ='2H' then

   begin

   Shape6.Visible:= True;

   Shape7.Visible:= False;

   Shape8.Visible:= False;

   Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape14.Visible:=False;

   Shape15.Visible:=False;

   Shape16.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape20.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

   end

else

if Edit1.Text ='2K' then

  begin

  Shape6.Visible:= False;

  Shape7.Visible:= True;

  Shape8.Visible:= False;

  Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape14.Visible:=False;

   Shape15.Visible:=False;

   Shape16.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape20.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

  end

else

if Edit1.Text ='2M' then

  begin

  Shape6.Visible:= False;

  Shape7.Visible:= False;

  Shape8.Visible:= True;

  Shape2.Visible:=False;

  Shape3.Visible:=False;

  Shape4.Visible:=False;

  Shape10.Visible:=False;

  Shape11.Visible:=False;

  Shape12.Visible:=False;

  Shape14.Visible:=False;

  Shape15.Visible:=False;

  Shape16.Visible:=False;

  Shape18.Visible:=False;

  Shape19.Visible:=False;

  Shape20.Visible:=False;

  Shape22.Visible:=False;

  Shape23.Visible:=False;

  Shape24.Visible:=False;

  Shape26.Visible:=False;

  Shape27.Visible:=False;

  Shape28.Visible:=False;

  Shape30.Visible:=False;

  Shape31.Visible:=False;

  Shape32.Visible:=False;

  end

else

if Edit1.text ='3H' then

   begin

   Shape10.Visible:= True;

   Shape11.Visible:= False;

   Shape12.Visible:= False;

   Shape6.Visible:= False;

   Shape7.Visible:= False;

   Shape8.Visible:= False;

   Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape14.Visible:=False;

   Shape15.Visible:=False;

   Shape16.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape20.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

   end

else

if Edit1.Text ='3K' then

  begin

  Shape10.Visible:= False;

  Shape11.Visible:= True;

  Shape12.Visible:= False;

  Shape6.Visible:= False;

   Shape7.Visible:= False;

   Shape8.Visible:= False;

   Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape14.Visible:=False;

   Shape15.Visible:=False;

   Shape16.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape20.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

  end

else

if Edit1.Text ='3M' then

  begin

  Shape10.Visible:= False;

  Shape11.Visible:= False;

  Shape12.Visible:= True;

  Shape6.Visible:= False;

   Shape7.Visible:= False;

   Shape8.Visible:= False;

   Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape14.Visible:=False;

   Shape15.Visible:=False;

   Shape16.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape20.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

  end

else

if Edit1.text ='4H' then

   begin

   Shape14.Visible:= True;

   Shape15.Visible:= False;

   Shape16.Visible:= False;

   Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape6.Visible:=False;

   Shape7.Visible:=False;

   Shape8.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape20.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

   end

else

if Edit1.Text ='4K' then

  begin

  Shape14.Visible:= False;

  Shape15.Visible:= True;

  Shape16.Visible:= False;

  Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape6.Visible:=False;

   Shape7.Visible:=False;

   Shape8.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape20.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

  end

else

if Edit1.Text ='4M' then

  begin

  Shape14.Visible:= False;

  Shape15.Visible:= False;

  Shape16.Visible:= True;

  Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape6.Visible:=False;

   Shape7.Visible:=False;

   Shape8.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape20.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

  end

else

if Edit1.text ='5H' then

   begin

   Shape18.Visible:= True;

   Shape19.Visible:= False;

   Shape20.Visible:= False;

   Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape6.Visible:=False;

   Shape7.Visible:=False;

   Shape8.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

   end

else

if Edit1.Text ='5K' then

  begin

  Shape18.Visible:= False;

  Shape19.Visible:= True;

  Shape20.Visible:= False;

  Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape6.Visible:=False;

   Shape7.Visible:=False;

   Shape8.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

  end

else

if Edit1.Text ='5M' then

  begin

  Shape18.Visible:= False;

  Shape19.Visible:= False;

  Shape20.Visible:= True;

  Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape6.Visible:=False;

   Shape7.Visible:=False;

   Shape8.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape22.Visible:=False;

   Shape23.Visible:=False;

   Shape24.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

  end

else

if Edit1.text ='6H' then

   begin

   Shape22.Visible:= True;

   Shape23.Visible:= False;

   Shape24.Visible:= False;

   Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape6.Visible:=False;

   Shape7.Visible:=False;

   Shape8.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

   end

else

if Edit1.Text ='6K' then

  begin

  Shape22.Visible:= False;

  Shape23.Visible:= True;

  Shape24.Visible:= False;

  Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape6.Visible:=False;

   Shape7.Visible:=False;

   Shape8.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

  end

else

if Edit1.Text ='6M' then

  begin

  Shape22.Visible:= False;

  Shape23.Visible:= False;

  Shape24.Visible:= True;

  Shape2.Visible:=False;

   Shape3.Visible:=False;

   Shape4.Visible:=False;

   Shape6.Visible:=False;

   Shape7.Visible:=False;

   Shape8.Visible:=False;

   Shape10.Visible:=False;

   Shape11.Visible:=False;

   Shape12.Visible:=False;

   Shape18.Visible:=False;

   Shape19.Visible:=False;

   Shape26.Visible:=False;

   Shape27.Visible:=False;

   Shape28.Visible:=False;

   Shape30.Visible:=False;

   Shape31.Visible:=False;

   Shape32.Visible:=False;

  end

else

if Edit1.text ='7H' then

   begin

   Shape26.Visible:= True;

   Shape27.Visible:= False;

   Shape28.Visible:= False;

   Shape2.Visible:=False;

  Shape3.Visible:=False;

  Shape4.Visible:=False;

  Shape6.Visible:=False;

  Shape7.Visible:=False;

  Shape8.Visible:=False;

  Shape10.Visible:=False;

  Shape11.Visible:=False;

  Shape12.Visible:=False;

  Shape14.Visible:=False;

  Shape15.Visible:=False;

  Shape16.Visible:=False;

  Shape18.Visible:=False;

  Shape19.Visible:=False;

  Shape20.Visible:=False;

  Shape22.Visible:=False;

  Shape23.Visible:=False;

  Shape24.Visible:=False;

  Shape30.Visible:=False;

  Shape31.Visible:=False;

  Shape32.Visible:=False;

   end

else

if Edit1.Text ='7K' then

  begin

  Shape26.Visible:= False;

  Shape27.Visible:= True;

  Shape28.Visible:= False;

  Shape2.Visible:=False;

  Shape3.Visible:=False;

  Shape4.Visible:=False;

  Shape6.Visible:=False;

  Shape7.Visible:=False;

  Shape8.Visible:=False;

  Shape10.Visible:=False;

  Shape11.Visible:=False;

  Shape12.Visible:=False;

  Shape14.Visible:=False;

  Shape15.Visible:=False;

  Shape16.Visible:=False;

  Shape18.Visible:=False;

  Shape19.Visible:=False;

  Shape20.Visible:=False;

  Shape22.Visible:=False;

  Shape23.Visible:=False;

  Shape24.Visible:=False;

  Shape30.Visible:=False;

  Shape31.Visible:=False;

  Shape32.Visible:=False;

  end

else

if Edit1.Text ='7M' then

  begin

  Shape26.Visible:= False;

  Shape27.Visible:= False;

  Shape28.Visible:= True;

  Shape2.Visible:=False;

  Shape3.Visible:=False;

  Shape4.Visible:=False;

  Shape6.Visible:=False;

  Shape7.Visible:=False;

  Shape8.Visible:=False;

  Shape10.Visible:=False;

  Shape11.Visible:=False;

  Shape12.Visible:=False;

  Shape14.Visible:=False;

  Shape15.Visible:=False;

  Shape16.Visible:=False;

  Shape18.Visible:=False;

  Shape19.Visible:=False;

  Shape20.Visible:=False;

  Shape22.Visible:=False;

  Shape23.Visible:=False;

  Shape24.Visible:=False;

  Shape30.Visible:=False;

  Shape31.Visible:=False;

  Shape32.Visible:=False;

  end

else

if Edit1.text ='8H' then

   begin

   Shape30.Visible:= True;

   Shape31.Visible:= False;

   Shape32.Visible:= False;

   Shape2.Visible:=False;

  Shape3.Visible:=False;

  Shape4.Visible:=False;

  Shape6.Visible:=False;

  Shape7.Visible:=False;

  Shape8.Visible:=False;

  Shape10.Visible:=False;

  Shape11.Visible:=False;

  Shape12.Visible:=False;

  Shape14.Visible:=False;

  Shape15.Visible:=False;

  Shape16.Visible:=False;

  Shape18.Visible:=False;

  Shape19.Visible:=False;

  Shape20.Visible:=False;

  Shape22.Visible:=False;

  Shape23.Visible:=False;

  Shape24.Visible:=False;

  Shape26.Visible:=False;

  Shape27.Visible:=False;

  Shape28.Visible:=False;

   end

else

if Edit1.Text ='8K' then

  begin

  Shape30.Visible:= False;

  Shape31.Visible:= True;

  Shape32.Visible:= False;

  Shape2.Visible:=False;

  Shape3.Visible:=False;

  Shape4.Visible:=False;

  Shape6.Visible:=False;

  Shape7.Visible:=False;

  Shape8.Visible:=False;

  Shape10.Visible:=False;

  Shape11.Visible:=False;

  Shape12.Visible:=False;

  Shape14.Visible:=False;

  Shape15.Visible:=False;

  Shape16.Visible:=False;

  Shape18.Visible:=False;

  Shape19.Visible:=False;

  Shape20.Visible:=False;

  Shape22.Visible:=False;

  Shape23.Visible:=False;

  Shape24.Visible:=False;

  Shape26.Visible:=False;

  Shape27.Visible:=False;

  Shape28.Visible:=False;

  end

else

if Edit1.Text ='8M' then

  begin

  Shape30.Visible:= False;

  Shape31.Visible:= False;

  Shape32.Visible:= True;

  Shape2.Visible:=False;

  Shape3.Visible:=False;

  Shape4.Visible:=False;

  Shape6.Visible:=False;

  Shape7.Visible:=False;

  Shape8.Visible:=False;

  Shape10.Visible:=False;

  Shape11.Visible:=False;

  Shape12.Visible:=False;

  Shape14.Visible:=False;

  Shape15.Visible:=False;

  Shape16.Visible:=False;

  Shape18.Visible:=False;

  Shape19.Visible:=False;

  Shape20.Visible:=False;

  Shape22.Visible:=False;

  Shape23.Visible:=False;

  Shape24.Visible:=False;

  Shape26.Visible:=False;

  Shape27.Visible:=False;

  Shape28.Visible:=False;

  end

else

  begin

  Shape2.Visible:=False;

  Shape3.Visible:=False;

  Shape4.Visible:=False;

  Shape6.Visible:=False;

  Shape7.Visible:=False;

  Shape8.Visible:=False;

  Shape10.Visible:=False;

  Shape11.Visible:=False;

  Shape12.Visible:=False;

  Shape14.Visible:=False;

  Shape15.Visible:=False;

  Shape16.Visible:=False;

  Shape18.Visible:=False;

  Shape19.Visible:=False;

  Shape20.Visible:=False;

  Shape22.Visible:=False;

  Shape23.Visible:=False;

  Shape24.Visible:=False;

  Shape26.Visible:=False;

  Shape27.Visible:=False;

  Shape28.Visible:=False;

  Shape30.Visible:=False;

  Shape31.Visible:=False;

  Shape32.Visible:=False;

 end

end;

 

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Close;

end;

 

end.

  

 

5.            Hasil dan Pembahasan

a.     Hasil

Video




 

b.     Pembahasan

Dalam praktikum percobaan 5 ini membahas bagaimana kita dapat memberikan infomasi ke komando atas dengan menggunakan tampilan warna. Dengan warna hijau,kuning,dan merah. Setiap warna mempunyai arti masing-masing. Menampilkan warna pada program kita menggunakan perintah Tool edit dan diikuti dengan warna yang inginkan. Pada praktikum ini kita menggunakan beberapa tool pada delphi yang diantaranya adalah image digunakan menampilkan gambar, edit digunakan untuk memasukkan status atau data, dan button yang digunakan untuk perintah eksekusi. Dan pada percobaan ini dapat dikendalikan deng team viewer.

 6.        Kesimpulan

    

     Dari hasil percobaan dapat sompulkan bahwa setiap perintah pada kita dapat menggunakan tool edit yang berfungsi untuk menampilkan data yang diinginkan.

Tool edit pada Delphi merupakan komponen visual yang digunakan dalam pembuatan aplikasi berbasis GUI atau Graphical User Interface. Penggunaan tool edit pada Delphi secara umum adalah untuk membuat kotak input atau teks pada aplikasi, sehingga pengguna bisa memasukkan data atau informasi yang diperlukan.

 

Beberapa fungsi dari tool edit pada Delphi di antaranya adalah:

a.              Memasukkan data: Tool edit bisa digunakan untuk memasukkan data teks atau numerik ke dalam aplikasi dengan memungkinkan pengguna memasukkan input.

b.              Memvalidasi data: Fungsi validasi data pada tool edit memungkinkan aplikasi untuk memastikan jika data yang dimasukkan pengguna sesuai dengan yang dibutuhkan pada aplikasi.

c.               Menampilkan hasil: Tool edit juga berfungsi untuk menampilkan data atau hasil pengolahan data pada aplikasi.

Beberapa jenis tool edit pada Delphi di antaranya adalah TEdit, TMaskEdit, TDBEdit, TSpinEdit, TFloatSpinEdit dan lain-lain. Jika ingin menggunakan tool edit, pengguna harus menambahkan komponen ini pada form yang sedang dibuat dan kemudian mengonfigurasinya sesuai kebutuhan.