IconicsScadaNotes

Option Explicit Dim g As SWXRuntimeLib.Global Dim objFSO As Scripting.FileSystemObject Dim objLogFile As Scripting.TextStream Dim client As GENCLIENTWRAPPERLib.client '----------------------------------------------------------------------------------- Public Sub ReadScopeCsv(td As TriggerData)     On Error GoTo ErrHandler     ' TODO: Add your code here     ' final code     ' PLC Register to store status of the operation         Dim tag As String     Dim value As Variant, qual As Variant     Dim ts As Variant, tsms As Variant     Set client = CreateObject("GenClientWrapper.Client")     'tag3 = " ICONICS.Simulator.1\SimulatePLC.OUTPUTS.FLOAT1"     Dim dpWrCmpl As GENCLIENTWRAPPERLib.datapoint     tag = "Mitsubishi.MXOPC.6\fx5u.BEMF.D3260"     Set dpWrCmpl = client.RequestDataPoint(tag, 1000, 0)     Dim testcompletecode As Dou...

Option Explicit Dim g As SWXRuntimeLib.Global Dim objFSO As Scripting.FileSystemObject Dim objLogFile As Scripting.TextStream Dim client As GENCLIENTWRAPPERLib.client '----------------------------------------------------- Public Sub LogResultsScript(td As TriggerData)     On Error GoTo ErrHandler     ' TODO: Add your code here     Const ForWriting = 2     Set objFSO = CreateObject("Scripting.FileSystemObject")             Dim LogFile As Scripting.TextStream     Set LogFile = objFSO.CreateTextFile("E:\csv\Log.csv", ForWriting, True)         Dim TempWriteToFile As String     Dim WindingNo As String, WindingNoTrim As String     Dim ModelNo As String, FGCode As String     Dim RatedSpd As Integer, EncoderPPR As Integer, InvSwFreq As Integer     Dim RatedI As Double, RatedT As Double, RatedF As Double, StallI As Double    ...