分享:弄了几天ppi协议的经验-专业自动化论坛-中国工控网论坛

分享:弄了几天ppi协议的经验点击：5013 | 回复：86

精华：1帖
求助：0帖
帖子：23帖 | 82回
年度积分：0
历史总积分：208
注册：2004年11月22日

发表于：2005-11-01 14:22:00

楼主

   弄了几天的PPI协议,有点经验与大家分享.
________________________________________________________________________________
西门子PPI通讯协议!看看吧!
S7-200 PLC之PPI协议
    通过硬件和软件侦听的方法，分析PLC内部固有的PPI通讯协议，然后上位机采用VB编程，遵循PPI通讯协议，读写PLC数据，实现人机操作任务。这种通讯方法，与一般的自由通讯协议相比，省略了PLC的通讯程序编写，只需编写上位机的通讯程序资源

S7-226的编程口物理层为RS-485结构，SIEMENS提供MicroWin软件，采用的是PPI(Point to Point)协议，可以用来传输、调试PLC程序。在现场应用中，当需要PLC与上位机通讯时，较多的使用自定义协议与上位机通讯。在这种通讯方式中，需要编程者首先定义自己的自由通讯格式，在PLC中编写代码，利用中断方式控制通讯端口的数据收发。采用这种方式，PLC编程调试较为烦琐，占用PLC的软件中断和代码资源，而且当PLC的通讯口定义为自由通讯口时，PLC的编程软件无法对PLC进行监控，给PLC程序调试带来不便。
SIEMENS S7-200PLC的编程通讯接口，内部固化的通讯协议为PPI协议，如果上位机遵循PPI协议来读写PLC，就可以省略编写PLC的通讯代码。如何获得PPI协议？可以在PLC的编程软件读写PLC数据时，利用第三个串口侦听PLC的通讯数据，或者利用软件方法，截取已经打开且正在通讯的端口的数据，然后归纳总结，解析出PPI协议的数据读写报文。这样，上位机遵循PPI协议，就可以便利的读写PLC内部的数据，实现上位机的人机操作功能。
软件设计
系统中测控任务由SIEMENS S7-226PLC完成，PLC采用循环扫描方式工作，当定时时间到时，执行数据采集或PID控制任务，完成现场的信号控制。计算机的监控软件采用VB编制，利用MSComm控件完成串口数据通讯，通讯遵循的协议为PPI协议。
PPI协议
西门子的PPI（Point to Point）通讯协议采用主从式的通讯方式，一次读写操作的步骤包括：首先上位机发出读写命令，PLC作出接收正确的响应，上位机接到此响应则发出确认申请命令，PLC则完成正确的读写响应，回应给上位机数据。这样收发两次数据，完成一次数据的读写[5]。
其通讯数据报文格式大致有以下几类：
1、读写申请的数据格式如下：

SD LE LER SD DA SA FC DASP SSAP DU FCS ED
SD:(Start Delimiter)开始定界符(68H)
LE:（Length）报文数据长度
LER:（Repeated Length）重复数据长度
SD: (Start Delimiter)开始定界符(68H)
SA:（Source Address）源地址，指该地址的指针，为地址值乘以8
DA:（Destination Address）目标地址，指该地址的指针，为地址值乘以8
FC:（Function Code）功能码
DSAP:（Destination Service Access Point）目的服务存取点
SSAP:（Source Service Access Point）源服务存取点
DU:（Data Unit）数据单元
FCS:（Frame Check Sequence）校验码
ED:（End Delimiter）结束分界符（16H）
报文数据长度和重复数据长度为自DA至DU的数据长度，校验码为DA至DU数据的和校验，只取其中的末字节值。
在读写PLC的变量数据中，读数据的功能码为 6CH，写数据的功能码为 7CH。
2、PLC接收到读写命令，校验后正确，返回的数据格式为 E5H
3、确认读写命令的数据格式为：

SD SA DA FC FCS ED
其中SD为起始符，为10H
SA为数据源地址
DA为目的地址
FC为功能码，取5CH
FCS为SA+DA+FC的和的末字节
ED为结束符，取16H
PPI协议的软件编制
在采用上位机与PLC通讯时，上位机采用VB编程，计算机采用PPI电缆或普通的485串口卡与PLC的编程口连接，通讯系统采用主从结构，上位机遵循PPI协议格式，发出读写申请，PLC返回相应的数据。程序实现如下：
1、串口初始化程序：
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,e,8,1"
    MSComm1.InputLen = 0
    MSComm1.RThreshold = 1
