Updated LogResults Script 28-Mar-2018

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
Dim RY_L As Double, YB_L As Double, BR_L As Double
Dim L_Pass As Boolean, L_Fail As Boolean, L_Enable As Boolean
Dim L_Result As String
Dim NL_RY_R As Double, NL_YB_R As Double, NL_BR_R As Double, NLCOLDRTEMP As Double
Dim NL_R_Pass As Boolean, NL_R_Fail As Boolean, NL_R_Enable As Boolean
Dim NL_R_Result As String
Dim NL_L_EQCKT As Double, NL_R_EQCKT As Double
Dim NL_EQCKT_Pass As Boolean, NL_EQCKT_Fail As Boolean, NL_EQCKT_Enable As Boolean
Dim NL_EQCKT_Result As String
Dim NL_Spd As Double, NL_Cur As Double, NL_Vol As Double, NL_PF As Double, NL_IP As Double, NL_Fv As Double, NL_Fi As Double
Dim NL_Run_Pass As Boolean, NL_Run_Fail As Boolean, NL_Run_Enable As Boolean
Dim NL_Run_Result As String
'Dim BEMF_CH1_1 As Double, BEMF_CH2_1 As Double, BEMF_CH3_1 As Double
'Dim BEMF_1_Pass As Boolean, BEMF_1_Fail As Boolean, BEMF_1_Enable As Boolean
'Dim BEMF_1_Result As String
'Dim BEMF_CH1_2 As Double, BEMF_CH2_2 As Double, BEMF_CH3_2 As Double
'Dim BEMF_2_Pass As Boolean, BEMF_2_Fail As Boolean, BEMF_2_Enable As Boolean
'Dim BEMF_2_Result As String
'Dim BEMF_CH1_3 As Double, BEMF_CH2_3 As Double, BEMF_CH3_3 As Double
'Dim BEMF_3_Pass As Boolean, BEMF_3_Fail As Boolean, BEMF_3_Enable As Boolean
'Dim BEMF_3_Result As String, BEMF_CH1_4 As Double, BEMF_CH2_4 As Double, BEMF_CH3_4 As Double
'Dim BEMF_4_Pass As Boolean, BEMF_4_Fail As Boolean, BEMF_4_Enable As Boolean
'Dim BEMF_4_Result As String
'Dim BEMF_CH1_5 As Double, BEMF_CH2_5 As Double, BEMF_CH3_5 As Double
'Dim BEMF_5_Pass As Boolean, BEMF_5_Fail As Boolean, BEMF_5_Enable As Boolean
'Dim BEMF_5_Result As String
'Dim BEMF_CH1_6 As Double, BEMF_CH2_6 As Double, BEMF_CH3_6 As Double
'Dim BEMF_6_Pass As Boolean, BEMF_6_Fail As Boolean, BEMF_6_Enable As Boolean
'Dim BEMF_6_Result As String
Dim BEMF_CH1_Avg As Double, BEMF_CH2_Avg As Double, BEMF_CH3_Avg As Double
'Dim BEMF_Avg_Pass As Boolean, BEMF_Avg_Fail As Boolean, BEMF_Avg_Enable As Boolean
'Dim BEMF_Avg_Result As String
Dim BEMF_RPM As Double
Dim BEMF_Pass As Boolean, BEMF_Fail As Boolean, BEMF_Enable As Boolean
Dim BEMF_Result As String

Dim LDT_1_Tset As Double, LDT_1_Tact As Double, LDT_1_I As Double, LDT_1_V As Double, LDT_1_PF As Double, LDT_1_IP As Double
Dim LDT_1_OP As Double, LDT_1_EFF As Double, LDT_1_FI As Double, LDT_1_FV As Double, LDT_1_SPD As Double
Dim LDT_2_Tset As Double, LDT_2_Tact As Double, LDT_2_I As Double, LDT_2_V As Double, LDT_2_PF As Double, LDT_2_IP As Double
Dim LDT_2_OP As Double, LDT_2_EFF As Double, LDT_2_FI As Double, LDT_2_FV As Double, LDT_2_SPD As Double
Dim LDT_3_Tset As Double, LDT_3_Tact As Double, LDT_3_I As Double, LDT_3_V As Double, LDT_3_PF As Double, LDT_3_IP As Double
Dim LDT_3_OP As Double, LDT_3_EFF As Double, LDT_3_FI As Double, LDT_3_FV As Double, LDT_3_SPD As Double
Dim LDT_4_Tset As Double, LDT_4_Tact As Double, LDT_4_I As Double, LDT_4_V As Double, LDT_4_PF As Double, LDT_4_IP As Double
Dim LDT_4_OP As Double, LDT_4_EFF As Double, LDT_4_FI As Double, LDT_4_FV As Double, LDT_4_SPD As Double
Dim LDT_5_Tset As Double, LDT_5_Tact As Double, LDT_5_I As Double, LDT_5_V As Double, LDT_5_PF As Double, LDT_5_IP As Double
Dim LDT_5_OP As Double, LDT_5_EFF As Double, LDT_5_FI As Double, LDT_5_FV As Double, LDT_5_SPD As Double
Dim LDT_6_Tset As Double, LDT_6_Tact As Double, LDT_6_I As Double, LDT_6_V As Double, LDT_6_PF As Double, LDT_6_IP As Double
Dim LDT_6_OP As Double, LDT_6_EFF As Double, LDT_6_FI As Double, LDT_6_FV As Double, LDT_6_SPD As Double
Dim LDT_7_Tset As Double, LDT_7_Tact As Double, LDT_7_I As Double, LDT_7_V As Double, LDT_7_PF As Double, LDT_7_IP As Double
Dim LDT_7_OP As Double, LDT_7_EFF As Double, LDT_7_FI As Double, LDT_7_FV As Double, LDT_7_SPD As Double
Dim LDT_8_Tset As Double, LDT_8_Tact As Double, LDT_8_I As Double, LDT_8_V As Double, LDT_8_PF As Double, LDT_8_IP As Double
Dim LDT_8_OP As Double, LDT_8_EFF As Double, LDT_8_FI As Double, LDT_8_FV As Double, LDT_8_SPD As Double

Dim LDT_1_RESULT As Integer, LDT_2_RESULT As Integer, LDT_3_RESULT As Integer, LDT_4_RESULT As Integer, LDT_5_RESULT As Integer
Dim LDT_6_RESULT As Integer, LDT_7_RESULT As Integer, LDT_8_RESULT As Integer
Dim LDT_1_RESTXT As String, LDT_2_RESTXT As String, LDT_3_RESTXT As String, LDT_4_RESTXT As String, LDT_5_RESTXT As String
Dim LDT_6_RESTXT As String, LDT_7_RESTXT As String, LDT_8_RESTXT As String
Dim LDT_1_ENABLE As String, LDT_2_ENABLE As String, LDT_3_ENABLE As String, LDT_4_ENABLE As String, LDT_5_ENABLE As String
Dim LDT_6_ENABLE As String, LDT_7_ENABLE As String, LDT_8_ENABLE As String

