s7_200_ppi.bas

本程序实现与s7-200的PPI通讯

Attribute VB_Name = "S7_200_PPI"
Declare Function OpenCom Lib "S7_200_PPI.dll" (ByVal ComNo As Long) As Long
Declare Function CloseCom Lib "S7_200_PPI.dll" () As Long
Declare Function SetBaudRate Lib "S7_200_PPI.dll" (ByVal BaudRate As Long) As Long
Declare Function bitsetV Lib "S7_200_PPI.dll" (ByVal PLCaddr As Long, ByVal Vaddr As Long, ByVal bitNo As Long) As Long
Declare Function bitResetV Lib "S7_200_PPI.dll" (ByVal PLCaddr As Long, ByVal Vaddr As Long, ByVal bitNo As Long) As Long
Declare Function bit Lib "S7_200_PPI.dll" (ByVal AByte As Byte, ByVal bitNo As Long) As Boolean
Declare Function readVB Lib "S7_200_PPI.dll" (ByVal PLCaddr As Long, ByVal Vaddr As Long, ByVal length As Long, buff As Byte) As Long
Declare Function readVW Lib "S7_200_PPI.dll" (ByVal PLCaddr As Long, ByVal Vaddr As Long, ByVal length As Long, buff As Integer) As Long
Declare Function writeVB Lib "S7_200_PPI.dll" (ByVal PLCaddr As Long, ByVal Vaddr As Long, ByVal value As Byte) As Long
Declare Function writeVW Lib "S7_200_PPI.dll" (ByVal PLCaddr As Long, ByVal Vaddr As Long, ByVal value As Integer) As Long
Declare Function PLCRUN Lib "S7_200_PPI.dll" (ByVal PLCaddr As Long) As Long
Declare Function PLCSTOP Lib "S7_200_PPI.dll" (ByVal PLCaddr As Long) As Long
Declare Sub setReadDelay Lib "S7_200_PPI.dll" (ByVal ADelayTime As Long)
Declare Sub setOKDelay Lib "S7_200_PPI.dll" (ByVal ADelayTime As Long)