' Add reference to s7wspsmx.dll
Option Explicit
Private WithEvents S7ProSim As S7PROSIMLib.S7ProSim
Private bConnectionError As Boolean
Private lLastError As Long
Public Sub Connect()
Set S7ProSim = New S7PROSIMLib.S7ProSim
bConnectionError = False
S7ProSim.Connect
S7ProSim.SetScanMode (1) '1=ContinuousScan
If bConnectionError Then
MsgBox "Connection to Plcsim failed!"
Debug.Print "Error: Connection to Plcsim failed!"
End If
End Sub
Public Sub Disconnect()
S7ProSim.Disconnect
Set S7ProSim = Nothing
End Sub
Public Function ReadWordFromDatablock(dbNumber, byteIndex)
Dim retval As Variant
Call S7ProSim.ReadDataBlockValue(dbNumber, byteIndex, 0, 3, retval)
ReadWordFromDatablock = retval
End Function
Private Sub S7ProSim_PauseStateChanged(ByVal NewState As String)
DoEvents
End Sub
Private Sub S7ProSim_ScanFinished(ByVal ScanInfo As Variant)
DoEvents
End Sub
Private Sub S7ProSim_PLCSimStateChanged(ByVal NewState As String)
DoEvents
End Sub
Private Sub S7ProSim_ConnectionError(ByVal ControlEngine As String, ByVal error As Long)
DoEvents
bConnectionError = True
lLastError = error
End Sub
Private Sub S7ProSim_ScanModeChanged(ByVal NewState As String)
DoEvents
End Sub