用VB6实现仪器串口通信与检测功能.doc

1 设计用户界面 ??? 首先新建一个“标准EXE”工程，然后选择“工程/部件”菜单项，在“部件”对话框中选择Microsoft Comm Control6.0即可添加MsComm控件；再在窗体中依次布置如下控件并设置其属性。 控件名称 name属性 Caption属性 Form form1 空 Frame1 frame1 空 Frame2 frame2 空 Frame3 frame3 空 Command1 comd1 确定 Command2 comd2 退出 Command3 comd3 确定 Command4 comd4 退出 Command5 comd5 做完退出 MSComm msc1 空 Label 1 lab1 RS-232接口功能检测 Label 2 lab2 请输入被检仪器程控码控制仪器功能 Label 3 lab3 请输入被检仪器程控码读取仪器数据 Text1 txt1 空 Text2 txt2 空 ??? 完成后的界面如图1所示 图1 用户界面 2 编写程序代码 ??? 编写的程序代码如下： PriVate Sub Form_Load（） Msc1.CommPort=1??? ’ 使用串行口1 ’波特率9600，偶校验，8个数据位，1个停止位 Msc 1.Settings=“9600，E，8，1” ’当使用Msc 1.Input时，每次从接收缓冲区取一个字节。 Msc1.InputLen=0 ’读取整个接收缓冲区内码或消除 Msc1.Portopen=True?? ’ 打开串行口 End Sub Private Sub Comd1_Click（） On Error Resume Next ?? ’简单的错误处理 If Txt1.Text = Then x = MsgBox（被检仪器程控码不能为空值, 16） Exit Sub End If MSC1.Output = Txt1.Text + Chr$（13） ’发送程控码 For i = 1 ToNext End Sub Private Sub Comd2_Click（） Txt1.Text = Txt1.SetFocus End Sub Private Sub Comd3_Click（） Dim instring As string instring = MSC1.Input MSC1.Output = Txt2.Text + Chr$（13） Do DoEvents Loop Until MSC1.InBufferCount = 20 instring = MSC1.Input ’ 从接收队列中读入字符串 Txt2.Text = Txt2.Text = instring ’ 显示读入的字符串 End Sub Private Sub Comd4_Click（） Txt2.Text = Txt2.SetFocus End Sub Private Sub Comd5_Click（） MSC1.PortOpen = False ’ 关闭串行口 End End Sub 3 程序简要说明 ??? 上述程序设置的端口通信协议为： 9600波特率，偶校验，8个数据位，1个停止位。当退出程序时，一定要关闭串行口，通过comm1.PortOpen=False完成。使用时，在“请输入被检仪器程控码控制仪器功能”文本框中输入“FUNC‘FREQ 1；FREQ：RES1HZ”即仪器的程控码为：“功能通道1测频，分辨率为1Hz。单击“确定”后，HP53150A置于相应功能。加入信号后即可测量检测，当读取测量数据时在“请输入被检仪器程控码读取仪器数据”框中输入“DATA？”，单击“确定”后，该框中以字符的形式显示测量结果。从而实现仪器程控功能和性能指标的检测。上述只是一个简单的例子。要实现完善的功能，必须进一步改进程序。 Re: 用VB6实现仪器串口通信及检测功能 Private Sub Command1_Click(Index As Integer) 　　　发送文件按键MSComm1.PortOpen = True MSComm1.Output = Text1.TextMSComm1.PortOpen = False End Sub Private Sub Command2_Click(Index As Integer) 　　　　接收文件按键MSComm1.PortOpen = TrueText2.Text = MSComm1.InputMSComm1.PortOpen = FalseEnd Sub Private Sub Command3_Click(Index As Integer) 　　　　结束按键 EndEnd Sub Priva