Private Sub Form_Load ()
MSComm1.CommPort = 1
MSComm1.Settings = "9600, N, 8,1"
MSComm1.InputLen = 1
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click ()
MSComm1.Output = Text2.Text
End Sub
Private Sub MSComm1_OnComm ()
Nếu (MSComm1.CommEvent = comEvReceive) Sau đ
<img src="http://www.edaboard.com/images/smiles/icon_neutral.gif" alt="Trung lập" border="0" /><img src="http://www.edaboard.com/images/smiles/icon_neutral.gif" alt="Trung lập" border="0" />Xin lỗi, nhưng bạn cần phải đăng nhập để xem tập tin đ
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.