⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 m29.htm

📁 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程
💻 HTM
字号:
🔍 
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 
</head>
<p align="center"><script src="../../1.js"></script></a>

<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center> 
  <table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
    <tbody> 
     
    <tr> 
      <td bgcolor=#000000 height=14> 
        <div align=center class=H1>    <font color="#FFFFFF" class="unnamed1">用VB做的合路器</font> </font> </font></div>
      </td>
    </tr>
    <tr valign=top> 
      <td class=H1 height=236> 
        <p align="left">   <font color="#000000">来源：www.vbeden.com<br>
          <br>
          Option Explicit<br>
          Dim StrInComm1 As String '定义从串口1接收数据变量<br>
          Dim StrInComm2 As String '定义从串口2接收数据变量<br>
          Dim StrOut As String '定义发送数据变量<br>
          <br>
          Private Sub Form_Load()<br>
          Text3.Text = 1<br>
          '清零<br>
          StrInComm1 = ""<br>
          StrInComm2 = ""<br>
          StrOut = ""<br>
          '打开端口<br>
          MSComm1.PortOpen = True<br>
          MSComm2.PortOpen = True<br>
          End Sub<br>
          <br>
          Private Sub Form_Unload(Cancel As Integer)<br>
          '关闭端口<br>
          MSComm1.PortOpen = False<br>
          MSComm2.PortOpen = False<br>
          End Sub<br>
          <br>
          Private Sub Timer1_Timer()<br>
          Text3.Text = Text3.Text + 1<br>
          '每100毫秒从串口接收一次数据<br>
          Dim IntPositionD As Integer '定义“0D”位置变量"<br>
          StrOut = ""<br>
          <br>
          StrInComm1 = StrInComm1 + MSComm1.Input '得到串口1数据<br>
          <br>
          StrInComm2 = StrInComm2 + MSComm2.Input '得到串口2数据<br>
          <br>
          IntPositionD = InStr(StrInComm1, Chr(13)) '判断从跟串口1中得到的数据是否有回车<br>
          If IntPositionD &gt; 0 Then '如果有<br>
          StrOut = StrOut + Left(StrInComm1, IntPositionD) '取出左边的数据<br>
          StrInComm1 = Right(StrInComm1, Len(StrInComm1) - IntPositionD) '取出右边的数据<br>
          End If<br>
          <br>
          IntPositionD = InStr(StrInComm2, Chr(13)) ''判断从跟串口1中得到的数据是否有回车<br>
          If IntPositionD &gt; 0 Then<br>
          StrOut = StrOut + Left(StrInComm2, IntPositionD)<br>
          StrInComm2 = Right(StrInComm2, Len(StrInComm2) - IntPositionD)<br>
          End If<br>
          <br>
          Text2.Text = StrOut '求出发送数据<br>
          Text1.Text = Text1.Text + Text2.Text<br>
          End Sub </font></span><br>
           </p>
      </td>
    </tr>
  
  </table>
</div>


<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>

⌨️ 快捷键说明

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