Mengukur Jarak Objek dengan Komputer via Delphi

Untuk mengukur jarak suatu objek/benda menggunakan komputer, Anda mutlak memerlukan sebuah peripheral device. Alat tersebut harus dapat melakukan pengukuran jarak untuk kemudian dikirimkan datanya melalui port yang tersedia di laptop. Bisa melalui kabel USB (kabel serial sebenarnya bisa aja tapi sekarang sudah jarang ada komputer yang support port serial) atau melalui media wireless seperti WIFI atau Bluetooth. Selain hardware untuk sensornya, tentunya Anda harus menyiapkan pula software handler-nya.

Pada tutorial kali ini saya akan mencontohkan bagaimana cara mengukur jarak objek dengan komputer via Delphi sebagai software handler-nya. Untuk peripheral device saya menggunakan alat ini (lihat gambar di bawah), buatan saya sendiri :). Alat ini mampu mengukur jarak sampai dengan 2 m (200 cm) dengan resolusi 1 cm dan interface output berupa kabel USB (micro). Jadi kompatibel untuk semua laptop/komputer jaman sekarang.

[button-blue url=”https://www.tokopedia.com/raftech/usb-pengukur-jarak-alat-ukur-jarak-distance-meter-usb?n=1″ target=”blank” position=”center”]Beli[/button-blue]

Baiklah, mari kita coba project sederhana ini. Pertama, buka Delphi Anda (saya menggunakan Delphi XE2), buat project baru dengan nama sembarang. Kemudian ambil komponen TEdit, TMemo, TLabel dan TComPort ke form designer seperti gambar di bawah. Jika belum punya komponen comport silahkan dibaca petunjuknya di sini.

[AdSense-A]

Langkah kedua, atur properties tiap komponen sebagai berikut :

[alert-announce]Catatan : untuk melihat no port COM, install dulu usb driver bawaan alat, kemudian cek nomor port di jendela Device Manager (Control Panel) atau Device and Printers (dari Start Menu pilih Device and Printers)[/alert-announce]

Langkah ketiga, isikan event handler untuk Button1 (onClick), Comport1 (onRxChar) dan Timer1 (onTimer) sebagai berikut

procedure TForm1.Button1Click(Sender: TObject);
begin
 if ComPort1.Connected then
 ComPort1.Close
 else
  ComPort1.Open;
end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
 ComPort1.ReadStr(Str, Count);
 Memo1.Text := Memo1.Text + Str;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var a,b:integer;
    s:string;
begin
 a:=pos('Ping: ',memo1.Text);
 if a<>0 then
 begin
  b:=pos('cm',memo1.Text);
  s:=copy (memo1.Text,a+6,b-a-6);
  edit1.Text:=s;
 end;
 memo1.Clear;
end;

Secara umum fungsi komponen Button1 adalah untuk memulai/mengakhiri pengambilan data dari alat sensor, komponen comport1 untuk menangani komunikasi data via USB (emulasi COM port) dan komponen Timer untuk mengatur sampling pengambilan data dari data sensor yang sudah masuk ke komputer.

Jika sudah menuliskan source code untuk masing-masing komponen, kini saatnya untuk mencoba aplikasinya. Run project di atas (F9), seharusnya Anda akan melihat tampilan seperti gambar di bawah.

Berikutnya, hubungkan dulu kabel USB dari alat sensor jarak ke komputer Anda. Kemudian tekan tombol ‘Start/Stop’ untuk memulai pengambilan data. Beberapa detik kemudian, jarak objek akan tertera di kotak edit1 dan akan terus update setiap 2 detik sekali (waktu sampling bisa diset).

Mudah, bukan?

Alat ini bisa dibeli seharga 175 ribu (sudah termasuk cd driver, contoh aplikasi dan source code Delphi) di toko komponen elektronik online saya. Spesifikasi teknisnya kurang lebih adalah jarak maksimal 2 meter, interface kabel USB micro, powered by USB power (hemat daya dan tanpa power supply eksternal). Jika Anda membutuhkan jarak lebih 2 meter, bisa aja sih, namun harus ganti sensor dan tentunya harganya juga akan lain. Untuk sensornya sendiri bekerja secara seamless, contactless, menggunakan teknologi sonar/ultrasonik. Gimana? Tertarik? Silahkan tekan tombol ‘Beli’ di bawah ini untuk memesan.

[button-blue url=”https://www.tokopedia.com/raftech/usb-pengukur-jarak-alat-ukur-jarak-distance-meter-usb?n=1″ target=”blank” position=”center”]Beli[/button-blue]

Untuk aplikasi lain yang menggunakan alat ini adalah Aplikasi Pengukur Jarak dengan Delphi. Jika Anda menggunakan software IDE selain Delphi (misalnya Visual Basic, Java, PHP, dll)? Jangan kuatir, sudah saya carikan solusinya di sini.

[AdSense-A]