- 1、本文档共33页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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)