用VB做的合路器




 

 

Option Explicit

Dim StrInComm1 As String 定义从串口1接收数据变量

Dim StrInComm2 As String 定义从串口2接收数据变量

Dim StrOut As String 定义发送数据变量

 

Private Sub Form_Load()

Text3.Text = 1

清零

StrInComm1 = ""

StrInComm2 = ""

StrOut = ""

打开端口

MSComm1.PortOpen = True

MSComm2.PortOpen = True

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

关闭端口

MSComm1.PortOpen = False

MSComm2.PortOpen = False

End Sub

 

Private Sub Timer1_Timer()

Text3.Text = Text3.Text + 1

每100毫秒从串口接收一次数据

Dim IntPositionD As Integer 定义“0D”位置变量"

StrOut = ""

 

StrInComm1 = StrInComm1 + MSComm1.Input 得到串口1数据

 

StrInComm2 = StrInComm2 + MSComm2.Input 得到串口2数据

 

IntPositionD = InStr(StrInComm1, Chr(13)) 判断从跟串口1中得到的数据是否有回车

If IntPositionD > 0 Then 如果有

StrOut = StrOut + Left(StrInComm1, IntPositionD) 取出左边的数据

StrInComm1 = Right(StrInComm1, Len(StrInComm1) - IntPositionD) 取出右边的数据

End If

 

IntPositionD = InStr(StrInComm2, Chr(13)) 判断从跟串口1中得到的数据是否有回车

If IntPositionD > 0 Then

StrOut = StrOut + Left(StrInComm2, IntPositionD)

StrInComm2 = Right(StrInComm2, Len(StrInComm2) - IntPositionD)

End If

 

Text2.Text = StrOut 求出发送数据

Text1.Text = Text1.Text + Text2.Text

End Sub