编程远程读取ABPLC的数据

2009-02-18

VB辅导

编程远程读取AB PLC的数据
　　AB公司开发的RSLink是读取远程AB PLC数据的上佳工具，它能实现读取AB PLC的名种要求。但在实际的系统集成中，由于远程PLC的类型多种多样，于是，我接到一个任务，自主开发程序读取各种PLC。
　　在我们使用的远程设备中，有AB的PLC，西门子的PLC，LG的PLC，还有多种的RTU，但都有一个共通的特点：通过串口访问，只是数据协议不同，找出各方的数据协议，就一切OK了。为此，我对AB PLC进行了一番研究。
　　AB公司提供了软件，它的资料就有点语焉不详，我不得不得用串口监听技术进行串口监听以获取更为直观的资料。
　　一、串口的监听
　　我利用PORTMON.EXE来监听串口，以下是运行RSLink时我监听到的数据：
　　IRP_MJ_WRITE 41 54 5A 0D
　　IRP_MJ_READ 41 54 5A 0D
　　IRP_MJ_WRITE 10 02 01 00 06 00 01 08 03 10 03 01 65
　　IRP_MJ_READ 10 06 10 02 00 01 46 00 01 08 00 EE 34 49 64 35 2F 30 33 20
　　20 20 20 20 20 20 00 00 86 10 10 8D A3 10 10 FC 10 03 18 55
　　IRP_MJ_WRITE 10 06
　　IRP_MJ_WRITE 100201000F002704A1C80789001003A3F3
　　IRP_MJ_READ
　　10 06 10 02 00 01 4F 00 27 04
　　00 00 C7 0C CF 0C C8 0C C6 0C 88 0C EC 0C AA 0C 00 00 00 00
　　00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
　　F3 FF 0D 00 0D 00 00 00 00 00 4C 04 52 03 20 04 8B 03 84 03
　　00 00 00 00 00 00 00 00 00 00 00 00 06 00 00 00 00 00 00 00
　　00 00 00 00 02 00 00 00 00 00 00 00 1F 00 00 00 00 00 00 00
　　00 00 00 00 01 00 02 00 00 00 00 00 00 00 01 00 02 00 03 00
　　04 00 05 00 06 00 07 00 00 00 00 00 00 00 00 00 C8 00 00 00
　　C2 01 00 00 00 00 76 02 B6 03 00 00 00 00 00 00 00 00 00 00
　　00 00 00 00 00 00 00 00 00 00 CF 03 00 00 00 00 00 00 00 00
　　5D 00 C7 0C CF 0C C8 0C C6 0C 86 0C EC 0C AA 0C 00 00 00 00
　　10 03 8D D8
　　IRP_MJ_WRITE 10 06
　　由此可以看出，RSLink运行时进行三步：
　　1、初始化MODEM：发送ATZ，确认MODEM存在。
　　2、查看PLC的数据结构，收到后发1006确认
　　3、查看N7的数据，收到后发1006确认
　　现在所要做的事步骤都很清楚了，下面的工作是理解发出的与返回的数据的含义。
　　二、发送数据请求的格式
　　对于查询PLC的数据结构，每次都是相同的请求，没有必要去花费时间。我们着力在读取N7数据的处理方面：
　　发出的数据含义：　　

*10

*02

*10

起始位

目的址

读数据

保留

ID号

字个数

区域

整数型

起始字

结束标志

校验位

　　＊：加*不参与CRC32运算。
　　CRC32的计算方法：VB代码如下：　　
　　Function CalcCRC(DATA(), Arraylen) As Long
　　Dim I, J, K, H As Integer
　　For I = 0 To Arraylen
　　J = J Xor DATA(I)
　　For K = 1 To 8
　　H = J Mod 2 'test if bit will be shifted out
　　J = Int(J / 2) 'shift right
　　If H Then
　　J = J Xor &H1000A001 'xor with constant
　　J = J - &H10000000 'clear top word
　　End If
　　Next K
　　Next I
　　CalcCRC = J
　　End Function　　
　　Private Sub Command1_Click()
　　Dim I, J As Long
　　Length = (Len(Text3.Text)) / 2 - 1
　　ReDim Init(Length)
　　For I = 0 To Length
　　Init(I) = Val("&H" + Mid(Text3.Text, 2 * I + 1, 2))
　　Next I
　　J = CalcCRC(Init(), Length)
　　Text2.Text = Hex(J Mod 256)
　　Text1.Text = Hex(Int(J / 256))
　　End Sub　　
　　发送这串字符将会能得到得到N7的数据返回，返回的数据以字为单位，开始字与字个数决定返回的内容。
　　三、接收到的数据　　
　　如上接收到的数据，以 10 06 10 02开始，00 01 4F 00 27 04为目的址与ID号，现再接着是返回的数据，每两个字节是一组数据：如我的PLC中的定义如下：

Tagname	address	description
Compressure	n7:68	控制流量
flue_1	n7:33	1#瞬时流量
flue_2	n7:34	2#瞬时流量
Inpressue	n7:37	总入口压力
lowp_alarm	n7:28	总压力报警下限
lowp_set	n7:106	总压力控制设置下限
Lowpressure	n7:26	总压力控制下限
midtank_p	n7:36	中间罐压力
outp_low_alarm	n7:29	出口压力当前报警下限值
outp_low_set	n7:109	出口压力报警下限设置
Outpressure	n7:35	出口压力
p_c_down	n7:125	降低入口压力
p_c_up	n7:124	提高入口压力
upp_alarm	n7:27	总压力报警上限
upp_set	n7:105	总压力控制设值上限
Uppressure	n7:25	总压力设值上限

　　地址为字，即两个字节。
　　这样，我们可以读取指定的区域数据，并根据你在PLC中的设定分解数据你就可以通过自编的程序读取AB PLC的数据了。
　　结语
　　这就是AB PLC的数据协议，由于AB 的说明书中所言不详，考试大提示读取的PLC是另一个公司开发的程序，所以在数据的含义方面花费了不少时间，而在编程方面的时间倒时不多。这次总结出来与大家共享，应能使大家免去摸索之苦。

3COME考试频道为您精心整理，希望对您有所帮助，更多信息在http://www.reader8.com/exam/

热点排行

复习指导

编程远程读取ABPLC的数据