Click here to Skip to main content
11,647,676 members (71,339 online)
Click here to Skip to main content

Asynchronous Serial Port Communication

, 21 Apr 2008 CPOL 41.9K 2 30
Rate this:
Please Sign up or sign in to vote.
How to communicate to a serial port asynchronously


It's been a while since I was looking for a way of communication with my custom device which has a port for the communication. I was looking an asynchronous method because the serial port can receive data from the device at any point of time.


The idea behind the code was that any time the serial port receives any data, an event will fire from the port class, i.e. DataReceived. This event helps to detect any data received to the serial port at any point of time and it's very helpful. To make it more helpful, I have created a simple class which helps to create a connection with the serial port easily and instantly. Here is the class diagram which will help you to understand it.


Using the Code

The name of the class is ASYNCSERIALPORT. Create an instance of a class on any form or other class. While creating the instance, you can pass the parameter required for the connection. The parameters are optional. The only parameter required is the port name.

''Creating the Instance of the Class
     Dim NewAsyncSerialPort As New AsyncSerialPort("COM1")


''Creating the Instance of the Class
     Dim NewAsyncSerialPort As New AsyncSerialPort("COM1", 9600, _
                                    IO.Ports.Parity.None, 8, IO.Ports.StopBits.One)

The other parameters are BaudRate, Parity, DataBitsand Stopbits.

Sending Data to the Serial Port

To send the data, you need to call the subto do so. Let's take a look at the sub:

''Private Sub for sending Data. You may change to Public if needed.
    Private Sub SendByte(ByVal byts() As Byte)
    If Port.IsOpen = False Then
    End If
    Port.Write(byts, 0, byts.Length)
    End Sub

You need to pass an array of bytes, array of charor a stringto send data.

Receiving Data from the Serial Port

To receive data from the serial port, we will use the event of the IO.Ports.SerialPort. So declare the port with events:

Private WithEvents Port As IO.Ports.SerialPort

Now, we will create a subwhich will handle the event when the data is received:

Private Sub ReceivedBytes(ByVal sender As Object, _
        ByVal e As IO.Ports.SerialDataReceivedEventArgs) Handles Port.DataReceived
        BufferSize = Port.BytesToRead
        TotalByteLastRec = TotalByteLastRec + BufferSize
        If BufferSize > 0 Then
            Port.Read(InBuffer, LastOffset, BufferSize)
            '' Some useful code to process the data
            LastOffset = BufferSize
        End If 
         LastOffset = 0
        BufferSize = 0
    End Sub

This subwill handle the event whenever a port receives any data.

Couple of Properties within the Class

Public ReadOnly Property CurrentBufferSize() As Integer 
            Return BufferSize
        End Get 
    End Property 
    Public ReadOnly Property TotalBytesReceived() As Integer 
            Return TotalByteLastRec
        End Get 
    End Property 
    Public ReadOnly Property BaudRate() As Integer
            Return BaudRates
        End Get 
    End Property 
    Public ReadOnly Property DataBits() As Integer
            Return DataBit
        End Get 
    End Property 
    Public ReadOnly Property StopBits() As IO.Ports.StopBits
            Return StopBit
        End Get 
    End Property 
    Public ReadOnly Property ParityBits() As IO.Ports.Parity
            Return ParityBit
        End Get 
    End Property

Points of Interest

The interest could arise when you do lots more with the device which you are connected with. It really helps you to understand how the communication works. I found it useful and hope it is useful to you as well. This will really help you to kick start serial port communication.

Please do send me any feedback about the code.


This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


About the Author

Imran A Momin
Software Developer (Junior)
India India
No Biography provided

You may also be interested in...

Comments and Discussions

GeneralMy vote of 1 Pin
ivanmen3-Jul-09 5:46
memberivanmen3-Jul-09 5:46 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web01 | 2.8.150804.3 | Last Updated 22 Apr 2008
Article Copyright 2008 by Imran A Momin
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid