Giao tiếp com với pc

[hongsonspk]

Chào các bạn. Mình đang làm đề tài tốt nghiệp giao tiếp giữa Vdk với PC qua cổng Com. Mình truyền nhận 1byte thì được rồi nhưng giờ mìn muốn truyền và nhận 1 chuỗi dữ liệu thì lại không được.
Minh tìn hiểu thuộc tính Inputlen của Vb nhưng mãi chưa hiểu. Bạn nào đã lảm qua rùi cho mình xin chỉ giáo. Cám ơn các bạn nhiều.


Private Sub cmdcheck_Click()
Dim j As Byte
Dim REQA(6) As Byte
' Request

REQA(0) = &HAA
REQA(1) = &H0
REQA(2) = &H2
REQA(3) = &H3
REQA(4) = &H26
REQA(5) = &H27
REQA(6) = &HBB
i = 0

For j = 0 To 6
tam = REQA(j)
MSComm1.Output = Chr$(tam)
Next

Text1.Text = H
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 3 'Choïn COM
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1 'Event-driven
'MSComm1.InputMode = 1
'MSComm1.InputLen = 0 'So ky tu nhan duoc
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()

If (MSComm1.CommEvent = comEvReceive) Then
H(i) = Asc(MSComm1.Input)
i = i + 1
End If

End Sub