📄 1785.html
字号:
<html> <head> <title>利用 Comm 收发串列资料 !!</title> </head> <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK=""> <center> <h1>利用 Comm 收发串列资料 !!</h1> </center><HR><p>Posted by <a href="mailto:cyber@ms1.hinet.net">ERIC</a> on January 23, 1998 at 10:59:53:<p>请问如何利用 mscomm来收发串列资料呢??<p>我写了一个测试程试为何总收到 " ? " or 中文乱码呢 ??<p>以下是程式内容 ......<p> <br>Private Sub Command1_Click()<br>aa:<br> MSComm1.PortOpen = True<br> <br> <br> Do<br> <br> DoEvents<br> <br> Loop Until MSComm1.InBufferCount >= 2<br> <br> a = MSComm1.Input<br> Print a<br> <br> MSComm1.PortOpen = False<br> <br> GoTo aa<br> <br>End Sub<p>Private Sub Form_Load()<br> <br> MSComm1.CommPort = 3<br> <br> MSComm1.Settings = "2400,N,8,1"<br> <br> MSComm1.InputLen = 0<br> <br> MSComm1.InputMode = comInputModeBinary<br> <p> <br>End Sub<p><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1785--><!--top: 1813--><li><a href="1813.html"><b>使用 byte array</b></a> 小吴 <i>06:36:12 2/01/98</i>(<!--responses: 1813-->0)<ul><!--insert: 1813--></ul><!--end: 1813--></ul><!--end: 1785--><br><HR><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -