PC机与智能仪器串口通信

'定义窗体级变量 '在显示、绘图、报警等过程中使用 Dim datatemp(1000) As Single '用于存储温度采样值 Dim num As Integer '用于存储采样值个数 '串口初始化 '在窗体的Load事件中加入下列代码对串口进行初始化: Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.InputMode = 1 MSComm1.RThreshold = 1 MSComm1.SThreshold = 1 MSComm1.Settings = "4800,n,8,2" MSComm1.PortOpen = True Call tabinit '调用表格初始化子程序 End Sub '开始采集 Private Sub Cmdstart_Click() Timer1.Enabled = True End Sub '停止采集 Private Sub Cmdstop_Click() Timer1.Enabled = False End Sub '每隔1000ms向仪表发送读数据命令串 '每台仪表有一个仪表号，PC机通过仪表号来识别网上的多台仪表 '程序中仪表号（即地址代号）要与仪表设定值一致，否则不能返回数据。 Private Sub Timer1_Timer() MSComm1.Output = Chr(&H8282;) & Chr(&H52;) & Chr(&HC;) End Sub