Gúp mình giao tiếp 2 cổng com bằng 1 phần mềm? Có thể làm được không nhỉ?

**leeshin456** · 24-08-2011, 12:44 AM

Vừa đọc lại tài liệu vb, mình tìm được cách giải quyết rồi nhá
Đại khái là:
Tạo ra 2 cái này
With MSComm1
.Settings = "19200,E,8,2"
.CommPort = 2
.RThreshold = 1
.SThreshold = 0
.InputMode = comInputModeText
.InputLen = 0
.Handshaking = comNone
.InBufferSize = 1024
.OutBufferSize = 1024
If .PortOpen = False Then
.PortOpen = True
End If

End With

và

With MSComm2
.Settings = "19200,E,8,2"
.CommPort = 3
.RThreshold = 1
.SThreshold = 0
.InputMode = comInputModeText
.InputLen = 0
.Handshaking = comNone
.InBufferSize = 1024
.OutBufferSize = 1024
If .PortOpen = False Then
.PortOpen = True
End If

End With

rùi sau đó thì dùng thoai
Không biết là có đúng không nữa, test đã

Ðiều Chỉnh
Tạo trang in Email trang này
Xếp Bài
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

24-08-2011, 12:44 AM	#2
leeshin456 Nhập môn đệ tử Tham gia ngày: May 2009 Bài gửi: 7 :	Vừa đọc lại tài liệu vb, mình tìm được cách giải quyết rồi nhá Đại khái là: Tạo ra 2 cái này With MSComm1 .Settings = "19200,E,8,2" .CommPort = 2 .RThreshold = 1 .SThreshold = 0 .InputMode = comInputModeText .InputLen = 0 .Handshaking = comNone .InBufferSize = 1024 .OutBufferSize = 1024 If .PortOpen = False Then .PortOpen = True End If End With và With MSComm2 .Settings = "19200,E,8,2" .CommPort = 3 .RThreshold = 1 .SThreshold = 0 .InputMode = comInputModeText .InputLen = 0 .Handshaking = comNone .InBufferSize = 1024 .OutBufferSize = 1024 If .PortOpen = False Then .PortOpen = True End If End With rùi sau đó thì dùng thoai Không biết là có đúng không nữa, test đã