MSComm控件接收数据乱码问题

zz0612

Option Explicit
Dim inbyte1() As Byte   

Dim inf As String

---------------------------------------------------
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 9
MSComm1.InBufferSize = 512
MSComm1.InputMode = comInputModeBinary
MSComm1.InputLen =0
If MSComm1.PortOpen = False Then
   MSComm1.PortOpen = True
End If
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
---------------------------------------------------------
Private Sub MSComm1_OnComm()
If MSComm1.PortOpen = False Then
   MSComm1.PortOpen = True
End If
Select Case MSComm1.CommEvent
Case comEvReceive
inf = MSComm1.Input
inbyte1() = Mid(inf, 1, 9)
If inbyte1 (0) = "A" Then
Text1.Text = Chr(inbyte1(0))& Chr(inbyte1(1)) & Chr(inbyte1(2)) & Chr(inbyte1(3)) & Chr(inbyte1(4))&Chr(inbyte1(5)) & Chr(inbyte1(6)) & Chr(inbyte1(7)) & Chr(inbyte1(8))
Else
Text1.Text =""
End If
End Select
End Sub

---------------------------------------------------------
Private Sub Timer1_Timer()     '  触发信号
Dim send_byte(0 To 2) As Byte
send_byte(0) = 122
send_byte(1) = 99
send_byte(2) = 90
If MSComm1.PortOpen = True Then
MSComm1.Output = send_byte
End If
End Sub
-------------------------------------------

功能是接收从PLC发过来的ASCII码，标示码是A，当判断inbyte1 (0) = "A" 时，把后面的数据转换成ASCII码显示出来。数据PLC一直发送，接收端收到的数据会丢失和顺序错位。  
请帮忙分析一下怎么解决这个问题。谢谢！

zdingyun

LZ应该详细描述你的PLC的通信协议.

1. 
   
2. Private Sub Form_Load()
   
3.     MSComm1.CommPort = 1
   
4.     MSComm1.Settings = "9600,n,8,1"
   
5.     MSComm1.RThreshold = 9
   
6.     MSComm1.InBufferSize = 512
   
7.     MSComm1.InputMode = comInputModeBinary
   
8.     MSComm1.InputLen = 0
   
9.     If MSComm1.PortOpen = False Then
   
10.         MSComm1.PortOpen = True
    
11.     End If
    
12.     Timer1.Interval = 1000
    
13.     Timer1.Enabled = True
    
14. End Sub
    
15. Private Sub MSComm1_OnComm()
    
16.     Dim inbyte1() As Byte
    
17.     Select Case MSComm1.CommEvent
    
18.         Case comEvReceive
    
19.             If MSComm1.PortOpen = False Then
    
20.                MSComm1.PortOpen = True
    
21.             End If
    
22.             inbyte1 = MSComm1.Input
    
23.             If inbyte1(0) = 65 Then
    
24.                 Text1.Text = Chr(inbyte1(0)) & Chr(inbyte1(1)) & Chr(inbyte1(2)) & Chr(inbyte1(3)) & Chr(inbyte1(4)) & Chr(inbyte1(5)) & Chr(inbyte1(6)) & Chr(inbyte1(7)) & Chr(inbyte1(8))
    
25.             Else
    
26.                 Text1.Text = ""
    
27.             End If
    
28.     End Select
    
29. End Sub
    

复制代码

zz0612

PLC通讯是西门子自由口协议，  波特率等相关设置与  9600,n,8,1 是相同的   感觉设置上应该没有问题

PLC是在检测到控制字符后延时发送“A0000，123”对应的ASCII码，发送完毕后等待PC再次发送控制字符这样循环进行

PC发送给PLC的时候PLC能够准确接收

我主要是觉得PC这边程序可能写的有些问题，才导致PC接受出现故障

因为对控件的使用还不是特别熟悉

zz0612

Chr(inbyte1(0))& Chr(inbyte1(1)) & Chr(inbyte1(2)) & Chr(inbyte1(3)) & Chr(inbyte1(4))&Chr(inbyte1(5)) & Chr(inbyte1(6)) & Chr(inbyte1(7)) & Chr(inbyte1(8))
对应的是“A0000,123”
但是收到的数据  效果比较差  主要是顺序有些混乱还有丢失一两个的情况  

有点挣扎了

希望会的人帮看看

觉得程序很短 另外也思路也不是很混乱～

谢谢！

zdingyun

如果PLC返回的数据是诸如:"A0000，123",那完全可按文本方式接收,无须从字节转换为ASCII字符.

MSComm1.InputMode = comInputModeText

1. 
   
2. Option Explicit
   
3. Private Sub Form_Load()
   
4.     MSComm1.CommPort = 1
   
5.     MSComm1.Settings = "9600,n,8,1"
   
6.     MSComm1.RThreshold = 9
   
7.     MSComm1.InBufferSize = 512
   
8.     MSComm1.InputMode = comInputModeText
   
9.     MSComm1.InputLen = 0
   
10.     If MSComm1.PortOpen = False Then
    
11.         MSComm1.PortOpen = True
    
12.     End If
    
13.     Timer1.Interval = 1000
    
14.     Timer1.Enabled = True
    
15. End Sub
    
16. Private Sub MSComm1_OnComm()
    
17.     Dim strSj As String
    
18.     Select Case MSComm1.CommEvent
    
19.         Case comEvReceive
    
20.             If MSComm1.PortOpen = False Then
    
21.                MSComm1.PortOpen = True
    
22.             End If
    
23.             strSj = MSComm1.Input
    
24.             If Mid(strSj, 1, 1) = "A" And Len(strSj) = 9 Then
    
25.                 Text1.Text = strSj
    
26.             Else
    
27.                 Text1.Text = ""
    
28.             End If
    
29.     End Select
    
30. End Sub
    
31. 
    

复制代码

zz0612

设置过使用  MSComm1.InputMode = comInputModeText  但是好像没有太大改善

另外PLC是使用XMT指令  （XMT  VB9）  ITA转换后发送过来的就是ASCII码 分别存储在VB11-VB18里面对用0/0/0/0/，/1/2/3对用的ASCII码  XMT指令  从PORT口发送出去  发送的字符数是9 （包括一个标志为A在VB10中）     其实这个程序的功能就是把PLC采集的模拟量转换后发送给PC显示，  我主要是怀疑VB代码上编写有问题

第一次使用     主要是没有信心

zz0612

“  If MSComm1.PortOpen = False Then

               MSComm1.PortOpen = True

            End If”


是不是说接收事件触发后可能引起COM口关闭


我想版主说的还是有些道理的

我改一改试验试验

zdingyun

见5楼的代码.
串口属于字符设备.

zz0612

非常感谢帮主～

我是初学VB  很多都挺肤浅的

谢谢 指导  谢谢指点


我会好好研究研究的

======================
对于串口是字符设备 我还不是太理解 不过我会好好体会 体会的

zz0612

效果很好 谢谢版主帮忙

OY