ETH-PPI
使用手册
快速索引： 硬件设置 Microwin设置 Wincc设置 组态王设置 力控设置 VB通讯实例
七、VB通讯实例：
1、安装prodave6.0，并安装prodave_key。
2、打开step7，在“选项”中选择“设置PC/PG接口”，在设置中选择TCP/IP（auto），点击“确定”。
注：在进行通讯之前，请将西门子S7-200的PPI接口通讯波特率设置成187.5k，这样才能保证通讯速率的高速、顺畅。其具体做法是，
先将PLC中的程序上传到Microwin中， 然后在 Microwin 中的通讯端口里设置PPI口的波特率为187.5K， 再将系统数据块下传
download到PLC中 就可使改接口提升至187.5K。
这里是一个我们做的VB通讯的例子，可以给您作为参考：下载地址
下面是通讯的语句，您可以作为参考进行修改！
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