mình có đoạn code để nhận dữ liệu từ pic, hiển thị lên 1 cái label , nhưng bị lổi eror reading comm device ngay dòng inputstring = mscomm1.Input
khai báo cho cổng đầy đủ (gửi thì ok nhưng nhận thì lỗi khi thử chập 2 chân của rs232)
//////phần khai báo
(khai báo tên port,parity,stop bit,...)
mscomm1.InputLen = 0 'Doc toan bo gia tri bo dem
mscomm1.RThreshold = 1 'Cho phep ngat khi su kien Receiver o MSCOMM
mscomm1.SThreshold = 0 'Ko cho phep ngat khi su kien Send o MMSCOMM
//////
//////sự kiện của mscomm1
Private Sub MSComm1_OnComm()
If mscomm1.CommEvent = comEvReceive Then
inputstring = mscomm1.Input
Label9.Caption = inputstring
End If
End Sub
/////
khai báo cho cổng đầy đủ (gửi thì ok nhưng nhận thì lỗi khi thử chập 2 chân của rs232)
//////phần khai báo
(khai báo tên port,parity,stop bit,...)
mscomm1.InputLen = 0 'Doc toan bo gia tri bo dem
mscomm1.RThreshold = 1 'Cho phep ngat khi su kien Receiver o MSCOMM
mscomm1.SThreshold = 0 'Ko cho phep ngat khi su kien Send o MMSCOMM
//////
//////sự kiện của mscomm1
Private Sub MSComm1_OnComm()
If mscomm1.CommEvent = comEvReceive Then
inputstring = mscomm1.Input
Label9.Caption = inputstring
End If
End Sub
/////
Comment