?
Solved

MSCOMM Garbage Data Returning on .Input Event

Posted on 2010-08-23
2
Medium Priority
?
831 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 41

Expert Comment

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

Accepted Solution

by:
Supergrov earned 0 total points
ID: 33577929
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

Enroll in August's Course of the Month

August's CompTIA IT Fundamentals course includes 19 hours of basic computer principle modules and prepares you for the certification exam. It's free for Premium Members, Team Accounts, and Qualified Experts!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This document covers how to connect to SQL Server and browse its contents.  It is meant for those new to Visual Studio and/or working with Microsoft SQL Server.  It is not a guide to building SQL Server database connections in your code.  This is mo…
Many of us here at EE write code. Many of us write exceptional code; just as many of us write exception-prone code. As we all should know, exceptions are a mechanism for handling errors which are typically out of our control. From database errors, t…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…
Suggested Courses

770 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