西门子PPI协议的工控通信控件

最新推荐文章于 2024-09-05 10:42:04 发布

叶帆

最新推荐文章于 2024-09-05 10:42:04 发布

阅读量1.4w

点赞数 1

分类专栏：〖自动化〗〖共享软件〗文章标签： integer string timer byte c

本文链接：https://blog.csdn.net/yfiot/article/details/532256

版权

〖自动化〗同时被 2 个专栏收录

43 篇文章 3 订阅

订阅专栏

〖共享软件〗

10 篇文章 0 订阅

订阅专栏

PPI协议是西门子PLC的私有协议，但是PPI又是西门子PLC200系列的默认的协议，如果用公开协议Modbus还得占用目前的程序空间和变量空间。这个控件开发已久，在工控现场已经稳定可靠的运行了几年，性能和可靠性都不错。可操作的变量类型有I、Q、M、V、S、SM。提供有详细的示例程序，很容易掌握使用。

同类软件还有Modbus.ocx，S7_CP243.ocx，S7_MPI.ocx等控件

【属性】

bps            波特率
DataBit        数据位
StopBit        停止位
CheckOut       校验方式
FixAddr        PLC地址

【方法】

OpenPort       打开串口
ClosePort      关闭串口
PlcLogin       PLC登录
PlcRun         PLC运行
PlcStop        PLC停止
ReadData       读PLC数据
WriteData      写PLC数据
InitRegCompany 初始化注册公司名称

【事件】

ErrorMessge 操作状态信息

示例程序界面：

下载地址：http://www.sky-walker.com.cn/YeFan/S7_ppi.rar

示例程序代码：

'*************************************************************************
'**模块名：frmTest
'**说    明：YFsoft 版权所有2005 - 2006(C)
'**创建人：叶帆
'**日    期：2005-08-23 14:45:36
'**修改人：
'**日    期：
'**描    述：PPIClient 控件示例(需连接西门子200PLC)
'**          非注册版本只能读取变量区的前10个地址,注册用户读写数据无限制，也无用户个数限制
'**          获取注册图片后，直接拷贝到控件的当前目录即可完成注册，注意在程序中添加下面一行代码：
'**          S7_PPI1.RegCompany="×××公司" 公司名称要和你注册提交的公司名称一致
'**          最新版本请关注：http://blog.csdn.net/yefanqiu
'**版    本：V1.0.0
'*************************************************************************

'*************************************************************************
'**函数名：chkRun_Click
'**输    入：无
'**输    出：无
'**功能描述：连续读取PLC数据
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-08-28 11:11:25
'**修改人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub chkRun_Click()
   tmrRead.Enabled = IIf(chkRun.Value = 0, False, True)
End Sub

'*************************************************************************
'**函数名：cmdLogin_Click
'**输    入：无
'**输    出：无
'**功能描述：登录指定地址的PLC
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-07-26 20:39:33
'**修改人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmdLogin_Click()
   If S7_PPI1.PlcLogin(cmbNo.ListIndex + 1) = 0 Then
      picFlag.BackColor = RGB(0, 255, 0)
      picOk.BackColor = RGB(0, 255, 0)
   Else
      picFlag.BackColor = RGB(255, 0, 0)
      picOk.BackColor = RGB(255, 0, 0)
   End If
End Sub
'*************************************************************************
'**函数名：cmdSendData_Click
'**输    入：无
'**输    出：无
'**功能描述：读PLC数据
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-08-27 23:59:32
'**修改人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmdReadData_Click()
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
   Dim i As Long
   Dim bytType As Byte
   Dim lngData() As Long

   Select Case cmbType.ListIndex
     Case 0: bytType = PPI_I
     Case 1: bytType = PPI_Q
     Case 2: bytType = PPI_M
     Case 3: bytType = PPI_V
     Case 4: bytType = PPI_S
     Case 5: bytType = PPI_SM
   End Select

   S7_PPI1.FixAddr = cmbNo.ListIndex + 1
   If S7_PPI1.ReadData(Val(txtAddr), lngData(), Val(cmbNum.Text), Val(cmbLen.ListIndex), Val(bytType)) = 0 Then
      txtData = ""
      For i = 1 To Val(cmbNum.Text)
        txtData = txtData & Format(lngData(i - 1), "0") & " "
      Next
   Else
     txtData = "Error"
   End If
    '------------------------------------------------
    Exit Sub
    '----------------
