Xin trơ giúp

[tosang]

Tình hinh la mình viết đoan code trên VB6 để giao tiếp với 8051 qua RS232. Nhưng không hiểu sao khi nhấn mở port thì lai báo lỗi.

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
With MSComm1
.Settings = "9600,N,8,1"
.RThreshold = 1
.SThreshold = 0
.InBufferSize = 1024
.OutBufferSize = 1024
.InputMode = comInputModeText
.ParityReplace = ""
.CommPort = 3
End With
End Sub

Private Sub cmdConnect_Click() 'command connect
On Error GoTo OpenFalse
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
OpenFalse:
MsgBox Err.Description & vbLf + vbCr + "Loi, khong the mo cong. Hay dong cac ung dung dang su dung cong COM"
End Sub

Cứ báo lỗi "Loi, khong the mo cong. Hay dong cac ung dung dang su dung cong COM".
Xin các cao thủ nao làm rùi chỉ giúp

[tosang]

Có anh em nào giúp mình không

[mast090]

kiểm tra trong manage xem com1 đã có thằng nào connect chưa, nếu chưa mới có thể tạo com ảo để connect đc nhé. ko là nó báo lỗi ngay

[tosang]

kiểm tra trong manage xem com1 đã có thằng nào connect chưa, nếu chưa mới có thể tạo com ảo để connect đc nhé. ko là nó báo lỗi ngay

Mình tìm ra đươc rùi. Lỗi sơi USB-RS232 đó