Dim HR_1_Tact As Double, HR_1_I As Double, HR_1_V As Double, HR_1_PF As Double, HR_1_IP As Double, HR_1_MTEMP As Double
Dim HR_1_ATEMP As Double, HR_1_TEMPR As Double
Dim HR_2_Tact As Double, HR_2_I As Double, HR_2_V As Double, HR_2_PF As Double, HR_2_IP As Double, HR_2_MTEMP As Double
Dim HR_2_ATEMP As Double, HR_2_TEMPR As Double
Dim HR_3_Tact As Double, HR_3_I As Double, HR_3_V As Double, HR_3_PF As Double, HR_3_IP As Double, HR_3_MTEMP As Double
Dim HR_3_ATEMP As Double, HR_3_TEMPR As Double
Dim HR_4_Tact As Double, HR_4_I As Double, HR_4_V As Double, HR_4_PF As Double, HR_4_IP As Double, HR_4_MTEMP As Double
Dim HR_4_ATEMP As Double, HR_4_TEMPR As Double
Dim HR_5_Tact As Double, HR_5_I As Double, HR_5_V As Double, HR_5_PF As Double, HR_5_IP As Double, HR_5_MTEMP As Double
Dim HR_5_ATEMP As Double, HR_5_TEMPR As Double
Dim HR_6_Tact As Double, HR_6_I As Double, HR_6_V As Double, HR_6_PF As Double, HR_6_IP As Double, HR_6_MTEMP As Double
Dim HR_6_ATEMP As Double, HR_6_TEMPR As Double
Dim HR_7_Tact As Double, HR_7_I As Double, HR_7_V As Double, HR_7_PF As Double, HR_7_IP As Double, HR_7_MTEMP As Double
Dim HR_7_ATEMP As Double, HR_7_TEMPR As Double
Dim HR_8_Tact As Double, HR_8_I As Double, HR_8_V As Double, HR_8_PF As Double, HR_8_IP As Double, HR_8_MTEMP As Double
Dim HR_8_ATEMP As Double, HR_8_TEMPR As Double
Dim HR_9_Tact As Double, HR_9_I As Double, HR_9_V As Double, HR_9_PF As Double, HR_9_IP As Double, HR_9_MTEMP As Double
Dim HR_9_ATEMP As Double, HR_9_TEMPR As Double
Dim HR_10_Tact As Double, HR_10_I As Double, HR_10_V As Double, HR_10_PF As Double, HR_10_IP As Double, HR_10_MTEMP As Double
Dim HR_10_ATEMP As Double, HR_10_TEMPR As Double
Dim HR_11_Tact As Double, HR_11_I As Double, HR_11_V As Double, HR_11_PF As Double, HR_11_IP As Double, HR_11_MTEMP As Double
Dim HR_11_ATEMP As Double, HR_11_TEMPR As Double
Dim HR_12_Tact As Double, HR_12_I As Double, HR_12_V As Double, HR_12_PF As Double, HR_12_IP As Double, HR_12_MTEMP As Double
Dim HR_12_ATEMP As Double, HR_12_TEMPR As Double
Dim HR_13_Tact As Double, HR_13_I As Double, HR_13_V As Double, HR_13_PF As Double, HR_13_IP As Double, HR_13_MTEMP As Double
Dim HR_13_ATEMP As Double, HR_13_TEMPR As Double
Dim HR_14_Tact As Double, HR_14_I As Double, HR_14_V As Double, HR_14_PF As Double, HR_14_IP As Double, HR_14_MTEMP As Double
Dim HR_14_ATEMP As Double, HR_14_TEMPR As Double
Dim HR_15_Tact As Double, HR_15_I As Double, HR_15_V As Double, HR_15_PF As Double, HR_15_IP As Double, HR_15_MTEMP As Double
Dim HR_15_ATEMP As Double, HR_15_TEMPR As Double
Dim HR_16_Tact As Double, HR_16_I As Double, HR_16_V As Double, HR_16_PF As Double, HR_16_IP As Double, HR_16_MTEMP As Double
Dim HR_16_ATEMP As Double, HR_16_TEMPR As Double
Dim HR_17_Tact As Double, HR_17_I As Double, HR_17_V As Double, HR_17_PF As Double, HR_17_IP As Double, HR_17_MTEMP As Double
Dim HR_17_ATEMP As Double, HR_17_TEMPR As Double

Dim HR_RESULT As Integer
Dim HR_1_RESULT As Integer, HR_2_RESULT As Integer, HR_3_RESULT As Integer, HR_4_RESULT As Integer, HR_5_RESULT As Integer
Dim HR_6_RESULT As Integer, HR_7_RESULT As Integer, HR_8_RESULT As Integer, HR_9_RESULT As Integer, HR_10_RESULT As Integer
Dim HR_11_RESULT As Integer, HR_12_RESULT As Integer, HR_13_RESULT As Integer, HR_14_RESULT As Integer, HR_15_RESULT As Integer
Dim HR_16_RESULT As Integer, HR_17_RESULT As Integer
Dim HR_ENABLE As Boolean
Dim HR_1_ENABLE As Boolean, HR_2_ENABLE As Boolean, HR_3_ENABLE As Boolean, HR_4_ENABLE As Boolean, HR_5_ENABLE As Boolean
Dim HR_6_ENABLE As Boolean, HR_7_ENABLE As Boolean, HR_8_ENABLE As Boolean, HR_9_ENABLE As Boolean, HR_10_ENABLE As Boolean
Dim HR_11_ENABLE As Boolean, HR_12_ENABLE As Boolean, HR_13_ENABLE As Boolean, HR_14_ENABLE As Boolean, HR_15_ENABLE As Boolean
Dim HR_16_ENABLE As Boolean
Dim HR_RESTXT As String
Dim HR_1_RESTXT As String, HR_2_RESTXT As String, HR_3_RESTXT As String, HR_4_RESTXT As String, HR_5_RESTXT As String
Dim HR_6_RESTXT As String, HR_7_RESTXT As String, HR_8_RESTXT As String, HR_9_RESTXT As String, HR_10_RESTXT As String
Dim HR_11_RESTXT As String, HR_12_RESTXT As String, HR_13_RESTXT As String, HR_14_RESTXT As String, HR_15_RESTXT As String
Dim HR_16_RESTXT As String, HR_17_RESTXT As String

' 1st Read
'Motor Data Settings
WindingNo = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D4502")
ModelNo = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2000")
FGCode = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2016")
RatedSpd = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2028")
EncoderPPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2056")
InvSwFreq = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2058")
RatedI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2040")
RatedT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2036")
RatedF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2046")
StallI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2060")