ToExit:
   MsgBox Err.Description
End Sub

'*************************************************************************
'**函数名：cmdRun_Click
'**输    入：无
'**输    出：无
'**功能描述：使PLC运行
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-07-26 20:55:15
'**修改人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmdRun_Click()
    Dim lngRet As Long
    lngRet = S7_PPI1.PlcRun(cmbNo.ListIndex + 1)
    If lngRet = 0 Then
        picFlag.BackColor = RGB(0, 255, 0)
        picOk.BackColor = RGB(0, 255, 0)
    Else
        picOk.BackColor = RGB(255, 0, 0)
    End If
    If lngRet = 4 Then
        MsgBox "PLC拨码开关在停止位置"
    End If
End Sub

'*************************************************************************
'**函数名：cmdStop_Click
'**输    入：无
'**输    出：无
'**功能描述：停止PLC运行
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-07-26 21:03:23
'**修改人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmdStop_Click()
    If S7_PPI1.PlcStop(cmbNo.ListIndex + 1) = 0 Then
        picFlag.BackColor = RGB(255, 255, 0)
        picOk.BackColor = RGB(0, 255, 0)
    Else
        picOk.BackColor = RGB(255, 0, 0)
    End If
End Sub
'*************************************************************************
'**函数名：cmdWriteData_Click
'**输    入：无
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-08-28 11:43:08
'**修改人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmdWriteData_Click()
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
    Dim bytType As Byte
    Dim strData() As String
    Dim lngData() As Long
    Dim i As Long

    Select Case cmbType.ListIndex
      Case 0: bytType = PPI_I
      Case 1: bytType = PPI_Q
      Case 2: bytType = PPI_M
      Case 3: bytType = PPI_V
      Case 4: bytType = PPI_S
      Case 5: bytType = PPI_SM
    End Select

    If Len(txtData) > 0 Then
        strData = Split(txtData, " ")
        ReDim lngData(UBound(strData))
        For i = 0 To UBound(strData)
          lngData(i) = Val(strData(i))
        Next
        If S7_PPI1.WriteData(Val(txtAddr), lngData, UBound(strData) + 1, Val(cmbLen.ListIndex), Val(bytType), cmbNo.ListIndex + 1) = 0 Then
            '
        Else
            txtData = "Error"
        End If
    End If
    '------------------------------------------------
    Exit Sub
    '----------------
ToExit:
    MsgBox Err.Description
End Sub

'*************************************************************************
'**函数名：Form_Load
'**输    入：无
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-08-28 19:07:04
'**修改人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub Form_Load()
   Dim i As Long
   For i = 1 To 222
     cmbNo.AddItem Format(i, "0")
   Next
   For i = 1 To 100
     cmbNum.AddItem Format(i, "0")
   Next
   cmbNum.ListIndex = 0
   cmbNo.ListIndex = 0
   cmbType.ListIndex = 3
   cmbLen.ListIndex = 0

   S7_PPI1.InitRegCompany "×××公司"    '已注册的公司名称
   S7_PPI1.OpenPort 1                     '打开连接PLC的COM1接口
End Sub

'*************************************************************************
'**函数名：Form_Unload
'**输    入：Cancel(Integer) -
'**输    出：无
'**功能描述：关闭串口
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-08-23 14:40:05
'**修改人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub Form_Unload(Cancel As Integer)
   S7_PPI1.ClosePort
   End
End Sub

'*************************************************************************
'**函数名：S7_PPI1_ErrorMessge
'**输    入：msgNo(Integer)         - 信息号
'**        ：msgDescription(String) - 信息内容
'**输    出：无
'**功能描述：控件的事件
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-11-18 11:06:48
'**修改人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub S7_PPI1_ErrorMessge(msgNo As Integer, msgDescription As String)
    MsgBox Str(msgNo) & " - " & msgDescription
End Sub

'*************************************************************************
'**函数名：tmrRead_Timer
'**输    入：无
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-08-28 11:10:58
'**修改人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub tmrRead_Timer()
   cmdReadData_Click
End Sub