用VB6实现仪串口通信及检测功能.docVIP

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” ’当