串行通讯实验教程概要.doc

  1. 1、本文档共33页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
串行通讯实验教程概要

实验一:PLC的RS-232C口通讯参数设定 实验目的: 1.掌握C200Ha的RS232C口的参数设定 2.初步熟悉CX-PROGRAMMER软件的操作 + 二.实验器材:C200Ha教学机 三.实验内容: 要求:使用编程软件CXP与C200Ha的CPU内置RS232C口通讯,使用手持编程器进行参数设置,要求CXP与PLC以19200BPS,1起始位,7数据位,2停止位,偶校验建立连接。然后使用CXP软件将PLC的通讯参数改为9600BPS,再使用编程软件与PLC通讯。 2.步骤: 断电时将DIP 5#置OFF,并把编程器连到PLC上,进入PROGRAM状态。在DM6645中设为0001,在DM6646中设为0304。 用电脑打开CX-P软件,在设备的网络类型中设为SYSMAC WAY,通讯波特率设为:19200BPS,数据格式为:1位起始位,7位数据位,2位停止位,偶校验,与PLC连线。(这时,屏幕变灰色,证明已链机) 断电时将DIP 5#置ON,在CX-P软件中设成默认参数,连线后,直接进入内存菜单,在地址栏中选择监视,输入DM6645,设为0000,传入PLC中即可。此时PLC重新恢复9600BPS初始设置。(注:也可用设置菜单设置) 此时重新将DIP 5#置OFF,在CXP软件的通讯设定设为9600BPS,数据格式为:1起始位,7数据位,2停止位,偶校验,与PLC连线。 实验结果:CXP可使用多种波特率与PLC通讯,可分别用软件或手持编程器来进行设定。 实验思考:如RS232口参数设定出错,又没用手持编程器,如何用软件与PLC连线,恢复参数初始设置。 实验二:HOST LINK命令的使用 一.实验目的: 掌握HOST LINK命令的通讯格式 可使用超级终端软件或VB控件与PLC进行HOST LINK通讯 二.实验内容: (一)超级终端通讯 使用计算机的RS232口与PLC的RS232口相连 打开WINDOWS98自带的超级终端软件,如图: 新建连接后,进入超级终端界面,设定如下: (1)连接时选择“使用直接连接串口1”,如图 (2)由于HOST LINK的默认通讯格式是:1起始位,7数据位,2停止位,偶校验,所以端口设置如下: (3)进入文件的属性菜单,对ASCII码进行设置 (4)在ASCII码设置中,选择如下选项 (5)进入主通讯界面,输入所要发送的HOST LINK命令(如要读取对应PLC的DM0的值,则发送@00RD0000000157*。如PLC的DM0值是0001,则响应如图: (二)VB控件通讯 使用VISUAL BASIC 6.0版,编写简单的通讯程序,与PLC通讯。 操作界面如图所示: 源程序如下: Private Sub com1_Click() MSComm1.CommPort = 1 End Sub Private Sub Command1_Click() Dim FcsResult As String Dim StrIn As String Dim jytemp As Integer Dim temp As String jytemp = 0 StrIn = Text3.Text Text1.Text = ************** 校 验 For i = 1 To Len(StrIn) jytemp = Asc(Mid$(StrIn, i, 1)) Xor jytemp Next i FcsResult = Hex$(jytemp) ************** Text2.Text = FcsResult If (MSComm1.PortOpen = False) Then MSComm1.PortOpen = True MSComm1.Output = Text3.Text + Text2.Text + * + Chr(13) End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = End Sub Private Sub Form_Load() Text3.Text = @00REnd Sub Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comEvReceive temp = temp MSComm1.Input If tem

文档评论(0)

shuwkb + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档