s7_200_ppi.bas

来自「开发工控程序时使用自由口协议比较麻烦」· BAS 代码 · 共 18 行

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)