PERCOBAAN 8 Membuat Laporan Kendali RCWS dengan Delphi

 PERCOBAAN 8

Membuat Laporan Kendali RCWS dengan Delphi

1.      Tujuan

Agar bamasis mampu membuat remote kontrol RCWS

2.    Alat dan Bahan

a. Laptop

b.Delphi

c. Prototype RCWS

d. DFTM

e .RX dan TX

f. Modul 4 Relay

g. Driver motor

 

3.   Teori

a.         Stasiun kendali senjata jarak jauh (bahasa Inggris: remote controlled weapon station 'RCWS), disebut juga remote weapon station atau remote weapon system (RWS) adalah sistem senjata yang dioperasikan dari jarak jauh sering dilengkapi dengan sistem kendali tembakan untuk kaliber senjata ringan dan menengah yang dapat dipasang di kendaraan tempur darat atau platform tempur berbasis laut dan udara. Peralatan semacam itu digunakan pada kendaraan militer modern, karena memungkinkan penembak tetap berada dalam perlindungan di dalam kendaraan. Sistem ini juga dapat dipasang ke kendaraan yang ada, misalnya, sistem CROWS dipasang ke Humvee Amerika dan Thales SWARM untuk Bushmaster IMV dari Royal Netherlands Army.

 

b. Dual tone multi-frekuensi (DTMF) adalah bunyi atau nada yang dihasilkan telepon ketika nomor ditekan. Nada-nada ini ditransmisikan melalui saluran suara.DTMF digunakan untuk mengontrol peralatan otomatis dan memberi sinyal niat pengguna, seperti nomor yang ingin mereka hubungi. Setiap tuts mempunyai dua nada pada frekuensi tertentu.

 

Bagaimana cara kerja multi-frekuensi nada ganda?

Teknologi DTMF bekerja dengan membuat ponsel menghasilkan nada pada frekuensi tertentu dan memutarnya melalui saluran telepon ketika tombol pada papan tombol ditekan. Peralatan di ujung lain saluran telepon mendengarkan suara tertentu dan menerjemahkannya menjadi perintah. Perintah ini biasanya digunakan untuk memanggil nomor telepon yang akan dihubungi tetapi juga dapat digunakan untuk memberi sinyal perintah kontrol telepon atau mengontrol peralatan jarak jauh, karena nada kontrol dimainkan pada saluran yang sama dengan sinyal suara. Ini adalah sistem persinyalan in-band; ini berbeda dengan sistem out-of-band, seperti Signaling System 7. DTMF menentukan delapan nada berbeda. Mereka terbagi menjadi kelompok tinggi dan kelompok rendah. Setiap penekanan tombol menghasilkan dua nada oleh karena itu dinamakan nada ganda satu dari grup tinggi dan satu lagi dari grup rendah. Ini memungkinkan total 16 kunci.



 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,mmsystem, Vcl.ExtCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Timer1: TTimer;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

 sndplaysound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\RCWS,DTMF\SOUND\D1.wav',SND_NODEFAULT OR SND_ASYNC);

 timer1.Enabled:=True;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

sndplaysound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\RCWS,DTMF\SOUND\D2.wav',SND_NODEFAULT OR SND_ASYNC);

 timer1.Enabled:=True;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

sndplaysound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\RCWS,DTMF\SOUND\D3.wav',SND_NODEFAULT OR SND_ASYNC);

 timer1.Enabled:=True;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

sndplaysound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\RCWS,DTMF\SOUND\D4.wav',SND_NODEFAULT OR SND_ASYNC);

 timer1.Enabled:=True;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

timer1.Interval:=200;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

timer1.Interval:=500;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

timer1.Interval:=1000;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

sndplaysound('E:\POLTEKAD\semester 3\PRAKTEK BAHASA PEMROGRAMAN\RCWS,DTMF\SOUND\D0.wav',SND_NODEFAULT OR SND_ASYNC);

Timer1.Enabled:=False;

end;

end.     

b. Pembahasan

Percobaan kali ini kami diperintahkan menggerakkan prototype RCWS menggunakan DTMF yang dikaitkan menggunakan aplikasi Delphi. Yang di persiapkan adalah 4 komponen button untuk membunyikan nada atau tone untuk bisa terdeteksi di DTMF, setelah itu masuk ke modul 4 relay yang bertujuan sebagai swith yang akan di pancarkan di transmitter, ketika sudah dipancarkan ke transmitter maka data akan dikirimakan ke receiver, setelah receiver menerima datanya akan di teruskan ke driver motor untuk menggerakkan 2 motor DC, satu motor DC sebagai geereakan azimut dan satunya lagi sebagai gerakan elevasi untuk menggerakkan senjata remot control.

6.         Kesimpulan

RCWS (remote control weapon system) sangat bagus untuk mendukung tugas TNI, khusunya TNI-AD yang sedang melaksanakan penugasan di daerah rawan untuk mengurangi kerugian personil.