MSComm1.InputMode = comInputModeBinary
PPI协议定义串口为以二进制形式收发数据，这样报文的通讯效率比ASCII码高。
2、串口读取数据程序，以读取VB100数据单元为例：
Dim Str_Read(0 To 32) ‘定义发送的数据为字节为元素的数组。
Str_ Read (32) = &H16 ‘相应的数组元素赋值，按照以下格式：
Str_ Read (29) = (100*8) \ 256  ‘地址为指针值，先取高位地址指针
Str_ Read (30) = (100*8) Mod 256 ‘取低位地址指针
Str_ Read (24) = 1     ‘读取的数据长度（Byte的个数）
For I=4 to 30
   Temp_FCS = Temp_FCS + Str_Read(i)
Next I
Str_Read(31)= Temp_FCS Mod 256 ‘计算FCS校验码，其它数组元素赋值省略。
68 1B 1B 68 2 0 6C 32 1 0 0 0 0 0 E 0 0 4 1 12 A 10 2 0 1 0 1 84 0 3 20 8B 16
PLC返回数据 E5 后，确认读取命令，发送以下数据：
10 2 0 5C 5E 16
然后上位机VB程序接受到以下数据：
68 16 16 68 0 2 8 32 3 0 0 0 0 0 2 0 5 0 0 4 1 FF 4 0 8 22 78 16
首先识别目标地址和源地址，确认是这次申请的返回数据，然后经过校验检查，正确后解析出第26号数据（&H22）即为VB100字节的数据。
3、串口写入数据程序，以写VB100数据单元为例：
Dim Str_Write(0 To 37) ‘定义发送的数据为字节为元素的数组。
Str_Writ

分享到：

邀请回答

回复楼主

沉睡

精华：1帖
求助：0帖
帖子：23帖 | 82回
年度积分：0
历史总积分：208
注册：2004年11月22日

发表于：2005-11-01 14:24:00

1楼

VB程序我发你们信箱,要的留下联系方式.............

回复引用举报

jjq

精华：2帖
求助：0帖
帖子：30帖 | 1390回
年度积分：0
历史总积分：1859
注册：2003年10月28日

发表于：2005-11-01 14:53:00

2楼

DING

回复引用举报

ytzidonghua

精华：4帖
求助：0帖
帖子：228帖 | 12358回
年度积分：2938
历史总积分：29770
注册：2004年4月26日

发表于：2005-11-01 16:37:00

3楼

非常感谢!
mxb1975@126.com

回复引用举报

dbsn2001

精华：0帖
求助：0帖
帖子：0帖 | 11回
年度积分：0
历史总积分：70
注册：2004年5月12日

发表于：2005-11-03 09:54:00

4楼

1214911@sohu.com 谢谢啦

回复引用举报

qx100

精华：0帖
求助：0帖
帖子：19帖 | 124回
年度积分：0
历史总积分：255
注册：2005年9月06日

发表于：2005-11-03 10:18:00

5楼

谢谢！好人一生平安！bijingqun9600@126.com

回复引用举报

国有化

精华：0帖
求助：0帖
帖子：14帖 | 101回
年度积分：0
历史总积分：700
注册：2003年2月08日

发表于：2005-11-03 11:28:00

6楼

高人啊,谢谢分享!
hbchenbo@126.com

回复引用举报

沉睡

精华：1帖
求助：0帖
帖子：23帖 | 82回
年度积分：0
历史总积分：208
注册：2004年11月22日

发表于：2005-11-04 12:52:00

7楼

在S7-200中写
LD SM0.0
MOVB IB0 VB2
MOVB IB1 VB3
MOVB IB2 VB4
MOVB QB0 VB0
MOVB QB1 VB1

回复引用举报

沉睡

精华：1帖
求助：0帖
帖子：23帖 | 82回
年度积分：0
历史总积分：208
注册：2004年11月22日

发表于：2005-11-04 12:53:00

8楼

注意查收....我都发了

回复引用举报

谢谢落

精华：0帖
求助：0帖
帖子：19帖 | 81回
年度积分：0
历史总积分：248
注册：2005年10月13日

发表于：2005-11-04 13:11:00

9楼

请给我也发一份,谢谢.
sunboy_final@163.com

回复引用举报

举一反三

精华：0帖
求助：0帖
帖子：15帖 | 201回
年度积分：0
历史总积分：501
注册：2005年1月11日

发表于：2005-11-04 13:44:00

10楼

请给我一份吧，再次表示谢谢！
whzgsy@yahoo.com.cn

回复引用举报

PLC玩家

精华：0帖
求助：0帖
帖子：4帖 | 86回
年度积分：0
历史总积分：119
注册：2001年11月01日

