Serial Communication with MScomm

I am trying to communicate with a serial device called a DataLink(DL). This DataLink is a protocol converter and a communication controller. The purpose of my program is to configure the DataLink (ie. Set the DL's COM and IRQ ect). My problem is this: When I transmit a message in ASCII or HEX (ie: DLE STX ETX .... OR IN HEX 10 02 03.. ect) the DataLink will reply with an "ACK" or "NACK" meaning a correct or incorrect transfer configuration. I am capable of transfer to the DL but cannot seem to be able to capture its response into VB. I have set the RThreshold to 1. I would like to be able to trap the message in a text box with the use of: MScomm1.Input    
        Text1.text = Mscomm1.Input
But this isn't working. Can you help me ? I would appreciate it enormly !
Thanks
Jean-Francois:   francois@intergate.bc.ca
pussycatAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

DavidMartinCommented:
Every time data is passed through the Comm Control a comm event is triggered you need to capture your data in there...

Sub MSComm_OnComm()

    'Each time this event is triggered
    'Add the contents of the Reader buffer to the internal buffer
    msBuffer = msBuffer & MSComm.Input

End Sub

You can then build up the message character by character until you are happy that you have a complete message, if I remember correctly this event gets triggered when you send data out so you'll have to code for that as well.

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.