使用VB开发Windows环境下的串行通信程序
lt;>echoch%‘以命令字节同步测试数据
ch$=comm1.Input
Loop
ch1$=comm1.Input‘从WINDOWS串行数据接受缓冲区读测试数据
ch2$=comm1.Input
ch3$=comm1.Input
ch4$=comm1.Input
newf01&=CLng(CLng(Asc(ch2$))*16*16+Asc(ch1$))‘合并为一个整数
newf02&=CLng(CLng(Asc(ch4$))*16*16+Asc(ch3$))
ifnewf01&>maxf01&Then‘判断最大值，最小值
maxf01&=newf01&
EndIf
Ifnewf01&<minf01&Then
minf01&=newf01&
EndIf
Ifnewf02&>maxf02&Then
maxf02&=newf02&
EndIf
Ifnewf02&<minf02&Then
minf02&=newf02&
EndIf
labf01.Caption=Str(newf01&)‘显示数据
labf02.Caption=Str(newf02&)
labmaxf01.Caption=Str(maxf01&)
labminf01.Caption=Str(minf01&)
labmaxf02.Caption=Str(maxf02&)
labminf02.Caption=Str(minf02&)
Else
comm1.Output=Chr(echoch%)
EndIf
dummy=DoEvents()
Loop
Else‘在通讯过程中，按下cmdCOMM按钮则停止通信，发出停止测试
cmdcomm.Caption=“通信”‘命令，关闭串行口，使退出按钮有效。
comm1.Output=Chr(&H5F)
comm1.PortOpen=False
cmdexit.Enabled=True
EndIf
EndSub
SubcmdExit_Click()
Ifcomm1.PortOpenThen‘确认关闭串行口
comm1.PortOpen=False
EndIf
End‘终止整个程序
EndSub
SubTimer1_Timer()‘更新显示时间
Iflabtime.Caption<>Time&Then
labtime.Caption=Time$
EndIf
EndSub
3.程序说明:
a.上述程序的通信协议为:波特率9600，偶校验，8个数据位，1个停止位。由上位机发送开始测试命令，下位机接收到命令后每隔500ms向上位机发送检测到的数据。每次发送5个字节，第一个字节为下位机接受到的命令，第二三字节为16Byte的值，第四五字节为16Byte的值。上位机循环接受并处理和显示数据;
b.由于在控制软件中，串行通讯发送和接受的数据多为十六进制，故在命令输入时为十六进制数，在程序中通过echoch%=Val(“&H”+echo.Text)将输入的echo.Text转换为十六进制数，并赋给变量echoch%。而在通过串行口发送时comm1.Output要求接受字符型变量，故通过语句comm1.Output=Chr(echoch%)实现;
c.接受数据时，每次要判断第一个字节是否为发出的命令，只有是后面4个字节才为正确的数据，否则查看下一字节。通过设置COMM1.InputLen=1来实现每次从接受缓冲区内读取一个字节;
d.当退出程序时，一定要关闭串行口，通过comm1.PortOpen=False完成;
e.如果需要上位机定时查询下位机，可以将串行通讯在定时器Timer1-Timer事件中进行;
f.要实现完善的功能，必须进一步改善程序，甚至要用到WindowsAPI、OLE等，上述程序只是一个简单的例子;
上面介绍了笔者在使用VB开发Windows环境下测控软件的一点收获，笔者使用上述原理开发了一个界面友好、功能全面、使用方便的卫星控制系统惯性敏感部件检测软件，实际使用效果良好，提高了工作效率，甚至实现了测试和数据处理的自动化。
ch$=comm1.Input
Loop
ch1$=comm1.Input‘从WINDOWS串行数据接受缓冲区读测试数据
ch2$=comm1.Input
ch3$=comm1.Input
ch4$=comm1.Input
newf01&=CLng(CLng(Asc(ch2$))*16*16+Asc(ch1$))‘合并为一个整数
newf02&=CLng(CLng(Asc(ch4$))*16*16+Asc(ch3$))
ifnewf01&>maxf01&Then‘判断最大值，最小值
maxf01&=newf01&
EndIf
Ifnewf01&<minf01&Then
minf01&=newf01&
EndIf
Ifnewf02&>maxf02&Then
maxf02&=newf02&
EndIf
Ifnewf02&<minf02&Then
minf02&=newf02&
EndIf
labf01.Caption=Str(newf01&)‘显示数据
labf02.Caption=Str(newf02&)
labmaxf01.Caption=Str(maxf01&)
labminf01.Caption=Str(minf01&)
labmaxf02.Caption=Str(maxf02&)
labminf02.Caption=Str(minf02&)
Else
comm1.Output=Chr(echoch%)
EndIf
dummy=DoEvents()
Loop
Else‘在通讯过程中，按下cmdCOMM按钮则停止通信，发出停止测试
cmdcomm.Caption=“通信”‘命令，关闭串行口，使退出按钮有效。
comm1.Output=Chr(&H5F)
comm1.PortOpen=False
cmdexit.Enabled=True
EndIf
EndSub
SubcmdExit_Click()
Ifcomm1.PortOpenThen‘确认关闭串行口
comm1.PortOpen=False
EndIf
End‘终止整个程序
EndSub
SubTimer1_Timer()‘更新显示时间
Iflabtime.Caption<>Time&Then
labtime.Caption=Time$
EndIf
EndSub
3.程序说明:
a.上述程序的通信协议为:波特率9600，偶校验，8个数据位，1个停止位。由上位机发送开始测试命令，下位机接收到命令后每隔500ms向上位机发送检测到的数据。每次发送5个字节，第一个字节为下位机接受到的命令，第二三字节为16Byte的值，第四五字节为16Byte的值。上位机循环接受并处理和显示数据;
b.由于在控制软件中，串行通讯发送和接受的数据多为十六进制，故在命令输入时为十六进制数，在程序中通过echoch%=Val(“&H”+echo.Text)将输入的echo.Text转换为十六进制数，并赋给变量echoch%。而在通过串行口发送时comm1.Output要求接受字符型变量，故通过语句comm1.Output=Chr(echoch%)实现;
c.接受数据时，每次要判断第一个字节是否为发出的命令，只有是后面4个字节才为正确的数据，否则查看下一字节。通过设置COMM1.InputLen=1来实现每次从接受缓冲区内读取一个字节;
d.当退出程序时，一定要关闭串行口，通过comm1.PortOpen=False完成;
e.如果需要上位机定时查询下位机，可以将串行通讯在定时器Timer1-Timer事件中进行;
f.要实现完善的功能，必须进一步改善程序，甚至要用到WindowsAPI、OLE等，上述程序只是一个简单的例子;
上面介绍了笔者在使用VB开发Windows环境下测控软件的一点收获，笔者使用上述原理开发了一个界面友好、功能全面、使用方便的卫星控制系统惯性敏感部件检测软件，实际使用效果良好，提高了工作效率，甚至实现了测试和数据处理的自动化。