'************************************************************************************************************************ ' File: PMACSgroundfault.vb ' Programmer: Ting Chan ' Date: December 4, 2004 ' ' Description: ' This form is for ground fault detection/monitoring. ' The ground fault settings for 400V and 48V busses is shown on this form. ' The ground fault settings can be changed in this form ' If a ground fault is detected, a message will be shown to alert the user. ' ' Revision History: ' 12-20-2004 added GFRestart control by Ting Chan, UWEE ' 04-15-2005 added textbox TextboxGroundFaultStatus by Ting Chan, UWEE ' 06-01-2005 deleted GFIsolation control by Ting Chan, UWEE ' '************************************************************************************************************************ Option Strict Off Option Explicit On Friend Class PMACSgroundfault Inherits System.Windows.Forms.Form #Region "Windows Form Designer generated code " Public Sub New() MyBase.New() If m_vb6FormDefInstance Is Nothing Then If m_InitializingDefInstance Then m_vb6FormDefInstance = Me Else Try 'For the start-up form, the first instance created is the default instance. If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then m_vb6FormDefInstance = Me End If Catch End Try End If End If 'This call is required by the Windows Form Designer. InitializeComponent() 'This form is an MDI child. 'This code simulates the VB6 ' functionality of automatically ' loading and showing an MDI ' child's parent. 'Me.MdiParent = Project1.PMACSstartup.DefInstance.DefInstance Project1.PMACSstartup.DefInstance.DefInstance.Show() 'The MDI form in the VB6 project had its 'AutoShowChildren property set to True 'To simulate the VB6 behavior, we need to 'automatically Show the form whenever it 'is loaded. If you do not want this behavior 'then delete the following line of code 'UPGRADE_NOTE: Remove the next line of code to stop form from automatically showing. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2018"' 'Me.Show End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean) If Disposing Then If Not components Is Nothing Then components.Dispose() End If End If MyBase.Dispose(Disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer Public ToolTip1 As System.Windows.Forms.ToolTip 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents Shape1 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape2 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape3 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape4 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape5 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape6 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape7 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape8 As VBTrain.GraphicalObjects.Shape Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Shape9 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape10 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape11 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape12 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape13 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape14 As VBTrain.GraphicalObjects.Shape Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Shape15 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape16 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape17 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape18 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape19 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape20 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape21 As VBTrain.GraphicalObjects.Shape Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Shape22 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape23 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape24 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape25 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape26 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape27 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape28 As VBTrain.GraphicalObjects.Shape Friend WithEvents Shape29 As VBTrain.GraphicalObjects.Shape Friend WithEvents GFSwitchEOpen As VBTrain.GraphicalObjects.Shape Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents GFSwitchAClose As VBTrain.GraphicalObjects.Shape Friend WithEvents GFSwitchBClose As VBTrain.GraphicalObjects.Shape Friend WithEvents GFSwitchCClose As VBTrain.GraphicalObjects.Shape Friend WithEvents GFSwitchDClose As VBTrain.GraphicalObjects.Shape Friend WithEvents GFSwitchEClose As VBTrain.GraphicalObjects.Shape Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label18 As System.Windows.Forms.Label Friend WithEvents Label19 As System.Windows.Forms.Label Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents Label21 As System.Windows.Forms.Label Friend WithEvents GFLow400V As System.Windows.Forms.Label Friend WithEvents GFHigh400V As System.Windows.Forms.Label Friend WithEvents GFLow48V As System.Windows.Forms.Label Friend WithEvents GFHigh48V As System.Windows.Forms.Label Friend WithEvents Label22 As System.Windows.Forms.Label Friend WithEvents Label23 As System.Windows.Forms.Label Friend WithEvents GFCurrent As System.Windows.Forms.Label Friend WithEvents GFDetect As System.Windows.Forms.Label Friend WithEvents GFTesting As System.Windows.Forms.Button Friend WithEvents GFRestart As System.Windows.Forms.Button Friend WithEvents GFSwitchAOpen As VBTrain.GraphicalObjects.Shape Friend WithEvents GFSwitchBOpen As VBTrain.GraphicalObjects.Shape Friend WithEvents GFSwitchCOpen As VBTrain.GraphicalObjects.Shape Friend WithEvents GFSwitchDOpen As VBTrain.GraphicalObjects.Shape Friend WithEvents Set400V As System.Windows.Forms.Button Friend WithEvents Set48V As System.Windows.Forms.Button Public WithEvents Label10 As System.Windows.Forms.Label Public WithEvents Label11 As System.Windows.Forms.Label Public WithEvents GFSetpoint400 As System.Windows.Forms.GroupBox Public WithEvents Label24 As System.Windows.Forms.Label Public WithEvents GF400LowSetPoint As System.Windows.Forms.TextBox Public WithEvents Label25 As System.Windows.Forms.Label Public WithEvents GF400HighSetpoint As System.Windows.Forms.TextBox Public WithEvents GFSet400Send As System.Windows.Forms.Button Public WithEvents GFSet400Close As System.Windows.Forms.Button Public WithEvents _Label3_1 As System.Windows.Forms.Label Public WithEvents _Label4_1 As System.Windows.Forms.Label Public WithEvents Label12 As System.Windows.Forms.Label Public WithEvents Label13 As System.Windows.Forms.Label Public WithEvents GFSetpoint48 As System.Windows.Forms.GroupBox Public WithEvents Label26 As System.Windows.Forms.Label Public WithEvents GF48LowSetPoint As System.Windows.Forms.TextBox Public WithEvents Label27 As System.Windows.Forms.Label Public WithEvents GFSet48Close As System.Windows.Forms.Button Public WithEvents GFSet48Send As System.Windows.Forms.Button Public WithEvents GF48HighSetpoint As System.Windows.Forms.TextBox Public WithEvents _Label4_0 As System.Windows.Forms.Label Public WithEvents _Label3_0 As System.Windows.Forms.Label Friend WithEvents TextBoxGroundFaultStatus As System.Windows.Forms.TextBox Friend WithEvents LabelGFBus As System.Windows.Forms.Label Public WithEvents DateTime As System.Windows.Forms.Label Friend WithEvents Label28 As System.Windows.Forms.Label Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents Panel3 As System.Windows.Forms.Panel Friend WithEvents PauseGFDetection As System.Windows.Forms.Button Friend WithEvents GFDetectStatus As System.Windows.Forms.Label Friend WithEvents Label29 As System.Windows.Forms.Label Friend WithEvents Label30 As System.Windows.Forms.Label Friend WithEvents Label31 As System.Windows.Forms.Label Friend WithEvents Label32 As System.Windows.Forms.Label Friend WithEvents Label33 As System.Windows.Forms.Label Friend WithEvents Label34 As System.Windows.Forms.Label Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.Shape1 = New VBTrain.GraphicalObjects.Shape Me.Shape2 = New VBTrain.GraphicalObjects.Shape Me.Shape3 = New VBTrain.GraphicalObjects.Shape Me.Shape4 = New VBTrain.GraphicalObjects.Shape Me.Shape5 = New VBTrain.GraphicalObjects.Shape Me.Shape6 = New VBTrain.GraphicalObjects.Shape Me.Shape7 = New VBTrain.GraphicalObjects.Shape Me.Shape8 = New VBTrain.GraphicalObjects.Shape Me.Label1 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.Label4 = New System.Windows.Forms.Label Me.Shape9 = New VBTrain.GraphicalObjects.Shape Me.Shape10 = New VBTrain.GraphicalObjects.Shape Me.Shape11 = New VBTrain.GraphicalObjects.Shape Me.Shape12 = New VBTrain.GraphicalObjects.Shape Me.Shape13 = New VBTrain.GraphicalObjects.Shape Me.Shape14 = New VBTrain.GraphicalObjects.Shape Me.Label5 = New System.Windows.Forms.Label Me.Shape15 = New VBTrain.GraphicalObjects.Shape Me.Shape16 = New VBTrain.GraphicalObjects.Shape Me.Shape17 = New VBTrain.GraphicalObjects.Shape Me.Shape18 = New VBTrain.GraphicalObjects.Shape Me.Shape19 = New VBTrain.GraphicalObjects.Shape Me.Shape20 = New VBTrain.GraphicalObjects.Shape Me.Shape21 = New VBTrain.GraphicalObjects.Shape Me.Label6 = New System.Windows.Forms.Label Me.Shape22 = New VBTrain.GraphicalObjects.Shape Me.Shape23 = New VBTrain.GraphicalObjects.Shape Me.Shape24 = New VBTrain.GraphicalObjects.Shape Me.Shape25 = New VBTrain.GraphicalObjects.Shape Me.Shape26 = New VBTrain.GraphicalObjects.Shape Me.Shape27 = New VBTrain.GraphicalObjects.Shape Me.Shape28 = New VBTrain.GraphicalObjects.Shape Me.Shape29 = New VBTrain.GraphicalObjects.Shape Me.GFSwitchEOpen = New VBTrain.GraphicalObjects.Shape Me.Label7 = New System.Windows.Forms.Label Me.Label8 = New System.Windows.Forms.Label Me.Label9 = New System.Windows.Forms.Label Me.Label10 = New System.Windows.Forms.Label Me.Label11 = New System.Windows.Forms.Label Me.Label12 = New System.Windows.Forms.Label Me.Label13 = New System.Windows.Forms.Label Me.Label14 = New System.Windows.Forms.Label Me.Label15 = New System.Windows.Forms.Label Me.GFSwitchAClose = New VBTrain.GraphicalObjects.Shape Me.GFSwitchBClose = New VBTrain.GraphicalObjects.Shape Me.GFSwitchCClose = New VBTrain.GraphicalObjects.Shape Me.GFSwitchDClose = New VBTrain.GraphicalObjects.Shape Me.GFSwitchEClose = New VBTrain.GraphicalObjects.Shape Me.Label16 = New System.Windows.Forms.Label Me.Label17 = New System.Windows.Forms.Label Me.Label18 = New System.Windows.Forms.Label Me.Label19 = New System.Windows.Forms.Label Me.Label20 = New System.Windows.Forms.Label Me.Label21 = New System.Windows.Forms.Label Me.GFLow400V = New System.Windows.Forms.Label Me.GFHigh400V = New System.Windows.Forms.Label Me.GFLow48V = New System.Windows.Forms.Label Me.GFHigh48V = New System.Windows.Forms.Label Me.Label22 = New System.Windows.Forms.Label Me.LabelGFBus = New System.Windows.Forms.Label Me.Label23 = New System.Windows.Forms.Label Me.GFCurrent = New System.Windows.Forms.Label Me.GFDetect = New System.Windows.Forms.Label Me.GFTesting = New System.Windows.Forms.Button Me.GFRestart = New System.Windows.Forms.Button Me.GFSwitchAOpen = New VBTrain.GraphicalObjects.Shape Me.GFSwitchBOpen = New VBTrain.GraphicalObjects.Shape Me.GFSwitchCOpen = New VBTrain.GraphicalObjects.Shape Me.GFSwitchDOpen = New VBTrain.GraphicalObjects.Shape Me.Set400V = New System.Windows.Forms.Button Me.Set48V = New System.Windows.Forms.Button Me.GFSetpoint400 = New System.Windows.Forms.GroupBox Me.Label24 = New System.Windows.Forms.Label Me.GF400LowSetPoint = New System.Windows.Forms.TextBox Me.Label25 = New System.Windows.Forms.Label Me.GF400HighSetpoint = New System.Windows.Forms.TextBox Me.GFSet400Send = New System.Windows.Forms.Button Me.GFSet400Close = New System.Windows.Forms.Button Me._Label3_1 = New System.Windows.Forms.Label Me._Label4_1 = New System.Windows.Forms.Label Me.GFSetpoint48 = New System.Windows.Forms.GroupBox Me.Label26 = New System.Windows.Forms.Label Me.GF48LowSetPoint = New System.Windows.Forms.TextBox Me.Label27 = New System.Windows.Forms.Label Me.GFSet48Close = New System.Windows.Forms.Button Me.GFSet48Send = New System.Windows.Forms.Button Me.GF48HighSetpoint = New System.Windows.Forms.TextBox Me._Label4_0 = New System.Windows.Forms.Label Me._Label3_0 = New System.Windows.Forms.Label Me.TextBoxGroundFaultStatus = New System.Windows.Forms.TextBox Me.DateTime = New System.Windows.Forms.Label Me.Label28 = New System.Windows.Forms.Label Me.Panel1 = New System.Windows.Forms.Panel Me.Label31 = New System.Windows.Forms.Label Me.Panel2 = New System.Windows.Forms.Panel Me.Label29 = New System.Windows.Forms.Label Me.Panel3 = New System.Windows.Forms.Panel Me.Label30 = New System.Windows.Forms.Label Me.PauseGFDetection = New System.Windows.Forms.Button Me.GFDetectStatus = New System.Windows.Forms.Label Me.Label32 = New System.Windows.Forms.Label Me.Label33 = New System.Windows.Forms.Label Me.Label34 = New System.Windows.Forms.Label Me.GFSetpoint400.SuspendLayout() Me.GFSetpoint48.SuspendLayout() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() Me.Panel3.SuspendLayout() Me.SuspendLayout() ' 'Shape1 ' Me.Shape1.BackColor = System.Drawing.Color.Transparent Me.Shape1.BorderColor1 = System.Drawing.Color.Red Me.Shape1.BorderWidth = 4.0! Me.Shape1.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape1.Location = New System.Drawing.Point(128, 96) Me.Shape1.Name = "Shape1" Me.Shape1.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape1.Size = New System.Drawing.Size(4, 80) Me.Shape1.TabIndex = 0 Me.Shape1.TabStop = False Me.Shape1.Text = "Shape1" ' 'Shape2 ' Me.Shape2.BackColor = System.Drawing.Color.Transparent Me.Shape2.BorderColor1 = System.Drawing.Color.Red Me.Shape2.BorderWidth = 4.0! Me.Shape2.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape2.Location = New System.Drawing.Point(232, 96) Me.Shape2.Name = "Shape2" Me.Shape2.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape2.Size = New System.Drawing.Size(4, 80) Me.Shape2.TabIndex = 1 Me.Shape2.TabStop = False Me.Shape2.Text = "Shape2" ' 'Shape3 ' Me.Shape3.BackColor = System.Drawing.Color.Transparent Me.Shape3.BorderColor1 = System.Drawing.Color.Red Me.Shape3.BorderWidth = 4.0! Me.Shape3.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape3.Location = New System.Drawing.Point(336, 96) Me.Shape3.Name = "Shape3" Me.Shape3.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape3.Size = New System.Drawing.Size(4, 80) Me.Shape3.TabIndex = 2 Me.Shape3.TabStop = False Me.Shape3.Text = "Shape3" ' 'Shape4 ' Me.Shape4.BackColor = System.Drawing.Color.Transparent Me.Shape4.BorderColor1 = System.Drawing.Color.Red Me.Shape4.BorderWidth = 4.0! Me.Shape4.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape4.Location = New System.Drawing.Point(440, 96) Me.Shape4.Name = "Shape4" Me.Shape4.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape4.Size = New System.Drawing.Size(4, 80) Me.Shape4.TabIndex = 3 Me.Shape4.TabStop = False Me.Shape4.Text = "Shape4" ' 'Shape5 ' Me.Shape5.BackColor = System.Drawing.Color.Transparent Me.Shape5.BorderColor1 = System.Drawing.Color.Red Me.Shape5.BorderWidth = 4.0! Me.Shape5.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape5.Location = New System.Drawing.Point(128, 248) Me.Shape5.Name = "Shape5" Me.Shape5.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape5.Size = New System.Drawing.Size(4, 80) Me.Shape5.TabIndex = 4 Me.Shape5.TabStop = False Me.Shape5.Text = "Shape5" ' 'Shape6 ' Me.Shape6.BackColor = System.Drawing.Color.Transparent Me.Shape6.BorderColor1 = System.Drawing.Color.Red Me.Shape6.BorderWidth = 4.0! Me.Shape6.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape6.Location = New System.Drawing.Point(232, 248) Me.Shape6.Name = "Shape6" Me.Shape6.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape6.Size = New System.Drawing.Size(4, 80) Me.Shape6.TabIndex = 5 Me.Shape6.TabStop = False Me.Shape6.Text = "Shape6" ' 'Shape7 ' Me.Shape7.BackColor = System.Drawing.Color.Transparent Me.Shape7.BorderColor1 = System.Drawing.Color.Red Me.Shape7.BorderWidth = 4.0! Me.Shape7.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape7.Location = New System.Drawing.Point(336, 248) Me.Shape7.Name = "Shape7" Me.Shape7.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape7.Size = New System.Drawing.Size(4, 80) Me.Shape7.TabIndex = 6 Me.Shape7.TabStop = False Me.Shape7.Text = "Shape7" ' 'Shape8 ' Me.Shape8.BackColor = System.Drawing.Color.Transparent Me.Shape8.BorderColor1 = System.Drawing.Color.Red Me.Shape8.BorderWidth = 4.0! Me.Shape8.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape8.Location = New System.Drawing.Point(440, 248) Me.Shape8.Name = "Shape8" Me.Shape8.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape8.Size = New System.Drawing.Size(4, 80) Me.Shape8.TabIndex = 7 Me.Shape8.TabStop = False Me.Shape8.Text = "Shape8" ' 'Label1 ' Me.Label1.BackColor = System.Drawing.Color.Silver Me.Label1.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(120, 176) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(16, 71) Me.Label1.TabIndex = 8 Me.Label1.Text = "R" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label2 ' Me.Label2.BackColor = System.Drawing.Color.Silver Me.Label2.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Location = New System.Drawing.Point(224, 176) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(16, 71) Me.Label2.TabIndex = 9 Me.Label2.Text = "R" Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label3 ' Me.Label3.BackColor = System.Drawing.Color.Silver Me.Label3.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label3.Location = New System.Drawing.Point(328, 176) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(16, 71) Me.Label3.TabIndex = 10 Me.Label3.Text = "R" Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label4 ' Me.Label4.BackColor = System.Drawing.Color.Silver Me.Label4.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.Location = New System.Drawing.Point(432, 176) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(16, 71) Me.Label4.TabIndex = 11 Me.Label4.Text = "R" Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Shape9 ' Me.Shape9.BackColor = System.Drawing.Color.Transparent Me.Shape9.BorderColor1 = System.Drawing.Color.Red Me.Shape9.BorderWidth = 4.0! Me.Shape9.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape9.Location = New System.Drawing.Point(128, 360) Me.Shape9.Name = "Shape9" Me.Shape9.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape9.Size = New System.Drawing.Size(4, 32) Me.Shape9.TabIndex = 12 Me.Shape9.TabStop = False Me.Shape9.Text = "Shape9" ' 'Shape10 ' Me.Shape10.BackColor = System.Drawing.Color.Transparent Me.Shape10.BorderColor1 = System.Drawing.Color.Red Me.Shape10.BorderWidth = 4.0! Me.Shape10.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape10.Location = New System.Drawing.Point(232, 360) Me.Shape10.Name = "Shape10" Me.Shape10.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape10.Size = New System.Drawing.Size(4, 32) Me.Shape10.TabIndex = 13 Me.Shape10.TabStop = False Me.Shape10.Text = "Shape10" ' 'Shape11 ' Me.Shape11.BackColor = System.Drawing.Color.Transparent Me.Shape11.BorderColor1 = System.Drawing.Color.Red Me.Shape11.BorderWidth = 4.0! Me.Shape11.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape11.Location = New System.Drawing.Point(440, 360) Me.Shape11.Name = "Shape11" Me.Shape11.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape11.Size = New System.Drawing.Size(4, 32) Me.Shape11.TabIndex = 15 Me.Shape11.TabStop = False Me.Shape11.Text = "Shape11" ' 'Shape12 ' Me.Shape12.BackColor = System.Drawing.Color.Transparent Me.Shape12.BorderColor1 = System.Drawing.Color.Red Me.Shape12.BorderWidth = 4.0! Me.Shape12.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape12.Location = New System.Drawing.Point(336, 360) Me.Shape12.Name = "Shape12" Me.Shape12.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape12.Size = New System.Drawing.Size(4, 32) Me.Shape12.TabIndex = 14 Me.Shape12.TabStop = False Me.Shape12.Text = "Shape12" ' 'Shape13 ' Me.Shape13.BackColor = System.Drawing.Color.Transparent Me.Shape13.BorderColor1 = System.Drawing.Color.Red Me.Shape13.BorderWidth = 4.0! Me.Shape13.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Horizontal Me.Shape13.Location = New System.Drawing.Point(128, 392) Me.Shape13.Name = "Shape13" Me.Shape13.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape13.Size = New System.Drawing.Size(316, 4) Me.Shape13.TabIndex = 16 Me.Shape13.TabStop = False Me.Shape13.Text = "Shape13" ' 'Shape14 ' Me.Shape14.BackColor = System.Drawing.Color.Transparent Me.Shape14.BorderColor1 = System.Drawing.Color.Red Me.Shape14.BorderWidth = 4.0! Me.Shape14.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape14.Location = New System.Drawing.Point(288, 392) Me.Shape14.Name = "Shape14" Me.Shape14.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape14.Size = New System.Drawing.Size(4, 40) Me.Shape14.TabIndex = 17 Me.Shape14.TabStop = False Me.Shape14.Text = "Shape14" ' 'Label5 ' Me.Label5.BackColor = System.Drawing.Color.Silver Me.Label5.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.Location = New System.Drawing.Point(280, 432) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(16, 71) Me.Label5.TabIndex = 18 Me.Label5.Text = "R" Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Shape15 ' Me.Shape15.BackColor = System.Drawing.Color.Transparent Me.Shape15.BorderColor1 = System.Drawing.Color.Red Me.Shape15.BorderWidth = 4.0! Me.Shape15.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape15.Location = New System.Drawing.Point(288, 504) Me.Shape15.Name = "Shape15" Me.Shape15.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape15.Size = New System.Drawing.Size(4, 64) Me.Shape15.TabIndex = 19 Me.Shape15.TabStop = False Me.Shape15.Text = "Shape15" ' 'Shape16 ' Me.Shape16.BackColor = System.Drawing.Color.Transparent Me.Shape16.BorderColor1 = System.Drawing.Color.Red Me.Shape16.BorderWidth = 4.0! Me.Shape16.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Horizontal Me.Shape16.Location = New System.Drawing.Point(288, 408) Me.Shape16.Name = "Shape16" Me.Shape16.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape16.Size = New System.Drawing.Size(96, 4) Me.Shape16.TabIndex = 20 Me.Shape16.TabStop = False Me.Shape16.Text = "Shape16" ' 'Shape17 ' Me.Shape17.BackColor = System.Drawing.Color.Transparent Me.Shape17.BorderColor1 = System.Drawing.Color.Red Me.Shape17.BorderWidth = 4.0! Me.Shape17.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Horizontal Me.Shape17.Location = New System.Drawing.Point(288, 522) Me.Shape17.Name = "Shape17" Me.Shape17.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape17.Size = New System.Drawing.Size(96, 4) Me.Shape17.TabIndex = 21 Me.Shape17.TabStop = False Me.Shape17.Text = "Shape17" ' 'Shape18 ' Me.Shape18.BackColor = System.Drawing.Color.Transparent Me.Shape18.BorderColor1 = System.Drawing.Color.Red Me.Shape18.BorderWidth = 4.0! Me.Shape18.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape18.Location = New System.Drawing.Point(384, 408) Me.Shape18.Name = "Shape18" Me.Shape18.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape18.Size = New System.Drawing.Size(4, 40) Me.Shape18.TabIndex = 22 Me.Shape18.TabStop = False Me.Shape18.Text = "Shape18" ' 'Shape19 ' Me.Shape19.BackColor = System.Drawing.Color.Transparent Me.Shape19.BorderColor1 = System.Drawing.Color.Red Me.Shape19.BorderWidth = 4.0! Me.Shape19.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape19.Location = New System.Drawing.Point(384, 487) Me.Shape19.Name = "Shape19" Me.Shape19.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape19.Size = New System.Drawing.Size(4, 40) Me.Shape19.TabIndex = 23 Me.Shape19.TabStop = False Me.Shape19.Text = "Shape19" ' 'Shape20 ' Me.Shape20.BackColor = System.Drawing.Color.Transparent Me.Shape20.BorderColor1 = System.Drawing.Color.Red Me.Shape20.BorderWidth = 4.0! Me.Shape20.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Horizontal Me.Shape20.Location = New System.Drawing.Point(384, 448) Me.Shape20.Name = "Shape20" Me.Shape20.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape20.Size = New System.Drawing.Size(32, 4) Me.Shape20.TabIndex = 24 Me.Shape20.TabStop = False Me.Shape20.Text = "Shape20" ' 'Shape21 ' Me.Shape21.BackColor = System.Drawing.Color.Transparent Me.Shape21.BorderColor1 = System.Drawing.Color.Red Me.Shape21.BorderWidth = 4.0! Me.Shape21.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Horizontal Me.Shape21.Location = New System.Drawing.Point(384, 488) Me.Shape21.Name = "Shape21" Me.Shape21.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape21.Size = New System.Drawing.Size(32, 4) Me.Shape21.TabIndex = 25 Me.Shape21.TabStop = False Me.Shape21.Text = "Shape21" ' 'Label6 ' Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(255, Byte)) Me.Label6.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label6.ForeColor = System.Drawing.Color.Black Me.Label6.Location = New System.Drawing.Point(408, 432) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(120, 64) Me.Label6.TabIndex = 26 Me.Label6.Text = "Isolation Amp" Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Shape22 ' Me.Shape22.BackColor = System.Drawing.Color.Transparent Me.Shape22.BorderColor1 = System.Drawing.Color.Red Me.Shape22.BorderWidth = 4.0! Me.Shape22.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Horizontal Me.Shape22.Location = New System.Drawing.Point(440, 128) Me.Shape22.Name = "Shape22" Me.Shape22.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape22.Size = New System.Drawing.Size(170, 4) Me.Shape22.TabIndex = 27 Me.Shape22.TabStop = False Me.Shape22.Text = "Shape22" ' 'Shape23 ' Me.Shape23.BackColor = System.Drawing.Color.Transparent Me.Shape23.BorderColor1 = System.Drawing.Color.Red Me.Shape23.BorderWidth = 4.0! Me.Shape23.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape23.Location = New System.Drawing.Point(608, 128) Me.Shape23.Name = "Shape23" Me.Shape23.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape23.Size = New System.Drawing.Size(4, 168) Me.Shape23.TabIndex = 28 Me.Shape23.TabStop = False Me.Shape23.Text = "Shape23" ' 'Shape24 ' Me.Shape24.BackColor = System.Drawing.Color.Transparent Me.Shape24.BorderColor1 = System.Drawing.Color.Red Me.Shape24.BorderWidth = 4.0! Me.Shape24.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.Shape24.Location = New System.Drawing.Point(608, 328) Me.Shape24.Name = "Shape24" Me.Shape24.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape24.Size = New System.Drawing.Size(4, 224) Me.Shape24.TabIndex = 29 Me.Shape24.TabStop = False Me.Shape24.Text = "Shape24" ' 'Shape25 ' Me.Shape25.BackColor = System.Drawing.Color.Transparent Me.Shape25.BorderColor1 = System.Drawing.Color.Red Me.Shape25.BorderWidth = 4.0! Me.Shape25.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Horizontal Me.Shape25.Location = New System.Drawing.Point(288, 552) Me.Shape25.Name = "Shape25" Me.Shape25.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape25.Size = New System.Drawing.Size(326, 4) Me.Shape25.TabIndex = 30 Me.Shape25.TabStop = False Me.Shape25.Text = "Shape25" ' 'Shape26 ' Me.Shape26.BackColor = System.Drawing.Color.Transparent Me.Shape26.BorderColor1 = System.Drawing.Color.Red Me.Shape26.BorderWidth = 4.0! Me.Shape26.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Horizontal Me.Shape26.Location = New System.Drawing.Point(272, 568) Me.Shape26.Name = "Shape26" Me.Shape26.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape26.Size = New System.Drawing.Size(40, 4) Me.Shape26.TabIndex = 31 Me.Shape26.TabStop = False Me.Shape26.Text = "Shape26" ' 'Shape27 ' Me.Shape27.BackColor = System.Drawing.Color.Transparent Me.Shape27.BorderColor1 = System.Drawing.Color.Red Me.Shape27.BorderWidth = 4.0! Me.Shape27.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.AngledUp Me.Shape27.Location = New System.Drawing.Point(258, 568) Me.Shape27.Name = "Shape27" Me.Shape27.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape27.Size = New System.Drawing.Size(16, 16) Me.Shape27.TabIndex = 32 Me.Shape27.TabStop = False Me.Shape27.Text = "Shape27" ' 'Shape28 ' Me.Shape28.BackColor = System.Drawing.Color.Transparent Me.Shape28.BorderColor1 = System.Drawing.Color.Red Me.Shape28.BorderWidth = 4.0! Me.Shape28.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.AngledUp Me.Shape28.Location = New System.Drawing.Point(277, 568) Me.Shape28.Name = "Shape28" Me.Shape28.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape28.Size = New System.Drawing.Size(16, 16) Me.Shape28.TabIndex = 33 Me.Shape28.TabStop = False Me.Shape28.Text = "Shape28" ' 'Shape29 ' Me.Shape29.BackColor = System.Drawing.Color.Transparent Me.Shape29.BorderColor1 = System.Drawing.Color.Red Me.Shape29.BorderWidth = 4.0! Me.Shape29.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.AngledUp Me.Shape29.Location = New System.Drawing.Point(296, 568) Me.Shape29.Name = "Shape29" Me.Shape29.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.Shape29.Size = New System.Drawing.Size(16, 16) Me.Shape29.TabIndex = 34 Me.Shape29.TabStop = False Me.Shape29.Text = "Shape29" ' 'GFSwitchEOpen ' Me.GFSwitchEOpen.BackColor = System.Drawing.Color.Transparent Me.GFSwitchEOpen.BorderColor1 = System.Drawing.Color.Red Me.GFSwitchEOpen.BorderWidth = 4.0! Me.GFSwitchEOpen.Location = New System.Drawing.Point(587, 299) Me.GFSwitchEOpen.Name = "GFSwitchEOpen" Me.GFSwitchEOpen.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.GFSwitchEOpen.Size = New System.Drawing.Size(25, 32) Me.GFSwitchEOpen.TabIndex = 39 Me.GFSwitchEOpen.TabStop = False Me.GFSwitchEOpen.Text = "Shape30" ' 'Label7 ' Me.Label7.BackColor = System.Drawing.Color.Transparent Me.Label7.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label7.ForeColor = System.Drawing.Color.Yellow Me.Label7.Location = New System.Drawing.Point(88, 72) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(88, 24) Me.Label7.TabIndex = 40 Me.Label7.Text = "400V" Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label8 ' Me.Label8.BackColor = System.Drawing.Color.Transparent Me.Label8.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label8.ForeColor = System.Drawing.Color.Yellow Me.Label8.Location = New System.Drawing.Point(192, 72) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(96, 24) Me.Label8.TabIndex = 41 Me.Label8.Text = "400 Com" Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label9 ' Me.Label9.BackColor = System.Drawing.Color.Transparent Me.Label9.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label9.ForeColor = System.Drawing.Color.Yellow Me.Label9.Location = New System.Drawing.Point(296, 72) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(88, 24) Me.Label9.TabIndex = 42 Me.Label9.Text = "48V" Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label10 ' Me.Label10.BackColor = System.Drawing.Color.Transparent Me.Label10.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label10.ForeColor = System.Drawing.Color.Yellow Me.Label10.Location = New System.Drawing.Point(400, 72) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(96, 24) Me.Label10.TabIndex = 43 Me.Label10.Text = "48 Com" Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label11 ' Me.Label11.BackColor = System.Drawing.Color.Transparent Me.Label11.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label11.ForeColor = System.Drawing.Color.Yellow Me.Label11.Location = New System.Drawing.Point(72, 328) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(32, 32) Me.Label11.TabIndex = 44 Me.Label11.Text = "A" Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label12 ' Me.Label12.BackColor = System.Drawing.Color.Transparent Me.Label12.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label12.ForeColor = System.Drawing.Color.Yellow Me.Label12.Location = New System.Drawing.Point(176, 328) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(32, 32) Me.Label12.TabIndex = 45 Me.Label12.Text = "B" Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label13 ' Me.Label13.BackColor = System.Drawing.Color.Transparent Me.Label13.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label13.ForeColor = System.Drawing.Color.Yellow Me.Label13.Location = New System.Drawing.Point(280, 328) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(32, 32) Me.Label13.TabIndex = 46 Me.Label13.Text = "C" Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label14 ' Me.Label14.BackColor = System.Drawing.Color.Transparent Me.Label14.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label14.ForeColor = System.Drawing.Color.Yellow Me.Label14.Location = New System.Drawing.Point(384, 328) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(32, 32) Me.Label14.TabIndex = 47 Me.Label14.Text = "D" Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label15 ' Me.Label15.BackColor = System.Drawing.Color.Transparent Me.Label15.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label15.ForeColor = System.Drawing.Color.Yellow Me.Label15.Location = New System.Drawing.Point(552, 296) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(32, 32) Me.Label15.TabIndex = 48 Me.Label15.Text = "E" Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'GFSwitchAClose ' Me.GFSwitchAClose.BackColor = System.Drawing.Color.Transparent Me.GFSwitchAClose.BorderColor1 = System.Drawing.Color.Red Me.GFSwitchAClose.BorderWidth = 4.0! Me.GFSwitchAClose.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.GFSwitchAClose.Location = New System.Drawing.Point(128, 320) Me.GFSwitchAClose.Name = "GFSwitchAClose" Me.GFSwitchAClose.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.GFSwitchAClose.Size = New System.Drawing.Size(4, 48) Me.GFSwitchAClose.TabIndex = 49 Me.GFSwitchAClose.TabStop = False Me.GFSwitchAClose.Text = "Shape30" Me.GFSwitchAClose.Visible = False ' 'GFSwitchBClose ' Me.GFSwitchBClose.BackColor = System.Drawing.Color.Transparent Me.GFSwitchBClose.BorderColor1 = System.Drawing.Color.Red Me.GFSwitchBClose.BorderWidth = 4.0! Me.GFSwitchBClose.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.GFSwitchBClose.Location = New System.Drawing.Point(232, 320) Me.GFSwitchBClose.Name = "GFSwitchBClose" Me.GFSwitchBClose.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.GFSwitchBClose.Size = New System.Drawing.Size(4, 48) Me.GFSwitchBClose.TabIndex = 50 Me.GFSwitchBClose.TabStop = False Me.GFSwitchBClose.Text = "Shape30" Me.GFSwitchBClose.Visible = False ' 'GFSwitchCClose ' Me.GFSwitchCClose.BackColor = System.Drawing.Color.Transparent Me.GFSwitchCClose.BorderColor1 = System.Drawing.Color.Red Me.GFSwitchCClose.BorderWidth = 4.0! Me.GFSwitchCClose.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.GFSwitchCClose.Location = New System.Drawing.Point(336, 320) Me.GFSwitchCClose.Name = "GFSwitchCClose" Me.GFSwitchCClose.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.GFSwitchCClose.Size = New System.Drawing.Size(4, 48) Me.GFSwitchCClose.TabIndex = 51 Me.GFSwitchCClose.TabStop = False Me.GFSwitchCClose.Text = "Shape30" Me.GFSwitchCClose.Visible = False ' 'GFSwitchDClose ' Me.GFSwitchDClose.BackColor = System.Drawing.Color.Transparent Me.GFSwitchDClose.BorderColor1 = System.Drawing.Color.Red Me.GFSwitchDClose.BorderWidth = 4.0! Me.GFSwitchDClose.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.GFSwitchDClose.Location = New System.Drawing.Point(440, 320) Me.GFSwitchDClose.Name = "GFSwitchDClose" Me.GFSwitchDClose.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.GFSwitchDClose.Size = New System.Drawing.Size(4, 48) Me.GFSwitchDClose.TabIndex = 52 Me.GFSwitchDClose.TabStop = False Me.GFSwitchDClose.Text = "Shape30" Me.GFSwitchDClose.Visible = False ' 'GFSwitchEClose ' Me.GFSwitchEClose.BackColor = System.Drawing.Color.Transparent Me.GFSwitchEClose.BorderColor1 = System.Drawing.Color.Red Me.GFSwitchEClose.BorderWidth = 4.0! Me.GFSwitchEClose.LineAngleType = VBTrain.GraphicalObjects.Shape.LineAngleEnum.Vertical Me.GFSwitchEClose.Location = New System.Drawing.Point(608, 288) Me.GFSwitchEClose.Name = "GFSwitchEClose" Me.GFSwitchEClose.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.GFSwitchEClose.Size = New System.Drawing.Size(4, 48) Me.GFSwitchEClose.TabIndex = 53 Me.GFSwitchEClose.TabStop = False Me.GFSwitchEClose.Text = "Shape30" Me.GFSwitchEClose.Visible = False ' 'Label16 ' Me.Label16.BackColor = System.Drawing.Color.Black Me.Label16.Font = New System.Drawing.Font("Arial", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label16.ForeColor = System.Drawing.Color.Yellow Me.Label16.Location = New System.Drawing.Point(16, 16) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(512, 32) Me.Label16.TabIndex = 54 Me.Label16.Text = "400V Bus Ground Fault Settings" Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label17 ' Me.Label17.BackColor = System.Drawing.Color.Black Me.Label17.Font = New System.Drawing.Font("Arial", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label17.ForeColor = System.Drawing.Color.Yellow Me.Label17.Location = New System.Drawing.Point(16, 16) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(512, 32) Me.Label17.TabIndex = 55 Me.Label17.Text = "48V Bus Ground Fault Settings" Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label18 ' Me.Label18.BackColor = System.Drawing.Color.Transparent Me.Label18.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label18.ForeColor = System.Drawing.Color.Black Me.Label18.Location = New System.Drawing.Point(32, 168) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(168, 40) Me.Label18.TabIndex = 56 Me.Label18.Text = "Ground Fault SetPoint (400V Com)" Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label19 ' Me.Label19.BackColor = System.Drawing.Color.Transparent Me.Label19.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label19.ForeColor = System.Drawing.Color.Black Me.Label19.Location = New System.Drawing.Point(32, 104) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(168, 40) Me.Label19.TabIndex = 57 Me.Label19.Text = "Ground Fault SetPoint (400V)" Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label20 ' Me.Label20.BackColor = System.Drawing.Color.Transparent Me.Label20.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label20.ForeColor = System.Drawing.Color.Black Me.Label20.Location = New System.Drawing.Point(40, 168) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(160, 40) Me.Label20.TabIndex = 58 Me.Label20.Text = "Ground Fault SetPoint (48V Com)" Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label21 ' Me.Label21.BackColor = System.Drawing.Color.Transparent Me.Label21.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label21.ForeColor = System.Drawing.Color.Black Me.Label21.Location = New System.Drawing.Point(40, 104) Me.Label21.Name = "Label21" Me.Label21.Size = New System.Drawing.Size(160, 40) Me.Label21.TabIndex = 59 Me.Label21.Text = "Ground Fault SetPoint (48V)" Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'GFLow400V ' Me.GFLow400V.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFLow400V.ForeColor = System.Drawing.Color.Black Me.GFLow400V.Location = New System.Drawing.Point(224, 168) Me.GFLow400V.Name = "GFLow400V" Me.GFLow400V.Size = New System.Drawing.Size(104, 32) Me.GFLow400V.TabIndex = 60 Me.GFLow400V.Text = "Label22" Me.GFLow400V.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'GFHigh400V ' Me.GFHigh400V.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFHigh400V.ForeColor = System.Drawing.Color.Black Me.GFHigh400V.Location = New System.Drawing.Point(224, 104) Me.GFHigh400V.Name = "GFHigh400V" Me.GFHigh400V.Size = New System.Drawing.Size(104, 32) Me.GFHigh400V.TabIndex = 61 Me.GFHigh400V.Text = "Label23" Me.GFHigh400V.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'GFLow48V ' Me.GFLow48V.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFLow48V.ForeColor = System.Drawing.Color.Black Me.GFLow48V.Location = New System.Drawing.Point(232, 168) Me.GFLow48V.Name = "GFLow48V" Me.GFLow48V.Size = New System.Drawing.Size(104, 32) Me.GFLow48V.TabIndex = 62 Me.GFLow48V.Text = "Label24" Me.GFLow48V.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'GFHigh48V ' Me.GFHigh48V.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFHigh48V.ForeColor = System.Drawing.Color.Black Me.GFHigh48V.Location = New System.Drawing.Point(232, 104) Me.GFHigh48V.Name = "GFHigh48V" Me.GFHigh48V.Size = New System.Drawing.Size(104, 32) Me.GFHigh48V.TabIndex = 63 Me.GFHigh48V.Text = "Label25" Me.GFHigh48V.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Label22 ' Me.Label22.BackColor = System.Drawing.Color.Black Me.Label22.Font = New System.Drawing.Font("Arial", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label22.ForeColor = System.Drawing.Color.Yellow Me.Label22.Location = New System.Drawing.Point(728, 72) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(232, 48) Me.Label22.TabIndex = 64 Me.Label22.Text = "Now Testing:" Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'LabelGFBus ' Me.LabelGFBus.Font = New System.Drawing.Font("Arial", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.LabelGFBus.ForeColor = System.Drawing.Color.Yellow Me.LabelGFBus.Location = New System.Drawing.Point(968, 72) Me.LabelGFBus.Name = "LabelGFBus" Me.LabelGFBus.Size = New System.Drawing.Size(288, 48) Me.LabelGFBus.TabIndex = 65 Me.LabelGFBus.Text = "N/A" Me.LabelGFBus.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'Label23 ' Me.Label23.Font = New System.Drawing.Font("Arial", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label23.ForeColor = System.Drawing.Color.Yellow Me.Label23.Location = New System.Drawing.Point(728, 128) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(232, 48) Me.Label23.TabIndex = 66 Me.Label23.Text = "Ground fault Current:" Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'GFCurrent ' Me.GFCurrent.Font = New System.Drawing.Font("Arial", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFCurrent.ForeColor = System.Drawing.Color.Yellow Me.GFCurrent.Location = New System.Drawing.Point(968, 128) Me.GFCurrent.Name = "GFCurrent" Me.GFCurrent.Size = New System.Drawing.Size(288, 48) Me.GFCurrent.TabIndex = 67 Me.GFCurrent.Text = "N/A" Me.GFCurrent.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'GFDetect ' Me.GFDetect.BackColor = System.Drawing.Color.Black Me.GFDetect.Font = New System.Drawing.Font("Arial", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFDetect.ForeColor = System.Drawing.Color.Lime Me.GFDetect.Location = New System.Drawing.Point(736, 192) Me.GFDetect.Name = "GFDetect" Me.GFDetect.Size = New System.Drawing.Size(512, 56) Me.GFDetect.TabIndex = 68 Me.GFDetect.Text = "No Ground Fault Detected" Me.GFDetect.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'GFTesting ' Me.GFTesting.BackColor = System.Drawing.Color.LightGray Me.GFTesting.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFTesting.ForeColor = System.Drawing.Color.Black Me.GFTesting.Location = New System.Drawing.Point(728, 288) Me.GFTesting.Name = "GFTesting" Me.GFTesting.Size = New System.Drawing.Size(272, 32) Me.GFTesting.TabIndex = 69 Me.GFTesting.Text = "Test Ground Fault Detection" ' 'GFRestart ' Me.GFRestart.BackColor = System.Drawing.Color.LightGray Me.GFRestart.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFRestart.ForeColor = System.Drawing.Color.Black Me.GFRestart.Location = New System.Drawing.Point(728, 400) Me.GFRestart.Name = "GFRestart" Me.GFRestart.Size = New System.Drawing.Size(272, 32) Me.GFRestart.TabIndex = 70 Me.GFRestart.Text = "Restart Ground Fault Monitoring" Me.GFRestart.Visible = False ' 'GFSwitchAOpen ' Me.GFSwitchAOpen.BackColor = System.Drawing.Color.Transparent Me.GFSwitchAOpen.BorderColor1 = System.Drawing.Color.Red Me.GFSwitchAOpen.BorderWidth = 4.0! Me.GFSwitchAOpen.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFSwitchAOpen.Location = New System.Drawing.Point(107, 331) Me.GFSwitchAOpen.Name = "GFSwitchAOpen" Me.GFSwitchAOpen.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.GFSwitchAOpen.Size = New System.Drawing.Size(25, 32) Me.GFSwitchAOpen.TabIndex = 35 Me.GFSwitchAOpen.TabStop = False Me.GFSwitchAOpen.Text = "Shape30" ' 'GFSwitchBOpen ' Me.GFSwitchBOpen.BackColor = System.Drawing.Color.Transparent Me.GFSwitchBOpen.BorderColor1 = System.Drawing.Color.Red Me.GFSwitchBOpen.BorderWidth = 4.0! Me.GFSwitchBOpen.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFSwitchBOpen.Location = New System.Drawing.Point(211, 331) Me.GFSwitchBOpen.Name = "GFSwitchBOpen" Me.GFSwitchBOpen.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.GFSwitchBOpen.Size = New System.Drawing.Size(25, 32) Me.GFSwitchBOpen.TabIndex = 36 Me.GFSwitchBOpen.TabStop = False Me.GFSwitchBOpen.Text = "Shape30" ' 'GFSwitchCOpen ' Me.GFSwitchCOpen.BackColor = System.Drawing.Color.Transparent Me.GFSwitchCOpen.BorderColor1 = System.Drawing.Color.Red Me.GFSwitchCOpen.BorderWidth = 4.0! Me.GFSwitchCOpen.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFSwitchCOpen.Location = New System.Drawing.Point(315, 331) Me.GFSwitchCOpen.Name = "GFSwitchCOpen" Me.GFSwitchCOpen.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.GFSwitchCOpen.Size = New System.Drawing.Size(25, 32) Me.GFSwitchCOpen.TabIndex = 37 Me.GFSwitchCOpen.TabStop = False Me.GFSwitchCOpen.Text = "Shape30" ' 'GFSwitchDOpen ' Me.GFSwitchDOpen.BackColor = System.Drawing.Color.Transparent Me.GFSwitchDOpen.BorderColor1 = System.Drawing.Color.Red Me.GFSwitchDOpen.BorderWidth = 4.0! Me.GFSwitchDOpen.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFSwitchDOpen.Location = New System.Drawing.Point(419, 331) Me.GFSwitchDOpen.Name = "GFSwitchDOpen" Me.GFSwitchDOpen.ShapeType = VBTrain.GraphicalObjects.Shape.VbShapeEnum.Line Me.GFSwitchDOpen.Size = New System.Drawing.Size(25, 32) Me.GFSwitchDOpen.TabIndex = 38 Me.GFSwitchDOpen.TabStop = False Me.GFSwitchDOpen.Text = "Shape30" ' 'Set400V ' Me.Set400V.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(255, Byte), CType(255, Byte)) Me.Set400V.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Set400V.ForeColor = System.Drawing.Color.Black Me.Set400V.Location = New System.Drawing.Point(384, 120) Me.Set400V.Name = "Set400V" Me.Set400V.Size = New System.Drawing.Size(112, 40) Me.Set400V.TabIndex = 72 Me.Set400V.Text = "Set Limits" ' 'Set48V ' Me.Set48V.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(255, Byte), CType(255, Byte)) Me.Set48V.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Set48V.Location = New System.Drawing.Point(384, 128) Me.Set48V.Name = "Set48V" Me.Set48V.Size = New System.Drawing.Size(112, 40) Me.Set48V.TabIndex = 73 Me.Set48V.Text = "Set Limits" ' 'GFSetpoint400 ' Me.GFSetpoint400.BackColor = System.Drawing.SystemColors.Control Me.GFSetpoint400.Controls.Add(Me.Label24) Me.GFSetpoint400.Controls.Add(Me.GF400LowSetPoint) Me.GFSetpoint400.Controls.Add(Me.Label25) Me.GFSetpoint400.Controls.Add(Me.GF400HighSetpoint) Me.GFSetpoint400.Controls.Add(Me.GFSet400Send) Me.GFSetpoint400.Controls.Add(Me.GFSet400Close) Me.GFSetpoint400.Controls.Add(Me._Label3_1) Me.GFSetpoint400.Controls.Add(Me._Label4_1) Me.GFSetpoint400.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFSetpoint400.ForeColor = System.Drawing.SystemColors.ControlText Me.GFSetpoint400.Location = New System.Drawing.Point(16, 80) Me.GFSetpoint400.Name = "GFSetpoint400" Me.GFSetpoint400.RightToLeft = System.Windows.Forms.RightToLeft.No Me.GFSetpoint400.Size = New System.Drawing.Size(328, 152) Me.GFSetpoint400.TabIndex = 76 Me.GFSetpoint400.TabStop = False Me.GFSetpoint400.Text = "Ground Fault Set Point (400V)" Me.GFSetpoint400.Visible = False ' 'Label24 ' Me.Label24.BackColor = System.Drawing.SystemColors.Control Me.Label24.Cursor = System.Windows.Forms.Cursors.Default Me.Label24.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label24.ForeColor = System.Drawing.SystemColors.ControlText Me.Label24.Location = New System.Drawing.Point(280, 72) Me.Label24.Name = "Label24" Me.Label24.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label24.Size = New System.Drawing.Size(40, 17) Me.Label24.TabIndex = 83 Me.Label24.Text = "uA" ' 'GF400LowSetPoint ' Me.GF400LowSetPoint.AcceptsReturn = True Me.GF400LowSetPoint.AutoSize = False Me.GF400LowSetPoint.BackColor = System.Drawing.SystemColors.Window Me.GF400LowSetPoint.Cursor = System.Windows.Forms.Cursors.IBeam Me.GF400LowSetPoint.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GF400LowSetPoint.ForeColor = System.Drawing.SystemColors.WindowText Me.GF400LowSetPoint.Location = New System.Drawing.Point(200, 70) Me.GF400LowSetPoint.MaxLength = 0 Me.GF400LowSetPoint.Name = "GF400LowSetPoint" Me.GF400LowSetPoint.RightToLeft = System.Windows.Forms.RightToLeft.No Me.GF400LowSetPoint.Size = New System.Drawing.Size(72, 24) Me.GF400LowSetPoint.TabIndex = 82 Me.GF400LowSetPoint.Text = "" ' 'Label25 ' Me.Label25.BackColor = System.Drawing.SystemColors.Control Me.Label25.Cursor = System.Windows.Forms.Cursors.Default Me.Label25.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label25.ForeColor = System.Drawing.SystemColors.ControlText Me.Label25.Location = New System.Drawing.Point(16, 72) Me.Label25.Name = "Label25" Me.Label25.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label25.Size = New System.Drawing.Size(176, 17) Me.Label25.TabIndex = 81 Me.Label25.Text = "GF Setpoint (400 Com)" Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'GF400HighSetpoint ' Me.GF400HighSetpoint.AcceptsReturn = True Me.GF400HighSetpoint.AutoSize = False Me.GF400HighSetpoint.BackColor = System.Drawing.SystemColors.Window Me.GF400HighSetpoint.Cursor = System.Windows.Forms.Cursors.IBeam Me.GF400HighSetpoint.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GF400HighSetpoint.ForeColor = System.Drawing.SystemColors.WindowText Me.GF400HighSetpoint.Location = New System.Drawing.Point(200, 29) Me.GF400HighSetpoint.MaxLength = 0 Me.GF400HighSetpoint.Name = "GF400HighSetpoint" Me.GF400HighSetpoint.RightToLeft = System.Windows.Forms.RightToLeft.No Me.GF400HighSetpoint.Size = New System.Drawing.Size(72, 24) Me.GF400HighSetpoint.TabIndex = 78 Me.GF400HighSetpoint.Text = "" ' 'GFSet400Send ' Me.GFSet400Send.BackColor = System.Drawing.SystemColors.Control Me.GFSet400Send.Cursor = System.Windows.Forms.Cursors.Default Me.GFSet400Send.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFSet400Send.ForeColor = System.Drawing.SystemColors.ControlText Me.GFSet400Send.Location = New System.Drawing.Point(48, 120) Me.GFSet400Send.Name = "GFSet400Send" Me.GFSet400Send.RightToLeft = System.Windows.Forms.RightToLeft.No Me.GFSet400Send.Size = New System.Drawing.Size(65, 25) Me.GFSet400Send.TabIndex = 77 Me.GFSet400Send.Text = "Send" ' 'GFSet400Close ' Me.GFSet400Close.BackColor = System.Drawing.SystemColors.Control Me.GFSet400Close.Cursor = System.Windows.Forms.Cursors.Default Me.GFSet400Close.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFSet400Close.ForeColor = System.Drawing.SystemColors.ControlText Me.GFSet400Close.Location = New System.Drawing.Point(208, 120) Me.GFSet400Close.Name = "GFSet400Close" Me.GFSet400Close.RightToLeft = System.Windows.Forms.RightToLeft.No Me.GFSet400Close.Size = New System.Drawing.Size(65, 25) Me.GFSet400Close.TabIndex = 76 Me.GFSet400Close.Text = "Close" ' '_Label3_1 ' Me._Label3_1.BackColor = System.Drawing.SystemColors.Control Me._Label3_1.Cursor = System.Windows.Forms.Cursors.Default Me._Label3_1.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me._Label3_1.ForeColor = System.Drawing.SystemColors.ControlText Me._Label3_1.Location = New System.Drawing.Point(16, 32) Me._Label3_1.Name = "_Label3_1" Me._Label3_1.RightToLeft = System.Windows.Forms.RightToLeft.No Me._Label3_1.Size = New System.Drawing.Size(168, 17) Me._Label3_1.TabIndex = 80 Me._Label3_1.Text = "GF Setpoint (400V)" Me._Label3_1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' '_Label4_1 ' Me._Label4_1.BackColor = System.Drawing.SystemColors.Control Me._Label4_1.Cursor = System.Windows.Forms.Cursors.Default Me._Label4_1.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me._Label4_1.ForeColor = System.Drawing.SystemColors.ControlText Me._Label4_1.Location = New System.Drawing.Point(280, 32) Me._Label4_1.Name = "_Label4_1" Me._Label4_1.RightToLeft = System.Windows.Forms.RightToLeft.No Me._Label4_1.Size = New System.Drawing.Size(40, 17) Me._Label4_1.TabIndex = 79 Me._Label4_1.Text = "uA" ' 'GFSetpoint48 ' Me.GFSetpoint48.BackColor = System.Drawing.SystemColors.Control Me.GFSetpoint48.Controls.Add(Me.Label26) Me.GFSetpoint48.Controls.Add(Me.GF48LowSetPoint) Me.GFSetpoint48.Controls.Add(Me.Label27) Me.GFSetpoint48.Controls.Add(Me.GFSet48Close) Me.GFSetpoint48.Controls.Add(Me.GFSet48Send) Me.GFSetpoint48.Controls.Add(Me.GF48HighSetpoint) Me.GFSetpoint48.Controls.Add(Me._Label4_0) Me.GFSetpoint48.Controls.Add(Me._Label3_0) Me.GFSetpoint48.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFSetpoint48.ForeColor = System.Drawing.SystemColors.ControlText Me.GFSetpoint48.Location = New System.Drawing.Point(16, 80) Me.GFSetpoint48.Name = "GFSetpoint48" Me.GFSetpoint48.RightToLeft = System.Windows.Forms.RightToLeft.No Me.GFSetpoint48.Size = New System.Drawing.Size(328, 152) Me.GFSetpoint48.TabIndex = 77 Me.GFSetpoint48.TabStop = False Me.GFSetpoint48.Text = "Ground Fault Set Point (48V)" Me.GFSetpoint48.Visible = False ' 'Label26 ' Me.Label26.BackColor = System.Drawing.SystemColors.Control Me.Label26.Cursor = System.Windows.Forms.Cursors.Default Me.Label26.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label26.ForeColor = System.Drawing.SystemColors.ControlText Me.Label26.Location = New System.Drawing.Point(288, 72) Me.Label26.Name = "Label26" Me.Label26.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label26.Size = New System.Drawing.Size(32, 17) Me.Label26.TabIndex = 77 Me.Label26.Text = "uA" ' 'GF48LowSetPoint ' Me.GF48LowSetPoint.AcceptsReturn = True Me.GF48LowSetPoint.AutoSize = False Me.GF48LowSetPoint.BackColor = System.Drawing.SystemColors.Window Me.GF48LowSetPoint.Cursor = System.Windows.Forms.Cursors.IBeam Me.GF48LowSetPoint.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GF48LowSetPoint.ForeColor = System.Drawing.SystemColors.WindowText Me.GF48LowSetPoint.Location = New System.Drawing.Point(208, 72) Me.GF48LowSetPoint.MaxLength = 0 Me.GF48LowSetPoint.Name = "GF48LowSetPoint" Me.GF48LowSetPoint.RightToLeft = System.Windows.Forms.RightToLeft.No Me.GF48LowSetPoint.Size = New System.Drawing.Size(72, 24) Me.GF48LowSetPoint.TabIndex = 76 Me.GF48LowSetPoint.Text = "" ' 'Label27 ' Me.Label27.BackColor = System.Drawing.SystemColors.Control Me.Label27.Cursor = System.Windows.Forms.Cursors.Default Me.Label27.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label27.ForeColor = System.Drawing.SystemColors.ControlText Me.Label27.Location = New System.Drawing.Point(16, 72) Me.Label27.Name = "Label27" Me.Label27.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label27.Size = New System.Drawing.Size(184, 17) Me.Label27.TabIndex = 75 Me.Label27.Text = "GF Setpoint (48 Com)" Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'GFSet48Close ' Me.GFSet48Close.BackColor = System.Drawing.SystemColors.Control Me.GFSet48Close.Cursor = System.Windows.Forms.Cursors.Default Me.GFSet48Close.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFSet48Close.ForeColor = System.Drawing.SystemColors.ControlText Me.GFSet48Close.Location = New System.Drawing.Point(216, 120) Me.GFSet48Close.Name = "GFSet48Close" Me.GFSet48Close.RightToLeft = System.Windows.Forms.RightToLeft.No Me.GFSet48Close.Size = New System.Drawing.Size(65, 25) Me.GFSet48Close.TabIndex = 74 Me.GFSet48Close.Text = "Close" ' 'GFSet48Send ' Me.GFSet48Send.BackColor = System.Drawing.SystemColors.Control Me.GFSet48Send.Cursor = System.Windows.Forms.Cursors.Default Me.GFSet48Send.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFSet48Send.ForeColor = System.Drawing.SystemColors.ControlText Me.GFSet48Send.Location = New System.Drawing.Point(48, 120) Me.GFSet48Send.Name = "GFSet48Send" Me.GFSet48Send.RightToLeft = System.Windows.Forms.RightToLeft.No Me.GFSet48Send.Size = New System.Drawing.Size(65, 25) Me.GFSet48Send.TabIndex = 73 Me.GFSet48Send.Text = "Send" ' 'GF48HighSetpoint ' Me.GF48HighSetpoint.AcceptsReturn = True Me.GF48HighSetpoint.AutoSize = False Me.GF48HighSetpoint.BackColor = System.Drawing.SystemColors.Window Me.GF48HighSetpoint.Cursor = System.Windows.Forms.Cursors.IBeam Me.GF48HighSetpoint.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GF48HighSetpoint.ForeColor = System.Drawing.SystemColors.WindowText Me.GF48HighSetpoint.Location = New System.Drawing.Point(208, 32) Me.GF48HighSetpoint.MaxLength = 0 Me.GF48HighSetpoint.Name = "GF48HighSetpoint" Me.GF48HighSetpoint.RightToLeft = System.Windows.Forms.RightToLeft.No Me.GF48HighSetpoint.Size = New System.Drawing.Size(72, 24) Me.GF48HighSetpoint.TabIndex = 71 Me.GF48HighSetpoint.Text = "" ' '_Label4_0 ' Me._Label4_0.BackColor = System.Drawing.SystemColors.Control Me._Label4_0.Cursor = System.Windows.Forms.Cursors.Default Me._Label4_0.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me._Label4_0.ForeColor = System.Drawing.SystemColors.ControlText Me._Label4_0.Location = New System.Drawing.Point(288, 32) Me._Label4_0.Name = "_Label4_0" Me._Label4_0.RightToLeft = System.Windows.Forms.RightToLeft.No Me._Label4_0.Size = New System.Drawing.Size(32, 17) Me._Label4_0.TabIndex = 72 Me._Label4_0.Text = "uA" ' '_Label3_0 ' Me._Label3_0.BackColor = System.Drawing.SystemColors.Control Me._Label3_0.Cursor = System.Windows.Forms.Cursors.Default Me._Label3_0.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me._Label3_0.ForeColor = System.Drawing.SystemColors.ControlText Me._Label3_0.Location = New System.Drawing.Point(16, 32) Me._Label3_0.Name = "_Label3_0" Me._Label3_0.RightToLeft = System.Windows.Forms.RightToLeft.No Me._Label3_0.Size = New System.Drawing.Size(176, 17) Me._Label3_0.TabIndex = 70 Me._Label3_0.Text = "GF Setpoint (48V)" Me._Label3_0.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'TextBoxGroundFaultStatus ' Me.TextBoxGroundFaultStatus.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextBoxGroundFaultStatus.Location = New System.Drawing.Point(16, 640) Me.TextBoxGroundFaultStatus.Multiline = True Me.TextBoxGroundFaultStatus.Name = "TextBoxGroundFaultStatus" Me.TextBoxGroundFaultStatus.ReadOnly = True Me.TextBoxGroundFaultStatus.ScrollBars = System.Windows.Forms.ScrollBars.Both Me.TextBoxGroundFaultStatus.Size = New System.Drawing.Size(672, 336) Me.TextBoxGroundFaultStatus.TabIndex = 80 Me.TextBoxGroundFaultStatus.Text = "Ground Fault Detection" ' 'DateTime ' Me.DateTime.BackColor = System.Drawing.Color.Transparent Me.DateTime.Cursor = System.Windows.Forms.Cursors.Default Me.DateTime.Font = New System.Drawing.Font("Arial", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.DateTime.ForeColor = System.Drawing.Color.Yellow Me.DateTime.Location = New System.Drawing.Point(728, 16) Me.DateTime.Name = "DateTime" Me.DateTime.RightToLeft = System.Windows.Forms.RightToLeft.No Me.DateTime.Size = New System.Drawing.Size(520, 33) Me.DateTime.TabIndex = 599 Me.DateTime.Text = "Date" Me.DateTime.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'Label28 ' Me.Label28.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte)) Me.Label28.Location = New System.Drawing.Point(720, 8) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(536, 48) Me.Label28.TabIndex = 600 ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte)) Me.Panel1.Controls.Add(Me.Label31) Me.Panel1.Location = New System.Drawing.Point(720, 64) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(544, 200) Me.Panel1.TabIndex = 601 ' 'Label31 ' Me.Label31.BackColor = System.Drawing.Color.Gray Me.Label31.Location = New System.Drawing.Point(8, 120) Me.Label31.Name = "Label31" Me.Label31.Size = New System.Drawing.Size(528, 72) Me.Label31.TabIndex = 606 ' 'Panel2 ' Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte)) Me.Panel2.Controls.Add(Me.GFSetpoint400) Me.Panel2.Controls.Add(Me.Label19) Me.Panel2.Controls.Add(Me.GFLow400V) Me.Panel2.Controls.Add(Me.Set400V) Me.Panel2.Controls.Add(Me.GFHigh400V) Me.Panel2.Controls.Add(Me.Label16) Me.Panel2.Controls.Add(Me.Label18) Me.Panel2.Controls.Add(Me.Label29) Me.Panel2.Location = New System.Drawing.Point(720, 448) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(544, 256) Me.Panel2.TabIndex = 602 ' 'Label29 ' Me.Label29.BackColor = System.Drawing.Color.Gray Me.Label29.Location = New System.Drawing.Point(8, 8) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(528, 48) Me.Label29.TabIndex = 77 ' 'Panel3 ' Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte)) Me.Panel3.Controls.Add(Me.GFSetpoint48) Me.Panel3.Controls.Add(Me.Label20) Me.Panel3.Controls.Add(Me.Label21) Me.Panel3.Controls.Add(Me.Set48V) Me.Panel3.Controls.Add(Me.GFLow48V) Me.Panel3.Controls.Add(Me.Label17) Me.Panel3.Controls.Add(Me.GFHigh48V) Me.Panel3.Controls.Add(Me.Label30) Me.Panel3.Location = New System.Drawing.Point(720, 720) Me.Panel3.Name = "Panel3" Me.Panel3.Size = New System.Drawing.Size(544, 256) Me.Panel3.TabIndex = 603 ' 'Label30 ' Me.Label30.BackColor = System.Drawing.Color.Gray Me.Label30.Location = New System.Drawing.Point(8, 8) Me.Label30.Name = "Label30" Me.Label30.Size = New System.Drawing.Size(528, 48) Me.Label30.TabIndex = 78 ' 'PauseGFDetection ' Me.PauseGFDetection.BackColor = System.Drawing.Color.LightGray Me.PauseGFDetection.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.PauseGFDetection.ForeColor = System.Drawing.Color.Black Me.PauseGFDetection.Location = New System.Drawing.Point(728, 344) Me.PauseGFDetection.Name = "PauseGFDetection" Me.PauseGFDetection.Size = New System.Drawing.Size(272, 32) Me.PauseGFDetection.TabIndex = 604 Me.PauseGFDetection.Text = "Pause Ground Fault Detection" ' 'GFDetectStatus ' Me.GFDetectStatus.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.GFDetectStatus.Font = New System.Drawing.Font("Arial", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GFDetectStatus.ForeColor = System.Drawing.Color.Red Me.GFDetectStatus.Location = New System.Drawing.Point(16, 8) Me.GFDetectStatus.Name = "GFDetectStatus" Me.GFDetectStatus.Size = New System.Drawing.Size(664, 40) Me.GFDetectStatus.TabIndex = 605 Me.GFDetectStatus.Text = "Ground Fault Detection is Disabled for Remote Clients" Me.GFDetectStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.GFDetectStatus.Visible = False ' 'Label32 ' Me.Label32.BackColor = System.Drawing.Color.Silver Me.Label32.Location = New System.Drawing.Point(720, 280) Me.Label32.Name = "Label32" Me.Label32.Size = New System.Drawing.Size(288, 48) Me.Label32.TabIndex = 606 ' 'Label33 ' Me.Label33.BackColor = System.Drawing.Color.Silver Me.Label33.Location = New System.Drawing.Point(720, 336) Me.Label33.Name = "Label33" Me.Label33.Size = New System.Drawing.Size(288, 48) Me.Label33.TabIndex = 607 ' 'Label34 ' Me.Label34.BackColor = System.Drawing.Color.Silver Me.Label34.Location = New System.Drawing.Point(720, 392) Me.Label34.Name = "Label34" Me.Label34.Size = New System.Drawing.Size(288, 48) Me.Label34.TabIndex = 608 Me.Label34.Visible = False ' 'PMACSgroundfault ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.BackColor = System.Drawing.Color.Black Me.ClientSize = New System.Drawing.Size(1272, 986) Me.Controls.Add(Me.GFDetectStatus) Me.Controls.Add(Me.PauseGFDetection) Me.Controls.Add(Me.Panel3) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.DateTime) Me.Controls.Add(Me.Label28) Me.Controls.Add(Me.TextBoxGroundFaultStatus) Me.Controls.Add(Me.GFRestart) Me.Controls.Add(Me.GFTesting) Me.Controls.Add(Me.GFDetect) Me.Controls.Add(Me.GFCurrent) Me.Controls.Add(Me.Label23) Me.Controls.Add(Me.LabelGFBus) Me.Controls.Add(Me.Label22) Me.Controls.Add(Me.GFSwitchEClose) Me.Controls.Add(Me.GFSwitchDClose) Me.Controls.Add(Me.GFSwitchCClose) Me.Controls.Add(Me.GFSwitchBClose) Me.Controls.Add(Me.GFSwitchAClose) Me.Controls.Add(Me.Label15) Me.Controls.Add(Me.Label14) Me.Controls.Add(Me.Label13) Me.Controls.Add(Me.Label12) Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.Label10) Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.Label8) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.GFSwitchEOpen) Me.Controls.Add(Me.GFSwitchDOpen) Me.Controls.Add(Me.GFSwitchCOpen) Me.Controls.Add(Me.GFSwitchBOpen) Me.Controls.Add(Me.GFSwitchAOpen) Me.Controls.Add(Me.Shape29) Me.Controls.Add(Me.Shape28) Me.Controls.Add(Me.Shape27) Me.Controls.Add(Me.Shape26) Me.Controls.Add(Me.Shape25) Me.Controls.Add(Me.Shape24) Me.Controls.Add(Me.Shape23) Me.Controls.Add(Me.Shape22) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Shape21) Me.Controls.Add(Me.Shape20) Me.Controls.Add(Me.Shape19) Me.Controls.Add(Me.Shape18) Me.Controls.Add(Me.Shape17) Me.Controls.Add(Me.Shape16) Me.Controls.Add(Me.Shape15) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Shape14) Me.Controls.Add(Me.Shape13) Me.Controls.Add(Me.Shape11) Me.Controls.Add(Me.Shape12) Me.Controls.Add(Me.Shape10) Me.Controls.Add(Me.Shape9) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Shape8) Me.Controls.Add(Me.Shape7) Me.Controls.Add(Me.Shape6) Me.Controls.Add(Me.Shape5) Me.Controls.Add(Me.Shape4) Me.Controls.Add(Me.Shape3) Me.Controls.Add(Me.Shape2) Me.Controls.Add(Me.Shape1) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Label32) Me.Controls.Add(Me.Label33) Me.Controls.Add(Me.Label34) Me.Cursor = System.Windows.Forms.Cursors.Default Me.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ForeColor = System.Drawing.Color.Black Me.Location = New System.Drawing.Point(4, 30) Me.Name = "PMACSgroundfault" Me.RightToLeft = System.Windows.Forms.RightToLeft.No Me.StartPosition = System.Windows.Forms.FormStartPosition.WindowsDefaultBounds Me.Text = "PMACS Ground Fault Monitoring" Me.WindowState = System.Windows.Forms.FormWindowState.Maximized Me.GFSetpoint400.ResumeLayout(False) Me.GFSetpoint48.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.Panel3.ResumeLayout(False) Me.ResumeLayout(False) End Sub #End Region #Region "Upgrade Support " Private Shared m_vb6FormDefInstance As PMACSgroundfault Private Shared m_InitializingDefInstance As Boolean Public Shared Property DefInstance() As PMACSgroundfault Get If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then m_InitializingDefInstance = True m_vb6FormDefInstance = New PMACSgroundfault m_InitializingDefInstance = False End If DefInstance = m_vb6FormDefInstance End Get Set(ByVal Value As PMACSgroundfault) m_vb6FormDefInstance = Value End Set End Property #End Region #Region "Load Ground Fault window" Private Sub PMACSgroundfault_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If wantPauseGfCheckThread = True And LoginType = 1 Then GFRestart.Visible = True End If If LoginType = 2 Then Set400V.Visible = False Set400V.Enabled = False Set48V.Visible = False Set48V.Enabled = False GFRestart.Visible = False GFRestart.Enabled = False PauseGFDetection.Visible = False PauseGFDetection.Enabled = False GFTesting.Visible = False GFTesting.Enabled = False Label32.Visible = False Label33.Visible = False Label34.Visible = False GFDetect.Text = "Disabled!" GFDetect.ForeColor = System.Drawing.Color.Red GFDetectStatus.Visible = True End If End Sub #End Region #Region "Peform ground fault testing" Private Sub GFTesting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GFTesting.Click Dim myString As String Dim ws As New edu.washington.apl.pmacs.load_service Dim myGFCurrent As Integer Dim LocalGFstatusStr As String 'jbe: Work string for displaying status info in textbox. Dim LocalGFstatusStrB As String 'jbe: Work string for displaying extra status info in textbox. Dim response As Integer 'jbe: work variable debug only. If Not wantPauseGfCheckThread Then MsgBox("You have to pause Ground Fault Detection before you can perform a ground fault test!", MsgBoxStyle.Exclamation) Else response = MsgBox("Perform Ground Fault Testing?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm Operation") If response = MsgBoxResult.Yes Then myString = "test" 'performing ground fault testing 'close both switches C and E PMACSgroundfault.DefInstance.GFSwitchCOpen.Visible = False PMACSgroundfault.DefInstance.GFSwitchCClose.Visible = True LocalGFstatusStrB = " Closed C AND E " PMACSgroundfault.DefInstance.GFSwitchEOpen.Visible = False PMACSgroundfault.DefInstance.GFSwitchEClose.Visible = True PMACSgroundfault.DefInstance.LabelGFBus.Text = "Ground Fault Detection (Testing)" myGFCurrent = ws.checkGF(myString) LocalGFstatusStr = PMACSgroundfault.DefInstance.TextBoxGroundFaultStatus.Text + vbCrLf 'jbe New 04-06-2005 LocalGFstatusStr = LocalGFstatusStr + " " + SystemUTCTime + " " LocalGFstatusStr = LocalGFstatusStr + LocalGFstatusStrB + " " LocalGFstatusStr = LocalGFstatusStr + " Ground Fault current for Testing was " LocalGFstatusStr = LocalGFstatusStr + Str$(globalGFCurrent) + " uA " 'display GF current on PMACSgroundfault window PMACSgroundfault.DefInstance.GFCurrent.Text = CStr(myGFCurrent) + " uA" PMACSgroundfault.DefInstance.TextBoxGroundFaultStatus.Text = LocalGFstatusStr PMACSgroundfault.DefInstance.TextBoxGroundFaultStatus.SelectionStart = Len(LocalGFstatusStr) PMACSgroundfault.DefInstance.TextBoxGroundFaultStatus.ScrollToCaret() 'jbe: Show bottom line in textbox. If myGFCurrent > Science.GFTestSetpoint Then PMACSgroundfault.DefInstance.GFDetect.ForeColor = System.Drawing.Color.Lime PMACSgroundfault.DefInstance.GFDetect.Text = "Ground Fault Detection Passed" PMACSgroundfault.DefInstance.GFRestart.Visible = True Else PMACSgroundfault.DefInstance.GFDetect.ForeColor = System.Drawing.Color.Red PMACSgroundfault.DefInstance.GFDetect.Text = "Ground Fault Detection Failed" PMACSgroundfault.DefInstance.GFRestart.Visible = True End If Else End If End If End Sub #End Region #Region "Restart ground fault monitoring" Private Sub GFRestart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GFRestart.Click wantPauseGfCheckThread = False GFRestart.Visible = False Label34.Visible = False End Sub #End Region #Region "click to set limit for 400 Bus" Private Sub Set400V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Set400V.Click 'Disable Timer1 'PMACSstartup.DefInstance.Timer1.Enabled = False activeFlag = True GFSetpoint400.Visible = True End Sub #End Region #Region "clieck to set limit for 48 Bus" Private Sub Set48V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Set48V.Click 'Disable Timer1 'PMACSstartup.DefInstance.Timer1.Enabled = False activeFlag = True GFSetpoint48.Visible = True End Sub #End Region #Region "Close 400V Bus ground fault setting" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'when user close grounf fault setting without changing ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub GFSet400Close_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles GFSet400Close.Click Dim mstrName As Object Dim response As Short GFSetpoint400.Visible = False activeFlag = False End Sub #End Region #Region "Send 400V bus ground fault setting" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'user changes ground fault setting for 400V bus 'once confirmed, update the ground fault setting '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub GFSet400Send_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles GFSet400Send.Click Dim mstrName As Object Dim response As Short mstrName = "Confirm Operation" response = MsgBox("Set Ground Fault Current Limit?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "" & mstrName) 'When user confrims the changes, 'save the value in the data structure Science If response = MsgBoxResult.Yes Then If IsNumeric(GF400HighSetpoint.Text) And IsNumeric(GF400LowSetPoint.Text) Then Science.GF400HighSetpoint = CDbl(GF400HighSetpoint.Text) Science.GF400LowSetpoint = CDbl(GF400LowSetPoint.Text) GFSetpoint400.Visible = False Call GFInitialize(Science) activeFlag = False 'MsgBox("Set Ground Fault Current Limit!") Else MsgBox("Please enter an appropriate ground fault setpoint!", MsgBoxStyle.Exclamation, "Error") End If Else GFSetpoint400.Visible = False activeFlag = False 'MsgBox("No Changes Made!") End If 'Enable Timer1 'PMACSstartup.DefInstance.Timer1.Enabled = True End Sub #End Region #Region "Close 48V Bus ground fault setting" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'when user close grounf fault setting without changing ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub GFSet48Close_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles GFSet48Close.Click Dim mstrName As Object Dim response As Short GFSetpoint48.Visible = False activeFlag = False End Sub #End Region #Region "Send 48V bus ground fault setting" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'user changes ground fault setting for 48V bus 'once confirmed, update the ground fault setting '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub GFSet48Send_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles GFSet48Send.Click Dim mstrName As Object Dim response As Short mstrName = "Confirm Operation" response = MsgBox("Set Ground Fault Current Limit?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "" & mstrName) 'When user confrims the changes, 'save the value in the data structure Science If response = MsgBoxResult.Yes Then If IsNumeric(GF48HighSetpoint.Text) And IsNumeric(GF48LowSetPoint.Text) Then Science.GF48HighSetpoint = CDbl(GF48HighSetpoint.Text) Science.GF48LowSetpoint = CDbl(GF48LowSetPoint.Text) GFSetpoint48.Visible = False Call GFInitialize(Science) activeFlag = False Else MsgBox("Please enter an appropriate ground fault setpoint!", MsgBoxStyle.Exclamation, "Error") End If Else GFSetpoint48.Visible = False activeFlag = False End If End Sub #End Region #Region "Stop ground fault monitoring" Private Sub PauseGFDetection_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PauseGFDetection.Click wantPauseGfCheckThread = True GFDetect.Text = "Ground Fault Detection is Paused!" GFDetect.ForeColor = System.Drawing.Color.Yellow GFRestart.Visible = True Label34.Visible = True End Sub #End Region End Class