8158.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 26 行

HTML
26 行
字号 
<html>
  <head>
    <title>VB中的串口通&amp;#35759;&amp;#38382;&amp;#39064;</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>VB中的串口通&amp;#35759;&amp;#38382;&amp;#39064;</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:ghyll@188.net">Tracy</a> on December 09, 1998 at 11:41:38:<p>
我用MSCOMM仿照VB中的示例&#20889;了一段代&#30721;，要接受串口的&#25968;据。但&#36816;行&#26102;什么也收不到，我也不知道是怎么&#20250;事，只好在&#36825;里&#26469;&#35831;教各位大&#34430;了。<br>代&#30721;如下：<br>Private Sub Form_Load()<p>    Dim Instring As String<br>    Instring = "123"<br>    <br>    MSComm1.CommPort = 1<br>    ' 9600 波特，&#26080;奇偶校&#39564;，8 位&#25968;据，一&#20010;停止位。<br>    MSComm1.Settings = "1200,N,8,1"<br>    ' &#24403;&#36755;入占用&#26102;，<br>    ' 告&#35785;控件&#35835;入整&#20010;&#32531;&#20914;&#21306;。<br>    MSComm1.InputLen = 0<br>    ' 打&#24320;端口。<br>    MSComm1.PortOpen = True<br>    <br>    ' 等待&#25968;据返回到串行端口。<br>    If MSComm1.InBufferCount >= 2 Then<br>    ' &#20174;串行端口&#35835; "OK" &#21709;&#24212;。<br>    Instring = MSComm1.Input<br>    End If<br>    ' &#20851;&#38381;串行端口。<br>    Text1.Text = Instring<br>    Label1.Caption = Instring<br>    <br>    MSComm1.PortOpen = False<p>    <br>End Sub
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 8158-->
<!--top: 8255--><li><a href="8255.html">Re: VB中的串口通&amp;#35759;&amp;#38382;&amp;#39064;</a> <b>尧仔</b> <i>23:58:15 12/12/98</i>
(<!--responses: 8255-->0)
<ul><!--insert: 8255-->
</ul><!--end: 8255-->
</ul><!--end: 8158-->
<br><hr size=7 width=75%><p>

</body></html>

8158.html - 源码说明

本页面展示了「VB技巧问答10000例,是一个教程」中的 8158.html 源码文件，采用 HTML 编程语言编写，共 26 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?