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 :
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]
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]
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 ?
wassalamualaikum wr wb. Bisa mas. Silahkan hubungi no sy 081910026910.
Isi CD:
– program contoh+ source code
– komponen2 yg diperlukan
Mas, kenapa harus menambahkan a+6,b-a-6 setelah .Text ?
Apa pengaruh pada output hasil yang akan ditampilkan pada memo?
karena teks yg dikirim sensor polanya: Ping: 16cm. Yg perlu diambil kan angka 16 nya aja. Perhatikan karakter 16 berapa langkah dr depan (dari huruf ‘P’)?
Pengaruh pada output? coba angka 6 diubah2 mas, trus lihat di outputnya
Mas, saya coba berhasil. Tapi edit 1 yg tempat jarak objek ttp tidak berubah ya ?(msh tulisan edit 1)
coba dicek di pengaturan COM port nya