Tweet
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
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
Comment