欢迎来到天天文库
浏览记录
ID:42621595
大小:1.40 MB
页数:4页
时间:2019-09-19
《分布式监控及网络化简介》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
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
此文档下载收益归作者所有