Deteksi COM Port Otomatis Menggunakan CPort

Saat menggunakan CPort untuk input/output data melalui port serial, tentunya harus ditentukan terlebih dahulu port yang akan di-assign untuk keperluan tersebut. Port serial atau sering disebut juga COM Port, sifatnya adalah physical dan dedicated, jadi hanya ada satu aplikasi yang diperbolehkan untuk mengakses port tersebut. Jadi, identifikasi port sangat diperlukan agar data benar-benar sampai ke target device-nya. Di Windows, penamaan port serial dimulai dari ‘COM1’ sampai dengan ‘COM255’ (8 bit), jadi saat bersamaan maksimal ada 255 device bertipe interface serial yang dapat dikoneksikan dalam satu komputer.

Jika menggunakan CPort untuk mendeteksi COM port tersebut, ada 2 macam cara yang dapat dilakukan, yakni:

1.       Menggunakan subrutin bawaan

Cara ini adalah yang termudah, yakni dengan memanggil procedure ‘ShowSetupDialog’. Dengan memanggil subrutin ini, maka akan dimunculkan jendela kecil yang berisikan setup konfigurasi untuk masing-masing parameter komunikasi serial seperti nomor COM port, baudrate, Data bits, Stop bits, Parity dan Flow Control. Contoh penggunaan prosedur ini adalah sebagai berikut: Ambil satu komponen ‘Button1’ dan ‘ComPort1’ di Component Pallete, double click komponen ‘Button1’ dana isikan kode sebagai berikut di Code Editor Delphi

 procedure TForm1.Button1Click(Sender: TObject);

begin

ComPort1.ShowSetupDialog;

end;

Running program kecil diatas (tekan F9) dan coba klik tombol ‘Button1’, seharusnya akan muncul jendela sebagai berikut :

Anda bisa mengatur semua parameter komunikasi serial dalam jendela di atas, kemudian tekan tombol ‘OK’ untuk konfirmasi. Walaupun ini merupakan cara termudah, namun Anda tidak dapat meng-customize lebih lanjut untuk keperluan program Anda, karena memang jendela setup ini sudah built in dalam procedure ‘ShowSetupDialog’.

2.       Menggunakan komponen ComComboBox dan ComRadioGroup

Komponen ComComboBox dan ComRadioGroup berada di Tab komponen CportLib (satu tab dengan komponen ComPort). Dengan kedua komponen ini (bisa pilih yang sesuai dengan kebutuhan program), Anda bisa membuat jendela pengaturan parameter serial secara custom.

 Contohnya adalah sebagai berikut :

Ambil komponen Label1, Comport1, ComComboBox1 dan ComRadioGroup1 dari Component Pallete ke Form Designer dan atur peletekannya seperti pada gambar di bawah

Atur properties masing-masing komponen sebagai berikut :

Komponen

Properties

Nilai

Label1 Caption Baudrate :
ComRadioGroup1 Caption COM Port Available
ComPort ComPort1
ComProperty cpPort
ComComboBox1 ComPort ComPort1
ComProperty cpBaudRate

Setelah mengatur properties tiap komponen seperti pada tabel di atas, seharusnya tampilan program adalah menjadi sebagai berikut :

Dari contoh program di atas, tentunya Anda sudah dapat menangkap bagaimana caranya mendeteksi port serial/COM Port secara otomatis, yakni dengan menggunakan komponen ComComboBox atau ComRadioGroup dan mengatur properties ‘ComPort’ dan ‘ComProperty’-nya. Setelah parameter nomor COM atau baudrate (atau parameter yang lain) ‘tertangkap’ komponen CPort, selanjutnya dapat diolah untuk proses berikutnya dalam program Anda. Semoga bermanfaat dan selamat berkreasi dengan program Delphi Anda.

5 1 vote
Article Rating

Leave a Reply

24 Comments
Oldest
Newest Most Voted
Inline Feedbacks
View all comments
Robby

sangat membantu sekali
terima kasih banyak mas Saptaji.

sukses terus…….

Rudi Sans

Siipp.. ini yang sedang saya cari mas… Thanks

Iskandar

permisi master mohon bantuannya. saya nyoba program komunikasi serial arduino dengan delphi tapi keluar pesan “unable to open com port (error : 2)” itu kenapa ya master?. padahal com arduinonya sudah sesuai.

rendra

nais artikel mas, maaf kalo boleh sedikit minta pencerahaannya mas tentang sintak untuk membaca nilai inputan dari mikrokontroler yg menggunakan kabel rs232

tias syawala putra

gan mau tanya seandainya selain pake port serial, jadi kita ga usah nyolok kabel dari port modem ke laptop, gimana?

tias syawala putra

Cara nya gan? Kodingan sama dengan serial atau beda? Mohon pencerahan gan

tias syawala putra

Iyaaaa gan gausah pake kabel. Agan tau kodingan nya?

tias syawala putra

Pake socket ya gan kebanyakan?

tias syawala putra

Oke, makash gan

yunda

Permisi master mau nanya, klo semisal untuk detect berat benda di timbangan ada contoh ga ?
tetep pakai delphi 7 untuk codenya
terima kasih master

yunda

untuk alat timbangannya saya pakai timbangan “shinko” master.
jadi goal.nya tuh begini, munculin angka dari timbangan ini nih ke program delphi.nya trus di print gtu master.
tpi nemuin artikel2 dan jurnal.nya yg sesuai goal tsb susah TT.

tolong pencerahannya master TT.
ditunggu respon.nya yah master, terima kasih sebelumnya

yunda

emmm datasheet, ini aku buka websitenya http://www.alldatasheet.com

seperti itukah datasheetnya ?
terus selanjutnya aku pelajari output plain text protokol serial RS232 gtu kah ?

Abdul

Gan,klo di form di tampilkan lagi 2 kolom lagi = 1.data ascii 2.data angka..membaca data sensor suhu misalnya…bagai mana itu,bisa di kasih tutorialnya.

Thomas

Ada contoh nya utk kirim text ke pole display ?

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