您的位置:控制工程论坛网论坛 » 工业以太网 » Prodave 6.0 如何通过TCP协议与S7-200 通讯

wb-niki

wb-niki   |   当前状态:在线

总积分:373  2024年可用积分:0

注册时间: 2009-07-13

最后登录时间: 2013-05-23

空间 发短消息加为好友

Prodave 6.0 如何通过TCP协议与S7-200 通讯

wb-niki  发表于 2011/11/8 17:19:02      2087 查看 1 回复  [上一主题]  [下一主题]

手机阅读

S7-200数据采集常用方法 (Prodave 6.0 IE)
Prodave 6.0是西门子提供的对S7-300进行数据通讯的动态连接库。
而S7-200只能用PPI RS232电缆或者PPI USB电缆与Prodave通讯
在数据通讯的长度和通讯速度上不能满足大部分的要求。
包括西门子S7-200 cp243-1以太网的通讯协议,Prodave 6.0也不支持。
而大连德嘉国际销售的ETH-PPI具有将S7-200PPI协议转换成s7-300 TCP协议的功能。
它可以使用Prodave 6.0与西门子S7-300 TCP的通讯协议。
通过大连德嘉国际的ETH-PPI转换器与S7-200 PLC进行通讯
经多位客户测试,是非常好用的好产品。
彻底解决了西门子S7-200不能走以太网通讯的限制。
是对S7-200数据采集的一个重要补充。
在通讯设置上需要有2点注意:
1、是要安装西门子的STEP7,要使用里面的设置TC/PG接口功能,将驱动设置为TCP/IP(AUTO) 之后就可以使用Prodave 6.0进行正常通讯了。
2、在进行通讯之前,请将西门子S7-200的PPI接口通讯波特率设置成187.5k,这样才能保证通讯速率的高速、顺畅。其具体做法是,先将PLC中的程序上传到Microwin中,然后在Microwin中的通讯端口里设置PPI口的波特率为187.5K,再将系统数据块下传download到PLC中 就可使改接口提升奥187.5K。
【注】:大连德嘉国际生产的ETH-PPI在进行数据采集工作的同时,还可以通过TCP方式用Microwin对其在线监视、编程及下载,相当于USB PPI/PPI-RS232编程电缆的编程功能。
目前的PPI-RS232这种电缆已经停产了,用Prodave基本上找不到可以连接的硬件了,不妨使用大连德嘉电子的这款产品,它会给您带来速度上的惊喜。

详见公司网站www.dl-winbest.cn

QQ:1242136482~~


1楼 0 0 回复
  • wb-niki

    wb-niki   |   当前状态:在线

    总积分:373  2024年可用积分:0

    注册时间: 2009-07-13

    最后登录时间: 2013-05-23

    空间 发短消息加为好友

    wb-niki   发表于 2011/11/8 17:21:26

    prodave6.0 通过以太网(TCP)通讯时的load函数设置如下:
    Private Sub IDOK_Click()
        Dim ConNr As Integer
        pConTable.AdrType = 2    'MPI = 1 IP = 2 MAC = 3
        pConTable.RackNr = RACKNO.Text
        pConTable.SlotNr = SLOTNO.Text
       pConTable.Adr.Adresse(0) = 192
        pConTable.Adr.Adresse(1) = 168
        pConTable.Adr.Adresse(2) = 1
        pConTable.Adr.Adresse(3) = 10
       pConTable.Adr.Adresse(4) = 0
        pConTable.Adr.Adresse(5) = 0
       ConNr = ComboConNr.Text
        ConTableLen = 9
        AccessPoint = "S7ONLINE"
        Dim MyHex As String
       MyHex = LoadConnection_ex6(ConNr, AccessPoint, ConTableLen, pConTable)
        ret = MyHex
       If ret = 0 Then
           MsgBox ("OK")
        Else
           Dim errorBuffer(256) As Byte
           Dim MyChar As String
           Dim strHex
           Dim a
          
           strHex = Hex(MyHex)
          
           ret = GetErrorMessage_ex6(ret, 256, errorBuffer(0))
           a = Prodave6Test.ByteToString(MyChar, errorBuffer, 200)
           a = MsgBox(MyChar, vbOKOnly, "0x" & strHex)
        End If
    End Sub

    2楼 回复本楼

    引用 wb-niki 2011/11/8 17:21:26 发表于2楼的内容

总共 , 当前 /