Code development platform for open source projects from the European Union institutions

Skip to content
Snippets Groups Projects
Commit a4469c86 authored by Terry Burns's avatar Terry Burns Committed by Kostis ANAGNOSTOPOULOS
Browse files

Electrical Consumables Binding and Validation Now Operational. 

git-tfs-id: [http://tfs00.element.root.com:8080/tfs/TFSCollection]$/VECTO;C1645
parent faa2b55a
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 183 additions and 61 deletions
AuxillaryTestHarness/Dashboard.Designer.vb
+ 54
− 51
View file @ a4469c86
...@@ -62,13 +62,13 @@ Partial Class Dashboard ...@@ -62,13 +62,13 @@ Partial Class Dashboard
Me.tabPneumaticConfig = New System.Windows.Forms.TabPage() Me.tabPneumaticConfig = New System.Windows.Forms.TabPage()
Me.tabHVACConfig = New System.Windows.Forms.TabPage() Me.tabHVACConfig = New System.Windows.Forms.TabPage()
Me.tabPlayground = New System.Windows.Forms.TabPage() Me.tabPlayground = New System.Windows.Forms.TabPage()
Me.bndgsElecConsumables = New System.Windows.Forms.BindingSource(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnStart = New System.Windows.Forms.Button()
Me.btnBack = New System.Windows.Forms.Button()
Me.btnForward = New System.Windows.Forms.Button()
Me.btnFinish = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button() Me.btnCancel = New System.Windows.Forms.Button()
Me.btnFinish = New System.Windows.Forms.Button()
Me.btnForward = New System.Windows.Forms.Button()
Me.btnBack = New System.Windows.Forms.Button()
Me.btnStart = New System.Windows.Forms.Button()
Me.brcElecConsumers = New System.Windows.Forms.BindingSource(Me.components)
Me.tabMain.SuspendLayout Me.tabMain.SuspendLayout
Me.tabGeneralConfig.SuspendLayout Me.tabGeneralConfig.SuspendLayout
Me.tabElectricalConfig.SuspendLayout Me.tabElectricalConfig.SuspendLayout
...@@ -76,8 +76,8 @@ Partial Class Dashboard ...@@ -76,8 +76,8 @@ Partial Class Dashboard
CType(Me.DataGridView2,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.DataGridView2,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.DataGridView1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.DataGridView1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.gvElectricalConsumables,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.gvElectricalConsumables,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.bndgsElecConsumables,System.ComponentModel.ISupportInitialize).BeginInit
Me.Panel1.SuspendLayout Me.Panel1.SuspendLayout
CType(Me.brcElecConsumers,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout Me.SuspendLayout
' '
'tabMain 'tabMain
...@@ -91,7 +91,7 @@ Partial Class Dashboard ...@@ -91,7 +91,7 @@ Partial Class Dashboard
Me.tabMain.Location = New System.Drawing.Point(13, 14) Me.tabMain.Location = New System.Drawing.Point(13, 14)
Me.tabMain.Name = "tabMain" Me.tabMain.Name = "tabMain"
Me.tabMain.SelectedIndex = 0 Me.tabMain.SelectedIndex = 0
Me.tabMain.Size = New System.Drawing.Size(751, 467) Me.tabMain.Size = New System.Drawing.Size(894, 477)
Me.tabMain.TabIndex = 0 Me.tabMain.TabIndex = 0
Me.tabMain.Tag = "" Me.tabMain.Tag = ""
' '
...@@ -104,7 +104,7 @@ Partial Class Dashboard ...@@ -104,7 +104,7 @@ Partial Class Dashboard
Me.tabGeneralConfig.Location = New System.Drawing.Point(4, 22) Me.tabGeneralConfig.Location = New System.Drawing.Point(4, 22)
Me.tabGeneralConfig.Name = "tabGeneralConfig" Me.tabGeneralConfig.Name = "tabGeneralConfig"
Me.tabGeneralConfig.Padding = New System.Windows.Forms.Padding(3) Me.tabGeneralConfig.Padding = New System.Windows.Forms.Padding(3)
Me.tabGeneralConfig.Size = New System.Drawing.Size(743, 441) Me.tabGeneralConfig.Size = New System.Drawing.Size(886, 451)
Me.tabGeneralConfig.TabIndex = 0 Me.tabGeneralConfig.TabIndex = 0
Me.tabGeneralConfig.Text = "GeneralConfig" Me.tabGeneralConfig.Text = "GeneralConfig"
Me.tabGeneralConfig.UseVisualStyleBackColor = true Me.tabGeneralConfig.UseVisualStyleBackColor = true
...@@ -165,7 +165,7 @@ Partial Class Dashboard ...@@ -165,7 +165,7 @@ Partial Class Dashboard
Me.tabElectricalConfig.Location = New System.Drawing.Point(4, 22) Me.tabElectricalConfig.Location = New System.Drawing.Point(4, 22)
Me.tabElectricalConfig.Name = "tabElectricalConfig" Me.tabElectricalConfig.Name = "tabElectricalConfig"
Me.tabElectricalConfig.Padding = New System.Windows.Forms.Padding(3) Me.tabElectricalConfig.Padding = New System.Windows.Forms.Padding(3)
Me.tabElectricalConfig.Size = New System.Drawing.Size(743, 441) Me.tabElectricalConfig.Size = New System.Drawing.Size(886, 451)
Me.tabElectricalConfig.TabIndex = 1 Me.tabElectricalConfig.TabIndex = 1
Me.tabElectricalConfig.Text = "ElectricalConfig" Me.tabElectricalConfig.Text = "ElectricalConfig"
Me.tabElectricalConfig.UseVisualStyleBackColor = true Me.tabElectricalConfig.UseVisualStyleBackColor = true
...@@ -189,7 +189,7 @@ Partial Class Dashboard ...@@ -189,7 +189,7 @@ Partial Class Dashboard
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView3.DefaultCellStyle = DataGridViewCellStyle2 Me.DataGridView3.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridView3.Location = New System.Drawing.Point(502, 331) Me.DataGridView3.Location = New System.Drawing.Point(613, 353)
Me.DataGridView3.Name = "DataGridView3" Me.DataGridView3.Name = "DataGridView3"
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
...@@ -199,7 +199,7 @@ Partial Class Dashboard ...@@ -199,7 +199,7 @@ Partial Class Dashboard
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView3.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 Me.DataGridView3.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.DataGridView3.Size = New System.Drawing.Size(191, 81) Me.DataGridView3.Size = New System.Drawing.Size(218, 81)
Me.DataGridView3.TabIndex = 18 Me.DataGridView3.TabIndex = 18
' '
'DataGridView2 'DataGridView2
...@@ -221,7 +221,7 @@ Partial Class Dashboard ...@@ -221,7 +221,7 @@ Partial Class Dashboard
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView2.DefaultCellStyle = DataGridViewCellStyle5 Me.DataGridView2.DefaultCellStyle = DataGridViewCellStyle5
Me.DataGridView2.Location = New System.Drawing.Point(260, 331) Me.DataGridView2.Location = New System.Drawing.Point(324, 353)
Me.DataGridView2.Name = "DataGridView2" Me.DataGridView2.Name = "DataGridView2"
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
...@@ -231,7 +231,7 @@ Partial Class Dashboard ...@@ -231,7 +231,7 @@ Partial Class Dashboard
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView2.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.DataGridView2.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.DataGridView2.Size = New System.Drawing.Size(191, 81) Me.DataGridView2.Size = New System.Drawing.Size(218, 81)
Me.DataGridView2.TabIndex = 17 Me.DataGridView2.TabIndex = 17
' '
'DataGridView1 'DataGridView1
...@@ -253,7 +253,7 @@ Partial Class Dashboard ...@@ -253,7 +253,7 @@ Partial Class Dashboard
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle8 Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle8
Me.DataGridView1.Location = New System.Drawing.Point(33, 328) Me.DataGridView1.Location = New System.Drawing.Point(35, 353)
Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.Name = "DataGridView1"
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
...@@ -263,13 +263,13 @@ Partial Class Dashboard ...@@ -263,13 +263,13 @@ Partial Class Dashboard
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView1.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.DataGridView1.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
Me.DataGridView1.Size = New System.Drawing.Size(191, 81) Me.DataGridView1.Size = New System.Drawing.Size(218, 81)
Me.DataGridView1.TabIndex = 16 Me.DataGridView1.TabIndex = 16
' '
'Label9 'Label9
' '
Me.Label9.AutoSize = true Me.Label9.AutoSize = true
Me.Label9.Location = New System.Drawing.Point(505, 315) Me.Label9.Location = New System.Drawing.Point(616, 333)
Me.Label9.Name = "Label9" Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(83, 13) Me.Label9.Size = New System.Drawing.Size(83, 13)
Me.Label9.TabIndex = 15 Me.Label9.TabIndex = 15
...@@ -278,7 +278,7 @@ Partial Class Dashboard ...@@ -278,7 +278,7 @@ Partial Class Dashboard
'Label8 'Label8
' '
Me.Label8.AutoSize = true Me.Label8.AutoSize = true
Me.Label8.Location = New System.Drawing.Point(260, 315) Me.Label8.Location = New System.Drawing.Point(326, 332)
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(84, 13) Me.Label8.Size = New System.Drawing.Size(84, 13)
Me.Label8.TabIndex = 14 Me.Label8.TabIndex = 14
...@@ -287,7 +287,7 @@ Partial Class Dashboard ...@@ -287,7 +287,7 @@ Partial Class Dashboard
'Label7 'Label7
' '
Me.Label7.AutoSize = true Me.Label7.AutoSize = true
Me.Label7.Location = New System.Drawing.Point(30, 312) Me.Label7.Location = New System.Drawing.Point(39, 333)
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(62, 13) Me.Label7.Size = New System.Drawing.Size(62, 13)
Me.Label7.TabIndex = 13 Me.Label7.TabIndex = 13
...@@ -314,6 +314,8 @@ Partial Class Dashboard ...@@ -314,6 +314,8 @@ Partial Class Dashboard
' '
'gvElectricalConsumables 'gvElectricalConsumables
' '
Me.gvElectricalConsumables.AllowUserToOrderColumns = true
Me.gvElectricalConsumables.AutoGenerateColumns = false
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
...@@ -323,6 +325,7 @@ Partial Class Dashboard ...@@ -323,6 +325,7 @@ Partial Class Dashboard
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gvElectricalConsumables.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10 Me.gvElectricalConsumables.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
Me.gvElectricalConsumables.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.gvElectricalConsumables.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gvElectricalConsumables.DataSource = Me.brcElecConsumers
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
...@@ -341,7 +344,7 @@ Partial Class Dashboard ...@@ -341,7 +344,7 @@ Partial Class Dashboard
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gvElectricalConsumables.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.gvElectricalConsumables.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.gvElectricalConsumables.Size = New System.Drawing.Size(659, 127) Me.gvElectricalConsumables.Size = New System.Drawing.Size(803, 149)
Me.gvElectricalConsumables.TabIndex = 10 Me.gvElectricalConsumables.TabIndex = 10
' '
'txtDoorActuationTimeSeconds 'txtDoorActuationTimeSeconds
...@@ -446,26 +449,26 @@ Partial Class Dashboard ...@@ -446,26 +449,26 @@ Partial Class Dashboard
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(813, 566) Me.Panel1.Size = New System.Drawing.Size(937, 566)
Me.Panel1.TabIndex = 1 Me.Panel1.TabIndex = 1
' '
'btnStart 'btnCancel
' '
Me.btnStart.Location = New System.Drawing.Point(320, 511) Me.btnCancel.Location = New System.Drawing.Point(727, 510)
Me.btnStart.Name = "btnStart" Me.btnCancel.Name = "btnCancel"
Me.btnStart.Size = New System.Drawing.Size(75, 23) Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnStart.TabIndex = 1 Me.btnCancel.TabIndex = 5
Me.btnStart.Text = "|< Start" Me.btnCancel.Text = "Cancel"
Me.btnStart.UseVisualStyleBackColor = true Me.btnCancel.UseVisualStyleBackColor = true
' '
'btnBack 'btnFinish
' '
Me.btnBack.Location = New System.Drawing.Point(437, 511) Me.btnFinish.Location = New System.Drawing.Point(645, 511)
Me.btnBack.Name = "btnBack" Me.btnFinish.Name = "btnFinish"
Me.btnBack.Size = New System.Drawing.Size(75, 23) Me.btnFinish.Size = New System.Drawing.Size(75, 23)
Me.btnBack.TabIndex = 2 Me.btnFinish.TabIndex = 4
Me.btnBack.Text = "<< Back" Me.btnFinish.Text = "Finish >|"
Me.btnBack.UseVisualStyleBackColor = true Me.btnFinish.UseVisualStyleBackColor = true
' '
'btnForward 'btnForward
' '
...@@ -476,29 +479,29 @@ Partial Class Dashboard ...@@ -476,29 +479,29 @@ Partial Class Dashboard
Me.btnForward.Text = "Fwd >>" Me.btnForward.Text = "Fwd >>"
Me.btnForward.UseVisualStyleBackColor = true Me.btnForward.UseVisualStyleBackColor = true
' '
'btnFinish 'btnBack
' '
Me.btnFinish.Location = New System.Drawing.Point(645, 511) Me.btnBack.Location = New System.Drawing.Point(437, 511)
Me.btnFinish.Name = "btnFinish" Me.btnBack.Name = "btnBack"
Me.btnFinish.Size = New System.Drawing.Size(75, 23) Me.btnBack.Size = New System.Drawing.Size(75, 23)
Me.btnFinish.TabIndex = 4 Me.btnBack.TabIndex = 2
Me.btnFinish.Text = "Finish >|" Me.btnBack.Text = "<< Back"
Me.btnFinish.UseVisualStyleBackColor = true Me.btnBack.UseVisualStyleBackColor = true
' '
'btnCancel 'btnStart
' '
Me.btnCancel.Location = New System.Drawing.Point(727, 510) Me.btnStart.Location = New System.Drawing.Point(320, 511)
Me.btnCancel.Name = "btnCancel" Me.btnStart.Name = "btnStart"
Me.btnCancel.Size = New System.Drawing.Size(75, 23) Me.btnStart.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 5 Me.btnStart.TabIndex = 1
Me.btnCancel.Text = "Cancel" Me.btnStart.Text = "|< Start"
Me.btnCancel.UseVisualStyleBackColor = true Me.btnStart.UseVisualStyleBackColor = true
' '
'Dashboard 'Dashboard
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(813, 566) Me.ClientSize = New System.Drawing.Size(937, 566)
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Panel1)
Me.Name = "Dashboard" Me.Name = "Dashboard"
Me.Text = "Dashboard" Me.Text = "Dashboard"
...@@ -511,8 +514,8 @@ Partial Class Dashboard ...@@ -511,8 +514,8 @@ Partial Class Dashboard
CType(Me.DataGridView2,System.ComponentModel.ISupportInitialize).EndInit CType(Me.DataGridView2,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.DataGridView1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.DataGridView1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.gvElectricalConsumables,System.ComponentModel.ISupportInitialize).EndInit CType(Me.gvElectricalConsumables,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.bndgsElecConsumables,System.ComponentModel.ISupportInitialize).EndInit
Me.Panel1.ResumeLayout(false) Me.Panel1.ResumeLayout(false)
CType(Me.brcElecConsumers,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false) Me.ResumeLayout(false)
End Sub End Sub
...@@ -543,11 +546,11 @@ End Sub ...@@ -543,11 +546,11 @@ End Sub
Friend WithEvents chkSmartElectricals As System.Windows.Forms.CheckBox Friend WithEvents chkSmartElectricals As System.Windows.Forms.CheckBox
Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents gvElectricalConsumables As System.Windows.Forms.DataGridView Friend WithEvents gvElectricalConsumables As System.Windows.Forms.DataGridView
Friend WithEvents bndgsElecConsumables As System.Windows.Forms.BindingSource
Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents btnCancel As System.Windows.Forms.Button Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents btnFinish As System.Windows.Forms.Button Friend WithEvents btnFinish As System.Windows.Forms.Button
Friend WithEvents btnForward As System.Windows.Forms.Button Friend WithEvents btnForward As System.Windows.Forms.Button
Friend WithEvents btnBack As System.Windows.Forms.Button Friend WithEvents btnBack As System.Windows.Forms.Button
Friend WithEvents btnStart As System.Windows.Forms.Button Friend WithEvents btnStart As System.Windows.Forms.Button
Friend WithEvents brcElecConsumers As System.Windows.Forms.BindingSource
End Class End Class
AuxillaryTestHarness/Dashboard.resx
+ 4
− 1
View file @ a4469c86
...@@ -117,7 +117,10 @@ ...@@ -117,7 +117,10 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="bndgsElecConsumables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="brcElecConsumers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>25</value>
</metadata>
</root> </root>
\ No newline at end of file
AuxillaryTestHarness/Dashboard.vb
+ 116
− 8
View file @ a4469c86
...@@ -9,39 +9,147 @@ Private Sub Dashboard_Load( sender As Object, e As EventArgs) Handles MyBase.Lo ...@@ -9,39 +9,147 @@ Private Sub Dashboard_Load( sender As Object, e As EventArgs) Handles MyBase.Lo
cboCycle.SelectedIndex=0 cboCycle.SelectedIndex=0
SetupControls()
CreateBindings() CreateBindings()
End Sub End Sub
Private Sub cboCycle_SelectedIndexChanged( sender As Object, e As EventArgs) Handles cboCycle.SelectedIndexChanged Private Sub cboCycle_SelectedIndexChanged( sender As Object, e As EventArgs) Handles cboCycle.SelectedIndexChanged
End Sub End Sub
Private sub SetupControls()
Dim cIndex As Integer=0
'ElectricalConsumerGrid
'Columns
cIndex=gvElectricalConsumables.Columns.Add("Category","Category")
gvElectricalConsumables.Columns(cIndex).DataPropertyName="Category"
gvElectricalConsumables.Columns(cIndex).MinimumWidth=150
gvElectricalConsumables.Columns(cIndex).ReadOnly=True
cIndex=gvElectricalConsumables.Columns.Add("ConsumerName","Name")
gvElectricalConsumables.Columns(cIndex).DataPropertyName="ConsumerName"
gvElectricalConsumables.Columns(cIndex).MinimumWidth=300
gvElectricalConsumables.Columns(cIndex).ReadOnly=True
Dim baseVehicle As New DataGridViewCheckBoxColumn(false)
baseVehicle.HeaderText="BaseVehicle"
cIndex=gvElectricalConsumables.Columns.Add(baseVehicle)
gvElectricalConsumables.Columns(cIndex).DataPropertyName="BaseVehicle"
gvElectricalConsumables.Columns(cIndex).Width=60
cIndex=gvElectricalConsumables.Columns.Add("NominalConsumptionAmps","Nominal Amps")
gvElectricalConsumables.Columns(cIndex).DataPropertyName="NominalConsumptionAmps"
gvElectricalConsumables.Columns(cIndex).Width=50
cIndex=gvElectricalConsumables.Columns.Add("PhaseIdle_TractionOn","PhaseIdle\n/TractionOn")
gvElectricalConsumables.Columns(cIndex).DataPropertyName="PhaseIdle_TractionOn"
gvElectricalConsumables.Columns(cIndex).Width=50
cIndex=gvElectricalConsumables.Columns.Add("NumberInActualVehicle","Num in Vehicle")
gvElectricalConsumables.Columns(cIndex).DataPropertyName="NumberInActualVehicle"
gvElectricalConsumables.Columns(cIndex).Width=50
End Sub
Private Sub CreateBindings Private Sub CreateBindings
'auxEnvironment.Vecto Bindings 'AuxEnvironment.Vecto Bindings
txtPowernetVoltage.DataBindings.Add("Text", auxEnvironment.VectoInputs, "PowerNetVoltage") txtPowernetVoltage.DataBindings.Add("Text", auxEnvironment.VectoInputs, "PowerNetVoltage")
txtVehicleWeightKG.DataBindings.Add("Text",auxEnvironment.VectoInputs,"VehicleWeightKG") txtVehicleWeightKG.DataBindings.Add("Text",auxEnvironment.VectoInputs,"VehicleWeightKG")
cboCycle.DataBindings.Add("Text",auxEnvironment.VectoInputs,"Cycle") cboCycle.DataBindings.Add("Text",auxEnvironment.VectoInputs,"Cycle")
'Electricals 'Electricals General
'UserInput
txtAlternatorMapPath.DataBindings.Add("Text",auxEnvironment.ElectricalUserInputsConfig,"AlternatorMap") txtAlternatorMapPath.DataBindings.Add("Text",auxEnvironment.ElectricalUserInputsConfig,"AlternatorMap")
txtAlternatorGearEfficiency.DataBindings.Add("Text", auxEnvironment.ElectricalUserInputsConfig,"AlternatorGearEfficiency") txtAlternatorGearEfficiency.DataBindings.Add("Text", auxEnvironment.ElectricalUserInputsConfig,"AlternatorGearEfficiency")
txtDoorActuationTimeSeconds.DataBindings.Add("Text",auxEnvironment.ElectricalUserInputsConfig,"DoorActuationTimeSecond") txtDoorActuationTimeSeconds.DataBindings.Add("Text",auxEnvironment.ElectricalUserInputsConfig,"DoorActuationTimeSecond")
chkSmartElectricals.DataBindings.Add("Checked",auxEnvironment.ElectricalUserInputsConfig,"SmartElectrical") chkSmartElectricals.DataBindings.Add("Checked",auxEnvironment.ElectricalUserInputsConfig,"SmartElectrical")
'ConsumablesGrid
gvElectricalConsumables.DataSource = auxEnvironment.ElectricalUserInputsConfig.ElectricalConsumers.Items
'ResultCards
'Dim cIndex As Integer = gvElectricalConsumables.Columns.Add("ConsumerName","ConsumerName")
'gvElectricalConsumables.Columns(cIndex).DataPropertyName="Value.ConsumerName"
'Dim list As New List(of IElectricalConsumer)
'gvElectricalConsumables.DataSource = list End Sub
Private Sub gvElectricalConsumables_CellEndEdit( sender As Object, e As DataGridViewCellEventArgs) Handles gvElectricalConsumables.CellEndEdit
End Sub End Sub
Private Sub gvElectricalConsumables_CellValidating( sender As Object, e As DataGridViewCellValidatingEventArgs) Handles gvElectricalConsumables.CellValidating
Dim column As DataGridViewColumn = gvElectricalConsumables.Columns(e.ColumnIndex)
Dim message As String = String.Empty
If Not column.ReadOnly then
e.Cancel = Not IsValidElectricalConsumableEdit(column, e.FormattedValue, message)
End If
End Sub
Private Function IsValidElectricalConsumableEdit( column As DataGridViewColumn, val As String , byref message As string) As Boolean
dim s As Single
Dim tip = column.CellType
Select Case column.Name
case "NominalConsumptionAmps"
Return true
case "NumberInActualVehicle"
If not IsNumeric(val)
MessageBox.Show("This value must be numeric")
Return false
Else
s = Single.Parse(val)
End If
If s MOD 1 > 0 orelse s<0 then
MessageBox.Show("This value must be a positive whole number ( Integer ) ")
Return false
End If
case "PhaseIdle_TractionOn"
If not IsNumeric(val)
MessageBox.Show("This value must be numeric")
Return false
Else
s = Single.Parse(val)
End If
If s < 0 orelse s>1 then
MessageBox.Show("This must be a value between 0 and 1 ")
Return false
End If
End Select
Return true
End Function
End Class End Class
\ No newline at end of file
VECTOAux/VectoAuxiliaries/AuxillaryEnvironment.vb
+ 1
− 0
View file @ a4469c86
...@@ -13,6 +13,7 @@ Public Class AuxillaryEnvironment ...@@ -13,6 +13,7 @@ Public Class AuxillaryEnvironment
'Electrical 'Electrical
Public property ElectricalUserInputsConfig As IElectricsUserInputsConfig Public property ElectricalUserInputsConfig As IElectricsUserInputsConfig
'Pneumatics 'Pneumatics
Private Property PneumaticUserInputsConfig As IPneumaticUserInputsConfig Private Property PneumaticUserInputsConfig As IPneumaticUserInputsConfig
Private Property PneumaticAuxillariesConfig As IPneumaticsAuxilliariesConfig Private Property PneumaticAuxillariesConfig As IPneumaticsAuxilliariesConfig
......
VECTOAux/VectoAuxiliaries/Electrics/ElectricalConsumer.vb
+ 1
− 1
View file @ a4469c86
...@@ -37,7 +37,7 @@ ...@@ -37,7 +37,7 @@
Public Function TotalAvgConsumptionInWatts(Optional PhaseIdle_TractionOnBasedOnCycle As Single = 0.0) As Single Implements Electrics.IElectricalConsumer.TotalAvgConsumptionInWatts Public Function TotalAvgConsumptionInWatts(Optional PhaseIdle_TractionOnBasedOnCycle As Single = 0.0) As Single Implements Electrics.IElectricalConsumer.TotalAvgConsumptionInWatts
Return TotalAvgConumptionAmps(PhaseIdle_TractionOnBasedOnCycle) * PowerNetVoltage Return TotalAvgConumptionAmps(PhaseIdle_TractionOnBasedOnCycle) * PowerNetVoltage
End Function End Function
Public Sub New(BaseVehicle As Boolean, Category As String, ConsumerName As String, NominalConsumptionAmps As Single, PhaseIdle_TractionOn As Single, PowerNetVoltage As Single, numberInVehicle As Integer) Public Sub New(BaseVehicle As Boolean, Category As String, ConsumerName As String, NominalConsumptionAmps As Single, PhaseIdle_TractionOn As Single, PowerNetVoltage As Single, numberInVehicle As Integer)
......
VECTOAux/VectoAuxiliaries/Electrics/ElectricalConsumerList.vb
+ 7
− 0
View file @ a4469c86
...@@ -17,6 +17,9 @@ Public ReadOnly Property Items As List(Of IElectricalConsumer) Implements IElec ...@@ -17,6 +17,9 @@ Public ReadOnly Property Items As List(Of IElectricalConsumer) Implements IElec
End Get End Get
End Property End Property
'Create Empty List 'Create Empty List
Public Sub New(powernetVoltage As Single,doorDutyCycle_ZeroToOne As single, Optional createDefaultList As Boolean = False) Public Sub New(powernetVoltage As Single,doorDutyCycle_ZeroToOne As single, Optional createDefaultList As Boolean = False)
...@@ -31,6 +34,10 @@ _doorDutyCycleZeroToOne = doorDutyCycle_ZeroToOne ...@@ -31,6 +34,10 @@ _doorDutyCycleZeroToOne = doorDutyCycle_ZeroToOne
End Sub End Sub
Public Sub SetDefaultConsumerList() Public Sub SetDefaultConsumerList()
'This populates the default settings as per engineering spreadsheet. 'This populates the default settings as per engineering spreadsheet.
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

For further information about the platform and support, please see https://code.europa.eu/info/about