用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

上一篇： 复制数据库(2)--网络数据库的复制和同步（6）
下一篇： 复制数据库(1)--网络数据库的复制和同步（5）

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有