Private Sub InitRecDataCtl(ByVal intCom As Integer, ByVal intTimeOut As Integer, ByVal intLength As Integer, ByVal intStop As Integer, ByVal intCheck As Integer, ByVal intSpeed As Integer, ByVal strPath As String, ByVal strSendPath As String)
If intCom = -1 Then
intCom = 0
End If
If intSpeed = -1 Then
intSpeed = 4
End If
RecDataCtl.setcom(intCom) '串口
RecDataCtl.setreqtime(intTimeOut) '10 '响应终止时间
RecDataCtl.setlength(intLength) '0 --8Bit 1 -- 7Bit '数据长度8
RecDataCtl.setparity(intCheck) '校验位 0 None parity,1 Odd parity ,2 Even parity
RecDataCtl.setsbit(intStop) '停止位 1
RecDataCtl.setspeed(intSpeed) '传输速率 0--1200bps 1--2400bps 2--4800bps 3--9600bps 4--19200bps 5--38400bps 6--57600bps 7--115200bps