色婷婷狠狠18禁久久YY,CHINESE性内射高清国产,国产女人18毛片水真多1,国产AV在线观看

s7協(xié)議怎么采集

s7協(xié)議怎么采集?

Prodave 6.0是西門(mén)子提供的對(duì)s7-300進(jìn)行數(shù)據(jù)通訊的動(dòng)態(tài)連接庫(kù)。

而S7-200只能用PPI RS232電纜或者PPI USB電纜與Prodave通訊

在數(shù)據(jù)通訊的長(zhǎng)度和通訊速度上不能滿足大部分的要求。

包括西門(mén)子S7-200 cp243-1以太網(wǎng)的通訊協(xié)議,Prodave 6.0也不支持。

而大連德嘉國(guó)際銷(xiāo)售的ETH-PPI具有將S7-200PPI協(xié)議轉(zhuǎn)換成s7-300 TCP協(xié)議的功能。

它可以使用Prodave 6.0與西門(mén)子S7-300 TCP的通訊協(xié)議。

通過(guò)大連德嘉國(guó)際的ETH-PPI轉(zhuǎn)換器與S7-200 PLC進(jìn)行通訊

經(jīng)多位客戶測(cè)試,是非常好用的好產(chǎn)品。

徹底解決了西門(mén)子S7-200不能走以太網(wǎng)通訊的限制。

是對(duì)S7-200數(shù)據(jù)采集的一個(gè)重要補(bǔ)充。

在通訊設(shè)置上需要有2點(diǎn)注意:

1、是要安裝西門(mén)子的STEP7,要使用里面的設(shè)置TC/PG接口功能,將驅(qū)動(dòng)設(shè)置為T(mén)CP/IP(AUTO) 之后就可以使用Prodave 6.0進(jìn)行正常通訊了。

2、在進(jìn)行通訊之前,請(qǐng)將西門(mén)子S7-200的PPI接口通訊波特率設(shè)置成187.5k,這樣才能保證通訊速率的高速、順暢。其具體做法是,先將PLC中的程序上傳到Microwin中,然后在Microwin中的通訊端口里設(shè)置PPI口的波特率為187.5K,再將系統(tǒng)數(shù)據(jù)塊下傳download到PLC中 就可使改接口提升奧187.5K。

【注】:大連德嘉國(guó)際生產(chǎn)的ETH-PPI在進(jìn)行數(shù)據(jù)采集工作的同時(shí),還可以通過(guò)TCP方式用Microwin對(duì)其在線監(jiān)視、編程及下載,相當(dāng)于USB PPI/PPI-RS232編程電纜的編程功能。

目前的PPI-RS232這種電纜已經(jīng)停產(chǎn)了,用Prodave基本上找不到可以連接的硬件了,不妨使用大連德嘉電子的這款產(chǎn)品,它會(huì)給您帶來(lái)速度上的驚喜。

prodave6.0 通過(guò)以太網(wǎng)(TCP)通訊時(shí)的load函數(shù)設(shè)置如下:

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