'NL Test Items
RY_L = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3300") '1
YB_L = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3302") '2
BR_L = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3304") '3
L_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3361_A") '4
L_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3361_B") '5
L_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D2062_0") '6
NL_RY_R = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3306") '7
NL_YB_R = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3308") '8
NL_BR_R = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3310") '9
NLCOLDRTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3312") '10
NL_R_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3298_E") '11
NL_R_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3298_F") '12
NL_R_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D2062_1") '13
NL_L_EQCKT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3314") '14
NL_R_EQCKT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3316") '15
NL_EQCKT_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3363_C") '16
NL_EQCKT_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3363_D") '17
NL_EQCKT_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D2062_3") '18
NL_Spd = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3318") '19
NL_Cur = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3320") '20
NL_Vol = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3322") '21
NL_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3326") '22
NL_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3324") '23
NL_Fv = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3330") '24
NL_Fi = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3328") '25
' Script fails on attempting to read more items !!!!!!!!!!!!!! <------
NL_Run_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3357_5") '26
NL_Run_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3357_6") '27
NL_Run_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D2062_4") '28
'BEMF Test Items
'BEMF_CH1_1 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3030") '29
'BEMF_CH2_1 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3032") '30
'BEMF_CH3_1 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3034") '31
'BEMF_1_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3248_A") '50
'BEMF_1_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3248_B") '51
'BEMF_CH1_2 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3068") '32
'BEMF_CH2_2 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3070") '33
'BEMF_CH3_2 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3072") '34
'BEMF_2_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3249_A") '50
'BEMF_2_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3249_B") '51
'BEMF_CH1_3 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3106") '35
'BEMF_CH2_3 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3108") '36
'BEMF_CH3_3 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3110") '37
'BEMF_3_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3250_A") '50
'BEMF_3_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3250_B") '51
'BEMF_CH1_4 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3144") '38
'BEMF_CH2_4 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3146") '39
'BEMF_CH3_4 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3148") '40
'BEMF_4_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3251_A") '50
'BEMF_4_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3251_B") '51
'BEMF_CH1_5 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3182") '41
'BEMF_CH2_5 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3184") '42
'BEMF_CH3_5 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3186") '43
'BEMF_5_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3252_A") '50
'BEMF_5_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3252_B") '51
'BEMF_CH1_6 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3220") '44
'BEMF_CH2_6 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3222") '45
'BEMF_CH3_6 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3224") '46
'BEMF_6_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3253_A") '50
'BEMF_6_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3253_B") '51
BEMF_CH1_Avg = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3228") '47
BEMF_CH2_Avg = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3230") '48
BEMF_CH3_Avg = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3232") '49
'BEMF_Avg_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3254_A") '50
'BEMF_Avg_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3254_B") '51
BEMF_RPM = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3234") '50
BEMF_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3243_4") '50
BEMF_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3243_3") '51
BEMF_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D4500_2") '52
'Load Test Items
LDT_1_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_0")
LDT_1_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3400")
LDT_1_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3402")
LDT_1_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3404")
LDT_1_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2148")
LDT_1_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3406")
LDT_1_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3408")
LDT_1_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3410")
LDT_1_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3412")
LDT_1_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3414")
LDT_1_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3416")
LDT_1_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3418")
LDT_1_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3600")
LDT_2_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_1")
LDT_2_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2162")
LDT_2_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3420")
LDT_2_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3422")
LDT_2_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3424")
LDT_2_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3426")
LDT_2_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3428")
LDT_2_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3430")
LDT_2_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3432")
LDT_2_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3434")
LDT_2_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3436")
LDT_2_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3438")
LDT_2_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3601")
LDT_3_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_2")
LDT_3_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2176")
LDT_3_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3440")
LDT_3_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3442")
LDT_3_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3444")
LDT_3_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3446")
LDT_3_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3448")
LDT_3_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3450")
LDT_3_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3452")
LDT_3_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3454")
LDT_3_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3456")
LDT_3_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3458")
LDT_3_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3602")
LDT_4_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_3")
LDT_4_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2190")
LDT_4_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3460")
LDT_4_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3462")
LDT_4_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3464")
LDT_4_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3466")
LDT_4_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3468")
LDT_4_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3470")
LDT_4_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3472")
LDT_4_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3474")
LDT_4_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3476")
LDT_4_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3478")
LDT_4_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3603")
LDT_5_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_4")
LDT_5_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2204")
LDT_5_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3480")
LDT_5_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3482")
LDT_5_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3484")
LDT_5_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3486")
LDT_5_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3488")
LDT_5_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3490")
LDT_5_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3492")
LDT_5_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3494")
LDT_5_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3496")
LDT_5_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3498")
LDT_5_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3604")
LDT_6_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_5")
LDT_6_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2218")
LDT_6_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3500")
LDT_6_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3502")
LDT_6_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3504")
LDT_6_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3506")
LDT_6_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3508")
LDT_6_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3510")
LDT_6_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3512")
LDT_6_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3514")
LDT_6_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3516")
LDT_6_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3518")
LDT_6_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3605")
LDT_7_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_6")
LDT_7_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2232")
LDT_7_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3520")
LDT_7_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3522")
LDT_7_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3524")
LDT_7_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3526")
LDT_7_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3528")
LDT_7_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3530")
LDT_7_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3532")
LDT_7_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3534")
LDT_7_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3536")
LDT_7_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3538")
LDT_7_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3606")
LDT_8_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_7")
LDT_8_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2246")
LDT_8_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3540")
LDT_8_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3542")
LDT_8_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3544")
LDT_8_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3546")
LDT_8_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3548")
LDT_8_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3550")
LDT_8_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3552")
LDT_8_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3554")
LDT_8_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3556")
LDT_8_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3558")
LDT_8_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3607")
'HR Test
HR_1_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3700")
HR_1_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3702")
HR_1_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3704")
HR_1_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3706")
HR_1_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3708")
HR_1_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3710")
HR_1_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3712")
HR_1_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3714")
HR_2_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3716")
HR_2_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3718")
HR_2_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3720")
HR_2_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3722")
HR_2_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3724")
HR_2_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3726")
HR_2_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3728")
HR_2_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3730")
HR_3_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3732")
HR_3_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3734")
HR_3_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3736")
HR_3_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3738")
HR_3_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3740")
HR_3_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3742")
HR_3_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3744")
HR_3_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3746")
HR_4_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3748")
HR_4_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3750")
HR_4_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3752")
HR_4_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3754")
HR_4_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3756")
HR_4_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3758")
HR_4_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3760")
HR_4_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3762")
HR_5_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3764")
HR_5_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3766")
HR_5_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3768")
HR_5_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3770")
HR_5_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3772")
HR_5_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3774")
HR_5_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3776")
HR_5_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3778")
HR_6_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3780")
HR_6_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3782")
HR_6_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3784")
HR_6_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3786")
HR_6_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3788")
HR_6_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3790")
HR_6_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3792")
HR_6_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3794")
HR_7_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3796")
HR_7_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3798")
HR_7_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3800")
HR_7_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3802")
HR_7_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3804")
HR_7_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3806")
HR_7_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3808")
HR_7_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3810")
HR_8_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3812")
HR_8_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3814")
HR_8_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3816")
HR_8_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3818")
HR_8_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3820")
HR_8_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3822")
HR_8_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3824")
HR_8_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3826")
HR_9_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3828")
HR_9_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3830")
HR_9_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3832")
HR_9_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3834")
HR_9_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3836")
HR_9_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3838")
HR_9_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3840")
HR_9_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3842")
HR_10_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3844")
HR_10_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3846")
HR_10_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3848")
HR_10_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3850")
HR_10_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3852")
HR_10_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3854")
HR_10_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3856")
HR_10_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3858")
HR_11_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3860")
HR_11_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3862")
HR_11_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3864")
HR_11_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3866")
HR_11_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3868")
HR_11_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3870")
HR_11_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3872")
HR_11_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3874")
HR_12_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3876")
HR_12_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3878")
HR_12_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3880")
HR_12_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3882")
HR_12_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3884")
HR_12_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3886")
HR_12_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3888")
HR_12_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3890")
HR_13_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3892")
HR_13_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3894")
HR_13_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3896")
HR_13_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3898")
HR_13_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3900")
HR_13_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3902")
HR_13_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3904")
HR_13_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3906")
HR_14_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3908")
HR_14_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3910")
HR_14_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3912")
HR_14_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3914")
HR_14_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3916")
HR_14_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3918")
HR_14_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3920")
HR_14_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3922")
HR_15_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3924")
HR_15_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3926")
HR_15_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3928")
HR_15_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3930")
HR_15_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3932")
HR_15_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3934")
HR_15_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3936")
HR_15_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3938")
HR_16_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3940")
HR_16_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3942")
HR_16_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3944")
HR_16_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3946")
HR_16_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3948")
HR_16_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3950")
HR_16_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3952")
HR_16_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3954")
HR_17_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3956")
HR_17_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3958")
HR_17_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3960")
HR_17_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3962")
HR_17_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3964")
HR_17_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3966")
HR_17_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3968")
HR_17_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3970")
HR_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4410")
HR_1_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4411")
HR_2_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4412")
HR_3_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4413")
HR_4_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4414")
HR_5_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4415")
HR_6_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4416")
HR_7_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4417")
HR_8_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4418")
HR_9_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4419")
HR_10_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4420")
HR_11_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4421")
HR_12_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4422")
HR_13_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4423")
HR_14_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4424")
HR_15_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4425")
HR_16_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4426")
HR_17_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4427")
HR_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4500_4")
HR_1_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_1")
HR_2_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_2")
HR_3_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_3")
HR_4_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_4")
HR_5_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_5")
HR_6_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_6")
HR_7_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_7")
HR_8_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_8")
HR_9_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_9")
HR_10_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_A")
HR_11_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_B")
HR_12_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_C")
HR_13_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_D")
HR_14_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_E")
HR_15_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_F")
HR_16_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4401_0")

