<p>用VB定制合路器</p>
<p></p>
<p></p>
<p>Option Explicit</p>
<p>　　Dim StrInComm1 As String 注釋：定義從串口1接收數據變量</p>
<p>　　Dim StrInComm2 As String 注釋：定義從串口2接收數據變量</p>
<p>　　Dim StrOut As String 注釋：定義發送數據變量 </p>
<p></p>
<p></p>
<p>　　代碼段1、</p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>　　Text3.Text = 1</p>
<p>　　注釋：清零</p>
<p>　　StrInComm1 = ""</p>
<p>　　StrInComm2 = ""</p>
<p>　　StrOut = ""</p>
<p>　　注釋：打開端口</p>
<p>　　MSComm1.PortOpen = True</p>
<p>　　MSComm2.PortOpen = True</p>
<p>End Sub</p>
<p></p>
<p></p>
<p>代碼段2、</p>
<p></p>
<p>Private Sub Form_Unload(Cancel As Integer)</p>
<p>　注釋：關閉端口</p>
<p>　MSComm1.PortOpen = False</p>
<p>　MSComm2.PortOpen = False</p>
<p>End Sub</p>
<p></p>
<p></p>
<p></p>
<p>代碼段3、</p>
<p></p>
<p>Private Sub Timer1_Timer()</p>
<p>　　Text3.Text = Text3.Text + 1</p>
<p>　　注釋：每100毫秒從串口接收一次數據</p>
<p>　　Dim IntPositionD As Integer 注釋：定義“0D”位置變量"</p>
<p>　　StrOut = ""</p>
<p></p>
<p>　　StrInComm1 = StrInComm1 + MSComm1.Input 注釋：得到串口1數據</p>
<p></p>
<p>　　StrInComm2 = StrInComm2 + MSComm2.Input 注釋：得到串口2數據</p>
<p></p>
<p>　　IntPositionD = InStr(StrInComm1, Chr(13)) 注釋：判斷從跟串口1中得到的數據是否有回車</p>
<p>　　If IntPositionD > 0 Then 注釋：如果有</p>
<p>　　　StrOut = StrOut + Left(StrInComm1, IntPositionD) 注釋：取出左邊的數據</p>
<p>　　　StrInComm1 = Right(StrInComm1, Len(StrInComm1) - IntPositionD) 注釋：取出右邊的數據</p>
<p>　　End If</p>
<p>　　IntPositionD = InStr(StrInComm2, Chr(13)) 注釋：注釋：判斷從跟串口1中得到的數據是否有回車</p>
<p>　　If IntPositionD > 0 Then</p>
<p>　　　StrOut = StrOut + Left(StrInComm2, IntPositionD)</p>
<p>　　　StrInComm2 = Right(StrInComm2, Len(StrInComm2) - IntPositionD)</p>
<p>　　End If</p>
<p>　　Text2.Text = StrOut 注釋：求出發送數據</p>
<p>　　Text1.Text = Text1.Text + Text2.Text</p>
<p>End Sub </p>
<p> </p>