Jan15

Mendeteksi Port Serial Dengan Visual Basic 2010

by rohmadi on January 15, 2013 at 11:47 AM
Posted In: Interfacing, Mikrokontroller, VB .Net

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)

[sourcecode]

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

[/sourcecode]

– Pada button Disconnect

[sourcecode]

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

[/sourcecode]

– Pada button Connect

[sourcecode]

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

[/sourcecode]

– Pada Form1_load

[sourcecode]

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

[/sourcecode]

Berikut adalah hasil programnya.

result

Demikian, semoga bermanfaat.

└ Tags: , , , , , , , , , , ,