LogFile.Write "enter delay"
Dim Tick As Long
Tick = 0
Do
Tick = Tick + 1
Loop Until Tick = 100000
LogFile.Write "exit delay"

'Second Read - to solve the issue that values are not updated the 1st time
'Motor Data Settings
WindingNo = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D4502")
ModelNo = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2000")
FGCode = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2016")
RatedSpd = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2028")
EncoderPPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2056")
InvSwFreq = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2058")
RatedI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2040")
RatedT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2036")
RatedF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2046")
StallI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.MotSet.D2060")

'NL Test Items
RY_L = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3300") '1
YB_L = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3302") '2
BR_L = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3304") '3
L_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3361_A") '4
L_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3361_B") '5
L_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D2062_0") '6
NL_RY_R = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3306") '7
NL_YB_R = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3308") '8
NL_BR_R = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3310") '9
NLCOLDRTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3312") '10
NL_R_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3298_E") '11
NL_R_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3298_F") '12
NL_R_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D2062_1") '13
NL_L_EQCKT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3314") '14
NL_R_EQCKT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3316") '15
NL_EQCKT_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3363_C") '16
NL_EQCKT_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3363_D") '17
NL_EQCKT_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D2062_3") '18
NL_Spd = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3318") '19
NL_Cur = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3320") '20
NL_Vol = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3322") '21
NL_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3326") '22
NL_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3324") '23
NL_Fv = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3330") '24
NL_Fi = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3328") '25
' Script fails on attempting to read more items !!!!!!!!!!!!!!
NL_Run_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3357_5") '26
NL_Run_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3357_6") '27
NL_Run_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D2062_4") '28
NL_Run_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3357_5") '26
NL_Run_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D3357_6") '27
NL_Run_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.NL.D2062_4") '28
'BEMF Test Items
'BEMF_CH1_1 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3030") '29
'BEMF_CH2_1 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3032") '30
'BEMF_CH3_1 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3034") '31
'BEMF_1_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3248_A") '50
'BEMF_1_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3248_B") '51
'BEMF_CH1_2 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3068") '32
'BEMF_CH2_2 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3070") '33
'BEMF_CH3_2 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3072") '34
'BEMF_2_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3249_A") '50
'BEMF_2_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3249_B") '51
'BEMF_CH1_3 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3106") '35
'BEMF_CH2_3 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3108") '36
'BEMF_CH3_3 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3110") '37
'BEMF_3_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3250_A") '50
'BEMF_3_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3250_B") '51
'BEMF_CH1_4 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3144") '38
'BEMF_CH2_4 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3146") '39
'BEMF_CH3_4 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3148") '40
'BEMF_4_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3251_A") '50
'BEMF_4_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3251_B") '51
'BEMF_CH1_5 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3182") '41
'BEMF_CH2_5 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3184") '42
'BEMF_CH3_5 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3186") '43
'BEMF_5_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3252_A") '50
'BEMF_5_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3252_B") '51
'BEMF_CH1_6 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3220") '44
'BEMF_CH2_6 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3222") '45
'BEMF_CH3_6 = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3224") '46
'BEMF_6_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3253_A") '50
'BEMF_6_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3253_B") '51
BEMF_CH1_Avg = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3228") '47
BEMF_CH2_Avg = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3230") '48
BEMF_CH3_Avg = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3232") '49
'BEMF_Avg_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3254_A") '50
'BEMF_Avg_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3254_B") '51
BEMF_RPM = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3234") '50
BEMF_Pass = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3243_4") '50
BEMF_Fail = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D3243_3") '51
BEMF_Enable = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.BEMF.D4500_2") '52
'Load Test Items
LDT_1_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_0")
LogFile.Write "p1"
LDT_1_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2148")
LDT_1_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3400")
LDT_1_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3402")
LDT_1_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3404")
LDT_1_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3406")
LDT_1_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3408")
LDT_1_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3410")
LDT_1_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3412")
LDT_1_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3414")
LDT_1_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3416")
LDT_1_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3418")
LDT_1_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3600")
LDT_2_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_1")
LogFile.Write "p2"
LDT_2_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2162")
LDT_2_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3420")
LDT_2_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3422")
LDT_2_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3424")
LDT_2_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3426")
LDT_2_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3428")
LDT_2_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3430")
LDT_2_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3432")
LDT_2_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3434")
LDT_2_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3436")
LDT_2_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3438")
LDT_2_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3601")
LDT_3_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_2")
LDT_3_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2176")
LDT_3_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3440")
LDT_3_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3442")
LDT_3_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3444")
LDT_3_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3446")
LDT_3_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3448")
LDT_3_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3450")
LDT_3_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3452")
LDT_3_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3454")
LDT_3_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3456")
LDT_3_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3458")
LDT_3_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3602")
LDT_4_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_3")
LDT_4_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2190")
LDT_4_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3460")
LDT_4_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3462")
LDT_4_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3464")
LDT_4_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3466")
LDT_4_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3468")
LDT_4_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3470")
LDT_4_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3472")
LDT_4_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3474")
LDT_4_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3476")
LDT_4_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3478")
LDT_4_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3603")
LDT_5_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_4")
LDT_5_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2204")
LDT_5_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3480")
LDT_5_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3482")
LDT_5_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3484")
LDT_5_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3486")
LDT_5_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3488")
LDT_5_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3490")
LDT_5_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3492")
LDT_5_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3494")
LDT_5_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3496")
LDT_5_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3498")
LDT_5_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3604")
LDT_6_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_5")
LDT_6_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2218")
LDT_6_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3500")
LDT_6_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3502")
LDT_6_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3504")
LDT_6_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3506")
LDT_6_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3508")
LDT_6_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3510")
LDT_6_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3512")
LDT_6_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3514")
LDT_6_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3516")
LDT_6_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3518")
LDT_6_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3605")
LDT_7_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_6")
LDT_7_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2232")
LDT_7_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3520")
LDT_7_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3522")
LDT_7_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3524")
LDT_7_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3526")
LDT_7_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3528")
LDT_7_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3530")
LDT_7_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3532")
LDT_7_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3534")
LDT_7_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3536")
LDT_7_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3538")
LDT_7_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3606")
LDT_8_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2288_7")
LDT_8_Tset = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D2246")
LDT_8_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3540")
LDT_8_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3542")
LDT_8_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3544")
LDT_8_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3546")
LDT_8_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3548")
LDT_8_OP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3550")
LDT_8_EFF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3552")
LDT_8_FI = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3554")
LDT_8_FV = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3556")
LDT_8_SPD = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3558")
LDT_8_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.LDT.D3607")
'HR Test
HR_1_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3700")
HR_1_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3702")
HR_1_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3704")
HR_1_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3706")
HR_1_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3708")
HR_1_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3710")
HR_1_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3712")
HR_1_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3714")
HR_2_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3716")
HR_2_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3718")
HR_2_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3720")
HR_2_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3722")
HR_2_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3724")
HR_2_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3726")
HR_2_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3728")
HR_2_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3730")
HR_3_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3732")
HR_3_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3734")
HR_3_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3736")
HR_3_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3738")
HR_3_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3740")
HR_3_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3742")
HR_3_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3744")
HR_3_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3746")
HR_4_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3748")
HR_4_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3750")
HR_4_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3752")
HR_4_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3754")
HR_4_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3756")
HR_4_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3758")
HR_4_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3760")
HR_4_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3762")
HR_5_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3764")
HR_5_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3766")
HR_5_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3768")
HR_5_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3770")
HR_5_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3772")
HR_5_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3774")
HR_5_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3776")
HR_5_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3778")
HR_6_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3780")
HR_6_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3782")
HR_6_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3784")
HR_6_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3786")
HR_6_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3788")
HR_6_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3790")
HR_6_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3792")
HR_6_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3794")
HR_7_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3796")
HR_7_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3798")
HR_7_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3800")
HR_7_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3802")
HR_7_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3804")
HR_7_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3806")
HR_7_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3808")
HR_7_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3810")
HR_8_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3812")
HR_8_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3814")
HR_8_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3816")
HR_8_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3818")
HR_8_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3820")
HR_8_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3822")
HR_8_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3824")
HR_8_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3826")
HR_9_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3828")
HR_9_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3830")
HR_9_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3832")
HR_9_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3834")
HR_9_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3836")
HR_9_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3838")
HR_9_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3840")
HR_9_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3842")
HR_10_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3844")
HR_10_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3846")
HR_10_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3848")
HR_10_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3850")
HR_10_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3852")
HR_10_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3854")
HR_10_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3856")
HR_10_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3858")
HR_11_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3860")
HR_11_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3862")
HR_11_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3864")
HR_11_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3866")
HR_11_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3868")
HR_11_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3870")
HR_11_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3872")
HR_11_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3874")
HR_12_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3876")
HR_12_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3878")
HR_12_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3880")
HR_12_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3882")
HR_12_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3884")
HR_12_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3886")
HR_12_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3888")
HR_12_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3890")
HR_13_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3892")
HR_13_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3894")
HR_13_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3896")
HR_13_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3898")
HR_13_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3900")
HR_13_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3902")
HR_13_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3904")
HR_13_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3906")
HR_14_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3908")
HR_14_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3910")
HR_14_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3912")
HR_14_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3914")
HR_14_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3916")
HR_14_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3918")
HR_14_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3920")
HR_14_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3922")
HR_15_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3924")
HR_15_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3926")
HR_15_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3928")
HR_15_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3930")
HR_15_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3932")
HR_15_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3934")
HR_15_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3936")
HR_15_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3938")
HR_16_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3940")
HR_16_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3942")
HR_16_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3944")
HR_16_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3946")
HR_16_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3948")
HR_16_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3950")
HR_16_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3952")
HR_16_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3954")
HR_17_Tact = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3956")
HR_17_I = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3958")
HR_17_V = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3960")
HR_17_PF = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3962")
HR_17_IP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3964")
HR_17_MTEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3966")
HR_17_ATEMP = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3968")
HR_17_TEMPR = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D3970")
HR_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4410")
HR_1_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4411")
HR_2_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4412")
HR_3_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4413")
HR_4_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4414")
HR_5_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4415")
HR_6_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4416")
HR_7_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4417")
HR_8_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4418")
HR_9_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4419")
HR_10_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4420")
HR_11_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4421")
HR_12_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4422")
HR_13_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4423")
HR_14_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4424")
HR_15_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4425")
HR_16_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4426")
HR_17_RESULT = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4427")
HR_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4500_4")
HR_1_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_1")
HR_2_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_2")
HR_3_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_3")
HR_4_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_4")
HR_5_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_5")
HR_6_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_6")
HR_7_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_7")
HR_8_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_8")
HR_9_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_9")
HR_10_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_A")
HR_11_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_B")
HR_12_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_C")
HR_13_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_D")
HR_14_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_E")
HR_15_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4400_F")
HR_16_ENABLE = g.OPC.Read("Mitsubishi.MXOPC.6\fx5u.HR.D4401_0")

