Port Serial adalah salah satu kelengkapan yang sampai sekarang masih ada pada sebuah PC. Port serial biasanya digunakan untuk menghubungkan sebuah device dengan PC. Walaupun kehadiran USB semakin mendominasi standar komunikasi antar device, namun komunikasi serial masih sangat familiar.

Dengan memahami komunikasi serial, kita akang dapat melakukan banyak hal, khususnya bagi engineer atau bagi hobbiest elektronika.

Penggunaan laptop saat ini juga cenderung mendominasi baik bagi kalangan praktisi elektronika maupun mahasiswa. Sehingga kehadiran port serial pada sebuah laptop sangatlah penting. Disisi lain, laptop yang dirilis saat ini tidak ada yang menyertakan port serial sebagai sebuah device komunikasi. Untuk mengatasi ini, dipasaran banyak dijual aksesoris USB to Serial yang harganya bervariasi dan relatif terjangkau.

Dengan aksesoris USB to Serial, Anda dapat menghadirkan port serial virtual pada laptop atau PC yang sebelumnya tidak ada. Bisa juga digunakan untuk menambah kebutuhan port serial. Untuk mengetahui keberadaan port serial pada sebuah komputer, kita bisa melakukan pengecekan melalui langkah berikut:

1. Klik kanan pada My Computer, pilih Manage
manage
2.Pilih Computer Management–> System Tools–> Device Manager. Lihat pada group Ports (COM & LPT)

port

Pada contoh di atas, PC memiliki satu port serial onboard dan satu virtual serial port dengan ID chip Prolific.

Sekarang, bagaimana cara mendeteksi port serial secara otomatis menggunakan Visual Basic 2010?

Pada sesi ini diberikan contoh menggunakan VB 2010, namun saya sudah mencoba dan dapat diterapkan juga pada VB 2008.

Buat project seperti berikut:

1. Pilih New Project

New Project

2. Buat form berikut

form

3.Isikan coding berikut:

– Tambahkan komponen Serial Port dari group Components

add serialport

– Pada Button1 (button Close)


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim Ingin As MsgBoxResult
 Ingin = MsgBox("Apakah Anda akan keluar?", MsgBoxStyle.YesNo, "Keluar")
 If Ingin = MsgBoxResult.Yes Then
 Me.Close()
 ElseIf Ingin = MsgBoxResult.No Then
 Exit Sub
 End If
 End Sub

– Pada button Disconnect


Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisconnect.Click
 'tutup koneksi Serial port, jika berhasil tampilkan indikator
 Try
 SerialPort1.Close()
 btnConnect.Enabled = True
 btnDisconnect.Enabled = False
 Catch ex As Exception
 MsgBox(ex.ToString)
 End Try
 End Sub

– Pada button Connect


Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
 'cek, jika status serial port open, tutp koneksi serial port
 If SerialPort1.IsOpen Then
 SerialPort1.Close()
 End If

'atur properti serial port
 Try
 With SerialPort1
 .PortName = cbbCOMPorts.Text
 .BaudRate = 115200
 .ReadBufferSize = 500
 .Parity = IO.Ports.Parity.None
 .DataBits = 8
 .StopBits = IO.Ports.StopBits.One
 .Handshake = IO.Ports.Handshake.None
 End With
 'open koneksi serial port
 SerialPort1.Open()

btnConnect.Enabled = False
 btnDisconnect.Enabled = True
 Catch ex As Exception
 MsgBox(ex.ToString)
 End Try
 End Sub

– Pada Form1_load


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 'cek available serial port pada komputer
 'termasuk serial modem
 For i As Integer = 0 To _
 My.Computer.Ports.SerialPortNames.Count - 1
 'tambahkan ke dalam list combo serial port
 cbbCOMPorts.Items.Add( _
 My.Computer.Ports.SerialPortNames(i))
 Next
 'disable button disconnect
 btnDisconnect.Enabled = False
 End Sub

Berikut adalah hasil programnya.

result

Demikian, semoga bermanfaat.