|
PERCOBAAN
7
MEMBUAT
PROGRAM ALAT BIDIK
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 7
MEMBUAT PROGRAM ALAT BIDIK
1.
Tujuan :
Agar
Bamasis Mampu Mempraktekan Program
Alat Bidik Menggunakan Perintah Transparancy.
2. Alat
Dan Bahan :
A. Laptop
B. Program
DelphI
3. Teori :
A. Jelaskan Tentang Tool Transparance
Jawab
: Tool Transparance
adalah Sebuah tool yang berfungsi untuk menembus pandangkan atau
mentransparansi suatu objek.
B. Jelaskan Tentang Tool Shape
Jawab
: Tool Shape
adalah Sebuah
tool yang berfungsi untuk merubah bentuk sebuah garis atau object.
C. Jelaskan Tentang Tool Button
Jawab : Button merupakan komponen
yang sering digunakan sebagai tombol konversi atau tombol proses pada setiap
program aplikasi. Namun tombol ini akan berfungsi sebagai tombol konversi atau
proses jika diberikan sintaksis. Dengan kata lain, Button tidak bisa berfungsi
tanpa sintaksis yang kita tulis di komponen Code Editor. Kelebihan
dari Button dan BitButton adalah bisa menampilkan pesan dalam berbagai bentuk
ucapan (terima kasih, perintah, pilihan, dsb) melalui satu, dua, atau tiga
tombol.
4. Langkah Percobaan.
A. Buat Flowchart
Program Alat Bidik
1) Penyiapan alat dan komponen yang akan digunakan untuk percobaan.
2) Melaksanakan Pembuatan coding; dan
3) Melaksanakan Percobaan dengan aplikasi Delphi 7.
Coding embarcadero/Delphi 7 :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, MMsystem;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image7: TImage;
Image8: TImage;
Image5: TImage;
Image6: TImage;
Edit1: TEdit;
Timer1: TTimer;
Image9: TImage;
Label1: TLabel;
Label2: TLabel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Edit1Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender:
TObject);
begin
if edit1.text='2'then
begin
sndplaysound('D:\DTMF\D2.wav',SND_NODEFAULT
);
image4.Visible:=true;
edit1.Text:=' ';
Timer1.Enabled:=true;
shape2.Left:=shape2.Left-5;
shape3.Left:=shape3.Left-5;
shape4.Left:=shape4.Left-5;
shape5.Left:=shape5.Left-5;
shape6.Left:=shape6.Left-5;
end;
if edit1.text='4'then
begin
sndplaysound('D:\DTMF\D4.wav',SND_NODEFAULT
);
image2.Visible:=true;
edit1.Text:=' ';
Timer1.Enabled:=true;
shape2.Top:=shape2.Top-5;
shape3.Top:=shape3.Top-5;
shape4.Top:=shape4.Top-5;
shape5.Top:=shape5.Top-5;
shape6.Top:=shape6.Top-5;
end;
if edit1.text='3'then
begin
sndplaysound('D:\DTMF\D3.wav',SND_NODEFAULT
);
image6.Visible:=true;
edit1.Text:=' ';
Timer1.Enabled:=true;
shape2.Left:=shape2.Left+5;
shape3.Left:=shape3.Left+5;
shape4.Left:=shape4.Left+5;
shape5.Left:=shape5.Left+5;
shape6.Left:=shape6.Left+5;
end;
if edit1.text='5'then
begin
sndplaysound('D:\DTMF\D5.wav',SND_NODEFAULT
);
image8.Visible:=true;
edit1.Text:=' ';
Timer1.Enabled:=true;
shape2.Top:=shape2.Top+5;
shape3.Top:=shape3.Top+5;
shape4.Top:=shape4.Top+5;
shape5.Top:=shape5.Top+5;
shape6.Top:=shape6.Top+5;
end;
if edit1.text='1'then
begin
image2.visible:=false;
image4.visible:=false;
image6.visible:=false;
image8.visible:=false;
edit1.text:='';
Sndplaysound('D:\DTMF\Do.wav',SND_NODEFAULT
);
Timer1.Enabled:=false;
end;
end;
procedure TForm1.Timer1Timer(Sender:
TObject);
begin
image2.visible:=false;
image4.visible:=false;
image6.visible:=false;
image8.visible:=false;
edit1.text:='';
Sndplaysound('D:\DTMF\Do.wav',SND_NODEFAULT
);
Timer1.Enabled:=false;
end;
procedure TForm1.Button1Click(Sender:
TObject);
begin
Timer1.Interval:=100;
end;
procedure TForm1.Button2Click(Sender:
TObject);
begin
Timer1.Interval:=300;
end;
procedure TForm1.Button3Click(Sender:
TObject);
begin
Timer1.Interval:=1000;
end;
end.
Gambar
1. Coding pada aplikasi Delphi 7
B. Buat Program Alat Bidik 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 7 yang mempraktikkan Program Alat bidik dengan aplikasi Delphi dan
Team Viewer untuk membuat suatu bidikan / target pada sebuah objek. Komponen
yang digunakan didalam percobaan ini yaitu
Edit , image dan Shape. Di dalam percobaan 7 ini dalam menjalankan
program, image 1, 3, 5, Dan 7 adalah image pada saat program dijalankan dengan
visiblenya yaitu TRUE yang terhubung pada Shape , 1, 3, 5, dan 7 dan image yang kedua di tempatkan diatas ke
empat image tadi, image tersebut yaitu image 2, 4, 6, dan 8 image tersebut
format visible image tersebut di FALSE kan dan terhubung ke shape 2,4,6
dan 8 pada saat di run kan image image tersebut akan bergerak sesuai programnya
dan dapat bergerak karena adanya input suara yang dirubah ke dalam sinyal
listrik dengan multiplexser sehingga dapat menggerakan program tersebut ke
kanan dan ke kiri melalui coding yang sudah ditentukan serta dapat membidik
suatu objek dengan Shape yang di gunakan yaitu ke kanan dan ke kiri serta
membidik ke atas dan ke bawah yang di sambungkan ke perangkat HP
6. Kesimpulan Dan Saran :
A. Kesimpulan Dari Program Alat bidik dan TeamViewer Menggunakan
Edit, image dan Shape dengan aplikasi Delphi 7 dan Team Viewer dikembangkan menjadi delapan dan Shape Rectangle dan Circle . Pada saat tombol
pada program 1, 3, 5 dan 7 program TRUE akan mengarahkan bidikan ke
kanan dan kiri dan pada saat waktu yang sudah ditentukan akan Kembali ke
program tombol FALSE yaitu tombol 2, 4, 6 dan 8 kembali seperti semula
pada saat normal dan pada saat bidikan di tekan tombol genap akan mengarah ke
atas dan ke bawah dengan aplikasi Team Viewer yang terhubung ke Laptop.
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.
Tidak ada komentar:
Posting Komentar