' create results file
Dim outputFile As Scripting.TextStream
Set outputFile = objFSO.CreateTextFile("E:\csv\" + WindingNoTrim + "\NLTResults.csv", ForWriting, True)
' Motor / Winding Data
WindingNoTrim = Trim(WindingNo)
TempWriteToFile = "Winding Sr No" & "," & WindingNoTrim
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
TempWriteToFile = "Model No" & "," & ModelNo
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
outputFile.Write "Rated Spd(RPM),Rated Torque(Nm),Rated Freq(Hz),Rated I(A),Stall(A),Encoder PPR,Inv Sw Freq (Hz)"
LogFile.Write "Rated Spd(RPM),Rated Torque(Nm),Rated Freq(Hz),Rated I(A),Stall(A),Encoder PPR,Inv Sw Freq (Hz)"
outputFile.WriteLine
LogFile.WriteLine
TempWriteToFile = RatedSpd & "," & Round(RatedT, 2) & "," & Round(RatedF, 1) & "," & Round(RatedI, 1) & "," & Round(StallI, 1)
TempWriteToFile = TempWriteToFile & "," & EncoderPPR & "," & InvSwFreq
outputFile.WriteLine TempWriteToFile
LogFile.WriteLine TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine

'Inductance Readings
outputFile.WriteLine "Winding Inductance"
LogFile.WriteLine "Winding Inductance"
outputFile.WriteLine "RY,YB,BR, Result"
LogFile.WriteLine "RY,YB,BR, Result"
TempWriteToFile = Round(RY_L, 1) & "," & Round(YB_L, 1) & "," & Round(BR_L, 1) & ","
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
If L_Pass Then
L_Result = "Pass"
ElseIf L_Fail Then
L_Result = "Fail"
Else
L_Result = "Not Executed"
End If
outputFile.Write L_Result
LogFile.Write L_Result
outputFile.WriteLine
LogFile.WriteLine

'Resistance Readings
outputFile.WriteLine "Winding Resistance"
LogFile.WriteLine "Winding Resistance"
outputFile.WriteLine "RY,YB,BR,COLD TEMP,Result"
LogFile.WriteLine "RY,YB,BR, Result"
If NL_R_Pass Then
NL_R_Result = "Pass"
ElseIf NL_R_Fail Then
NL_R_Result = "Fail"
Else
NL_R_Result = "Not Executed"
End If
TempWriteToFile = Round(NL_RY_R, 3) & "," & Round(NL_YB_R, 3) & "," & Round(NL_BR_R, 3) & "," & Round(NLCOLDRTEMP, 1) & "," & NL_R_Result
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine

'Equivalent Ckt Readings
outputFile.WriteLine "EQ CKT TUN"
LogFile.WriteLine "EQ CKT TUN"
outputFile.WriteLine "L,R,Result"
LogFile.WriteLine "L,R,Result"
If NL_EQCKT_Pass Then
NL_EQCKT_Result = "Pass"
ElseIf NL_EQCKT_Fail Then
NL_EQCKT_Result = "Fail"
Else
NL_EQCKT_Result = "Not Executed"
End If
TempWriteToFile = Round(NL_L_EQCKT, 2) & "," & Round(NL_R_EQCKT, 3) & "," & NL_EQCKT_Result
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine

'NL Runtime Readings
outputFile.WriteLine "No Load Power Analyser Readings"
LogFile.WriteLine "NO LOAD POWER ANALYSER READINGS"
outputFile.WriteLine "Speed,Current,Voltage,Power Factor,Input Power,Freq V,Freq I,Result"
LogFile.WriteLine "Speed,Current,Voltage,Power Factor,Input Power,Freq V,Freq I,Result"
If NL_Run_Pass Then
NL_Run_Result = "Pass"
ElseIf NL_Run_Fail Then
NL_Run_Result = "Fail"
Else
NL_Run_Result = "Not Executed"
End If
TempWriteToFile = Round(NL_Spd, 2) & "," & Round(NL_Cur, 3) & "," & Round(NL_Vol, 2) & "," & Round(NL_PF, 3)
TempWriteToFile = TempWriteToFile & "," & Round(NL_IP, 2) & "," & Round(NL_Fv, 3) & "," & Round(NL_Fi, 2) & "," & NL_EQCKT_Result
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine

'BEMF Readings
outputFile.WriteLine "BEMF Readings"
LogFile.WriteLine "BEMF READINGS"
outputFile.WriteLine "Spd(RPM),CH1(V),CH2(V),CH3(V),Result"
LogFile.WriteLine "CH1(V),CH2(V),CH3(V),Result"
If BEMF_Pass Then
BEMF_Result = "Pass"
ElseIf BEMF_Fail Then
BEMF_Result = "Fail"
Else
BEMF_Result = "Not Executed"
End If
TempWriteToFile = Round(BEMF_RPM, 2) & "," & Round(BEMF_CH1_Avg, 2) & "," & Round(BEMF_CH2_Avg, 3) & "," & Round(BEMF_CH3_Avg, 2) & "," & BEMF_Result
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine

'Load Test Readings
outputFile.WriteLine "Load Test Readings"
LogFile.WriteLine "Load Test READINGS"
outputFile.WriteLine "Set T(%),Curr(A),Volt(V),PF,In Pwr(KW),T(Nm),Spd(RPM),Out Pwr(KW),Eff(%),Vf(Hz),If(Hz),Result"
LogFile.WriteLine "Set T(%),Curr(A),Volt(V),PF,In Pwr(KW),T(Nm),Spd(RPM),Out Pwr(KW),Eff(%),Vf(Hz),If(Hz),Result"
'If LDT_1_ENABLE Then
If LDT_1_RESULT = 0 Then
LDT_1_RESTXT = "Not Executed"
ElseIf LDT_1_RESULT = 2 Then
LDT_1_RESTXT = "Fail"
ElseIf LDT_1_RESULT = 3 Then
LDT_1_RESTXT = "Pass"
End If
TempWriteToFile = Round(LDT_1_Tset, 1) & "," & Round(LDT_1_I, 3) & "," & Round(LDT_1_V, 2) & "," & Round(LDT_1_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_1_IP, 4) & "," & Round(LDT_1_Tact, 2) & "," & Round(LDT_1_SPD, 2)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_1_OP, 3) & "," & Round(LDT_1_EFF, 2) & "," & Round(LDT_1_FV, 3)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_1_FI, 3) & "," & LDT_1_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If

