Solved

MSCOMM Garbage Data Returning on .Input Event

Posted on 2010-08-23
2
815 Views
Last Modified: 2013-11-27
I am using Visual Studio (VB.NET) 2003 to build a very simple application that uses an MSCOMM control to connect to a serial port MSR card reader.  The code is supposed to open the port and wait for a card swipe through the card reader.  Everythign works fine right now, but the data getting returned is all garbled and I am trying to figure out where I went wrong with reading the data.  

The code snippet is attached allong with a print screen of the information getting returned in a message box.

The card that is returning that data should be returning the following instead:

;013035101515158731?

I am very new to MSCOMM so this could be just a setting I have set wrong or something like that, but the fact that the port is opening and returning data makes me believe that the connection settings are correct.

Any help is greatly appreciatd!

 Swipe-Results.doc

 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



        AxMSComm1.PortOpen = True

        If Err.Number = 0 Then

            MsgBox("Open communication!")

        Else

            MsgBox("Error opening COM port. Please verify MSR is set to COM Port 3.")

        End If



        Exit Sub



RegError:

        MsgBox("Error locating ODBC connection. Please verify ODBC connection has been created.")

        End

    End Sub



    Private Sub AxMSComm1_OnComm(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm

        Dim InBuffer As String



        Select Case AxMSComm1.CommEvent

            Case MSCommLib.OnCommConstants.comEvReceive



                InBuffer = CStr(AxMSComm1.Input)



                Call HandleInput(InBuffer)

        End Select



    End Sub



    Sub HandleInput(ByVal InBuffer As String)

        ' This is where you will process your input. This

        ' includes trapping characters, parsing strings,

        ' separating data fields, etc. For this case, you

        ' are simply going to display the data in the TextBox.

        txtOCR.Text = InBuffer

        MsgBox(InBuffer)

    End Sub

Open in new window

0
Comment
Question by:Supergrov
2 Comments
 
LVL 41

Expert Comment

by:graye
Comment Utility
Just guessing... but have you set the following properties:
AxMSComm1.RTSEnable = True
AxMSComm1.DTREnable = True
 
0
 

Accepted Solution

by:
Supergrov earned 0 total points
Comment Utility
They are both set to true.  I have reverted back to converting the swipe hardware to act as keyboards and am going through that process.  Thanks for the suggestion.
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

The object model of .Net can be overwhelming at times – so overwhelming that quite trivial tasks often take hours of research. In this case, the task at hand was to populate the datagrid from SQL Server database in Visual Studio 2008 Windows applica…
More often than not, we developers are confronted with a need: a need to make some kind of magic happen via code. Whether it is for a client, for the boss, or for our own personal projects, the need must be satisfied. Most of the time, the Framework…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

7 Experts available now in Live!

Get 1:1 Help Now