各位大神：
         新年好,如下代碼我該怎麼寫...不知是否可以實現...
        1,問題點：Text1接收到的為：01 02 01 01 60 48 01 02 01 FE 20 08     (繼電器導通接收：01 02 01 01 60 48     繼電器斷開接收：01 02 01 FE 20 08）
          數據2次才接收完成,會導致If k2 = Text1不成立。


Private Sub MSComm1_OnComm()
a = MSComm1.Input
For i = 0 To UBound(a)
     istr = istr & Format(Hex(a(i)), "00") & " "
Next
'istr = RTrim(istr)
Text1 = istr   'Text1正常接收為：01 02 01 01 60 48 01 02 01 FE 20 08   (繼電器導通接收：01 02 01 01 60 48     繼電器斷開接收：01 02 01 FE 20 08)

k2 = "01 02 01 01 60 48 01 02 01 FE 20 08"

If k2 = Text1 Then
   Label2.Caption = "數據相同"
   Command1.Value = True
End If

If k2 <> Text1 Then
   Label2.Caption = "數據不相同"
   
End If
End Sub
  

[此贴子已经被作者于2021-2-19 12:17编辑过]

你好：
1,通過測試驗證OK的。

[此贴子已经被作者于2021-2-22 14:58编辑过]