'If LDT_2_ENABLE Then
If LDT_2_RESULT = 0 Then
LDT_2_RESTXT = "Not Executed"
ElseIf LDT_2_RESULT = 2 Then
LDT_2_RESTXT = "Fail"
ElseIf LDT_2_RESULT = 3 Then
LDT_2_RESTXT = "Pass"
End If
TempWriteToFile = Round(LDT_2_Tset, 1) & "," & Round(LDT_2_I, 3) & "," & Round(LDT_2_V, 2) & "," & Round(LDT_2_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_2_IP, 4) & "," & Round(LDT_2_Tact, 2) & "," & Round(LDT_2_SPD, 2)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_2_OP, 3) & "," & Round(LDT_2_EFF, 2) & "," & Round(LDT_2_FV, 3)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_2_FI, 3) & "," & LDT_2_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If

'If LDT_3_ENABLE Then
If LDT_3_RESULT = 0 Then
LDT_3_RESTXT = "Not Executed"
ElseIf LDT_3_RESULT = 2 Then
LDT_3_RESTXT = "Fail"
ElseIf LDT_3_RESULT = 3 Then
LDT_3_RESTXT = "Pass"
End If
TempWriteToFile = Round(LDT_3_Tset, 1) & "," & Round(LDT_3_I, 3) & "," & Round(LDT_3_V, 2) & "," & Round(LDT_3_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_3_IP, 4) & "," & Round(LDT_3_Tact, 2) & "," & Round(LDT_3_SPD, 2)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_3_OP, 3) & "," & Round(LDT_3_EFF, 2) & "," & Round(LDT_3_FV, 3)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_3_FI, 3) & "," & LDT_3_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If

'If LDT_4_ENABLE Then
If LDT_4_RESULT = 0 Then
LDT_4_RESTXT = "Not Executed"
ElseIf LDT_4_RESULT = 2 Then
LDT_4_RESTXT = "Fail"
ElseIf LDT_4_RESULT = 3 Then
LDT_4_RESTXT = "Pass"
End If
TempWriteToFile = Round(LDT_4_Tset, 1) & "," & Round(LDT_4_I, 3) & "," & Round(LDT_4_V, 2) & "," & Round(LDT_4_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_4_IP, 4) & "," & Round(LDT_4_Tact, 2) & "," & Round(LDT_4_SPD, 2)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_4_OP, 3) & "," & Round(LDT_4_EFF, 2) & "," & Round(LDT_4_FV, 3)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_4_FI, 3) & "," & LDT_4_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If

'If LDT_5_ENABLE Then
If LDT_5_RESULT = 0 Then
LDT_5_RESTXT = "Not Executed"
ElseIf LDT_5_RESULT = 2 Then
LDT_5_RESTXT = "Fail"
ElseIf LDT_5_RESULT = 3 Then
LDT_5_RESTXT = "Pass"
End If
TempWriteToFile = Round(LDT_5_Tset, 1) & "," & Round(LDT_5_I, 3) & "," & Round(LDT_5_V, 2) & "," & Round(LDT_5_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_5_IP, 4) & "," & Round(LDT_5_Tact, 2) & "," & Round(LDT_5_SPD, 2)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_5_OP, 3) & "," & Round(LDT_5_EFF, 2) & "," & Round(LDT_5_FV, 3)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_5_FI, 3) & "," & LDT_5_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If

