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]

usb-pengukur-jarak1

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]

desain program ukur jarak dengan delphi xe2

Langkah kedua, atur properties tiap komponen sebagai berikut :

komponen properties value
Button 1 caption Start/Stop
Timer1 interval 2000
enabled true
Comport1 Port COM25 (sesuaikan dengan komputer Anda)

[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]

Devices and Printers - COM Arduino

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.

program ukur jarak dengan delphi xe2

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]

0 0 votes
Article Rating

Leave a Reply

7 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
Luthfi Rahman

Assalamu’alaikum Mas, Alat ini bisa dipesan gak?
Lalu jika pemesanan bundle yang ada didalamnya ada apa saja?
Setelah meihat Tutorial Mas ini, Program telah saya jalankan, dan kekurangan hanya tidak ada alatnya saja, hehehe.
Mas memiliki alat pengukur jarak ini ?

Luthfi Rahman

Mas, kenapa harus menambahkan a+6,b-a-6 setelah .Text ?
Apa pengaruh pada output hasil yang akan ditampilkan pada memo?

Luthfi Rahman

Mas, saya coba berhasil. Tapi edit 1 yg tempat jarak objek ttp tidak berubah ya ?(msh tulisan edit 1)

7
0
Would love your thoughts, please comment.x
()
x