|
|
PERCOBAAN 8
MEMBUAT DETEKSI WARNA
DISUSUN OLEH :
KELOMPOK 1
1. Sertu Tony Giant Nc. Nosis 20190441-E
2. Sertu Acep Nana Komara Nosis 20190442-E
3. Sertu Masrury Priyono Nosis 20190443-E
4. Sertu Tommy Wilmar Fehr Nosis 20190444-E
5. Sertu Moh. Fredy Setiawan Nosis 20190445-E
BATU, SEPTEMBER 2021
PERCOBAAN 8
MEMBUAT DETEKSI WARNA
1. Tujuan : Agar Bamasis Mampu membuat deteksi warna.
2. Alat Dan Bahan :
A. Laptop
B. Program Delphi
3. Teori :
A. Jelaskan Tentang Image
Jawab : Tool Image adalah Sebuah tool yang berfungsi Membuka lembar kerja Image Editor.
B. Jelaskan Tentang Tool Panel
Jawab : Tool Panel adalah Sebuah kontainer yang dapat digunakan untuk membuat StatusBar, ToolBar dan ToolPalette.
C. Jelaskan Tentang Edit
Jawab : Edit Adalah suatu Komponen yang digunakan untuk menerima satu baris teks yang merupakan data input pemakai. Komponen ini juga dapat digunakan untuk menampilkan teks.
D. Jelaskan Tentang On Mouse Move
Jawab : Tool On Mouse Move Adalah suatu tool yang berfungsi unut menampilkan nilai dari pergerakan pointer yang berubah ubah pada menu bar, dan memberikan solusi ketika terjadi error pada program.
4. Langkah Percobaan.
1) Penyiapan alat dan komponen yang akan digunakan untuk percobaan.
2) Melaksanakan Pembuatan coding; dan
3) Melaksanakan Percobaan dengan aplikasi Delphi 7.
|
KIRI |
|
KANAN |
|
ATAS |
|
BAWAH |
FLOWCHART
|
START |
|
LIHAT SASARAN |
|
Sumbu,X) |
|
Sumbu,Y |
|
Bitmap,X |
|
Bitmap,Y |
|
SELESAI |
|
TIDAK |
|
TIDAK |
|
TIDAK |
|
TIDAK |
Coding embarcadero/Delphi 7 :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
panel1.Color:=image1.Picture.Bitmap.Canvas.Pixels [x,y];
edit1.Text:=inttostr(x);
edit2.Text:=inttostr(y);
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
end;
end.
Gambar 1. Coding pada aplikasi Delphi 7
B. Buat Program Deteksi Warna dengan Aplikasi Delphi 7
Gambar 2. Tampilan pertama pada saat pembuatan coding embarcadero/delphi 7.
Gambar 3. Tampilan pada saat di RUN / PLAY.
5. Analisa :
Analisa percobaan 8 yang mempraktikkan Program Alat bidik dengan mendeteksi warna dengan aplikasi Delphi untuk membuat suatu bidikan / target pada sebuah objek. Komponen yang digunakan didalam percobaan ini yaitu Edit , image dan On mouse move. Di dalam percobaan 8 ini dalam menjalankan program, image yang di gunakan akan di deteksi oleh mouse dengan mendeteksi warna.
Pada saat mouse di Gerakan ke sumbe X maupun sumbu Y makan akan muncul pada panel1 yang menunjukan warna tersebut sesuai kursor mouse mengarah ke mana. Dan terdapat angka yang menunjukan posisi kurso mouse berapa jaraknya.
Pada program ini juga dapat menentukan hasil score bidikan sesuai deteksi warna pada mouse.
6. Kesimpulan Dan Saran :
A. Kesimpulan Dari Program Alat bidik dengan mendeteksi warna sangat berfungsi untuk menentukan arah serta jarak sasaran bidikan suatu target dengan mendeteksi warna yang dituju dengan menggunkan ON MOUSE MOVE.
B. Saran (Untuk Tugas Akhir) yaitu agar pembuatan Sistem kontrol pada suatu alat dengan baik dan diharapkan untuk lebih mengambangkan lagi kreativitas dalam bidang pemrogaman guna mendukung wawasan untuk persiapan menghadapi Tugas Akhir.