'If LDT_6_ENABLE Then
If LDT_6_RESULT = 0 Then
LDT_6_RESTXT = "Not Executed"
ElseIf LDT_6_RESULT = 2 Then
LDT_6_RESTXT = "Fail"
ElseIf LDT_6_RESULT = 3 Then
LDT_6_RESTXT = "Pass"
End If
TempWriteToFile = Round(LDT_6_Tset, 1) & "," & Round(LDT_6_I, 3) & "," & Round(LDT_6_V, 2) & "," & Round(LDT_6_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_6_IP, 4) & "," & Round(LDT_6_Tact, 2) & "," & Round(LDT_6_SPD, 2)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_6_OP, 3) & "," & Round(LDT_6_EFF, 2) & "," & Round(LDT_6_FV, 3)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_6_FI, 3) & "," & LDT_6_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If

'If LDT_7_ENABLE Then
If LDT_7_RESULT = 0 Then
LDT_7_RESTXT = "Not Executed"
ElseIf LDT_7_RESULT = 2 Then
LDT_7_RESTXT = "Fail"
ElseIf LDT_7_RESULT = 3 Then
LDT_7_RESTXT = "Pass"
End If
TempWriteToFile = Round(LDT_7_Tset, 1) & "," & Round(LDT_7_I, 3) & "," & Round(LDT_7_V, 2) & "," & Round(LDT_7_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_7_IP, 4) & "," & Round(LDT_7_Tact, 2) & "," & Round(LDT_7_SPD, 2)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_7_OP, 3) & "," & Round(LDT_7_EFF, 2) & "," & Round(LDT_7_FV, 3)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_7_FI, 3) & "," & LDT_7_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If

'If LDT_8_ENABLE Then
If LDT_8_RESULT = 0 Then
LDT_8_RESTXT = "Not Executed"
ElseIf LDT_8_RESULT = 2 Then
LDT_8_RESTXT = "Fail"
ElseIf LDT_8_RESULT = 3 Then
LDT_8_RESTXT = "Pass"
End If
TempWriteToFile = Round(LDT_8_Tset, 1) & "," & Round(LDT_8_I, 3) & "," & Round(LDT_8_V, 2) & "," & Round(LDT_8_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_8_IP, 4) & "," & Round(LDT_8_Tact, 2) & "," & Round(LDT_8_SPD, 2)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_8_OP, 3) & "," & Round(LDT_8_EFF, 2) & "," & Round(LDT_8_FV, 3)
TempWriteToFile = TempWriteToFile & "," & Round(LDT_8_FI, 3) & "," & LDT_8_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If

