求能与PLC通信的电子秤 称重500g左右

该电子秤为上海耀华称重系统有限公司的XK3190-A9型仪表，输出为RS-232C标准接口，波特率为600/1200/2400/4800/9600、传输的数据格式（10位：第一位起始位，第10位为停止位，中间8位为数据位（ASCII编码））。通讯方式为：1。连续方式2。指令方式。本人选：
1。连续方式：所传送的数据为仪表显示的当前称重（毛重或净重）。每帧数据由12组数据组成。格式如下：
第X字节 内容及注释
1 02（XON） 开始
2 +或- 符号位
3 称重数据 高位
4 称重数据 ..
5 称重数据 ..
6 称重数据 ..
7 称重数据 ..
8 称重数据 低位
9 小数点位数 从右到左（0—4）
10 异或校验 高四位
11 异或校验 低四位
12 03（XOFF） 结束
异或：2异或3异或....8异或9
本程序是从网上下载的（稍作改动），调试环境为Windows Xp Professional SP2,VB6.0,在VB中与串口通讯需要引入控件MSComm串口通讯控件在Microsoft Comm Control 6.0中）。具体程序如下：控件简称：MSC
Dim Out(12) As Byte '接收var中的值
Dim var As Variant '接收MSC.input中的数值
Dim i As Integer, j As Integer '随即变量，计算循环
Private Sub cmdOk_Click()
With MSC
.InputMode = comInputModeBinary '设置数据接收模式为二进制形式
.InBufferCount = 0 '清除接收缓冲区
If Not .PortOpen Then
.PortOpen = True '打开通信端口
End If
End With
End Sub
Private Sub Form