read DB by prosim lib in macro

[MAHER]

Hello

iam trying to read DB by using prosim lib inside excell macro.
I added it in macro
i can get cpu status but
i couldn't use readDBValue method " i got error ( expected function or variable )

Please advise what should i do.

Thanks in advance,
Maher

 

[MAHER]

Please, i am in bad need of your replying

Thanks in advance
Maher

 

[Thomas_v2]

A simplyfied example using a class module (called "PlcsimClass" in this example) for S7Prosim.

' 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

And using this class with

Public Sub Test()
    Dim val As Variant
    Set p = New PlcsimClass
    p.Connect
    val = p.ReadWordFromDatablock(100, 4)
    Debug.Print "val = " & val
    p.Disconnect
End Sub

The third parameter of ReadDataBlockValue() is the value from the enum "PointDataTypeConstants". 3 stands for S7_Word, for other values see documentation of S7ProSim.

 

[MAHER]

thank you for your support Thomas

but i tried to run this code but the macro is hanging ( braeking down )

i dont why, could you give me a detailed steps for using it may be i am doing something wrong

thanks for your cooperation.

Regards,
Maher

 

[Thomas_v2]

I've attached a sample Excel file with this code.
Maybe you have to renew the vba project reference to s7wspsmx.dll if you are using a 64 bit OS.

 

[MAHER]

Thank you very much thomas

Best Regards,
Maher