'Heat Run Test Readings
outputFile.WriteLine "Heat Run Test Readings"
LogFile.WriteLine "HEAT RUN TEST READINGS"
outputFile.WriteLine "T(Nm),Curr(A),Volt(V),PF,In Pwr(KW),Mot Temp(Deg C),Amb Temp(Deg C),Temp Rise(Deg C), Result"
LogFile.WriteLine "T(Nm),Curr(A),Volt(V),PF,In Pwr(KW),Mot Temp(Deg C),Amb Temp(Deg C),Temp Rise(Deg C), Result"
'If HR_1_ENABLE Then
If HR_1_RESULT = 0 Then
HR_1_RESTXT = "Not Executed"
ElseIf HR_1_RESULT = 2 Then
HR_1_RESTXT = "Fail"
ElseIf HR_1_RESULT = 3 Then
HR_1_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_1_Tact, 2) & "," & Round(HR_1_I, 3) & "," & Round(HR_1_V, 2) & "," & Round(HR_1_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_1_IP, 3) & "," & Round(HR_1_MTEMP, 2) & "," & Round(HR_1_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_1_TEMPR, 3) & "," & HR_1_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_2_ENABLE Then
If HR_2_RESULT = 0 Then
HR_2_RESTXT = "Not Executed"
ElseIf HR_2_RESULT = 2 Then
HR_2_RESTXT = "Fail"
ElseIf HR_2_RESULT = 3 Then
HR_2_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_2_Tact, 2) & "," & Round(HR_2_I, 3) & "," & Round(HR_2_V, 2) & "," & Round(HR_2_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_2_IP, 3) & "," & Round(HR_2_MTEMP, 2) & "," & Round(HR_2_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_2_TEMPR, 3) & "," & HR_2_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_3_ENABLE Then
If HR_3_RESULT = 0 Then
HR_3_RESTXT = "Not Executed"
ElseIf HR_3_RESULT = 2 Then
HR_3_RESTXT = "Fail"
ElseIf HR_3_RESULT = 3 Then
HR_3_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_3_Tact, 2) & "," & Round(HR_3_I, 3) & "," & Round(HR_3_V, 2) & "," & Round(HR_3_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_3_IP, 3) & "," & Round(HR_3_MTEMP, 2) & "," & Round(HR_3_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_3_TEMPR, 3) & "," & HR_3_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_4_ENABLE Then
If HR_4_RESULT = 0 Then
HR_4_RESTXT = "Not Executed"
ElseIf HR_4_RESULT = 2 Then
HR_4_RESTXT = "Fail"
ElseIf HR_4_RESULT = 3 Then
HR_4_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_4_Tact, 2) & "," & Round(HR_4_I, 3) & "," & Round(HR_4_V, 2) & "," & Round(HR_4_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_4_IP, 3) & "," & Round(HR_4_MTEMP, 2) & "," & Round(HR_4_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_4_TEMPR, 3) & "," & HR_4_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_5_ENABLE Then
If HR_5_RESULT = 0 Then
HR_5_RESTXT = "Not Executed"
ElseIf HR_5_RESULT = 2 Then
HR_5_RESTXT = "Fail"
ElseIf HR_5_RESULT = 3 Then
HR_5_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_5_Tact, 2) & "," & Round(HR_5_I, 3) & "," & Round(HR_5_V, 2) & "," & Round(HR_5_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_5_IP, 3) & "," & Round(HR_5_MTEMP, 2) & "," & Round(HR_5_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_5_TEMPR, 3) & "," & HR_5_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_6_ENABLE Then
If HR_6_RESULT = 0 Then
HR_6_RESTXT = "Not Executed"
ElseIf HR_6_RESULT = 2 Then
HR_6_RESTXT = "Fail"
ElseIf HR_6_RESULT = 3 Then
HR_6_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_6_Tact, 2) & "," & Round(HR_6_I, 3) & "," & Round(HR_6_V, 2) & "," & Round(HR_6_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_6_IP, 3) & "," & Round(HR_6_MTEMP, 2) & "," & Round(HR_6_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_6_TEMPR, 3) & "," & HR_6_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_7_ENABLE Then
If HR_7_RESULT = 0 Then
HR_7_RESTXT = "Not Executed"
ElseIf HR_7_RESULT = 2 Then
HR_7_RESTXT = "Fail"
ElseIf HR_7_RESULT = 3 Then
HR_7_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_7_Tact, 2) & "," & Round(HR_7_I, 3) & "," & Round(HR_7_V, 2) & "," & Round(HR_7_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_7_IP, 3) & "," & Round(HR_7_MTEMP, 2) & "," & Round(HR_7_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_7_TEMPR, 3) & "," & HR_7_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_8_ENABLE Then
If HR_8_RESULT = 0 Then
HR_8_RESTXT = "Not Executed"
ElseIf HR_8_RESULT = 2 Then
HR_8_RESTXT = "Fail"
ElseIf HR_8_RESULT = 3 Then
HR_8_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_8_Tact, 2) & "," & Round(HR_8_I, 3) & "," & Round(HR_8_V, 2) & "," & Round(HR_8_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_8_IP, 3) & "," & Round(HR_8_MTEMP, 2) & "," & Round(HR_8_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_8_TEMPR, 3) & "," & HR_8_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_9_ENABLE Then
If HR_9_RESULT = 0 Then
HR_9_RESTXT = "Not Executed"
ElseIf HR_9_RESULT = 2 Then
HR_9_RESTXT = "Fail"
ElseIf HR_9_RESULT = 3 Then
HR_9_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_9_Tact, 2) & "," & Round(HR_9_I, 3) & "," & Round(HR_9_V, 2) & "," & Round(HR_9_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_9_IP, 3) & "," & Round(HR_9_MTEMP, 2) & "," & Round(HR_9_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_9_TEMPR, 3) & "," & HR_9_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_10_ENABLE Then
If HR_10_RESULT = 0 Then
HR_10_RESTXT = "Not Executed"
ElseIf HR_10_RESULT = 2 Then
HR_10_RESTXT = "Fail"
ElseIf HR_10_RESULT = 3 Then
HR_10_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_10_Tact, 2) & "," & Round(HR_10_I, 3) & "," & Round(HR_10_V, 2) & "," & Round(HR_10_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_10_IP, 3) & "," & Round(HR_10_MTEMP, 2) & "," & Round(HR_10_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_10_TEMPR, 3) & "," & HR_10_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_11_ENABLE Then
If HR_11_RESULT = 0 Then
HR_11_RESTXT = "Not Executed"
ElseIf HR_11_RESULT = 2 Then
HR_11_RESTXT = "Fail"
ElseIf HR_11_RESULT = 3 Then
HR_11_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_11_Tact, 2) & "," & Round(HR_11_I, 3) & "," & Round(HR_11_V, 2) & "," & Round(HR_11_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_11_IP, 3) & "," & Round(HR_11_MTEMP, 2) & "," & Round(HR_11_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_11_TEMPR, 3) & "," & HR_11_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_12_ENABLE Then
If HR_12_RESULT = 0 Then
HR_12_RESTXT = "Not Executed"
ElseIf HR_12_RESULT = 2 Then
HR_12_RESTXT = "Fail"
ElseIf HR_12_RESULT = 3 Then
HR_12_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_12_Tact, 2) & "," & Round(HR_12_I, 3) & "," & Round(HR_12_V, 2) & "," & Round(HR_12_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_12_IP, 3) & "," & Round(HR_12_MTEMP, 2) & "," & Round(HR_12_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_12_TEMPR, 3) & "," & HR_12_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_13_ENABLE Then
If HR_13_RESULT = 0 Then
HR_13_RESTXT = "Not Executed"
ElseIf HR_13_RESULT = 2 Then
HR_13_RESTXT = "Fail"
ElseIf HR_13_RESULT = 3 Then
HR_13_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_13_Tact, 2) & "," & Round(HR_13_I, 3) & "," & Round(HR_13_V, 2) & "," & Round(HR_13_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_13_IP, 3) & "," & Round(HR_13_MTEMP, 2) & "," & Round(HR_13_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_13_TEMPR, 3) & "," & HR_13_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_14_ENABLE Then
If HR_14_RESULT = 0 Then
HR_14_RESTXT = "Not Executed"
ElseIf HR_14_RESULT = 2 Then
HR_14_RESTXT = "Fail"
ElseIf HR_14_RESULT = 3 Then
HR_14_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_14_Tact, 2) & "," & Round(HR_14_I, 3) & "," & Round(HR_14_V, 2) & "," & Round(HR_14_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_14_IP, 3) & "," & Round(HR_14_MTEMP, 2) & "," & Round(HR_14_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_14_TEMPR, 3) & "," & HR_14_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_14_ENABLE Then
If HR_14_RESULT = 0 Then
HR_14_RESTXT = "Not Executed"
ElseIf HR_14_RESULT = 2 Then
HR_14_RESTXT = "Fail"
ElseIf HR_14_RESULT = 3 Then
HR_14_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_14_Tact, 2) & "," & Round(HR_14_I, 3) & "," & Round(HR_14_V, 2) & "," & Round(HR_14_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_14_IP, 3) & "," & Round(HR_14_MTEMP, 2) & "," & Round(HR_14_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_14_TEMPR, 3) & "," & HR_14_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_15_ENABLE Then
If HR_15_RESULT = 0 Then
HR_15_RESTXT = "Not Executed"
ElseIf HR_15_RESULT = 2 Then
HR_15_RESTXT = "Fail"
ElseIf HR_15_RESULT = 3 Then
HR_15_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_15_Tact, 2) & "," & Round(HR_15_I, 3) & "," & Round(HR_15_V, 2) & "," & Round(HR_15_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_15_IP, 3) & "," & Round(HR_15_MTEMP, 2) & "," & Round(HR_15_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_15_TEMPR, 3) & "," & HR_15_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_16_ENABLE Then
If HR_16_RESULT = 0 Then
HR_16_RESTXT = "Not Executed"
ElseIf HR_16_RESULT = 2 Then
HR_16_RESTXT = "Fail"
ElseIf HR_16_RESULT = 3 Then
HR_16_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_16_Tact, 2) & "," & Round(HR_16_I, 3) & "," & Round(HR_16_V, 2) & "," & Round(HR_16_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_16_IP, 3) & "," & Round(HR_16_MTEMP, 2) & "," & Round(HR_16_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_16_TEMPR, 3) & "," & HR_16_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If
'If HR_17_ENABLE Then
If HR_17_RESULT = 0 Then
HR_17_RESTXT = "Not Executed"
ElseIf HR_17_RESULT = 2 Then
HR_17_RESTXT = "Fail"
ElseIf HR_17_RESULT = 3 Then
HR_17_RESTXT = "Pass"
End If
TempWriteToFile = Round(HR_17_Tact, 2) & "," & Round(HR_17_I, 3) & "," & Round(HR_17_V, 2) & "," & Round(HR_17_PF, 4)
TempWriteToFile = TempWriteToFile & "," & Round(HR_17_IP, 3) & "," & Round(HR_17_MTEMP, 2) & "," & Round(HR_17_ATEMP, 3)
TempWriteToFile = TempWriteToFile & "," & Round(HR_17_TEMPR, 3) & "," & HR_17_RESTXT
outputFile.Write TempWriteToFile
LogFile.Write TempWriteToFile
outputFile.WriteLine
LogFile.WriteLine
'End If

outputFile.WriteLine
LogFile.WriteLine

outputFile.Close
LogFile.Close

Exit Sub

ErrHandler:
g.ConsoleMsg MSG_SEVERE_ERROR, "Script", "'LogResultsScript' failed"
LogFile.Write "Error Encountered"
LogFile.Close
End Sub

IconicsScadaNotes

Search This Blog

Updated LogResults Script 28-Mar-2018

Comments

Post a Comment

Popular posts from this blog

GXWorks3 GXDeveloper3 Notes

FX5U PLC Module Settings

Scada Notes