发表于：2005-11-04 14:03:00

11楼

大侠给我一份!邮件xudch2000@tom.com

回复引用举报

沉睡

精华：1帖
求助：0帖
帖子：23帖 | 82回
年度积分：0
历史总积分：208
注册：2004年11月22日

发表于：2005-11-04 19:57:00

12楼

TO : DBSN
你的信箱是不是有问题,系统退信

回复引用举报

沉睡

精华：1帖
求助：0帖
帖子：23帖 | 82回
年度积分：0
历史总积分：208
注册：2004年11月22日

发表于：2005-11-04 19:59:00

13楼

Private Declare Sub Sleep Lib "kernel32" (ByVal dwseconds As Long)
Private Sub Label3_Click()
End Sub

Private Sub Label9_Click()

End Sub

Private Sub Command1_Click()
Dim leixing As String
Dim xx As String
Dim ha As String
Dim dizhi As String
Dim str_read(0 To 32) As Byte
Dim i As Integer
Dim Temp_FCS As Variant
Dim str_val(0 To 5) As Byte

dizhi = Text2.Text
leixing = Text1.Text
If leixing = "s" Or leixing = "sm" Or leixing = "i" Or leixing = "q" Or leixing = "v" Or leixing = "vb" Or leixing = "vw" Or leixing = "vd" Then

If leixing = "s" Then
xx = &H4
ha = &H1
End If
If leixing = "sm" Then
  xx = &H5
  ha = &H1
End If
   If leixing = "i" Then
    xx = &H81
    ha = &H1
   End If
    If leixing = "q" Then
     xx = &H82
     ha = &H1
    End If
      If leixing = "m" Then
       xx = &H83
       ha = &H1
      End If
        If leixing = "v" Then
         xx = &H84
         ha = &H1
        End If
       If leixing = "vb" Then
        xx = &H84
        ha = &H1
       End If
    If leixing = "vw" Then
     xx = &H84
     ha = &H2
    End If
  If leixing = "vd" Then
   xx = &H84
   ha = &H4
   End If
str_read(0) = &H68
str_read(1) = &H1B
str_read(2) = &H1B
str_read(3) = &H68
str_read(4) = &H2
str_read(5) = &H0
str_read(6) = &H6C
str_read(7) = &H32
str_read(8) = &H1
str_read(9) = &H0
str_read(10) = &H0
str_read(11) = &H0
str_read(12) = &H0
str_read(13) = &H0
str_read(14) = &HE
str_read(15) = &H0
str_read(16) = &H0
str_read(17) = &H4
str_read(18) = &H1
str_read(19) = &H12
str_read(20) = &HA
str_read(21) = &H10
str_read(22) = &H2
str_read(23) = &H0
str_read(24) = ha
str_read(25) = &H0
str_read(26) = &H1
str_read(27) = xx
str_read(28) = &H0
str_read(29) = (Str(dizhi) * 8) \ 256
str_read(30) = (Str(dizhi) * 8) Mod 256
For i = 4 To 30
   Temp_FCS = Temp_FCS + str_read(i)
Next i
str_read(31) = Temp_FCS Mod 256
str_read(32) = &H16
MSComm1.Output = str_read
Text4.Text = ""
Sleep (50)
str_val(0) = &H10
str_val(1) = &H2
str_val(2) = &H0
str_val(3) = &H5C
str_val(4) = &H5E
str_val(5) = &H16
MSComm1.Output = str_val

Else:
       If MsgBox("数据类型输入错误,正确类型为 S SM I Q  M V VB VW VD", 1 + 32 + 0, "关闭") = 1 Then

     End If
     End If
End Sub

Private Sub Command2_Click()
Unload Form4
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,e,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 28
MSComm1.InputMode = comInputModeBinary
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Dim rcv_array() As Byte
Dim dis_array As String
Dim rcv_len As Long
Dim yy As String
Dim haha As String
rcv_array = MSComm1.Input
rcv_len = UBound(rcv_array)
ReDim temP(0 To UBound(rcv_array))
For i = 0 To rcv_len
dis_array = dis_array & Hex(rcv_array(i)) & ""
Next i
If Len(dis_array) = 38 Then
yy = Mid(dis_array, 34, 1)
End If
If Len(dis_array) = 39 Then
yy = Mid(dis_array, 34, 2)
End If
If Len(dis_array) = 42 Then
yy = Mid(dis_array, 35, 4)
End If
If Len(dis_array) = 45 Then
yy = Mid(dis_array, 35, 5)
End If
Text3.Text = Val("&H" & yy)
Text4.Text = dis_array
End Sub

回复引用举报

沉睡