vb ʵʱ´íÎó"9" ϱêÔ½½ç

Private Sub MSComm1_OnComm()
Dim rcv_array() As Byte
Dim strkk As String
Dim ss As String
Dim rcv_len, i, j As Integer
rcv_array = MSComm1.Input
rcv_len = UBound(rcv_array)
ReDim rcv_array(0 To UBound(rcv_array)) As Byte
rcv_array = MSComm1.Input
For i = 1 To rcv_len

If Hex(rcv_array(i)) = "FF" Then


ÔÚ×îºóÕâ¾ä Hex(rcv_array(i))  ʱ ¾Í»áÌáʾ´íÎó
²»ÖªµÀ Ôõô»ØÊÂ

---

ÄãµÄ UBound(rcv_array)=0¾Í»á±¨Õâ¸ö´í
For i = 0 To rcv_len '´Ó0¿ªÊ¼¾ÍºÃÁË

---

For i = LBound(rcv_array) To rcv_len

---

²Î¿¼:http://www.vbgood.com/viewthread.php?tid=83694&page=1#pid441972VB code:
Private Sub MSComm1_OnComm()
Dim rcv_array() As Byte
Dim strkk As String
Dim ss As String
Dim rcv_len, i, j As Integer
Select Case MSComm1.CommEvent
Case comEvReceive
rcv_array = MSComm1.Input
For i = 0 To UBound(rcv_array)
ss = ss & Right("0" & Hex(rcv_array(i)), 2)
Debug.Print ss
If Hex(rcv_array(i)) = "FF" Then
'
End If
Next
End Select
End Sub

---

µÚ¶þ¾ä rcv_array = MSComm1.Input ÊǶàÓàµÄ£¬Ó¦¸Ãɾ³ý£¬·ñÔò rcv_array Óֱ仯ÁË¡£

---

»Ø¸´ÓÚ£º2010-03-02