分布式监控及网络化简介

《分布式监控及网络化简介》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、分布式监控及网络化简介(1)复制第8章的cRS232.vb类模块到方案目录文件夹，将使用此类创建串行通信组件。图9.2.3配置检测画面设计(2)在窗体的最上方输入以下的程序代码，声明RS232对象变量。DimWithEventsRS232AsNewcRS232'声明一个串行对象(3)双击【打开通信端口】按钮，在其Click事件中输入以下的程序代码IfrbCOM1.CheckedThenRS232.CommPort=1'COM1ElseRS232.CommPort=2'COM2EndIfRS232.PortOpen

2、=NotRS232.PortOpen'打开状态反相IfRS232.PortOpenThen'若打开通信端口，则…btnOpen.Text="关闭通信端口"GroupBox1.Enabled=False'不准改变通信端口btnSend.Enabled=True'启动按钮RS232.RThreshold=1'启动数据的自动接收ElsebtnOpen.Text="打开通信端口"GroupBox1.Enabled=TruebtnSend.Enabled=FalseEndIf这部分和之前的都一样，其中的RS232.RThr

3、eshold=1用来启动自动接收。(4)在【送出命令】按钮的Click事件中输入以下程序代码RS232.WriteData(txtCommand.Text&vbCr)将在输入区内的命令加上vbCr结尾字符后送出。(5)在程序编辑区内选择RS232组件的OnDataReceived事件，在其事件程序中输入以下程序代码DimDataNoAsInteger,DataStrAsStringRS232.ReadData(DataNo,DataStr)txtResult.Text&=DataStr当有数据被传送到串行端口后，

4、随即会被收取，并显示到TextBox组件中。(6)双击【结束系统】按钮，在其Click事件程序中输入以下程序代码IfRS232.PortOpenThenRS232.PortOpen=FalseRS232=NothingEnd检查RS232对象的状态后，将其设为Nothing，以End命令结束程序的运行。运行此项目程序前，请确定I-7520与I-7060已连接妥当，连接时特别注意以下的4个接头点：(1)GND要连接在一起，此为接地端。(2)+Vs要连接在一起，此为正电源端，+10V~+30V之间均可。(3)DATA

5、+要连接在一起，此为RS-485网络的正数据端。(4)DATA-要连接在一起，此为RS-485网络的负数据端。实验器材与计算机之通信端口连接，并接上电源后，依以下步骤执行及测试。(1)首先执行本项目，并选择通信端口。(2)在命令端文本框中输入“$012”，意思是要求第1站的模块返回模块配置。(3)单击【送出命令】按钮。就会在接收区中看到其结果。(4)运行结果如图9.2.4所示。图9.2.4配置命令做实验情形对照之前对于格式的讨论，所返回的字符串“!01400601”就代表了I-7060的相关信息了。详细的程序项目

6、请参考专题范例“EXCH97060Control”中的7060Control方案。窗体的完整的程序代码如下：PublicClassForm1InheritsSystem.Windows.Forms.FormDimWithEventsRS232AsNewcRS232…省略部分程序代码…"WindowsForm设计工具产生的程序代码"'*****************************************'打开及关闭通信端口的按钮'检查PortOpen属性可得知当前的状况'**************

7、****************************PrivateSubbtnOpen_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnOpen.ClickIfrbCOM1.CheckedThenRS232.CommPort=1'COM1ElseRS232.CommPort=2'COM2EndIfRS232.PortOpen=NotRS232.PortOpen'打开状态反相IfRS232.PortOpenThen'若打开通

8、信端口，则…btnOpen.Text="关闭通信端口"GroupBox1.Enabled=False'不准改变通信端口btnSend.Enabled=True'启动按钮RS232.RThreshold=1'启动数据的自动接收ElsebtnOpen.Text="打开通信端口"GroupBox1.Enabled=TruebtnSend.Enabled=FalseEndIfEn