Can someone help me with code to read data from a sysmex kx-21N heamatology analyzer through the serial RS-232 port? The device send data in ACSII format through the serial port. I need to collect the string of data and extract the test value and store in my database. I am using a USB to Serial cable to connect the device to my pc
I have tried using MScomm in VFP, no data was retrieved. I now want to use VB6.0.
I also need to read barcode into a textbox of the same form from a USB barcode reader.
I am a beginner in VB.
below is my VFP code that did not work
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Thanks, Olaf
I am not using a modem hence I delete the code for that section. It is a direct connection between the comport aand the rs-232 port of the sysmex usig rs-232 standard db9 cable.
How do i configure usb to mimic com port in device manager? how do i know which usb listed on the device manager correspond to the usb port physically?
If foxpro cannot achive it, send me Vb code to achieve it please.
Thanks again.
You said: " I am using a USB to Serial cable to connect the device to my pc"
This cable must come with a driver you installed. Then you'll find a divice listed in device manager under the COM ports section. It's configurable what COM port this USB/COM adapter does mimic. It depends on your devide/driver what option you have. As I don't know what device you use, no chance to give you any code. But it's merely a manual setup anyway.
Bye, Olaf.
I realize my cable was not properly configured, I used a gender changer on the serial end and seems to have change the pin assignmnet. I have ordered for a db9 female to db9 female type C. will try it and get back to you on the situation. Thanks very much. You need to be awarded some point for the job so far.
i got the right cable now RS232c connected the equipment to computer through com1 but no data recieved.
Do I need to create a cross over cable? I am wondering, both the equipment and the computer has a male com port. the RS232C cable is a straight cable. i am thinking like in networking there may be need for a crossover of pin 2 and 3 and so on. i need help despirately
Both male ports? Sounds like you need a null Modem cable, like the ones used for comlink of two computers. Your assumption may be right, because that type of cable has a crosslink of pins, see here for details: http://en.wikipedia.org/wi
But what you need depends on the device you connect. I know nothing about the sysmex kx-21N heamatology analyzer.
I use Commtools to read electronic scales, that respond to commands send to them. So listening to the port may also be unsufficient and the reason you don't receive anything. Do you have documentation about this analyzer?
Bye, Olaf.
Thanks
Yes, the manual said when you select the menu from the screen to output to host computer connected over the serial rs232c port, it will out a ascii format to the system. In the iutput screen, when i choose printer it prints through the inbuilt printer, but when i choose host, it will not send any data. My code will activate the OnCom event of MSComm but no data recieved as the buffer will be empty.
Can I use a Serial to RJ45? how do i code that? is network a port?
comport setting on the sysmex kx-21N buad rate = 9600, databit =8 stopbit=1 parity =none. I have the same setting on my code. I manually send data to host (serial) port to be recieved on the computer comm port. What am I suppose to do? No modem between the two device. is there any need for special hardware?
Thanks, Olaf
I bought a null modem adapter to convert the cable but still get no result. You said it is not just to listen to onCom event, what do i need to add to the code listed? i am going to get a plug and create a custom cable using the information on the equipment manual and try again. but please, send me a working code that i will try after making the cable.
I got a null modem cable which worked but am reading only the first 14 characters out of 131. When I send data again, I will then recieve the full text plus the initial 14. How do I stop that?
Below is my oncomm event code:
IF This.CommEvent = 2 AND This.InBufferCount >0
rdata=rdata+this.input
rdata2=(LEN(this.input))
STORE rdata TO thisform.text0.Value
STORE rdata2 TO thisform.text01.Value
MESSAGEBOX("Unknown Data recieved",0+64+0,"OnComm")
ELSE
STORE rdata TO thisform.text0.Value
MESSAGEBOX("No Data recieved",0+64+0,"OnComm")
ENDIF
First of all, you shouldn't put a Messagebox in an OnComm event, it compares to timer event of a timer and will be triggered again while it's still running, that causes bad side effects. To what did you set the RThreshold property? After receiving to rdata, set InputLen=0 to clear the input buffer and you won't receive the same bytes again.
Bye, Olaf.
Thanks
Olaf
Finally it work. below is the code that worked.
***Init Event code
This.Settings = "9600,N,8,1"
This.InputLen = 0
This.CommPort = 1
This.PortOpen = .T.
PUBLIC rdata,rdata2, rdata3 as String
rdata=""
rdata2=""
rdata3=""
****OnComm event code
IF This.CommEvent = 2 AND This.InBufferCount >0
rdata=rdata+this.input
thisform.text0.Value=""
thisform.Refresh
STORE SUBSTR(rdata,1,131) TO thisform.text0.Value
thisform.command1.Enabled=
ELSE
MESSAGEBOX("No Data recieved",0+64+0,"OnComm")
ENDIF
Glad you got it working, thanks for sharing the code.
I wonder what for you declare rdata2 and 3, they are not used here. I wonder why you don't use properties instead of public variables. Eg if you don't put the native MScomm on your form, but first create a class based on olecontrol with the Microsoft Communications Control 6.0 in it, you can add some properties rdata, rdata2, rdata3 to it and use them instead of public vars.
Bye, Olaf.
Business Accounts
Answer for Membership
by: Olaf_DoschkePosted on 2009-05-27 at 16:06:03ID: 24488457
You have a comment " * Send the attention command to the modem.", but there is no code doing so. Seems you are waiting for a resonse to a sent command never sent.
In fact a USB/RS232 Adapter will work just as a normal COM port, just make sure in the device manager, it's configured to mimic a COM1 port. Some USB devices by default are set up as COM3.
Bye, Olaf.