diff --git a/instat/Model/Output/clsOutputLogger.vb b/instat/Model/Output/clsOutputLogger.vb index 25e04fc2083..9905d4c7ea3 100644 --- a/instat/Model/Output/clsOutputLogger.vb +++ b/instat/Model/Output/clsOutputLogger.vb @@ -110,7 +110,7 @@ Public Class clsOutputLogger 'add the output with it's R script as another output element outputElement.SetContent("", outputType, strOutput) - '_outputElements.Add(outputElement) + _outputElements.Add(outputElement) 'raise event for output pages RaiseEvent NewOutputAdded(outputElement, bDisplayOutputInExternalViewer) diff --git a/instat/UserControl/ucrOutputPage.vb b/instat/UserControl/ucrOutputPage.vb index 0d8972109b5..6188b0e197a 100644 --- a/instat/UserControl/ucrOutputPage.vb +++ b/instat/UserControl/ucrOutputPage.vb @@ -22,6 +22,10 @@ Imports RInsightF461 ''' Public Class ucrOutputPage Private _checkBoxes As List(Of CheckBox) + + ''' lastCheckedBox used to store a reference to a CheckBox control. + Private lastCheckedBox As CheckBox = Nothing + Private _bCanReOrder As Boolean Private _bCanRename As Boolean Private _bCanDelete As Boolean @@ -115,6 +119,15 @@ Public Class ucrOutputPage Next End Sub + ''' + ''' Selects all check boxes on the page + ''' + Public Sub SelectAllCheckBoxes() + For Each checkbox In _checkBoxes + checkbox.Checked = True + Next + End Sub + ''' ''' Clears all outputs on the page ''' @@ -215,8 +228,6 @@ Public Class ucrOutputPage End If End Sub - - Private Sub AddNewTextOutput(outputElement As clsOutputElement) Dim panel As Panel = AddElementPanel(outputElement) @@ -377,12 +388,11 @@ Public Class ucrOutputPage } panel.Controls.Add(checkBox) _checkBoxes.Add(checkBox) + AddHandler checkBox.CheckedChanged, AddressOf CheckBox_CheckedChanged AddHandler checkBox.Click, AddressOf checkButton_Click AddHandler checkBox.MouseLeave, AddressOf panelContents_MouseLeave End Sub - - ''' ''' Copies selected elements to clipboard ''' @@ -478,7 +488,6 @@ Public Class ucrOutputPage Next End Sub - Private Sub SetRichTextBoxHeight(richTextBox As RichTextBox) richTextBox.Height = (richTextBox.GetLineFromCharIndex(richTextBox.Text.Length) + 1) * (richTextBox.Font.Height + richTextBox.Margin.Vertical) + 5 End Sub @@ -487,6 +496,41 @@ Public Class ucrOutputPage pictureBox.Height = pictureBox.Width / (pictureBox.Image.Width / pictureBox.Image.Height) End Sub + Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) + Dim currentBox As CheckBox = DirectCast(sender, CheckBox) + + If lastCheckedBox IsNot Nothing AndAlso Control.ModifierKeys = Keys.Shift Then + Dim startIndex As Integer = _checkBoxes.IndexOf(lastCheckedBox) + Dim endIndex As Integer = _checkBoxes.IndexOf(currentBox) + + ' Toggle check state for checkboxes between startIndex and endIndex + For i As Integer = Math.Min(startIndex, endIndex) To Math.Max(startIndex, endIndex) + _checkBoxes(i).Checked = currentBox.Checked + Next + End If + + lastCheckedBox = currentBox + End Sub + + Private Sub CheckBox_MouseDown(sender As Object, e As MouseEventArgs) + Dim currentBox As CheckBox = DirectCast(sender, CheckBox) + + If e.Button = MouseButtons.Left AndAlso Control.ModifierKeys = Keys.Shift Then + ' Deselect all checkboxes between lastCheckedBox and currentBox + Dim startIndex As Integer = _checkBoxes.IndexOf(lastCheckedBox) + Dim endIndex As Integer = _checkBoxes.IndexOf(currentBox) + + For i As Integer = Math.Min(startIndex, endIndex) + 1 To Math.Max(startIndex, endIndex) - 1 + _checkBoxes(i).Checked = False + Next + ElseIf currentBox.Checked AndAlso Not Control.ModifierKeys = Keys.Shift Then + ' Deselect the current checkbox if already checked without Shift key + currentBox.Checked = False + End If + + lastCheckedBox = currentBox + End Sub + Private Sub checkButton_Click(sender As Object, e As EventArgs) RaiseEvent RefreshContextButtons() End Sub diff --git a/instat/UserControl/ucrOutputPages.resx b/instat/UserControl/ucrOutputPages.resx index 65c47d1077b..2b8649f804a 100644 --- a/instat/UserControl/ucrOutputPages.resx +++ b/instat/UserControl/ucrOutputPages.resx @@ -124,7 +124,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc @@ -139,7 +139,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc @@ -154,7 +154,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc @@ -169,7 +169,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc @@ -184,7 +184,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc @@ -199,7 +199,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc @@ -214,7 +214,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc @@ -229,7 +229,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc @@ -244,7 +244,7 @@ iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YQUAAAAJcEhZcwAAFiUAABYlAUlSJPAAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc diff --git a/instat/UserControl/ucrOutputPages.vb b/instat/UserControl/ucrOutputPages.vb index 3be43868659..167cae2b39c 100644 --- a/instat/UserControl/ucrOutputPages.vb +++ b/instat/UserControl/ucrOutputPages.vb @@ -25,6 +25,7 @@ Public Class ucrOutputPages Private _outputLogger As clsOutputLogger Private _selectedOutputPage As ucrOutputPage Private _strSaveDirectory As String + Private checkBoxSelectAll As New CheckBox() Public Sub New() ' This call is required by the designer. @@ -38,6 +39,10 @@ Public Class ucrOutputPages EnableDisableTopButtons() End Sub + Private Sub ucrOutputPages_Load(sender As Object, e As EventArgs) Handles Me.Load + AddSelectAllCheckBoxToToolStripControl() + End Sub + ''' ''' Holds options. ''' ToDo InstatOptions should be able to be accessed from anywhere @@ -84,6 +89,7 @@ Public Class ucrOutputPages Private Sub AddNewOutput(outputElement As clsOutputElement, bDisplayOutputInExternalViewer As Boolean) ucrMainOutputPage.AddNewOutput(outputElement, bDisplayOutputInExternalViewer) + UpdateSelectAllCheckBoxText() End Sub Private Sub AddNewOutputToTab(outputElement As clsOutputElement, tabName As String) @@ -153,6 +159,7 @@ Public Class ucrOutputPages tbMoveUp.Enabled = False End If tbRename.Enabled = _selectedOutputPage.BCanRename + UpdateSelectAllCheckBoxText() End Sub Private Sub RefreshPage() @@ -213,6 +220,7 @@ Public Class ucrOutputPages _outputLogger.AddOutputToFilteredList(element.Clone, strTabName) Next _selectedOutputPage.ClearAllCheckBoxes() + UpdateSelectAllCheckBoxText() End Sub Private Sub tbCopy_Click(sender As Object, e As EventArgs) Handles tbCopy.Click @@ -239,6 +247,7 @@ Public Class ucrOutputPages Else RefreshPage() End If + UpdateSelectAllCheckBoxText() End Sub ''' @@ -303,4 +312,74 @@ Public Class ucrOutputPages End If Next End Sub + + Private Sub AddSelectAllCheckBoxToToolStripControl() + ' Create a ToolStripControlHost to host the CheckBox + Dim checkBoxHost As ToolStripControlHost = New ToolStripControlHost(checkBoxSelectAll) + + ' Insert the CheckBox host at the beginning of tsButtons items + tsButtons.Items.Insert(0, checkBoxHost) + + ' Create a ToolTip for the checkBoxSelectAll CheckBox + Dim ttcheckBoxSelectAll As New ToolTip + ttcheckBoxSelectAll.SetToolTip(checkBoxSelectAll, "Toggle selection for all elements") + + ' Add a Click event handler to the checkBoxSelectAll CheckBox + AddHandler checkBoxSelectAll.Click, AddressOf checkBoxSelectAll_Click + End Sub + + ''' + ''' Updates the text and state of checkBoxSelectAll based on selected elements and output count. + ''' + Private Sub UpdateSelectAllCheckBoxText() + ' Check if _outputLogger is initialized + If _outputLogger Is Nothing Then + Exit Sub ' Exit the sub if logger is not initialized + End If + + ' Variable to hold the count of output elements + Dim iCountOutputElements As Integer = 0 + + ' Determine the count of output elements based on the selected tab + If SelectedTab() = "Main" Then + iCountOutputElements = _outputLogger.OutputElements.Count + Else + iCountOutputElements = _outputLogger.GetFilteredList(SelectedTab).Output.Count + End If + + ' Enable or disable checkBoxSelectAll based on the count of output elements + checkBoxSelectAll.Enabled = iCountOutputElements > 0 + + ' Get the count of selected elements + Dim iSelectedElements = _selectedOutputPage.SelectedElements.Count + + ' Determine the text and check state of checkBoxSelectAll based on selected and total elements + Select Case True + Case iSelectedElements > 0 AndAlso iCountOutputElements > iSelectedElements + ' Indeterminate state when some but not all elements are selected + checkBoxSelectAll.Text = $"{iSelectedElements} item(s)" + checkBoxSelectAll.CheckState = CheckState.Indeterminate + Case iSelectedElements > 0 AndAlso iCountOutputElements = iSelectedElements + ' All elements selected + checkBoxSelectAll.Text = "Deselect All" + checkBoxSelectAll.CheckState = CheckState.Checked + Case Else + ' No elements selected + checkBoxSelectAll.Text = "Select All" + checkBoxSelectAll.CheckState = CheckState.Unchecked + End Select + End Sub + + Private Sub checkBoxSelectAll_Click(sender As Object, e As EventArgs) + ' Handle CheckBox checked changed event here + Dim checkBoxSelectAll As CheckBox = TryCast(sender, CheckBox) + + If checkBoxSelectAll.Checked Then + _selectedOutputPage.SelectAllCheckBoxes() + Else + _selectedOutputPage.ClearAllCheckBoxes() + End If + EnableDisableTopButtons() + End Sub + End Class \ No newline at end of file diff --git a/instat/clsRLink.vb b/instat/clsRLink.vb index b5bae7a3a64..4a686600ca7 100644 --- a/instat/clsRLink.vb +++ b/instat/clsRLink.vb @@ -646,7 +646,7 @@ Public Class RLink ''' ''' The text to add to the save log file. '''-------------------------------------------------------------------------------------------- - Private Sub AppendToAutoSaveLog(strScript As String) + Public Sub AppendToAutoSaveLog(strScript As String) Dim strTempFile As String Dim i As Integer = 1 Try diff --git a/instat/dlgCluster.vb b/instat/dlgCluster.vb index bbf683ad0c2..a6b090c6139 100644 --- a/instat/dlgCluster.vb +++ b/instat/dlgCluster.vb @@ -103,7 +103,7 @@ Public Class dlgCluster ucrPnlPrepareData.AddToLinkedControls({ucrChkMatrix, ucrSaveDistance}, {rdoDistanceData}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) ucrPnlPrepareData.AddToLinkedControls(ucrInputMethod, {rdoDistanceData}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True) - ucrSaveNewDataFrame.SetSaveTypeAsModel() + ucrSaveNewDataFrame.SetSaveTypeAsDataFrame() ucrSaveNewDataFrame.SetDataFrameSelector(ucrSelectorPrepareData.ucrAvailableDataFrames) ucrSaveNewDataFrame.SetLabelText("New Data Frame Name:") ucrSaveNewDataFrame.SetPrefix("scale") diff --git a/instat/dlgExportClimaticDefinitions.Designer.vb b/instat/dlgExportClimaticDefinitions.Designer.vb index b6e8c0cb7c8..edd151ed5b3 100644 --- a/instat/dlgExportClimaticDefinitions.Designer.vb +++ b/instat/dlgExportClimaticDefinitions.Designer.vb @@ -22,21 +22,547 @@ Partial Class dlgExportClimaticDefinitions 'Do not modify it using the code editor. _ Private Sub InitializeComponent() + Me.lblStationID = New System.Windows.Forms.Label() + Me.lblCountry = New System.Windows.Forms.Label() + Me.ucrInputCountry = New instat.ucrInputTextBox() + Me.ucrInputStationID = New instat.ucrInputTextBox() + Me.ucrChkSeasonStartProp = New instat.ucrCheck() + Me.ucrChkExtremes = New instat.ucrCheck() + Me.ucrChkCropSuccessProp = New instat.ucrCheck() + Me.ucrChkAnnualTemp = New instat.ucrCheck() + Me.ucrChkAnnualRainfall = New instat.ucrCheck() + Me.lblMonth = New System.Windows.Forms.Label() + Me.lblYear = New System.Windows.Forms.Label() + Me.ucrReceiverMonth = New instat.ucrReceiverSingle() + Me.ucrReceiverYear = New instat.ucrReceiverSingle() + Me.Label1 = New System.Windows.Forms.Label() + Me.ucrChkIncludeSummaryData = New instat.ucrCheck() + Me.grpSummaries = New System.Windows.Forms.GroupBox() + Me.ucrChkMonthlyTemp = New instat.ucrCheck() + Me.lblMaxTemp = New System.Windows.Forms.Label() + Me.lblCropData = New System.Windows.Forms.Label() + Me.lblDataByYearMonth = New System.Windows.Forms.Label() + Me.lblDataByYear = New System.Windows.Forms.Label() + Me.lblRain = New System.Windows.Forms.Label() + Me.lblMinTemp = New System.Windows.Forms.Label() + Me.lblData = New System.Windows.Forms.Label() + Me.ucrReceiverRain = New instat.ucrReceiverSingle() + Me.ucrReceiverMinTemp = New instat.ucrReceiverSingle() + Me.ucrReceiverMaxTemp = New instat.ucrReceiverSingle() + Me.ucrReceiverData = New instat.ucrReceiverSingle() + Me.ucrSelectorExportDefinitions = New instat.ucrSelectorByDataFrameAddRemove() + Me.ucrBase = New instat.ucrButtons() + Me.ucrReceiverDataYear = New instat.ucrReceiverSingle() + Me.ucrReceiverDataYearMonth = New instat.ucrReceiverSingle() + Me.ucrReceiverCropData = New instat.ucrReceiverSingle() + Me.lblExport = New System.Windows.Forms.Label() + Me.cmdChooseFile = New System.Windows.Forms.Button() + Me.ucrInputTokenPath = New instat.ucrInputTextBox() + Me.cmdDefine = New System.Windows.Forms.Button() + Me.grpSummaries.SuspendLayout() Me.SuspendLayout() ' + 'lblStationID + ' + Me.lblStationID.AutoSize = True + Me.lblStationID.Location = New System.Drawing.Point(501, 194) + Me.lblStationID.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblStationID.Name = "lblStationID" + Me.lblStationID.Size = New System.Drawing.Size(85, 20) + Me.lblStationID.TabIndex = 7 + Me.lblStationID.Text = "Station ID:" + ' + 'lblCountry + ' + Me.lblCountry.AutoSize = True + Me.lblCountry.Location = New System.Drawing.Point(504, 251) + Me.lblCountry.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblCountry.Name = "lblCountry" + Me.lblCountry.Size = New System.Drawing.Size(68, 20) + Me.lblCountry.TabIndex = 9 + Me.lblCountry.Text = "Country:" + ' + 'ucrInputCountry + ' + Me.ucrInputCountry.AddQuotesIfUnrecognised = True + Me.ucrInputCountry.AutoSize = True + Me.ucrInputCountry.IsMultiline = False + Me.ucrInputCountry.IsReadOnly = False + Me.ucrInputCountry.Location = New System.Drawing.Point(501, 274) + Me.ucrInputCountry.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputCountry.Name = "ucrInputCountry" + Me.ucrInputCountry.Size = New System.Drawing.Size(177, 32) + Me.ucrInputCountry.TabIndex = 10 + ' + 'ucrInputStationID + ' + Me.ucrInputStationID.AddQuotesIfUnrecognised = True + Me.ucrInputStationID.AutoSize = True + Me.ucrInputStationID.IsMultiline = False + Me.ucrInputStationID.IsReadOnly = False + Me.ucrInputStationID.Location = New System.Drawing.Point(501, 218) + Me.ucrInputStationID.Margin = New System.Windows.Forms.Padding(14) + Me.ucrInputStationID.Name = "ucrInputStationID" + Me.ucrInputStationID.Size = New System.Drawing.Size(177, 32) + Me.ucrInputStationID.TabIndex = 8 + ' + 'ucrChkSeasonStartProp + ' + Me.ucrChkSeasonStartProp.AutoSize = True + Me.ucrChkSeasonStartProp.Checked = False + Me.ucrChkSeasonStartProp.Location = New System.Drawing.Point(236, 71) + Me.ucrChkSeasonStartProp.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkSeasonStartProp.Name = "ucrChkSeasonStartProp" + Me.ucrChkSeasonStartProp.Size = New System.Drawing.Size(226, 52) + Me.ucrChkSeasonStartProp.TabIndex = 3 + ' + 'ucrChkExtremes + ' + Me.ucrChkExtremes.AutoSize = True + Me.ucrChkExtremes.Checked = False + Me.ucrChkExtremes.Location = New System.Drawing.Point(236, 120) + Me.ucrChkExtremes.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkExtremes.Name = "ucrChkExtremes" + Me.ucrChkExtremes.Size = New System.Drawing.Size(220, 52) + Me.ucrChkExtremes.TabIndex = 5 + Me.ucrChkExtremes.Visible = False + ' + 'ucrChkCropSuccessProp + ' + Me.ucrChkCropSuccessProp.AutoSize = True + Me.ucrChkCropSuccessProp.Checked = False + Me.ucrChkCropSuccessProp.Location = New System.Drawing.Point(236, 28) + Me.ucrChkCropSuccessProp.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkCropSuccessProp.Name = "ucrChkCropSuccessProp" + Me.ucrChkCropSuccessProp.Size = New System.Drawing.Size(230, 52) + Me.ucrChkCropSuccessProp.TabIndex = 1 + ' + 'ucrChkAnnualTemp + ' + Me.ucrChkAnnualTemp.AutoSize = True + Me.ucrChkAnnualTemp.Checked = False + Me.ucrChkAnnualTemp.Location = New System.Drawing.Point(12, 71) + Me.ucrChkAnnualTemp.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkAnnualTemp.Name = "ucrChkAnnualTemp" + Me.ucrChkAnnualTemp.Size = New System.Drawing.Size(224, 52) + Me.ucrChkAnnualTemp.TabIndex = 2 + ' + 'ucrChkAnnualRainfall + ' + Me.ucrChkAnnualRainfall.AutoSize = True + Me.ucrChkAnnualRainfall.Checked = False + Me.ucrChkAnnualRainfall.Location = New System.Drawing.Point(12, 28) + Me.ucrChkAnnualRainfall.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkAnnualRainfall.Name = "ucrChkAnnualRainfall" + Me.ucrChkAnnualRainfall.Size = New System.Drawing.Size(224, 52) + Me.ucrChkAnnualRainfall.TabIndex = 0 + ' + 'lblMonth + ' + Me.lblMonth.AutoSize = True + Me.lblMonth.Location = New System.Drawing.Point(504, 134) + Me.lblMonth.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblMonth.Name = "lblMonth" + Me.lblMonth.Size = New System.Drawing.Size(58, 20) + Me.lblMonth.TabIndex = 5 + Me.lblMonth.Text = "Month:" + ' + 'lblYear + ' + Me.lblYear.AutoSize = True + Me.lblYear.Location = New System.Drawing.Point(506, 75) + Me.lblYear.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblYear.Name = "lblYear" + Me.lblYear.Size = New System.Drawing.Size(47, 20) + Me.lblYear.TabIndex = 3 + Me.lblYear.Text = "Year:" + ' + 'ucrReceiverMonth + ' + Me.ucrReceiverMonth.AutoSize = True + Me.ucrReceiverMonth.frmParent = Me + Me.ucrReceiverMonth.Location = New System.Drawing.Point(498, 160) + Me.ucrReceiverMonth.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMonth.Name = "ucrReceiverMonth" + Me.ucrReceiverMonth.Selector = Nothing + Me.ucrReceiverMonth.Size = New System.Drawing.Size(180, 31) + Me.ucrReceiverMonth.strNcFilePath = "" + Me.ucrReceiverMonth.TabIndex = 6 + Me.ucrReceiverMonth.ucrSelector = Nothing + ' + 'ucrReceiverYear + ' + Me.ucrReceiverYear.AutoSize = True + Me.ucrReceiverYear.frmParent = Me + Me.ucrReceiverYear.Location = New System.Drawing.Point(500, 100) + Me.ucrReceiverYear.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverYear.Name = "ucrReceiverYear" + Me.ucrReceiverYear.Selector = Nothing + Me.ucrReceiverYear.Size = New System.Drawing.Size(180, 31) + Me.ucrReceiverYear.strNcFilePath = "" + Me.ucrReceiverYear.TabIndex = 4 + Me.ucrReceiverYear.ucrSelector = Nothing + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.Label1.Location = New System.Drawing.Point(118, 703) + Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(0, 20) + Me.Label1.TabIndex = 30 + ' + 'ucrChkIncludeSummaryData + ' + Me.ucrChkIncludeSummaryData.AutoSize = True + Me.ucrChkIncludeSummaryData.Checked = False + Me.ucrChkIncludeSummaryData.Location = New System.Drawing.Point(6, 513) + Me.ucrChkIncludeSummaryData.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkIncludeSummaryData.Name = "ucrChkIncludeSummaryData" + Me.ucrChkIncludeSummaryData.Size = New System.Drawing.Size(332, 48) + Me.ucrChkIncludeSummaryData.TabIndex = 24 + ' + 'grpSummaries + ' + Me.grpSummaries.Controls.Add(Me.ucrChkMonthlyTemp) + Me.grpSummaries.Controls.Add(Me.ucrChkSeasonStartProp) + Me.grpSummaries.Controls.Add(Me.ucrChkExtremes) + Me.grpSummaries.Controls.Add(Me.ucrChkCropSuccessProp) + Me.grpSummaries.Controls.Add(Me.ucrChkAnnualTemp) + Me.grpSummaries.Controls.Add(Me.ucrChkAnnualRainfall) + Me.grpSummaries.Location = New System.Drawing.Point(6, 325) + Me.grpSummaries.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.grpSummaries.Name = "grpSummaries" + Me.grpSummaries.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.grpSummaries.Size = New System.Drawing.Size(470, 177) + Me.grpSummaries.TabIndex = 23 + Me.grpSummaries.TabStop = False + Me.grpSummaries.Text = "Summaries" + ' + 'ucrChkMonthlyTemp + ' + Me.ucrChkMonthlyTemp.AutoSize = True + Me.ucrChkMonthlyTemp.Checked = False + Me.ucrChkMonthlyTemp.Location = New System.Drawing.Point(12, 120) + Me.ucrChkMonthlyTemp.Margin = New System.Windows.Forms.Padding(9) + Me.ucrChkMonthlyTemp.Name = "ucrChkMonthlyTemp" + Me.ucrChkMonthlyTemp.Size = New System.Drawing.Size(220, 52) + Me.ucrChkMonthlyTemp.TabIndex = 4 + ' + 'lblMaxTemp + ' + Me.lblMaxTemp.AutoSize = True + Me.lblMaxTemp.Location = New System.Drawing.Point(504, 635) + Me.lblMaxTemp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblMaxTemp.Name = "lblMaxTemp" + Me.lblMaxTemp.Size = New System.Drawing.Size(86, 20) + Me.lblMaxTemp.TabIndex = 21 + Me.lblMaxTemp.Text = "Max Temp:" + ' + 'lblCropData + ' + Me.lblCropData.AutoSize = True + Me.lblCropData.Location = New System.Drawing.Point(504, 442) + Me.lblCropData.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblCropData.Name = "lblCropData" + Me.lblCropData.Size = New System.Drawing.Size(86, 20) + Me.lblCropData.TabIndex = 15 + Me.lblCropData.Text = "Crop Data:" + ' + 'lblDataByYearMonth + ' + Me.lblDataByYearMonth.AutoSize = True + Me.lblDataByYearMonth.Location = New System.Drawing.Point(500, 377) + Me.lblDataByYearMonth.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblDataByYearMonth.Name = "lblDataByYearMonth" + Me.lblDataByYearMonth.Size = New System.Drawing.Size(188, 20) + Me.lblDataByYearMonth.TabIndex = 13 + Me.lblDataByYearMonth.Text = "Data By Year and Month:" + ' + 'lblDataByYear + ' + Me.lblDataByYear.AutoSize = True + Me.lblDataByYear.Location = New System.Drawing.Point(504, 311) + Me.lblDataByYear.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblDataByYear.Name = "lblDataByYear" + Me.lblDataByYear.Size = New System.Drawing.Size(108, 20) + Me.lblDataByYear.TabIndex = 11 + Me.lblDataByYear.Text = "Data By Year:" + ' + 'lblRain + ' + Me.lblRain.AutoSize = True + Me.lblRain.Location = New System.Drawing.Point(504, 505) + Me.lblRain.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblRain.Name = "lblRain" + Me.lblRain.Size = New System.Drawing.Size(46, 20) + Me.lblRain.TabIndex = 17 + Me.lblRain.Text = "Rain:" + ' + 'lblMinTemp + ' + Me.lblMinTemp.AutoSize = True + Me.lblMinTemp.Location = New System.Drawing.Point(504, 571) + Me.lblMinTemp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblMinTemp.Name = "lblMinTemp" + Me.lblMinTemp.Size = New System.Drawing.Size(82, 20) + Me.lblMinTemp.TabIndex = 19 + Me.lblMinTemp.Text = "Min Temp:" + ' + 'lblData + ' + Me.lblData.AutoSize = True + Me.lblData.Location = New System.Drawing.Point(498, 14) + Me.lblData.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblData.Name = "lblData" + Me.lblData.Size = New System.Drawing.Size(48, 20) + Me.lblData.TabIndex = 1 + Me.lblData.Text = "Data:" + ' + 'ucrReceiverRain + ' + Me.ucrReceiverRain.AutoSize = True + Me.ucrReceiverRain.frmParent = Me + Me.ucrReceiverRain.Location = New System.Drawing.Point(501, 531) + Me.ucrReceiverRain.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverRain.Name = "ucrReceiverRain" + Me.ucrReceiverRain.Selector = Nothing + Me.ucrReceiverRain.Size = New System.Drawing.Size(180, 31) + Me.ucrReceiverRain.strNcFilePath = "" + Me.ucrReceiverRain.TabIndex = 18 + Me.ucrReceiverRain.ucrSelector = Nothing + ' + 'ucrReceiverMinTemp + ' + Me.ucrReceiverMinTemp.AutoSize = True + Me.ucrReceiverMinTemp.frmParent = Me + Me.ucrReceiverMinTemp.Location = New System.Drawing.Point(501, 597) + Me.ucrReceiverMinTemp.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMinTemp.Name = "ucrReceiverMinTemp" + Me.ucrReceiverMinTemp.Selector = Nothing + Me.ucrReceiverMinTemp.Size = New System.Drawing.Size(180, 31) + Me.ucrReceiverMinTemp.strNcFilePath = "" + Me.ucrReceiverMinTemp.TabIndex = 20 + Me.ucrReceiverMinTemp.ucrSelector = Nothing + ' + 'ucrReceiverMaxTemp + ' + Me.ucrReceiverMaxTemp.AutoSize = True + Me.ucrReceiverMaxTemp.frmParent = Me + Me.ucrReceiverMaxTemp.Location = New System.Drawing.Point(501, 663) + Me.ucrReceiverMaxTemp.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMaxTemp.Name = "ucrReceiverMaxTemp" + Me.ucrReceiverMaxTemp.Selector = Nothing + Me.ucrReceiverMaxTemp.Size = New System.Drawing.Size(180, 31) + Me.ucrReceiverMaxTemp.strNcFilePath = "" + Me.ucrReceiverMaxTemp.TabIndex = 22 + Me.ucrReceiverMaxTemp.ucrSelector = Nothing + ' + 'ucrReceiverData + ' + Me.ucrReceiverData.AutoSize = True + Me.ucrReceiverData.frmParent = Me + Me.ucrReceiverData.Location = New System.Drawing.Point(495, 40) + Me.ucrReceiverData.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverData.Name = "ucrReceiverData" + Me.ucrReceiverData.Selector = Nothing + Me.ucrReceiverData.Size = New System.Drawing.Size(180, 31) + Me.ucrReceiverData.strNcFilePath = "" + Me.ucrReceiverData.TabIndex = 2 + Me.ucrReceiverData.ucrSelector = Nothing + ' + 'ucrSelectorExportDefinitions + ' + Me.ucrSelectorExportDefinitions.AutoSize = True + Me.ucrSelectorExportDefinitions.bDropUnusedFilterLevels = False + Me.ucrSelectorExportDefinitions.bShowHiddenColumns = False + Me.ucrSelectorExportDefinitions.bUseCurrentFilter = True + Me.ucrSelectorExportDefinitions.Location = New System.Drawing.Point(6, 12) + Me.ucrSelectorExportDefinitions.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorExportDefinitions.Name = "ucrSelectorExportDefinitions" + Me.ucrSelectorExportDefinitions.Size = New System.Drawing.Size(320, 282) + Me.ucrSelectorExportDefinitions.TabIndex = 0 + ' + 'ucrBase + ' + Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrBase.Location = New System.Drawing.Point(6, 705) + Me.ucrBase.Margin = New System.Windows.Forms.Padding(6) + Me.ucrBase.Name = "ucrBase" + Me.ucrBase.Size = New System.Drawing.Size(615, 92) + Me.ucrBase.TabIndex = 29 + ' + 'ucrReceiverDataYear + ' + Me.ucrReceiverDataYear.AutoSize = True + Me.ucrReceiverDataYear.frmParent = Me + Me.ucrReceiverDataYear.Location = New System.Drawing.Point(501, 337) + Me.ucrReceiverDataYear.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverDataYear.Name = "ucrReceiverDataYear" + Me.ucrReceiverDataYear.Selector = Nothing + Me.ucrReceiverDataYear.Size = New System.Drawing.Size(180, 31) + Me.ucrReceiverDataYear.strNcFilePath = "" + Me.ucrReceiverDataYear.TabIndex = 12 + Me.ucrReceiverDataYear.ucrSelector = Nothing + ' + 'ucrReceiverDataYearMonth + ' + Me.ucrReceiverDataYearMonth.AutoSize = True + Me.ucrReceiverDataYearMonth.frmParent = Me + Me.ucrReceiverDataYearMonth.Location = New System.Drawing.Point(501, 403) + Me.ucrReceiverDataYearMonth.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverDataYearMonth.Name = "ucrReceiverDataYearMonth" + Me.ucrReceiverDataYearMonth.Selector = Nothing + Me.ucrReceiverDataYearMonth.Size = New System.Drawing.Size(180, 31) + Me.ucrReceiverDataYearMonth.strNcFilePath = "" + Me.ucrReceiverDataYearMonth.TabIndex = 14 + Me.ucrReceiverDataYearMonth.ucrSelector = Nothing + ' + 'ucrReceiverCropData + ' + Me.ucrReceiverCropData.AutoSize = True + Me.ucrReceiverCropData.frmParent = Me + Me.ucrReceiverCropData.Location = New System.Drawing.Point(501, 466) + Me.ucrReceiverCropData.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverCropData.Name = "ucrReceiverCropData" + Me.ucrReceiverCropData.Selector = Nothing + Me.ucrReceiverCropData.Size = New System.Drawing.Size(180, 31) + Me.ucrReceiverCropData.strNcFilePath = "" + Me.ucrReceiverCropData.TabIndex = 16 + Me.ucrReceiverCropData.ucrSelector = Nothing + ' + 'lblExport + ' + Me.lblExport.AutoSize = True + Me.lblExport.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.lblExport.Location = New System.Drawing.Point(10, 603) + Me.lblExport.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblExport.Name = "lblExport" + Me.lblExport.Size = New System.Drawing.Size(57, 20) + Me.lblExport.TabIndex = 26 + Me.lblExport.Text = "Token:" + ' + 'cmdChooseFile + ' + Me.cmdChooseFile.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.cmdChooseFile.Location = New System.Drawing.Point(380, 595) + Me.cmdChooseFile.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cmdChooseFile.Name = "cmdChooseFile" + Me.cmdChooseFile.Size = New System.Drawing.Size(120, 35) + Me.cmdChooseFile.TabIndex = 28 + Me.cmdChooseFile.Text = "Browse" + Me.cmdChooseFile.UseVisualStyleBackColor = True + ' + 'ucrInputTokenPath + ' + Me.ucrInputTokenPath.AddQuotesIfUnrecognised = True + Me.ucrInputTokenPath.AutoSize = True + Me.ucrInputTokenPath.IsMultiline = False + Me.ucrInputTokenPath.IsReadOnly = False + Me.ucrInputTokenPath.Location = New System.Drawing.Point(100, 598) + Me.ucrInputTokenPath.Margin = New System.Windows.Forms.Padding(9, 12, 9, 12) + Me.ucrInputTokenPath.Name = "ucrInputTokenPath" + Me.ucrInputTokenPath.Size = New System.Drawing.Size(273, 32) + Me.ucrInputTokenPath.TabIndex = 27 + ' + 'cmdDefine + ' + Me.cmdDefine.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.cmdDefine.Location = New System.Drawing.Point(338, 512) + Me.cmdDefine.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cmdDefine.Name = "cmdDefine" + Me.cmdDefine.Size = New System.Drawing.Size(120, 45) + Me.cmdDefine.TabIndex = 25 + Me.cmdDefine.Text = "Define" + Me.cmdDefine.UseVisualStyleBackColor = True + ' 'dlgExportClimaticDefinitions ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoSize = True - Me.ClientSize = New System.Drawing.Size(464, 360) + Me.ClientSize = New System.Drawing.Size(682, 811) + Me.Controls.Add(Me.cmdDefine) + Me.Controls.Add(Me.lblExport) + Me.Controls.Add(Me.cmdChooseFile) + Me.Controls.Add(Me.ucrInputTokenPath) + Me.Controls.Add(Me.lblStationID) + Me.Controls.Add(Me.lblCountry) + Me.Controls.Add(Me.ucrInputCountry) + Me.Controls.Add(Me.ucrInputStationID) + Me.Controls.Add(Me.lblMonth) + Me.Controls.Add(Me.lblYear) + Me.Controls.Add(Me.ucrReceiverMonth) + Me.Controls.Add(Me.ucrReceiverYear) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.ucrChkIncludeSummaryData) + Me.Controls.Add(Me.grpSummaries) + Me.Controls.Add(Me.lblMaxTemp) + Me.Controls.Add(Me.lblCropData) + Me.Controls.Add(Me.lblDataByYearMonth) + Me.Controls.Add(Me.lblDataByYear) + Me.Controls.Add(Me.lblRain) + Me.Controls.Add(Me.lblMinTemp) + Me.Controls.Add(Me.lblData) + Me.Controls.Add(Me.ucrReceiverRain) + Me.Controls.Add(Me.ucrReceiverMinTemp) + Me.Controls.Add(Me.ucrReceiverMaxTemp) + Me.Controls.Add(Me.ucrReceiverData) + Me.Controls.Add(Me.ucrSelectorExportDefinitions) + Me.Controls.Add(Me.ucrBase) + Me.Controls.Add(Me.ucrReceiverDataYear) + Me.Controls.Add(Me.ucrReceiverDataYearMonth) + Me.Controls.Add(Me.ucrReceiverCropData) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "dlgExportClimaticDefinitions" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Export Climatic Definitions" + Me.grpSummaries.ResumeLayout(False) + Me.grpSummaries.PerformLayout() Me.ResumeLayout(False) + Me.PerformLayout() End Sub + + Friend WithEvents lblStationID As Label + Friend WithEvents lblCountry As Label + Friend WithEvents ucrInputCountry As ucrInputTextBox + Friend WithEvents ucrInputStationID As ucrInputTextBox + Friend WithEvents ucrChkSeasonStartProp As ucrCheck + Friend WithEvents ucrChkExtremes As ucrCheck + Friend WithEvents ucrChkCropSuccessProp As ucrCheck + Friend WithEvents ucrChkAnnualTemp As ucrCheck + Friend WithEvents ucrChkAnnualRainfall As ucrCheck + Friend WithEvents lblMonth As Label + Friend WithEvents lblYear As Label + Friend WithEvents ucrReceiverMonth As ucrReceiverSingle + Friend WithEvents ucrReceiverYear As ucrReceiverSingle + Friend WithEvents Label1 As Label + Friend WithEvents ucrChkIncludeSummaryData As ucrCheck + Friend WithEvents grpSummaries As GroupBox + Friend WithEvents ucrChkMonthlyTemp As ucrCheck + Friend WithEvents lblMaxTemp As Label + Friend WithEvents lblCropData As Label + Friend WithEvents lblDataByYearMonth As Label + Friend WithEvents lblDataByYear As Label + Friend WithEvents lblRain As Label + Friend WithEvents lblMinTemp As Label + Friend WithEvents lblData As Label + Friend WithEvents ucrReceiverRain As ucrReceiverSingle + Friend WithEvents ucrReceiverMinTemp As ucrReceiverSingle + Friend WithEvents ucrReceiverMaxTemp As ucrReceiverSingle + Friend WithEvents ucrReceiverData As ucrReceiverSingle + Friend WithEvents ucrSelectorExportDefinitions As ucrSelectorByDataFrameAddRemove + Friend WithEvents ucrBase As ucrButtons + Friend WithEvents ucrReceiverDataYear As ucrReceiverSingle + Friend WithEvents ucrReceiverDataYearMonth As ucrReceiverSingle + Friend WithEvents ucrReceiverCropData As ucrReceiverSingle + Friend WithEvents lblExport As Label + Friend WithEvents cmdChooseFile As Button + Friend WithEvents ucrInputTokenPath As ucrInputTextBox + Friend WithEvents cmdDefine As Button End Class diff --git a/instat/dlgExportClimaticDefinitions.vb b/instat/dlgExportClimaticDefinitions.vb index 89b1ba24c26..0c1638dff41 100644 --- a/instat/dlgExportClimaticDefinitions.vb +++ b/instat/dlgExportClimaticDefinitions.vb @@ -1,3 +1,391 @@ -Public Class dlgExportClimaticDefinitions +' R- Instat +' Copyright (C) 2015-2017 +' +' This program is free software: you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation, either version 3 of the License, or +' (at your option) any later version. +' +' This program is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. +' +' You should have received a copy of the GNU General Public License +' along with this program. If not, see . +Imports instat.Translations +Imports System.IO +Public Class dlgExportClimaticDefinitions + Private bFirstLoad As Boolean = True + Private bReset As Boolean = True + Private bResetSubdialog As Boolean = False + Private clsDummyFunction As New RFunction + Public clsExportRinstatToBucketFunction, ClsGcsAuthFileFunction, clsSummariesFunction As New RFunction + Public clsReforMattAnnualSummariesFunction, clsReformatCropSuccessFunction, clsReformatSeasonStartFunction, clsReformatTempSummariesFunction, clsReformatMonthlyTempSummaries As New RFunction + + Private Sub dlgExportClimaticDefinitions_Load(sender As Object, e As EventArgs) Handles MyBase.Load + If bFirstLoad Then + InitialiseDialog() + bFirstLoad = False + End If + If bReset Then + SetDefaults() + End If + SetRCodeForControls(bReset) + bReset = False + TestOkEnabled() + autoTranslate(Me) + End Sub + + Private Sub InitialiseDialog() + + ucrReceiverData.SetParameter(New RParameter("data", 0)) + ucrReceiverData.Selector = ucrSelectorExportDefinitions + ucrReceiverData.SetParameterIsString() + ucrReceiverData.SetMeAsReceiver() + ucrReceiverData.SetItemType("dataframe") + ucrReceiverData.strSelectorHeading = "Data Sets" + + ucrReceiverDataYear.SetParameter(New RParameter("data_by_year", 1)) + ucrReceiverDataYear.Selector = ucrSelectorExportDefinitions + ucrReceiverDataYear.SetParameterIsString() + ucrReceiverDataYear.SetItemType("dataframe") + ucrReceiverDataYear.strSelectorHeading = "Data Sets" + ucrReceiverDataYear.SetLinkedDisplayControl(lblDataByYear) + + ucrReceiverDataYearMonth.SetParameter(New RParameter("data_by_year_month", 2)) + ucrReceiverDataYearMonth.Selector = ucrSelectorExportDefinitions + ucrReceiverDataYearMonth.SetParameterIsString() + ucrReceiverDataYearMonth.SetItemType("dataframe") + ucrReceiverDataYearMonth.strSelectorHeading = "Data Sets" + ucrReceiverDataYearMonth.SetLinkedDisplayControl(lblDataByYearMonth) + + ucrReceiverCropData.SetParameter(New RParameter("crop_data", 3)) + ucrReceiverCropData.Selector = ucrSelectorExportDefinitions + ucrReceiverCropData.SetParameterIsString() + ucrReceiverCropData.SetItemType("dataframe") + ucrReceiverCropData.strSelectorHeading = "Data Sets" + ucrReceiverCropData.SetLinkedDisplayControl(lblCropData) + + ucrReceiverMinTemp.SetParameter(New RParameter("tmin", 4)) + ucrReceiverMinTemp.Selector = ucrSelectorExportDefinitions + ucrReceiverMinTemp.SetParameterIsString() + ucrReceiverMinTemp.SetLinkedDisplayControl(lblMinTemp) + + ucrReceiverMaxTemp.SetParameter(New RParameter("tmax", 5)) + ucrReceiverMaxTemp.Selector = ucrSelectorExportDefinitions + ucrReceiverMaxTemp.SetParameterIsString() + ucrReceiverMaxTemp.SetLinkedDisplayControl(lblMaxTemp) + + ucrReceiverRain.SetParameter(New RParameter("rain", 6)) + ucrReceiverRain.Selector = ucrSelectorExportDefinitions + ucrReceiverRain.SetParameterIsString() + ucrReceiverRain.SetLinkedDisplayControl(lblRain) + + ucrReceiverYear.SetParameter(New RParameter("year", 7)) + ucrReceiverYear.Selector = ucrSelectorExportDefinitions + ucrReceiverYear.SetParameterIsString() + ucrReceiverYear.SetLinkedDisplayControl(lblYear) + + ucrReceiverMonth.SetParameter(New RParameter("month", 8)) + ucrReceiverMonth.Selector = ucrSelectorExportDefinitions + ucrReceiverMonth.SetParameterIsString() + ucrReceiverMonth.SetLinkedDisplayControl(lblMonth) + + ucrChkAnnualRainfall.SetText("Annual Rainfall") + ucrChkAnnualRainfall.AddParameterValuesCondition(True, "rain", "True") + ucrChkAnnualRainfall.AddParameterValuesCondition(False, "rain", "False") + + ucrChkAnnualTemp.SetText("Annual Temperature") + ucrChkAnnualTemp.AddParameterValuesCondition(True, "temp", "True") + ucrChkAnnualTemp.AddParameterValuesCondition(False, "temp", "False") + + ucrChkExtremes.SetText("Extremes") + ucrChkExtremes.AddParameterValuesCondition(True, "extrem", "True") + ucrChkExtremes.AddParameterValuesCondition(False, "extrem", "False") + + ucrChkMonthlyTemp.SetText("Monthly Temperature") + ucrChkMonthlyTemp.AddParameterValuesCondition(True, "monthly_temp", "True") + ucrChkMonthlyTemp.AddParameterValuesCondition(False, "monthly_temp", "False") + + ucrChkSeasonStartProp.SetText("Season Start Probabilities") + ucrChkSeasonStartProp.AddParameterValuesCondition(True, "season", "True") + ucrChkSeasonStartProp.AddParameterValuesCondition(False, "season", "False") + + ucrChkCropSuccessProp.SetText("Crop Success Probabilities") + ucrChkCropSuccessProp.AddParameterValuesCondition(True, "crop", "True") + ucrChkCropSuccessProp.AddParameterValuesCondition(False, "crop", "False") + + ucrChkIncludeSummaryData.SetText("Include Summary Data") + ucrChkIncludeSummaryData.SetParameter(New RParameter("include_summary_data", 17)) + ucrChkIncludeSummaryData.SetValuesCheckedAndUnchecked("TRUE", "FALSE") + ucrChkIncludeSummaryData.SetRDefault("FALSE") + + ucrInputStationID.SetParameter(New RParameter("station_id", 18)) + + ucrInputCountry.SetParameter(New RParameter("country", 19)) + + ucrInputTokenPath.SetParameter(New RParameter("filename", 0)) + + End Sub + + Private Sub SetDefaults() + clsExportRinstatToBucketFunction = New RFunction + clsSummariesFunction = New RFunction + clsReformatCropSuccessFunction = New RFunction + clsReformatMonthlyTempSummaries = New RFunction + clsReformatSeasonStartFunction = New RFunction + clsReforMattAnnualSummariesFunction = New RFunction + clsReformatTempSummariesFunction = New RFunction + ClsGcsAuthFileFunction = New RFunction + clsDummyFunction = New RFunction + bResetSubdialog = True + + ucrSelectorExportDefinitions.Reset() + + clsDummyFunction.AddParameter("rain", "False", iPosition:=0) + clsDummyFunction.AddParameter("temp", "False", iPosition:=1) + clsDummyFunction.AddParameter("monthly_temp", "False", iPosition:=2) + clsDummyFunction.AddParameter("extrem", "False", iPosition:=3) + clsDummyFunction.AddParameter("season", "False", iPosition:=4) + clsDummyFunction.AddParameter("crop", "False", iPosition:=5) + + clsReformatTempSummariesFunction.SetPackageName("epicsawrap") + clsReformatTempSummariesFunction.SetRCommand("reformat_temperature_summaries") + clsReformatTempSummariesFunction.SetAssignTo("annual_temp") + + clsReforMattAnnualSummariesFunction.SetPackageName("epicsawrap") + clsReforMattAnnualSummariesFunction.SetRCommand("reformat_annual_summaries") + clsReforMattAnnualSummariesFunction.SetAssignTo("annual_rain") + + clsReformatSeasonStartFunction.SetPackageName("epicsawrap") + clsReformatSeasonStartFunction.SetRCommand("reformat_season_start") + clsReformatSeasonStartFunction.SetAssignTo("crop_def") + + clsReformatMonthlyTempSummaries.SetPackageName("epicsawrap") + clsReformatMonthlyTempSummaries.SetRCommand("reformat_temperature_summaries") + clsReformatMonthlyTempSummaries.SetAssignTo("monthly_temp") + + clsReformatCropSuccessFunction.SetPackageName("epicsawrap") + clsReformatCropSuccessFunction.SetRCommand("reformat_crop_success") + clsReformatCropSuccessFunction.SetAssignTo("crop_prop") + + clsSummariesFunction.SetRCommand("c") + + clsExportRinstatToBucketFunction.SetPackageName("epicsawrap") + clsExportRinstatToBucketFunction.SetRCommand("export_r_instat_to_bucket") + + ClsGcsAuthFileFunction.SetPackageName("epicsawrap") + ClsGcsAuthFileFunction.SetRCommand("gcs_auth_file") + + ucrBase.clsRsyntax.ClearCodes() + ucrBase.clsRsyntax.AddToBeforeCodes(ClsGcsAuthFileFunction, 0) + ucrBase.clsRsyntax.SetBaseRFunction(clsExportRinstatToBucketFunction) + End Sub + + Private Sub SetRCodeForControls(bReset As Boolean) + ucrReceiverCropData.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrReceiverData.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrReceiverDataYear.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrReceiverDataYearMonth.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrReceiverMaxTemp.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrReceiverMinTemp.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrReceiverMonth.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrReceiverRain.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrReceiverYear.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrSelectorExportDefinitions.SetRCode(clsExportRinstatToBucketFunction) + ucrInputTokenPath.SetRCode(ClsGcsAuthFileFunction, bReset) + + ucrInputStationID.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrInputCountry.SetRCode(clsExportRinstatToBucketFunction, bReset) + ucrChkIncludeSummaryData.SetRCode(clsExportRinstatToBucketFunction, bReset) + If bReset Then + ucrChkAnnualRainfall.SetRCode(clsDummyFunction, bReset) + ucrChkAnnualTemp.SetRCode(clsDummyFunction, bReset) + ucrChkCropSuccessProp.SetRCode(clsDummyFunction, bReset) + ucrChkExtremes.SetRCode(clsDummyFunction, bReset) + ucrChkMonthlyTemp.SetRCode(clsDummyFunction, bReset) + ucrChkSeasonStartProp.SetRCode(clsDummyFunction, bReset) + End If + AddRemoveSummary() + EnableDisableDefineButton() + End Sub + + Private Sub TestOkEnabled() + If Not ucrReceiverData.IsEmpty AndAlso + Not ucrReceiverMonth.IsEmpty AndAlso + Not ucrReceiverYear.IsEmpty AndAlso + Not ucrInputCountry.IsEmpty AndAlso + Not ucrInputStationID.IsEmpty AndAlso + Not ucrInputTokenPath.IsEmpty Then + + If (ucrChkCropSuccessProp.Checked OrElse ucrChkSeasonStartProp.Checked) AndAlso + Not ucrReceiverCropData.IsEmpty Then + ucrBase.OKEnabled(True) + ElseIf ucrChkAnnualRainfall.Checked AndAlso + Not ucrReceiverRain.IsEmpty Then + ucrBase.OKEnabled(True) + ElseIf (ucrChkAnnualTemp.Checked OrElse ucrChkMonthlyTemp.Checked) AndAlso + Not ucrReceiverMinTemp.IsEmpty Then + ucrBase.OKEnabled(True) + ElseIf (ucrChkAnnualRainfall.Checked OrElse ucrChkAnnualTemp.Checked) AndAlso + Not ucrReceiverDataYear.IsEmpty Then + ucrBase.OKEnabled(True) + ElseIf ucrChkMonthlyTemp.Checked AndAlso + Not ucrReceiverDataYearMonth.IsEmpty Then + ucrBase.OKEnabled(True) + ElseIf (ucrChkAnnualTemp.Checked OrElse ucrChkMonthlyTemp.Checked) AndAlso + Not ucrReceiverMaxTemp.IsEmpty Then + ucrBase.OKEnabled(True) + Else + ucrBase.OKEnabled(False) + End If + Else + ucrBase.OKEnabled(False) + End If + End Sub + + Private Sub AddRemoveSummary() + If ucrChkAnnualRainfall.Checked OrElse ucrChkAnnualTemp.Checked OrElse ucrChkCropSuccessProp.Checked OrElse ucrChkExtremes.Checked OrElse ucrChkMonthlyTemp.Checked OrElse ucrChkSeasonStartProp.Checked Then + clsExportRinstatToBucketFunction.AddParameter("summaries", clsRFunctionParameter:=clsSummariesFunction, iPosition:=0) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("summaries") + End If + End Sub + + Private Sub ucrBase_ClickReset(sender As Object, e As EventArgs) Handles ucrBase.ClickReset + SetDefaults() + SetRCodeForControls(True) + TestOkEnabled() + EnableDisableDefineButton() + End Sub + + Private Sub cmdDefine_Click(sender As Object, e As EventArgs) Handles cmdDefine.Click + sdgDefineAnnualRainfall.SetRCode(clsNewReformatCropSuccessFunction:=clsReformatCropSuccessFunction, clsNewReformatSeasonStartFunction:=clsReformatSeasonStartFunction, clsNewReformatMonthlyTempSummaries:=clsReformatMonthlyTempSummaries, + clsNewReforMattAnnualSummaries:=clsReforMattAnnualSummariesFunction, clsNewReformatTempSummariesFunction:=clsReformatTempSummariesFunction, clsNewExportRinstatToBucketFunction:=clsExportRinstatToBucketFunction, bReset:=bResetSubdialog) + sdgDefineAnnualRainfall.ShowDialog() + bResetSubdialog = False + End Sub + + Private Sub ucrChkAnnualRainfall_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkAnnualRainfall.ControlValueChanged + If ucrChkAnnualRainfall.Checked Then + clsSummariesFunction.AddParameter("rain", Chr(34) & "annual_rainfall" & Chr(34), iPosition:=0, bIncludeArgumentName:=False) + Else + clsSummariesFunction.RemoveParameterByName("rain") + End If + AddRemoveSummary() + EnableDisableDefineButton() + TestOkEnabled() + End Sub + + Private Sub ucrChkAnnualTemp_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkAnnualTemp.ControlValueChanged + If ucrChkAnnualTemp.Checked Then + clsSummariesFunction.AddParameter("temp", Chr(34) & "annual_temperature" & Chr(34), iPosition:=1, bIncludeArgumentName:=False) + Else + clsSummariesFunction.RemoveParameterByName("temp") + End If + AddRemoveSummary() + EnableDisableDefineButton() + TestOkEnabled() + End Sub + + Private Sub ucrChkCropSuccessProp_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkCropSuccessProp.ControlValueChanged + If ucrChkCropSuccessProp.Checked Then + clsSummariesFunction.AddParameter("prop", Chr(34) & "crop_success" & Chr(34), iPosition:=2, bIncludeArgumentName:=False) + Else + clsSummariesFunction.RemoveParameterByName("prop") + End If + AddRemoveSummary() + EnableDisableDefineButton() + TestOkEnabled() + End Sub + + Private Sub ucrChkExtremes_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkExtremes.ControlValueChanged + If ucrChkExtremes.Checked Then + clsSummariesFunction.AddParameter("extreme", Chr(34) & "extremes" & Chr(34), iPosition:=3, bIncludeArgumentName:=False) + Else + clsSummariesFunction.RemoveParameterByName("extreme") + End If + AddRemoveSummary() + EnableDisableDefineButton() + End Sub + + Private Sub ucrChkMonthlyTemp_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkMonthlyTemp.ControlValueChanged + If ucrChkMonthlyTemp.Checked Then + clsSummariesFunction.AddParameter("month_temp", Chr(34) & "monthly_temperature" & Chr(34), iPosition:=4, bIncludeArgumentName:=False) + Else + clsSummariesFunction.RemoveParameterByName("month_temp") + End If + AddRemoveSummary() + EnableDisableDefineButton() + TestOkEnabled() + End Sub + + Private Sub ucrChkSeasonStartProp_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkSeasonStartProp.ControlValueChanged + If ucrChkSeasonStartProp.Checked Then + clsSummariesFunction.AddParameter("start_prop", Chr(34) & "start_season" & Chr(34), iPosition:=5, bIncludeArgumentName:=False) + Else + clsSummariesFunction.RemoveParameterByName("start_prop") + End If + AddRemoveSummary() + EnableDisableDefineButton() + TestOkEnabled() + End Sub + + Private Sub ucrInputCountry_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrInputCountry.ControlValueChanged + If Not ucrInputCountry.IsEmpty Then + clsExportRinstatToBucketFunction.AddParameter("country", Chr(34) & ucrInputCountry.GetText & Chr(34), iPosition:=19) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("country") + End If + End Sub + + Private Sub ucrInputStationID_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrInputStationID.ControlValueChanged + If Not ucrInputStationID.IsEmpty Then + clsExportRinstatToBucketFunction.AddParameter("station_id", Chr(34) & ucrInputStationID.GetText & Chr(34), iPosition:=18) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("station_id") + End If + End Sub + + Private Sub EnableDisableDefineButton() + cmdDefine.Enabled = ucrChkIncludeSummaryData.Checked AndAlso (ucrChkAnnualRainfall.Checked OrElse ucrChkAnnualTemp.Checked OrElse ucrChkCropSuccessProp.Checked OrElse ucrChkExtremes.Checked OrElse ucrChkMonthlyTemp.Checked OrElse ucrChkSeasonStartProp.Checked) + ucrReceiverDataYearMonth.Visible = ucrChkMonthlyTemp.Checked + ucrReceiverDataYear.Visible = ucrChkAnnualRainfall.Checked OrElse ucrChkAnnualTemp.Checked + ucrReceiverRain.Visible = ucrChkAnnualRainfall.Checked + ucrReceiverCropData.Visible = ucrChkCropSuccessProp.Checked OrElse ucrChkSeasonStartProp.Checked + ucrReceiverMaxTemp.Visible = ucrChkMonthlyTemp.Checked OrElse ucrChkAnnualTemp.Checked + ucrReceiverMinTemp.Visible = ucrChkMonthlyTemp.Checked OrElse ucrChkAnnualTemp.Checked + + End Sub + + Private Sub ucrChkIncludeSummaryData_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkIncludeSummaryData.ControlValueChanged + EnableDisableDefineButton() + End Sub + + Private Sub cmdChooseFile_Click(sender As Object, e As EventArgs) Handles cmdChooseFile.Click + Using dlgOpen As New OpenFileDialog + dlgOpen.Filter = "JSON Files|*.json" + dlgOpen.Title = "Import JSON File" + + dlgOpen.InitialDirectory = Path.GetDirectoryName(Replace(ucrInputTokenPath.GetText(), "/", "\")) + + If dlgOpen.ShowDialog() = DialogResult.OK AndAlso dlgOpen.FileName <> "" Then + ucrInputTokenPath.SetName(Replace(dlgOpen.FileName, "\", "/")) + End If + End Using + + End Sub + + Private Sub ucrReceiverData_ControlContentsChanged(ucrChangedControl As ucrCore) Handles ucrReceiverData.ControlContentsChanged, ucrReceiverRain.ControlContentsChanged, + ucrReceiverMaxTemp.ControlContentsChanged, ucrReceiverMinTemp.ControlContentsChanged, ucrReceiverCropData.ControlContentsChanged, ucrReceiverDataYearMonth.ControlContentsChanged, ucrReceiverDataYear.ControlContentsChanged, + ucrReceiverMonth.ControlContentsChanged, ucrReceiverYear.ControlContentsChanged, ucrChkSeasonStartProp.ControlContentsChanged, ucrInputCountry.ControlContentsChanged, ucrInputStationID.ControlContentsChanged, ucrChkIncludeSummaryData.ControlContentsChanged, + ucrChkMonthlyTemp.ControlContentsChanged, ucrChkCropSuccessProp.ControlContentsChanged, ucrChkAnnualTemp.ControlContentsChanged, ucrChkAnnualRainfall.ControlContentsChanged, ucrInputTokenPath.ControlContentsChanged, ucrSelectorExportDefinitions.ControlContentsChanged + TestOkEnabled() + End Sub + + Private Sub ucrReceiverData_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrReceiverData.ControlValueChanged + ucrReceiverData.SetMeAsReceiver() + End Sub End Class \ No newline at end of file diff --git a/instat/dlgHideDataframes.vb b/instat/dlgHideDataframes.vb index 3bcfa18a868..5700bda93e5 100644 --- a/instat/dlgHideDataframes.vb +++ b/instat/dlgHideDataframes.vb @@ -87,7 +87,7 @@ Public Class dlgHideDataframes ucrSelectorForDataFrames.Reset() - clsDummyFunction.AddParameter("checked", "rdoHide", iPosition:=0) + clsDummyFunction.AddParameter("checked", "rdoUnhide", iPosition:=0) clsMappingFunction.SetPackageName("purrr") clsMappingFunction.SetRCommand("map") @@ -143,8 +143,11 @@ Public Class dlgHideDataframes If expTemp IsNot Nothing AndAlso expTemp.Type <> Internals.SymbolicExpressionType.Null Then chrHiddenColumns = expTemp.AsCharacter - For Each strDataFrame As String In chrHiddenColumns - ucrSelectorForDataFrames.lstAvailableVariable.Items.Add(strDataFrame) + For i As Integer = 0 To chrHiddenColumns.Length - 1 + Dim strDataFrame As String = chrHiddenColumns(i) + Dim listItem As New ListViewItem(strDataFrame) + listItem.Tag = "data_names" + ucrSelectorForDataFrames.lstAvailableVariable.Items.Add(listItem) Next End If End Sub diff --git a/instat/dlgRestoreBackup.Designer.vb b/instat/dlgRestoreBackup.Designer.vb new file mode 100644 index 00000000000..5e9bebf3f98 --- /dev/null +++ b/instat/dlgRestoreBackup.Designer.vb @@ -0,0 +1,243 @@ + _ +Partial Class dlgRestoreBackup + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + '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. + _ + Private Sub InitializeComponent() + Me.grpSavingOptions = New System.Windows.Forms.GroupBox() + Me.ucrInputSavedPathInternalLog = New instat.ucrFilePath() + Me.ucrInputSavedPathLog = New instat.ucrFilePath() + Me.ucrInputSavedPathData = New instat.ucrFilePath() + Me.ucrChkShowInternalLogFile = New instat.ucrCheck() + Me.ucrChkShowLogFile = New instat.ucrCheck() + Me.ucrChkShowDataFile = New instat.ucrCheck() + Me.grpEndChoice = New System.Windows.Forms.GroupBox() + Me.rdoNeither = New System.Windows.Forms.RadioButton() + Me.rdoLoadBackupData = New System.Windows.Forms.RadioButton() + Me.rdoRunBackupLog = New System.Windows.Forms.RadioButton() + Me.ucrBase = New instat.ucrButtons() + Me.ucrChkSendInternalLog = New instat.ucrCheck() + Me.ucrPnlRecoveryOption = New instat.UcrPanel() + Me.grpSavingOptions.SuspendLayout() + Me.grpEndChoice.SuspendLayout() + Me.SuspendLayout() + ' + 'grpSavingOptions + ' + Me.grpSavingOptions.Controls.Add(Me.ucrInputSavedPathInternalLog) + Me.grpSavingOptions.Controls.Add(Me.ucrInputSavedPathLog) + Me.grpSavingOptions.Controls.Add(Me.ucrInputSavedPathData) + Me.grpSavingOptions.Controls.Add(Me.ucrChkShowInternalLogFile) + Me.grpSavingOptions.Controls.Add(Me.ucrChkShowLogFile) + Me.grpSavingOptions.Controls.Add(Me.ucrChkShowDataFile) + Me.grpSavingOptions.Location = New System.Drawing.Point(12, 16) + Me.grpSavingOptions.Name = "grpSavingOptions" + Me.grpSavingOptions.Size = New System.Drawing.Size(604, 154) + Me.grpSavingOptions.TabIndex = 20 + Me.grpSavingOptions.TabStop = False + Me.grpSavingOptions.Text = "Saving Options" + ' + 'ucrInputSavedPathInternalLog + ' + Me.ucrInputSavedPathInternalLog.AutoSize = True + Me.ucrInputSavedPathInternalLog.DefaultFileSuggestionName = "" + Me.ucrInputSavedPathInternalLog.FilePath = "" + Me.ucrInputSavedPathInternalLog.FilePathBrowseText = "Browse" + Me.ucrInputSavedPathInternalLog.FilePathDialogFilter = "R file (*.R)|*.R" + Me.ucrInputSavedPathInternalLog.FilePathDialogTitle = "Save R File" + Me.ucrInputSavedPathInternalLog.FilePathLabel = "Save As:" + Me.ucrInputSavedPathInternalLog.FolderBrowse = False + Me.ucrInputSavedPathInternalLog.Location = New System.Drawing.Point(222, 115) + Me.ucrInputSavedPathInternalLog.Name = "ucrInputSavedPathInternalLog" + Me.ucrInputSavedPathInternalLog.SelectedFileFilterIndex = 1 + Me.ucrInputSavedPathInternalLog.Size = New System.Drawing.Size(380, 34) + Me.ucrInputSavedPathInternalLog.TabIndex = 29 + ' + 'ucrInputSavedPathLog + ' + Me.ucrInputSavedPathLog.AutoSize = True + Me.ucrInputSavedPathLog.DefaultFileSuggestionName = "" + Me.ucrInputSavedPathLog.FilePath = "" + Me.ucrInputSavedPathLog.FilePathBrowseText = "Browse" + Me.ucrInputSavedPathLog.FilePathDialogFilter = "R file (*.R)|*.R" + Me.ucrInputSavedPathLog.FilePathDialogTitle = "Save R File" + Me.ucrInputSavedPathLog.FilePathLabel = "Save As:" + Me.ucrInputSavedPathLog.FolderBrowse = False + Me.ucrInputSavedPathLog.Location = New System.Drawing.Point(222, 70) + Me.ucrInputSavedPathLog.Name = "ucrInputSavedPathLog" + Me.ucrInputSavedPathLog.SelectedFileFilterIndex = 1 + Me.ucrInputSavedPathLog.Size = New System.Drawing.Size(380, 34) + Me.ucrInputSavedPathLog.TabIndex = 28 + ' + 'ucrInputSavedPathData + ' + Me.ucrInputSavedPathData.AutoSize = True + Me.ucrInputSavedPathData.DefaultFileSuggestionName = "" + Me.ucrInputSavedPathData.FilePath = "" + Me.ucrInputSavedPathData.FilePathBrowseText = "Browse" + Me.ucrInputSavedPathData.FilePathDialogFilter = "RDS Data file (*.RDS)|*.RDS" + Me.ucrInputSavedPathData.FilePathDialogTitle = "Save Data File" + Me.ucrInputSavedPathData.FilePathLabel = "Save As:" + Me.ucrInputSavedPathData.FolderBrowse = False + Me.ucrInputSavedPathData.Location = New System.Drawing.Point(222, 25) + Me.ucrInputSavedPathData.Name = "ucrInputSavedPathData" + Me.ucrInputSavedPathData.SelectedFileFilterIndex = 1 + Me.ucrInputSavedPathData.Size = New System.Drawing.Size(380, 34) + Me.ucrInputSavedPathData.TabIndex = 25 + ' + 'ucrChkShowInternalLogFile + ' + Me.ucrChkShowInternalLogFile.AutoSize = True + Me.ucrChkShowInternalLogFile.Checked = False + Me.ucrChkShowInternalLogFile.Location = New System.Drawing.Point(6, 117) + Me.ucrChkShowInternalLogFile.Name = "ucrChkShowInternalLogFile" + Me.ucrChkShowInternalLogFile.Size = New System.Drawing.Size(216, 23) + Me.ucrChkShowInternalLogFile.TabIndex = 27 + ' + 'ucrChkShowLogFile + ' + Me.ucrChkShowLogFile.AutoSize = True + Me.ucrChkShowLogFile.Checked = False + Me.ucrChkShowLogFile.Location = New System.Drawing.Point(6, 74) + Me.ucrChkShowLogFile.Name = "ucrChkShowLogFile" + Me.ucrChkShowLogFile.Size = New System.Drawing.Size(216, 23) + Me.ucrChkShowLogFile.TabIndex = 26 + ' + 'ucrChkShowDataFile + ' + Me.ucrChkShowDataFile.AutoSize = True + Me.ucrChkShowDataFile.Checked = False + Me.ucrChkShowDataFile.Location = New System.Drawing.Point(6, 31) + Me.ucrChkShowDataFile.Name = "ucrChkShowDataFile" + Me.ucrChkShowDataFile.Size = New System.Drawing.Size(216, 23) + Me.ucrChkShowDataFile.TabIndex = 25 + ' + 'grpEndChoice + ' + Me.grpEndChoice.Controls.Add(Me.rdoRunBackupLog) + Me.grpEndChoice.Controls.Add(Me.rdoLoadBackupData) + Me.grpEndChoice.Controls.Add(Me.rdoNeither) + Me.grpEndChoice.Controls.Add(Me.ucrPnlRecoveryOption) + Me.grpEndChoice.Location = New System.Drawing.Point(136, 209) + Me.grpEndChoice.Name = "grpEndChoice" + Me.grpEndChoice.Size = New System.Drawing.Size(358, 66) + Me.grpEndChoice.TabIndex = 23 + Me.grpEndChoice.TabStop = False + Me.grpEndChoice.Text = "Choose one of the following" + ' + 'rdoNeither + ' + Me.rdoNeither.AutoSize = True + Me.rdoNeither.Location = New System.Drawing.Point(272, 30) + Me.rdoNeither.Name = "rdoNeither" + Me.rdoNeither.Size = New System.Drawing.Size(59, 17) + Me.rdoNeither.TabIndex = 44 + Me.rdoNeither.TabStop = True + Me.rdoNeither.Text = "Neither" + Me.rdoNeither.UseVisualStyleBackColor = True + ' + 'rdoLoadBackupData + ' + Me.rdoLoadBackupData.AutoSize = True + Me.rdoLoadBackupData.Location = New System.Drawing.Point(138, 30) + Me.rdoLoadBackupData.Name = "rdoLoadBackupData" + Me.rdoLoadBackupData.Size = New System.Drawing.Size(115, 17) + Me.rdoLoadBackupData.TabIndex = 43 + Me.rdoLoadBackupData.TabStop = True + Me.rdoLoadBackupData.Text = "Load Backup Data" + Me.rdoLoadBackupData.UseVisualStyleBackColor = True + ' + 'rdoRunBackupLog + ' + Me.rdoRunBackupLog.AutoSize = True + Me.rdoRunBackupLog.Location = New System.Drawing.Point(25, 30) + Me.rdoRunBackupLog.Name = "rdoRunBackupLog" + Me.rdoRunBackupLog.Size = New System.Drawing.Size(106, 17) + Me.rdoRunBackupLog.TabIndex = 42 + Me.rdoRunBackupLog.TabStop = True + Me.rdoRunBackupLog.Text = "Run Backup Log" + Me.rdoRunBackupLog.UseVisualStyleBackColor = True + ' + 'ucrBase + ' + Me.ucrBase.AutoSize = True + Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrBase.Location = New System.Drawing.Point(111, 282) + Me.ucrBase.Margin = New System.Windows.Forms.Padding(4) + Me.ucrBase.Name = "ucrBase" + Me.ucrBase.Size = New System.Drawing.Size(408, 52) + Me.ucrBase.TabIndex = 24 + ' + 'ucrChkSendInternalLog + ' + Me.ucrChkSendInternalLog.AutoSize = True + Me.ucrChkSendInternalLog.Checked = False + Me.ucrChkSendInternalLog.Location = New System.Drawing.Point(23, 177) + Me.ucrChkSendInternalLog.Name = "ucrChkSendInternalLog" + Me.ucrChkSendInternalLog.Size = New System.Drawing.Size(266, 23) + Me.ucrChkSendInternalLog.TabIndex = 21 + ' + 'ucrPnlRecoveryOption + ' + Me.ucrPnlRecoveryOption.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrPnlRecoveryOption.Location = New System.Drawing.Point(17, 19) + Me.ucrPnlRecoveryOption.Name = "ucrPnlRecoveryOption" + Me.ucrPnlRecoveryOption.Size = New System.Drawing.Size(314, 36) + Me.ucrPnlRecoveryOption.TabIndex = 25 + ' + 'dlgRestoreBackup + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi + Me.AutoSize = True + Me.ClientSize = New System.Drawing.Size(627, 340) + Me.Controls.Add(Me.grpEndChoice) + Me.Controls.Add(Me.ucrBase) + Me.Controls.Add(Me.ucrChkSendInternalLog) + Me.Controls.Add(Me.grpSavingOptions) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "dlgRestoreBackup" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Restore Backup" + Me.grpSavingOptions.ResumeLayout(False) + Me.grpSavingOptions.PerformLayout() + Me.grpEndChoice.ResumeLayout(False) + Me.grpEndChoice.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents grpSavingOptions As GroupBox + Friend WithEvents grpEndChoice As GroupBox + Friend WithEvents ucrChkSendInternalLog As ucrCheck + Friend WithEvents ucrBase As ucrButtons + Friend WithEvents ucrChkShowDataFile As ucrCheck + Friend WithEvents ucrChkShowInternalLogFile As ucrCheck + Friend WithEvents ucrChkShowLogFile As ucrCheck + Friend WithEvents rdoNeither As RadioButton + Friend WithEvents rdoLoadBackupData As RadioButton + Friend WithEvents rdoRunBackupLog As RadioButton + Friend WithEvents ucrInputSavedPathData As ucrFilePath + Friend WithEvents ucrInputSavedPathLog As ucrFilePath + Friend WithEvents ucrInputSavedPathInternalLog As ucrFilePath + Friend WithEvents ucrPnlRecoveryOption As UcrPanel +End Class diff --git a/instat/dlgRestoreBackup.resx b/instat/dlgRestoreBackup.resx new file mode 100644 index 00000000000..1af7de150c9 --- /dev/null +++ b/instat/dlgRestoreBackup.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/instat/dlgRestoreBackup.vb b/instat/dlgRestoreBackup.vb new file mode 100644 index 00000000000..6737206db9a --- /dev/null +++ b/instat/dlgRestoreBackup.vb @@ -0,0 +1,256 @@ +' R- Instat +' Copyright (C) 2015-2017 +' +' This program is free software: you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation, either version 3 of the License, or +' (at your option) any later version. +' +' This program is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. +' +' You should have received a copy of the GNU General Public License +' along with this program. If not, see . + +Imports instat.Translations +Imports System.IO +Imports RDotNet + +Public Class dlgRestoreBackup + Private strAutoSavedLogScript As String + Private strAutoSavedDataFilePaths() As String + Private strAutoSavedLogFilePaths() As String + Private strAutoSavedInternalLogFilePaths() As String + Private strScript As String + Private strLoadDateFilePath As String + Private bUserClose As Boolean = True + Private clsDummyFunction As New RFunction + Public strAutoSaveDataFolderPath = frmMain.strAutoSaveDataFolderPath + Public strAutoSaveLogFolderPath = frmMain.strAutoSaveLogFolderPath + Public strAutoSaveInternalLogFolderPath = frmMain.strAutoSaveInternalLogFolderPath + Private bReset As Boolean = True + Private bFirstload As Boolean = True + + Private Sub dlgRestoreBackup_Load(sender As Object, e As EventArgs) Handles MyBase.Load + If bFirstload Then + InitialiseDialog() + bFirstload = False + End If + If bReset Then + SetDefaults() + End If + SetRCodeForControls(bReset) + bReset = False + SetLogControlsDisable(frmMain.bFirstBackupDone) + autoTranslate(Me) + TestOKEnabled() + End Sub + + Private Sub InitialiseDialog() + ucrBase.iHelpTopicID = 411 + + ucrChkShowDataFile.Checked = False + ucrChkShowInternalLogFile.Checked = False + ucrChkShowLogFile.Checked = False + + 'temporary - not yet implemented + ucrChkSendInternalLog.Visible = False + ucrInputSavedPathData.Visible = False + ucrInputSavedPathLog.Visible = False + ucrInputSavedPathInternalLog.Visible = False + + If (Directory.Exists(strAutoSaveLogFolderPath)) Then + strAutoSavedLogFilePaths = My.Computer.FileSystem.GetFiles(strAutoSaveLogFolderPath).ToArray + End If + If Directory.Exists(strAutoSaveDataFolderPath) Then + strAutoSavedDataFilePaths = My.Computer.FileSystem.GetFiles(strAutoSaveDataFolderPath).ToArray + End If + If (Directory.Exists(strAutoSaveInternalLogFolderPath)) Then + strAutoSavedInternalLogFilePaths = My.Computer.FileSystem.GetFiles(strAutoSaveInternalLogFolderPath).ToArray + End If + + ucrBase.contextMenuStripToScript.Enabled = False + + ucrChkSendInternalLog.SetText("Send Debugging Log to R-Instat Team") + + If strAutoSavedDataFilePaths IsNot Nothing AndAlso strAutoSavedDataFilePaths.Count > 0 Then + ucrChkShowDataFile.SetText("Backup Data File Detected") + rdoLoadBackupData.Enabled = True + ucrInputSavedPathData.Enabled = True + ucrChkShowDataFile.Enabled = True + Else + ucrChkShowDataFile.SetText("No Backup Data File Detected") + rdoLoadBackupData.Enabled = False + ucrInputSavedPathData.Enabled = False + ucrChkShowDataFile.Enabled = False + End If + If strAutoSavedLogFilePaths IsNot Nothing AndAlso strAutoSavedLogFilePaths.Count > 0 Then + ucrChkShowLogFile.SetText("Backup Log File Detected") + rdoRunBackupLog.Enabled = True + ucrInputSavedPathLog.Enabled = True + ucrChkShowLogFile.Enabled = True + Else + ucrChkShowLogFile.SetText("No Backup Log File Detected") + rdoRunBackupLog.Enabled = False + ucrInputSavedPathLog.Enabled = False + ucrChkShowLogFile.Enabled = False + End If + If strAutoSavedInternalLogFilePaths IsNot Nothing AndAlso strAutoSavedInternalLogFilePaths.Count > 0 Then + ucrChkShowInternalLogFile.SetText("Backup Debugging Log File Detected") + ucrChkSendInternalLog.Visible = False + ucrChkSendInternalLog.Checked = False + Else + ucrChkShowInternalLogFile.SetText("No Backup Debugging Log File Detected") + ucrChkSendInternalLog.Visible = False + ucrChkSendInternalLog.Checked = False + End If + ucrPnlRecoveryOption.AddRadioButton(rdoLoadBackupData) + ucrPnlRecoveryOption.AddRadioButton(rdoRunBackupLog) + ucrPnlRecoveryOption.AddRadioButton(rdoNeither) + + ucrPnlRecoveryOption.AddParameterValuesCondition(rdoLoadBackupData, "backup", "data") + ucrPnlRecoveryOption.AddParameterValuesCondition(rdoRunBackupLog, "backup", "log") + ucrPnlRecoveryOption.AddParameterValuesCondition(rdoNeither, "backup", "neither") + End Sub + + Private Sub SetDefaults() + ucrInputSavedPathData.Clear() + ucrInputSavedPathLog.Clear() + ucrInputSavedPathInternalLog.Clear() + ucrChkShowDataFile.Checked = False + ucrChkShowLogFile.Checked = False + ucrChkSendInternalLog.Checked = False + clsDummyFunction.AddParameter("backup", "neither") + End Sub + + Private Sub SetRCodeForControls(bReset As Boolean) + ucrInputSavedPathData.SetPathControlRcode(ucrBase.clsRsyntax.clsBaseFunction, bReset) + ucrInputSavedPathLog.SetPathControlRcode(ucrBase.clsRsyntax.clsBaseFunction, bReset) + ucrPnlRecoveryOption.SetRCode(clsDummyFunction, bReset) + End Sub + + Private Sub SaveFiles() + If strAutoSavedDataFilePaths IsNot Nothing AndAlso strAutoSavedDataFilePaths.Count > 0 AndAlso File.Exists(strAutoSavedDataFilePaths(0)) Then + Try + If Not ucrInputSavedPathData.IsEmpty() AndAlso ucrChkShowDataFile.Checked Then + File.Copy(strAutoSavedDataFilePaths(0), ucrInputSavedPathData.FilePath(), True) + End If + Catch ex As Exception + MsgBox("Could not copy and/or delete data file." & Environment.NewLine & ex.Message, "Error copying/deleting file") + End Try + End If + If strAutoSavedLogFilePaths IsNot Nothing AndAlso strAutoSavedLogFilePaths.Count > 0 AndAlso File.Exists(strAutoSavedLogFilePaths(0)) Then + Try + If Not ucrInputSavedPathLog.IsEmpty() AndAlso ucrChkShowLogFile.Checked Then + File.Copy(strAutoSavedLogFilePaths(0), ucrInputSavedPathLog.FilePath(), True) + End If + Catch ex As Exception + MsgBox("Could not copy and/or delete log file." & Environment.NewLine & ex.Message, "Error copying/deleting file") + End Try + End If + If strAutoSavedInternalLogFilePaths IsNot Nothing AndAlso strAutoSavedInternalLogFilePaths.Count > 0 AndAlso File.Exists(strAutoSavedInternalLogFilePaths(0)) Then + Try + If Not ucrInputSavedPathInternalLog.IsEmpty() AndAlso ucrChkSendInternalLog.Checked Then + File.Copy(strAutoSavedInternalLogFilePaths(0), ucrInputSavedPathInternalLog.FilePath(), True) + End If + Catch ex As Exception + MsgBox("Could not copy and/or delete internal log file." & Environment.NewLine & ex.Message, "Error copying/deleting file") + End Try + End If + End Sub + + Private Sub TestOKEnabled() + ucrBase.OKEnabled(rdoRunBackupLog.Checked OrElse rdoLoadBackupData.Checked OrElse rdoNeither.Checked) + End Sub + + Private Sub ucrChkShowDataFile_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkShowLogFile.ControlValueChanged, ucrChkShowInternalLogFile.ControlValueChanged, ucrChkShowDataFile.ControlValueChanged + ucrInputSavedPathData.Visible = ucrChkShowDataFile.Checked + ucrInputSavedPathLog.Visible = ucrChkShowLogFile.Checked + ucrInputSavedPathInternalLog.Visible = ucrChkShowInternalLogFile.Checked + End Sub + + Private Sub SetLogControlsDisable(bEnable As Boolean) + ucrChkShowLogFile.Enabled = Not bEnable + ucrChkShowInternalLogFile.Enabled = Not bEnable + rdoRunBackupLog.Enabled = Not bEnable + ucrChkShowLogFile.Checked = False + ucrChkShowInternalLogFile.Checked = False + End Sub + + Private Sub GetBackupFromLastSession(autoSaveFolderPath As String, searchPattern As String, bLogFile As Boolean) + Dim autoSaveDirectory As New DirectoryInfo(autoSaveFolderPath) + Dim files As FileInfo() = autoSaveDirectory.GetFiles(searchPattern) + + If files.Length > 0 Then + Array.Sort(files, Function(x, y) y.LastWriteTime.CompareTo(x.LastWriteTime)) + Dim strLatestBackupFile As FileInfo = files(0) ' Get the backup from the last session + If bLogFile Then + strScript = File.ReadAllText(strLatestBackupFile.FullName) + Else + strLoadDateFilePath = strLatestBackupFile.FullName ' Pass the full path for data files + End If + Else + ' No backup found from the last session + strScript = "" + strLoadDateFilePath = "" + End If + End Sub + + Private Sub ucrInputSavedPathData_Leave(sender As Object, e As EventArgs) Handles ucrInputSavedPathData.Leave + If Not String.IsNullOrEmpty(ucrInputSavedPathData.IsEmpty) Then + frmMain.clsRecentItems.addToMenu(Replace(ucrInputSavedPathData.FilePath, "\", "/")) + End If + End Sub + + Private Sub ucrInputSavedPathLog_Leave(sender As Object, e As EventArgs) Handles ucrInputSavedPathLog.Leave + If Not String.IsNullOrEmpty(ucrInputSavedPathLog.IsEmpty) Then + frmMain.clsRecentItems.addToMenu(Replace(ucrInputSavedPathLog.FilePath, "\", "/")) + End If + End Sub + + Private Sub ucrBase_ClickReset(sender As Object, e As EventArgs) Handles ucrBase.ClickReset + SetDefaults() + SetRCodeForControls(True) + End Sub + + Private Sub GetRecoveryFiles(strRScripts As String, strDataFilePath As String) + 'if data file recovered then add it as part of the initial R set up script + If Not String.IsNullOrEmpty(strDataFilePath) Then + strRScripts = strRScripts & Environment.NewLine & + "# Importing auto recovered data" & Environment.NewLine & + frmMain.clsRLink.GetImportRDSRScript(strDataFilePath, False) + End If + + 'execute the R-Instat set up R scripts + If Not String.IsNullOrEmpty(strRScripts) Then + For Each strLine As String In strRScripts.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) + frmMain.clsRLink.RunScript(strScript:=strLine.Trim(), bSeparateThread:=True, bSilent:=True) + Next + End If + + 'grids are only updated when clsRLink.bInstatObjectExists = True + If frmMain.clsRLink.RunInternalScriptGetValue(strScript:="exists('" & frmMain.clsRLink.strInstatDataObject & "')", + bSeparateThread:=True, bSilent:=True).AsCharacter(0) = "TRUE" Then + 'set R-Instat R object as exists if it has been set up in R level and refresh the grids + 'refreshing grids internally updates the .Net databook object as well. + frmMain.clsRLink.bInstatObjectExists = True + frmMain.UpdateAllGrids() + End If + End Sub + + Private Sub ucrBase_ClickOk(sender As Object, e As EventArgs) Handles ucrBase.ClickOk + strScript = "" + strLoadDateFilePath = "" + + If rdoRunBackupLog.Checked Then + GetBackupFromLastSession(strAutoSaveLogFolderPath, "log*.R", True) + ElseIf rdoLoadBackupData.Checked Then + GetBackupFromLastSession(strAutoSaveDataFolderPath, "data_*.rds", False) + End If + + GetRecoveryFiles(strScript, strLoadDateFilePath) + SaveFiles() + End Sub +End Class \ No newline at end of file diff --git a/instat/dlgTransform.vb b/instat/dlgTransform.vb index fc8147d6f9c..1cfaa690e96 100644 --- a/instat/dlgTransform.vb +++ b/instat/dlgTransform.vb @@ -112,7 +112,6 @@ Public Class dlgTransform End Sub Private Sub InitialiseDialog() - ucrBase.iHelpTopicID = 25 Dim dctSubtractValues As New Dictionary(Of String, String) Dim dctMultiplyValues As New Dictionary(Of String, String) @@ -120,6 +119,7 @@ Public Class dlgTransform Dim dctAddValues As New Dictionary(Of String, String) Dim dctPowerValues As New Dictionary(Of String, String) + ucrBase.iHelpTopicID = 42 ucrPnlTransformOptions.AddRadioButton(rdoRank) ucrPnlTransformOptions.AddRadioButton(rdoNumeric) diff --git a/instat/frmMain.Designer.vb b/instat/frmMain.Designer.vb index 7f10ad794d1..629c9015bce 100644 --- a/instat/frmMain.Designer.vb +++ b/instat/frmMain.Designer.vb @@ -160,14 +160,29 @@ Partial Class frmMain Me.mnuHelpHelpIntroduction = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpFAQ = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpGetingStarted = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuHelpData = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator() Me.mnuHelpWindows = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator81 = New System.Windows.Forms.ToolStripSeparator() Me.mnuHelpMenus = New System.Windows.Forms.ToolStripMenuItem() + Me.MenusAndDialogsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator82 = New System.Windows.Forms.ToolStripSeparator() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PrepareToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DescribeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ModelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator83 = New System.Windows.Forms.ToolStripSeparator() + Me.StructuredToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ClimaticToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ProcurementToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ExperimentsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ViewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpAboutR = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpLearningStatistics = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpRPackages = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpGlossary = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuHelpData = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpLicence = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator29 = New System.Windows.Forms.ToolStripSeparator() Me.mnuHelpPackagesDocumentation = New System.Windows.Forms.ToolStripMenuItem() @@ -473,6 +488,7 @@ Partial Class frmMain Me.mnuPrepareCheckDataAnonymiseIDColumn = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator() Me.mnuPrepareCalculator = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator79 = New System.Windows.Forms.ToolStripSeparator() Me.mnuPrepareColumnCalculate = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnNumericRegularSequence = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnNumericEnter = New System.Windows.Forms.ToolStripMenuItem() @@ -664,7 +680,7 @@ Partial Class frmMain Me.mnuToolsClearOutputWindow = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() Me.mnuToolsSaveCurrentOptions = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuToolsLoadOptions = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuToolsRestoreBackup = New System.Windows.Forms.ToolStripMenuItem() Me.mnuToolsInstallRPackage = New System.Windows.Forms.ToolStripMenuItem() Me.mnuToolsOptions = New System.Windows.Forms.ToolStripMenuItem() Me.ExportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -1193,6 +1209,7 @@ Partial Class frmMain Me.mnuModelOtherOneVariable.Size = New System.Drawing.Size(201, 22) Me.mnuModelOtherOneVariable.Tag = "Other_(One_Variable)" Me.mnuModelOtherOneVariable.Text = "Other (One Variable)" + Me.mnuModelOtherOneVariable.Visible = False ' 'mnuModelOtherOneVariableExactResults ' @@ -1233,6 +1250,7 @@ Partial Class frmMain Me.mnuModelOtherTwoVariables.Size = New System.Drawing.Size(201, 22) Me.mnuModelOtherTwoVariables.Tag = "Other_(Two_Variables)" Me.mnuModelOtherTwoVariables.Text = "Other (Two Variables)" + Me.mnuModelOtherTwoVariables.Visible = False ' 'mnuModelOtherTwoVariablesTwoSamples ' @@ -1287,6 +1305,7 @@ Partial Class frmMain Me.mnuModelOtherThreeVariables.Size = New System.Drawing.Size(201, 22) Me.mnuModelOtherThreeVariables.Tag = "Other_(Three_Variable)" Me.mnuModelOtherThreeVariables.Text = "Other (Three Variable)" + Me.mnuModelOtherThreeVariables.Visible = False ' 'mnuModelOtherThreeVariablesSimpleWithGroups ' @@ -1318,6 +1337,7 @@ Partial Class frmMain Me.mnuModelOtherGeneral.Size = New System.Drawing.Size(201, 22) Me.mnuModelOtherGeneral.Tag = "Other_(General)" Me.mnuModelOtherGeneral.Text = "Other (General)" + Me.mnuModelOtherGeneral.Visible = False ' 'mnuModelOtherGeneralANOVAGeneral ' @@ -1526,7 +1546,7 @@ Partial Class frmMain ' 'mnuHelp ' - Me.mnuHelp.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuHelpHelpIntroduction, Me.mnuHelpFAQ, Me.mnuHelpGetingStarted, Me.ToolStripSeparator28, Me.mnuHelpWindows, Me.mnuHelpMenus, Me.mnuHelpAboutR, Me.mnuHelpLearningStatistics, Me.mnuHelpRPackages, Me.mnuHelpGlossary, Me.mnuHelpData, Me.mnuHelpLicence, Me.ToolStripSeparator29, Me.mnuHelpPackagesDocumentation}) + Me.mnuHelp.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuHelpHelpIntroduction, Me.mnuHelpFAQ, Me.mnuHelpGetingStarted, Me.mnuHelpData, Me.ToolStripSeparator28, Me.mnuHelpWindows, Me.ToolStripSeparator81, Me.mnuHelpMenus, Me.mnuHelpAboutR, Me.mnuHelpLearningStatistics, Me.mnuHelpRPackages, Me.mnuHelpGlossary, Me.mnuHelpLicence, Me.ToolStripSeparator29, Me.mnuHelpPackagesDocumentation}) Me.mnuHelp.Name = "mnuHelp" Me.mnuHelp.Size = New System.Drawing.Size(44, 22) Me.mnuHelp.Tag = "Help" @@ -1535,20 +1555,26 @@ Partial Class frmMain 'mnuHelpHelpIntroduction ' Me.mnuHelpHelpIntroduction.Name = "mnuHelpHelpIntroduction" - Me.mnuHelpHelpIntroduction.Size = New System.Drawing.Size(209, 22) - Me.mnuHelpHelpIntroduction.Text = "Introduction" + Me.mnuHelpHelpIntroduction.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpHelpIntroduction.Text = "Introduction..." ' 'mnuHelpFAQ ' Me.mnuHelpFAQ.Name = "mnuHelpFAQ" - Me.mnuHelpFAQ.Size = New System.Drawing.Size(209, 22) - Me.mnuHelpFAQ.Text = "FAQ" + Me.mnuHelpFAQ.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpFAQ.Text = "FAQ..." ' 'mnuHelpGetingStarted ' Me.mnuHelpGetingStarted.Name = "mnuHelpGetingStarted" - Me.mnuHelpGetingStarted.Size = New System.Drawing.Size(209, 22) - Me.mnuHelpGetingStarted.Text = "Getting Started" + Me.mnuHelpGetingStarted.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpGetingStarted.Text = "Getting Started..." + ' + 'mnuHelpData + ' + Me.mnuHelpData.Name = "mnuHelpData" + Me.mnuHelpData.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpData.Text = "Data..." ' 'ToolStripSeparator28 ' @@ -1558,53 +1584,135 @@ Partial Class frmMain 'mnuHelpWindows ' Me.mnuHelpWindows.Name = "mnuHelpWindows" - Me.mnuHelpWindows.Size = New System.Drawing.Size(209, 22) - Me.mnuHelpWindows.Text = "Windows" + Me.mnuHelpWindows.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpWindows.Text = "Windows..." + ' + 'ToolStripSeparator81 + ' + Me.ToolStripSeparator81.Name = "ToolStripSeparator81" + Me.ToolStripSeparator81.Size = New System.Drawing.Size(206, 6) ' 'mnuHelpMenus ' + Me.mnuHelpMenus.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MenusAndDialogsToolStripMenuItem, Me.ToolStripSeparator82, Me.FileToolStripMenuItem, Me.EditToolStripMenuItem, Me.PrepareToolStripMenuItem, Me.DescribeToolStripMenuItem, Me.ModelToolStripMenuItem, Me.ToolStripSeparator83, Me.StructuredToolStripMenuItem, Me.ClimaticToolStripMenuItem, Me.ProcurementToolStripMenuItem, Me.ExperimentsToolStripMenuItem, Me.ToolsToolStripMenuItem, Me.ViewToolStripMenuItem}) Me.mnuHelpMenus.Name = "mnuHelpMenus" Me.mnuHelpMenus.Size = New System.Drawing.Size(209, 22) Me.mnuHelpMenus.Text = "Menus and Dialogs" ' + 'MenusAndDialogsToolStripMenuItem + ' + Me.MenusAndDialogsToolStripMenuItem.Name = "MenusAndDialogsToolStripMenuItem" + Me.MenusAndDialogsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.MenusAndDialogsToolStripMenuItem.Text = "Menus and Dialogs" + ' + 'ToolStripSeparator82 + ' + Me.ToolStripSeparator82.Name = "ToolStripSeparator82" + Me.ToolStripSeparator82.Size = New System.Drawing.Size(177, 6) + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.FileToolStripMenuItem.Text = "File" + ' + 'EditToolStripMenuItem + ' + Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem" + Me.EditToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.EditToolStripMenuItem.Text = "Edit" + ' + 'PrepareToolStripMenuItem + ' + Me.PrepareToolStripMenuItem.Name = "PrepareToolStripMenuItem" + Me.PrepareToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.PrepareToolStripMenuItem.Text = "Prepare" + ' + 'DescribeToolStripMenuItem + ' + Me.DescribeToolStripMenuItem.Name = "DescribeToolStripMenuItem" + Me.DescribeToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.DescribeToolStripMenuItem.Text = "Describe" + ' + 'ModelToolStripMenuItem + ' + Me.ModelToolStripMenuItem.Name = "ModelToolStripMenuItem" + Me.ModelToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ModelToolStripMenuItem.Text = "Model" + ' + 'ToolStripSeparator83 + ' + Me.ToolStripSeparator83.Name = "ToolStripSeparator83" + Me.ToolStripSeparator83.Size = New System.Drawing.Size(177, 6) + ' + 'StructuredToolStripMenuItem + ' + Me.StructuredToolStripMenuItem.Name = "StructuredToolStripMenuItem" + Me.StructuredToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.StructuredToolStripMenuItem.Text = "Structured" + ' + 'ClimaticToolStripMenuItem + ' + Me.ClimaticToolStripMenuItem.Name = "ClimaticToolStripMenuItem" + Me.ClimaticToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ClimaticToolStripMenuItem.Text = "Climatic" + ' + 'ProcurementToolStripMenuItem + ' + Me.ProcurementToolStripMenuItem.Name = "ProcurementToolStripMenuItem" + Me.ProcurementToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ProcurementToolStripMenuItem.Text = "Procurement" + ' + 'ExperimentsToolStripMenuItem + ' + Me.ExperimentsToolStripMenuItem.Name = "ExperimentsToolStripMenuItem" + Me.ExperimentsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ExperimentsToolStripMenuItem.Text = "Experiments" + ' + 'ToolsToolStripMenuItem + ' + Me.ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem" + Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ToolsToolStripMenuItem.Text = "Tools" + ' + 'ViewToolStripMenuItem + ' + Me.ViewToolStripMenuItem.Name = "ViewToolStripMenuItem" + Me.ViewToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ViewToolStripMenuItem.Text = "View" + ' 'mnuHelpAboutR ' Me.mnuHelpAboutR.Name = "mnuHelpAboutR" - Me.mnuHelpAboutR.Size = New System.Drawing.Size(209, 22) - Me.mnuHelpAboutR.Text = "About R" + Me.mnuHelpAboutR.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpAboutR.Text = "About R..." Me.mnuHelpAboutR.Visible = False ' 'mnuHelpLearningStatistics ' Me.mnuHelpLearningStatistics.Name = "mnuHelpLearningStatistics" - Me.mnuHelpLearningStatistics.Size = New System.Drawing.Size(209, 22) - Me.mnuHelpLearningStatistics.Text = "Learning Statistics" + Me.mnuHelpLearningStatistics.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpLearningStatistics.Text = "Learning Statistics..." Me.mnuHelpLearningStatistics.Visible = False ' 'mnuHelpRPackages ' Me.mnuHelpRPackages.Name = "mnuHelpRPackages" - Me.mnuHelpRPackages.Size = New System.Drawing.Size(209, 22) - Me.mnuHelpRPackages.Text = "R Packages" + Me.mnuHelpRPackages.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpRPackages.Text = "R Packages..." ' 'mnuHelpGlossary ' Me.mnuHelpGlossary.Name = "mnuHelpGlossary" - Me.mnuHelpGlossary.Size = New System.Drawing.Size(209, 22) - Me.mnuHelpGlossary.Text = "Glossary" - ' - 'mnuHelpData - ' - Me.mnuHelpData.Name = "mnuHelpData" - Me.mnuHelpData.Size = New System.Drawing.Size(209, 22) - Me.mnuHelpData.Text = "Data" + Me.mnuHelpGlossary.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpGlossary.Text = "Glossary..." ' 'mnuHelpLicence ' Me.mnuHelpLicence.Name = "mnuHelpLicence" - Me.mnuHelpLicence.Size = New System.Drawing.Size(209, 22) + Me.mnuHelpLicence.Size = New System.Drawing.Size(218, 22) Me.mnuHelpLicence.Tag = "Licence..." - Me.mnuHelpLicence.Text = "Licence" + Me.mnuHelpLicence.Text = "Licence..." ' 'ToolStripSeparator29 ' @@ -1614,8 +1722,8 @@ Partial Class frmMain 'mnuHelpPackagesDocumentation ' Me.mnuHelpPackagesDocumentation.Name = "mnuHelpPackagesDocumentation" - Me.mnuHelpPackagesDocumentation.Size = New System.Drawing.Size(209, 22) - Me.mnuHelpPackagesDocumentation.Text = "Packages Documentation" + Me.mnuHelpPackagesDocumentation.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpPackagesDocumentation.Text = "Packages Documentation..." ' 'ToolStripSeparator16 ' @@ -1724,7 +1832,6 @@ Partial Class frmMain ' 'mnuClimaticFileExportToGoogleBucketsToolStrip ' - Me.mnuClimaticFileExportToGoogleBucketsToolStrip.Enabled = False Me.mnuClimaticFileExportToGoogleBucketsToolStrip.Name = "mnuClimaticFileExportToGoogleBucketsToolStrip" Me.mnuClimaticFileExportToGoogleBucketsToolStrip.Size = New System.Drawing.Size(282, 22) Me.mnuClimaticFileExportToGoogleBucketsToolStrip.Text = "Export to Google Buckets..." @@ -2905,7 +3012,7 @@ Partial Class frmMain ' Me.mnuEditFind.Name = "mnuEditFind" Me.mnuEditFind.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F), System.Windows.Forms.Keys) - Me.mnuEditFind.Size = New System.Drawing.Size(192, 22) + Me.mnuEditFind.Size = New System.Drawing.Size(167, 22) Me.mnuEditFind.Tag = "Find" Me.mnuEditFind.Text = "Find" ' @@ -2913,7 +3020,7 @@ Partial Class frmMain ' Me.mnuEditCopy.Name = "mnuEditCopy" Me.mnuEditCopy.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys) - Me.mnuEditCopy.Size = New System.Drawing.Size(192, 22) + Me.mnuEditCopy.Size = New System.Drawing.Size(167, 22) Me.mnuEditCopy.Tag = "Copy" Me.mnuEditCopy.Text = "Copy" ' @@ -2921,27 +3028,27 @@ Partial Class frmMain ' Me.mnuEditPaste.Name = "mnuEditPaste" Me.mnuEditPaste.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.V), System.Windows.Forms.Keys) - Me.mnuEditPaste.Size = New System.Drawing.Size(192, 22) + Me.mnuEditPaste.Size = New System.Drawing.Size(167, 22) Me.mnuEditPaste.Tag = "Paste" Me.mnuEditPaste.Text = "Paste" ' 'mnuEditPasteNew ' Me.mnuEditPasteNew.Name = "mnuEditPasteNew" - Me.mnuEditPasteNew.Size = New System.Drawing.Size(180, 22) + Me.mnuEditPasteNew.Size = New System.Drawing.Size(167, 22) Me.mnuEditPasteNew.Text = "Paste New" ' 'mnuEditWordwrap ' Me.mnuEditWordwrap.Name = "mnuEditWordwrap" - Me.mnuEditWordwrap.Size = New System.Drawing.Size(192, 22) + Me.mnuEditWordwrap.Size = New System.Drawing.Size(167, 22) Me.mnuEditWordwrap.Text = "Wordwrap" ' 'mnuEditSelectAll ' Me.mnuEditSelectAll.Name = "mnuEditSelectAll" Me.mnuEditSelectAll.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.A), System.Windows.Forms.Keys) - Me.mnuEditSelectAll.Size = New System.Drawing.Size(192, 22) + Me.mnuEditSelectAll.Size = New System.Drawing.Size(167, 22) Me.mnuEditSelectAll.Tag = "Select_All" Me.mnuEditSelectAll.Text = "Select All " ' @@ -3390,7 +3497,7 @@ Partial Class frmMain ' 'mnuPrepare ' - Me.mnuPrepare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareDataFrame, Me.mnuPrepareCheckData, Me.ToolStripSeparator6, Me.mnuPrepareCalculator, Me.mnuPrepareColumnCalculate, Me.mnuPrepareColumnFactor, Me.mnuPrepareColumnText, Me.mnuPrepareColumnDate, Me.mnuPrepareColumnDefine, Me.ToolStripSeparator4, Me.mnuPrepareDataReshape, Me.ToolStripSeparator7, Me.mnuPrepareKeysAndLinks, Me.mnuPrepareDataBook, Me.mnuPrepareRObjects}) + Me.mnuPrepare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareDataFrame, Me.mnuPrepareCheckData, Me.ToolStripSeparator6, Me.mnuPrepareCalculator, Me.ToolStripSeparator79, Me.mnuPrepareColumnCalculate, Me.mnuPrepareColumnFactor, Me.mnuPrepareColumnText, Me.mnuPrepareColumnDate, Me.mnuPrepareColumnDefine, Me.ToolStripSeparator4, Me.mnuPrepareDataReshape, Me.ToolStripSeparator7, Me.mnuPrepareKeysAndLinks, Me.mnuPrepareDataBook, Me.mnuPrepareRObjects}) Me.mnuPrepare.Name = "mnuPrepare" Me.mnuPrepare.Size = New System.Drawing.Size(59, 22) Me.mnuPrepare.Tag = "Prepare" @@ -3400,7 +3507,7 @@ Partial Class frmMain ' Me.mnuPrepareDataFrame.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareDataFrameViewData, Me.mnuPrepareDataFrameRenameColumn, Me.mnuPrepareDataFrameDuplicateColumn, Me.mnuPrepareDataFrameRowNumbersNames, Me.ToolStripSeparator1, Me.mnuPrepareDataFrameSort, Me.mnuPrepareDataFrameFilterRows, Me.mnuPrepareDataFrameSelectColumns, Me.mnuPrepareDataFrameReplaceValues, Me.mnuPrepareDataFrameConvertColumns, Me.ToolStripSeparator2, Me.mnuPrepareDataFrameReorderColumns, Me.mnuPrepareDataFrameAddMergeColumns, Me.mnuPrepareDataFrameInsertColumnsRows, Me.mnuPrepareDataFrameDeleteColumnsRows, Me.mnuPrepareDataFrameProtectColumn, Me.mnuPrepareDataFrameFreezeColumns, Me.mnuPrepareDataframeColourByProperty}) Me.mnuPrepareDataFrame.Name = "mnuPrepareDataFrame" - Me.mnuPrepareDataFrame.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareDataFrame.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareDataFrame.Tag = "Data_Frame" Me.mnuPrepareDataFrame.Text = "Data Frame" ' @@ -3531,7 +3638,7 @@ Partial Class frmMain Me.mnuPrepareCheckData.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.mnuPrepareCheckData.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareCheckDataVisualiseData, Me.mnuPrepareCheckDataPivotTable, Me.ToolStripSeparator50, Me.mnuPrepareCheckDataDuplicates, Me.mnuPrepareCheckDataCompareColumns, Me.mnuPrepareCheckDataNonNumericCases, Me.ToolStripSeparator49, Me.mnuPrepareCheckDataBoxplot, Me.mnuPrepareCheckDataOneVariableSummarise, Me.mnuPrepareCheckDataOneVariableGraph, Me.mnuPrepareCheckDataOneWayFrequencies, Me.mnuPrepareCheckDataViewDeleteLabels, Me.ToolStripSeparator41, Me.mnuPrepareCheckDataExportOpenRefine, Me.mnuPrepareCheckDataImportOpenRefine, Me.ToolStripSeparator40, Me.mnuPreparePrepareToShareJitter, Me.mnuPrepareCheckDataPrePareToShareSdcPackage, Me.mnuPrepareCheckDataAnonymiseIDColumn}) Me.mnuPrepareCheckData.Name = "mnuPrepareCheckData" - Me.mnuPrepareCheckData.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareCheckData.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareCheckData.Text = "Check Data" ' 'mnuPrepareCheckDataVisualiseData @@ -3652,20 +3759,25 @@ Partial Class frmMain 'ToolStripSeparator6 ' Me.ToolStripSeparator6.Name = "ToolStripSeparator6" - Me.ToolStripSeparator6.Size = New System.Drawing.Size(183, 6) + Me.ToolStripSeparator6.Size = New System.Drawing.Size(166, 6) ' 'mnuPrepareCalculator ' Me.mnuPrepareCalculator.Name = "mnuPrepareCalculator" - Me.mnuPrepareCalculator.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareCalculator.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareCalculator.Tag = "Calculator..." - Me.mnuPrepareCalculator.Text = "Column: Calculator..." + Me.mnuPrepareCalculator.Text = "Calculator..." + ' + 'ToolStripSeparator79 + ' + Me.ToolStripSeparator79.Name = "ToolStripSeparator79" + Me.ToolStripSeparator79.Size = New System.Drawing.Size(166, 6) ' 'mnuPrepareColumnCalculate ' Me.mnuPrepareColumnCalculate.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareColumnNumericRegularSequence, Me.mnuPrepareColumnNumericEnter, Me.ToolStripSeparator25, Me.mnuPrepareColumnNumericRowSummaries, Me.mnuPrepareColumnNumericTransform, Me.mnuPrepareColumnNumericPolynomials, Me.ToolStripSeparator56, Me.mnuPrepareColumnNumericRandomSamples, Me.mnuPrepareColumnNumericPermuteRows}) Me.mnuPrepareColumnCalculate.Name = "mnuPrepareColumnCalculate" - Me.mnuPrepareColumnCalculate.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareColumnCalculate.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareColumnCalculate.Tag = "Column:_Calculate" Me.mnuPrepareColumnCalculate.Text = "Column: Numeric" ' @@ -3730,7 +3842,7 @@ Partial Class frmMain ' Me.mnuPrepareColumnFactor.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareColumnFactorConvertToFactor, Me.mnuPrepareColumnFactorRecodeNumeric, Me.mnuPrepareColumnFactorCountInFactor, Me.ToolStripSeparator12, Me.mnuPrepareColumnFactorRecodeFactor, Me.mnuPrepareColumnFactorCombineFactors, Me.mnuPrepareColumnFactorDummyVariables, Me.ToolStripSeparator14, Me.mnuPrepareColumnFactorLevelsLabels, Me.mnuPrepareColumnFactorReorderLevels, Me.mnuPrepareColumnFactorReferenceLevel, Me.mnuPrepareColumnFactorUnusedLevels, Me.mnuPrepareColumnFactorContrasts, Me.ToolStripSeparator19, Me.mnuPrepareColumnFactorFactorDataFrame}) Me.mnuPrepareColumnFactor.Name = "mnuPrepareColumnFactor" - Me.mnuPrepareColumnFactor.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareColumnFactor.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareColumnFactor.Tag = "Column:_Factor" Me.mnuPrepareColumnFactor.Text = "Column: Factor" ' @@ -3836,7 +3948,7 @@ Partial Class frmMain ' Me.mnuPrepareColumnText.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareColumnTextFindReplace, Me.mnuPrepareColumnTextSearch, Me.mnuPrepareColumnTextTransform, Me.mnuPrepareColumnTextSplit, Me.mnuPrepareColumnTextCombine, Me.mnuPrepareColumnTextMatch, Me.mnuPrepareColumnTextDistance}) Me.mnuPrepareColumnText.Name = "mnuPrepareColumnText" - Me.mnuPrepareColumnText.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareColumnText.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareColumnText.Tag = "Column:_Text" Me.mnuPrepareColumnText.Text = "Column: Text" ' @@ -3895,7 +4007,7 @@ Partial Class frmMain ' Me.mnuPrepareColumnDate.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareColumnDateGenerateDate, Me.mnuPrepareColumnDateMakeDate, Me.mnuPrepareColumnDateInfillMissingDates, Me.mnuPrepareColumnDateUseDate, Me.mnuPrepareColumnDateMakeTime, Me.mnuPrepareColumnDateUseTime}) Me.mnuPrepareColumnDate.Name = "mnuPrepareColumnDate" - Me.mnuPrepareColumnDate.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareColumnDate.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareColumnDate.Text = "Column: Date" ' 'mnuPrepareColumnDateGenerateDate @@ -3942,7 +4054,7 @@ Partial Class frmMain ' Me.mnuPrepareColumnDefine.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareColumnDefineConvertColumns, Me.ToolStripSeparator55, Me.mnuPrepareColumnDefineCircular}) Me.mnuPrepareColumnDefine.Name = "mnuPrepareColumnDefine" - Me.mnuPrepareColumnDefine.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareColumnDefine.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareColumnDefine.Text = "Column: Define" ' 'mnuPrepareColumnDefineConvertColumns @@ -3965,13 +4077,13 @@ Partial Class frmMain 'ToolStripSeparator4 ' Me.ToolStripSeparator4.Name = "ToolStripSeparator4" - Me.ToolStripSeparator4.Size = New System.Drawing.Size(183, 6) + Me.ToolStripSeparator4.Size = New System.Drawing.Size(166, 6) ' 'mnuPrepareDataReshape ' Me.mnuPrepareDataReshape.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareColumnReshapeColumnSummaries, Me.mnuPrepareColumnReshapeGeneralSummaries, Me.ToolStripSeparator10, Me.mnuPrepareColumnReshapeStack, Me.mnuPrepareColumnReshapeUnstack, Me.mnuPrepareColumnReshapeMerge, Me.ToolStripSeparator11, Me.mnuPrepareAppendDataFrame, Me.mnuPrepareColumnReshapeSubset, Me.mnuPrepareColumnReshapeRandomSubset, Me.mnuPrepareColumnReshapeTranspose, Me.mnuPrepareDataReshapeScaleOrDistance, Me.mnuPrepareDataReshapeRandomSplit}) Me.mnuPrepareDataReshape.Name = "mnuPrepareDataReshape" - Me.mnuPrepareDataReshape.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareDataReshape.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareDataReshape.Tag = "" Me.mnuPrepareDataReshape.Text = "Data Reshape" ' @@ -4061,13 +4173,13 @@ Partial Class frmMain 'ToolStripSeparator7 ' Me.ToolStripSeparator7.Name = "ToolStripSeparator7" - Me.ToolStripSeparator7.Size = New System.Drawing.Size(183, 6) + Me.ToolStripSeparator7.Size = New System.Drawing.Size(166, 6) ' 'mnuPrepareKeysAndLinks ' Me.mnuPrepareKeysAndLinks.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareKeysAndLinksAddKey, Me.mnuPrepareKeysAndLinksViewAndRemoveKey, Me.mnuPrepareKeysAndLinksAddLink, Me.mnuPrepareKeysAndLinksViewAndRemoveKeys, Me.mnuPrepareKeysAndLinksAddComment}) Me.mnuPrepareKeysAndLinks.Name = "mnuPrepareKeysAndLinks" - Me.mnuPrepareKeysAndLinks.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareKeysAndLinks.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareKeysAndLinks.Text = "Keys and Links" ' 'mnuPrepareKeysAndLinksAddKey @@ -4104,7 +4216,7 @@ Partial Class frmMain ' Me.mnuPrepareDataBook.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareDataObjectDataFrameMetadata, Me.mnuPrepareDataObjectRenameDataFrame, Me.mnuPrepareDataObjectReorderDataFrames, Me.mnuPrepareDataObjectCopyDataFrame, Me.mnuPrepareDataObjectDeleteDataFrame, Me.ToolStripSeparator21, Me.mnuPrepareDataObjectHideDataframes, Me.mnuPrepareDataObjectMetadata, Me.mnuPrepareDataObjectRenameMetadata, Me.mnuPrepareDataObjectReorderMetadata, Me.mnuPrepareDataObjectDeleteMetadata}) Me.mnuPrepareDataBook.Name = "mnuPrepareDataBook" - Me.mnuPrepareDataBook.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareDataBook.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareDataBook.Tag = "Data_Object" Me.mnuPrepareDataBook.Text = "Data Book" ' @@ -4194,7 +4306,7 @@ Partial Class frmMain ' Me.mnuPrepareRObjects.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareRObjectsView, Me.mnuPrepareRObjectsRename, Me.mnuPrepareRObjectsReorder, Me.mnuPrepareRObjectsDelete}) Me.mnuPrepareRObjects.Name = "mnuPrepareRObjects" - Me.mnuPrepareRObjects.Size = New System.Drawing.Size(186, 22) + Me.mnuPrepareRObjects.Size = New System.Drawing.Size(169, 22) Me.mnuPrepareRObjects.Tag = "R_Objects" Me.mnuPrepareRObjects.Text = "R Objects" ' @@ -4844,7 +4956,7 @@ Partial Class frmMain ' 'mnuTools ' - Me.mnuTools.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuToolsRunRCode, Me.mnuToolsRestartR, Me.mnuToolsCheckForUpdates, Me.mnuToolsClearOutputWindow, Me.ToolStripSeparator5, Me.mnuToolsSaveCurrentOptions, Me.mnuToolsLoadOptions, Me.mnuToolsInstallRPackage, Me.mnuToolsOptions}) + Me.mnuTools.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuToolsRunRCode, Me.mnuToolsRestartR, Me.mnuToolsCheckForUpdates, Me.mnuToolsClearOutputWindow, Me.ToolStripSeparator5, Me.mnuToolsSaveCurrentOptions, Me.mnuToolsRestoreBackup, Me.mnuToolsInstallRPackage, Me.mnuToolsOptions}) Me.mnuTools.Name = "mnuTools" Me.mnuTools.Size = New System.Drawing.Size(46, 22) Me.mnuTools.Text = "Tools" @@ -4892,13 +5004,12 @@ Partial Class frmMain Me.mnuToolsSaveCurrentOptions.Tag = "Save_Current_Options..." Me.mnuToolsSaveCurrentOptions.Text = "Save Current Options..." ' - 'mnuToolsLoadOptions + 'mnuToolsRestoreBackup ' - Me.mnuToolsLoadOptions.Enabled = False - Me.mnuToolsLoadOptions.Name = "mnuToolsLoadOptions" - Me.mnuToolsLoadOptions.Size = New System.Drawing.Size(198, 22) - Me.mnuToolsLoadOptions.Tag = "Load_Options..." - Me.mnuToolsLoadOptions.Text = "Load Options..." + Me.mnuToolsRestoreBackup.Name = "mnuToolsRestoreBackup" + Me.mnuToolsRestoreBackup.Size = New System.Drawing.Size(198, 22) + Me.mnuToolsRestoreBackup.Tag = "Load_Options..." + Me.mnuToolsRestoreBackup.Text = "Restore Backup..." ' 'mnuToolsInstallRPackage ' @@ -4937,7 +5048,7 @@ Partial Class frmMain Me.splOverall.Panel2.BackColor = System.Drawing.SystemColors.Control Me.splOverall.Panel2.Controls.Add(Me.splDataOutput) Me.splOverall.Size = New System.Drawing.Size(834, 399) - Me.splOverall.SplitterDistance = 163 + Me.splOverall.SplitterDistance = 162 Me.splOverall.SplitterWidth = 5 Me.splOverall.TabIndex = 10 ' @@ -4957,8 +5068,8 @@ Partial Class frmMain ' Me.splExtraWindows.Panel2.BackColor = System.Drawing.SystemColors.Control Me.splExtraWindows.Panel2.Controls.Add(Me.ucrScriptWindow) - Me.splExtraWindows.Size = New System.Drawing.Size(834, 163) - Me.splExtraWindows.SplitterDistance = 253 + Me.splExtraWindows.Size = New System.Drawing.Size(834, 162) + Me.splExtraWindows.SplitterDistance = 252 Me.splExtraWindows.SplitterWidth = 5 Me.splExtraWindows.TabIndex = 0 ' @@ -4977,8 +5088,8 @@ Partial Class frmMain ' Me.splMetadata.Panel2.BackColor = System.Drawing.SystemColors.Control Me.splMetadata.Panel2.Controls.Add(Me.ucrDataFrameMeta) - Me.splMetadata.Size = New System.Drawing.Size(253, 163) - Me.splMetadata.SplitterDistance = 69 + Me.splMetadata.Size = New System.Drawing.Size(252, 162) + Me.splMetadata.SplitterDistance = 68 Me.splMetadata.SplitterWidth = 5 Me.splMetadata.TabIndex = 0 ' @@ -4991,7 +5102,7 @@ Partial Class frmMain Me.ucrColumnMeta.Location = New System.Drawing.Point(0, 0) Me.ucrColumnMeta.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrColumnMeta.Name = "ucrColumnMeta" - Me.ucrColumnMeta.Size = New System.Drawing.Size(69, 163) + Me.ucrColumnMeta.Size = New System.Drawing.Size(68, 162) Me.ucrColumnMeta.TabIndex = 0 ' 'ucrDataFrameMeta @@ -5002,7 +5113,7 @@ Partial Class frmMain Me.ucrDataFrameMeta.Location = New System.Drawing.Point(0, 0) Me.ucrDataFrameMeta.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrDataFrameMeta.Name = "ucrDataFrameMeta" - Me.ucrDataFrameMeta.Size = New System.Drawing.Size(179, 163) + Me.ucrDataFrameMeta.Size = New System.Drawing.Size(179, 162) Me.ucrDataFrameMeta.TabIndex = 0 ' 'ucrScriptWindow @@ -5013,7 +5124,7 @@ Partial Class frmMain Me.ucrScriptWindow.Location = New System.Drawing.Point(0, 0) Me.ucrScriptWindow.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrScriptWindow.Name = "ucrScriptWindow" - Me.ucrScriptWindow.Size = New System.Drawing.Size(576, 163) + Me.ucrScriptWindow.Size = New System.Drawing.Size(577, 162) Me.ucrScriptWindow.strActiveTabText = "" Me.ucrScriptWindow.TabIndex = 2 Me.ucrScriptWindow.Tag = "Script_Window" @@ -5034,8 +5145,8 @@ Partial Class frmMain ' Me.splDataOutput.Panel2.BackColor = System.Drawing.SystemColors.Control Me.splDataOutput.Panel2.Controls.Add(Me.ucrOutput) - Me.splDataOutput.Size = New System.Drawing.Size(834, 231) - Me.splDataOutput.SplitterDistance = 383 + Me.splDataOutput.Size = New System.Drawing.Size(834, 232) + Me.splDataOutput.SplitterDistance = 382 Me.splDataOutput.SplitterWidth = 5 Me.splDataOutput.TabIndex = 0 ' @@ -5048,7 +5159,7 @@ Partial Class frmMain Me.ucrDataViewer.Location = New System.Drawing.Point(0, 0) Me.ucrDataViewer.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrDataViewer.Name = "ucrDataViewer" - Me.ucrDataViewer.Size = New System.Drawing.Size(383, 231) + Me.ucrDataViewer.Size = New System.Drawing.Size(382, 232) Me.ucrDataViewer.TabIndex = 0 Me.ucrDataViewer.Tag = "Data_View" ' @@ -5060,7 +5171,7 @@ Partial Class frmMain Me.ucrOutput.Location = New System.Drawing.Point(0, 0) Me.ucrOutput.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.ucrOutput.Name = "ucrOutput" - Me.ucrOutput.Size = New System.Drawing.Size(446, 231) + Me.ucrOutput.Size = New System.Drawing.Size(447, 232) Me.ucrOutput.TabIndex = 0 ' 'mnuPlotly @@ -5303,7 +5414,7 @@ Partial Class frmMain Friend WithEvents mnuToolsClearOutputWindow As ToolStripMenuItem Friend WithEvents ToolStripSeparator5 As ToolStripSeparator Friend WithEvents mnuToolsSaveCurrentOptions As ToolStripMenuItem - Friend WithEvents mnuToolsLoadOptions As ToolStripMenuItem + Friend WithEvents mnuToolsRestoreBackup As ToolStripMenuItem Friend WithEvents ToolStripSeparator22 As ToolStripSeparator Friend WithEvents mnuModelOtherOneVariableGoodnessofFit As ToolStripMenuItem Friend WithEvents mnuHelpLicence As ToolStripMenuItem @@ -5794,6 +5905,25 @@ Partial Class frmMain Friend WithEvents mnuViewSwapDataAndScript As ToolStripMenuItem Friend WithEvents mnuClimaticExamineEditDataVisualiseData As ToolStripMenuItem Friend WithEvents ToolStripSeparator27 As ToolStripSeparator + Friend WithEvents mnuClimaticPICSAGeneralGrap As ToolStripMenuItem + Friend WithEvents mnuClimaticFileExportToGoogleBucketsToolStrip As ToolStripMenuItem + + Friend WithEvents ToolStripSeparator79 As ToolStripSeparator + Friend WithEvents MenusAndDialogsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EditToolStripMenuItem As ToolStripMenuItem + Friend WithEvents PrepareToolStripMenuItem As ToolStripMenuItem + Friend WithEvents DescribeToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ModelToolStripMenuItem As ToolStripMenuItem + Friend WithEvents StructuredToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ClimaticToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolStripSeparator81 As ToolStripSeparator + Friend WithEvents ToolStripSeparator82 As ToolStripSeparator + Friend WithEvents ToolStripSeparator83 As ToolStripSeparator + Friend WithEvents ProcurementToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ExperimentsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ToolsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ViewToolStripMenuItem As ToolStripMenuItem End Class diff --git a/instat/frmMain.vb b/instat/frmMain.vb index 8e968457c32..c8d4db5f30c 100644 --- a/instat/frmMain.vb +++ b/instat/frmMain.vb @@ -43,6 +43,7 @@ Public Class frmMain Private iAutoSaveDataMilliseconds As Integer Private clsDataBook As clsDataBook Private Shared ReadOnly Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger() + Public bFirstBackupDone As Boolean = False Public ReadOnly Property DataBook As clsDataBook Get Return clsDataBook @@ -485,7 +486,6 @@ Public Class frmMain MsgBox("Could not delete backup log file" & Environment.NewLine, "Error deleting file") End Try End If - If strAutoSavedInternalLogFilePaths.Length > 0 Then Try For Each strFilePath As String In strAutoSavedInternalLogFilePaths @@ -510,6 +510,9 @@ Public Class frmMain '--------------------------------------- End Sub + Private Sub mnuToolsRestoreBackup_Click(sender As Object, e As EventArgs) Handles mnuToolsRestoreBackup.Click + dlgRestoreBackup.ShowDialog() + End Sub ''' ''' Updates data view, column meta and data frame meta grids. @@ -653,7 +656,7 @@ Public Class frmMain End Sub Private Sub mnuPrepareColumnNumericRandomSamples_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnNumericRandomSamples.Click - dlgRandomSample.enumRandomsampleMode = dlgRandomSample.RandomsampleMode.Prepare + dlgRandomSample.enumRandomSampleMode = dlgRandomSample.RandomSampleMode.Prepare dlgRandomSample.ShowDialog() End Sub @@ -938,7 +941,7 @@ Public Class frmMain End Sub Private Sub mnuModelProbabilityDistributionsRandomSamplesUseModel_Click(sender As Object, e As EventArgs) Handles mnuModelProbabilityDistributionsRandomSamplesUseModel.Click - dlgRandomSample.enumRandomsampleMode = dlgRandomSample.RandomsampleMode.Model + dlgRandomSample.enumRandomSampleMode = dlgRandomSample.RandomSampleMode.Model dlgRandomSample.ShowDialog() End Sub @@ -1062,9 +1065,7 @@ Public Class frmMain If clsInstatOptions IsNot Nothing Then SaveInstatOptions(Path.Combine(strAppDataPath, strInstatOptionsFile)) End If - DeleteAutoSaveData() - DeleteAutoSaveLog() - DeleteAutoSaveDebugLog() + DeleteAutoSaveFiles() clsRLink.CloseREngine() End If @@ -1092,53 +1093,82 @@ Public Class frmMain If Not Directory.Exists(strAutoSaveDataFolderPath) Then Directory.CreateDirectory(strAutoSaveDataFolderPath) End If - If strCurrentAutoSaveDataFilePath = "" Then - strTempFile = "data.rds" - While File.Exists(Path.Combine(strAutoSaveDataFolderPath, strTempFile)) - i = i + 1 - strTempFile = "data" & i & ".rds" - End While - strCurrentAutoSaveDataFilePath = Path.Combine(strAutoSaveDataFolderPath, strTempFile) - End If + + ' Generate a unique filename with timestamp + strTempFile = "data_" & DateTime.Now.ToString("yyyyMMdd_HHmmss") & ".rds" + strCurrentAutoSaveDataFilePath = Path.Combine(strAutoSaveDataFolderPath, strTempFile) + + Dim strBackupMessage As String = $"##########{vbCrLf}## Backing up data and log files on: {DateTime.Now}{vbCrLf}##########" + Me.ucrScriptWindow.LogText(strBackupMessage) + clsRLink.AppendToAutoSaveLog(strBackupMessage) + clsSaveRDS.SetRCommand("saveRDS") clsSaveRDS.AddParameter("object", clsRLink.strInstatDataObject) clsSaveRDS.AddParameter("file", Chr(34) & strCurrentAutoSaveDataFilePath.Replace("\", "/") & Chr(34)) clsRLink.RunInternalScript(clsSaveRDS.ToScript(), bSilent:=True, bShowWaitDialogOverride:=False) tstatus.Text = strCurrentStatus Cursor = Cursors.Default + bFirstBackupDone = True End If autoTranslate(Me) End Sub - Public Sub DeleteAutoSaveData() - If strCurrentAutoSaveDataFilePath <> "" Then - Try - File.Delete(strCurrentAutoSaveDataFilePath) - Catch ex As Exception - MsgBox("Could not delete auto save data file at: " & strCurrentAutoSaveDataFilePath & Environment.NewLine & ex.Message) - End Try - End If - End Sub - - Public Sub DeleteAutoSaveLog() - If clsRLink.strAutoSaveLogFilePath <> "" Then - Try - File.Delete(clsRLink.strAutoSaveLogFilePath) - Catch ex As Exception - MsgBox("Could not delete auto save log file at: " & clsRLink.strAutoSaveLogFilePath & Environment.NewLine & ex.Message) - End Try - End If + Public Sub DeleteAutoSaveFiles() + Try + If Directory.Exists(strAutoSaveDataFolderPath) OrElse Directory.Exists(strAutoSaveLogFolderPath) OrElse Directory.Exists(strAutoSaveInternalLogFolderPath) Then + ' Define the retention policy (keep last N autosaves) + Dim retentionCount As Integer = 5 ' Example: Keep the last 5 autosaves + + ' Retrieve autosaved files + If Directory.Exists(strAutoSaveDataFolderPath) Then + Dim autoSaveDirectory As New DirectoryInfo(strAutoSaveDataFolderPath) + Dim files As FileInfo() = autoSaveDirectory.GetFiles("data_*.rds") ' Adjust pattern to match actual filenames + + ' Sort files by last write time in descending order + Dim sortedFiles As IOrderedEnumerable(Of FileInfo) = files.OrderByDescending(Function(f) f.LastWriteTime) + + ' Determine files to delete based on retention policy + Dim filesToDelete As IEnumerable(Of FileInfo) = sortedFiles.Skip(retentionCount) + + ' Delete older autosaved files + For Each file In filesToDelete + file.Delete() + Next + ElseIf Directory.Exists(strAutoSaveLogFolderPath) Then + Dim autoSaveDirectory As New DirectoryInfo(strAutoSaveLogFolderPath) + Dim files As FileInfo() = autoSaveDirectory.GetFiles("log*.R") ' Adjust pattern to match actual filenames + + ' Sort files by last write time in descending order + Dim sortedFiles As IOrderedEnumerable(Of FileInfo) = files.OrderByDescending(Function(f) f.LastWriteTime) + + ' Determine files to delete based on retention policy + Dim filesToDelete As IEnumerable(Of FileInfo) = sortedFiles.Skip(retentionCount) + + ' Delete older autosaved files + For Each file In filesToDelete + file.Delete() + Next + ElseIf Directory.Exists(strAutoSaveInternalLogFolderPath) Then + Dim autoSaveDirectory As New DirectoryInfo(strAutoSaveInternalLogFolderPath) + Dim files As FileInfo() = autoSaveDirectory.GetFiles("debug_log*.R") ' Adjust pattern to match actual filenames + + ' Sort files by last write time in descending order + Dim sortedFiles As IOrderedEnumerable(Of FileInfo) = files.OrderByDescending(Function(f) f.LastWriteTime) + + ' Determine files to delete based on retention policy + Dim filesToDelete As IEnumerable(Of FileInfo) = sortedFiles.Skip(retentionCount) + + ' Delete older autosaved files + For Each file In filesToDelete + file.Delete() + Next + End If + End If + Catch ex As Exception + MsgBox("Could not delete auto save data file at: " & strCurrentAutoSaveDataFilePath & Environment.NewLine & ex.Message) + End Try End Sub - Public Sub DeleteAutoSaveDebugLog() - If clsRLink.strAutoSaveDebugLogFilePath <> "" Then - Try - File.Delete(clsRLink.strAutoSaveDebugLogFilePath) - Catch ex As Exception - MsgBox("Could not delete auto save debug log file at: " & clsRLink.strAutoSaveDebugLogFilePath & Environment.NewLine & ex.Message) - End Try - End If - End Sub Private Sub mnuOrganiseDataObjectHideDataframes_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectHideDataframes.Click dlgHideDataframes.ShowDialog() @@ -1311,10 +1341,6 @@ Public Class frmMain Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "133") End Sub - Private Sub mnuHelpMenus_Click(sender As Object, e As EventArgs) Handles mnuHelpMenus.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "12") - End Sub - Private Sub mnuHelpLicence_Click(sender As Object, e As EventArgs) Handles mnuHelpLicence.Click Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "323") End Sub @@ -2732,4 +2758,52 @@ Public Class frmMain Private Sub mnuClimaticFileExportToGoogleBucketsToolStrip_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileExportToGoogleBucketsToolStrip.Click dlgExportClimaticDefinitions.ShowDialog() End Sub + + Private Sub FileToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FileToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "13") + End Sub + + Private Sub EditToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EditToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "7") + End Sub + + Private Sub PrepareToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrepareToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "9") + End Sub + + Private Sub DescribeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DescribeToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "18") + End Sub + + Private Sub ModelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ModelToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "17") + End Sub + + Private Sub StructuredToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StructuredToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "454") + End Sub + + Private Sub ClimaticToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClimaticToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "19") + End Sub + + Private Sub ProcurementToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProcurementToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "498") + End Sub + + Private Sub ExperimentsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExperimentsToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "570") + End Sub + + Private Sub ToolsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolsToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "8") + End Sub + + Private Sub ViewToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles ViewToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "21") + End Sub + + Private Sub MenusAndDialogsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MenusAndDialogsToolStripMenuItem.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "12") + End Sub End Class diff --git a/instat/instat.vbproj b/instat/instat.vbproj index a9f2605da8b..741d4f7da58 100644 --- a/instat/instat.vbproj +++ b/instat/instat.vbproj @@ -287,6 +287,12 @@ Form + + dlgRestoreBackup.vb + + + Form + dlgSeasonalGraph.vb @@ -307,6 +313,12 @@ + + sdgDefineAnnualRainfall.vb + + + Form + sdgHSConstants.vb @@ -3137,6 +3149,9 @@ dlgRandomSplit.vb + + dlgRestoreBackup.vb + dlgScript.vb @@ -3185,6 +3200,9 @@ dlgThreeVariablePivotTable.vb + + sdgDefineAnnualRainfall.vb + sdgHSConstants.vb diff --git a/instat/sdgDefineAnnualRainfall.Designer.vb b/instat/sdgDefineAnnualRainfall.Designer.vb new file mode 100644 index 00000000000..e03002e434a --- /dev/null +++ b/instat/sdgDefineAnnualRainfall.Designer.vb @@ -0,0 +1,1315 @@ + _ +Partial Class sdgDefineAnnualRainfall + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + '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. + _ + Private Sub InitializeComponent() + Me.ucrReceiverPlantingDayCondition = New instat.ucrReceiverSingle() + Me.lblMinMinAnnual = New System.Windows.Forms.Label() + Me.ucrReceiverMinMinAnnual = New instat.ucrReceiverSingle() + Me.lblMeanAnnualTemp = New System.Windows.Forms.Label() + Me.lblMaxMinAnnual = New System.Windows.Forms.Label() + Me.lblAnnualTempYear = New System.Windows.Forms.Label() + Me.lblAnnualTempStation = New System.Windows.Forms.Label() + Me.lblMaxMaxAnnual = New System.Windows.Forms.Label() + Me.ucrSelecetorMonthlyTemp = New instat.ucrSelectorByDataFrame() + Me.lblMinMaxAnnual = New System.Windows.Forms.Label() + Me.lblMeanMaxAnnual = New System.Windows.Forms.Label() + Me.ucrReceiverMaxMaxAnnual = New instat.ucrReceiverSingle() + Me.ucrReceiverMeanMaxAnnual = New instat.ucrReceiverSingle() + Me.ucrReceiverMinMaxAnnual = New instat.ucrReceiverSingle() + Me.ucrReceiverMaxMinAnnual = New instat.ucrReceiverSingle() + Me.ucrReceiverMeanAnnual = New instat.ucrReceiverSingle() + Me.ucrReceiverAnnualTempYr = New instat.ucrReceiverSingle() + Me.ucrReceiverAnnualTempStation = New instat.ucrReceiverSingle() + Me.tbAnnualTempSummaries = New System.Windows.Forms.TabPage() + Me.ucrSelectorAnnualTemp = New instat.ucrSelectorByDataFrame() + Me.lblPlantingDayCond = New System.Windows.Forms.Label() + Me.tbMonthlyTemp = New System.Windows.Forms.TabPage() + Me.lblMonth = New System.Windows.Forms.Label() + Me.ucrReceiverMonthMonthly = New instat.ucrReceiverSingle() + Me.lblMinMInMonthly = New System.Windows.Forms.Label() + Me.ucrReceiverMinMinMonthly = New instat.ucrReceiverSingle() + Me.lblMeanMinMonthly = New System.Windows.Forms.Label() + Me.lblMaxMinMonthly = New System.Windows.Forms.Label() + Me.lblYearMonthTemp = New System.Windows.Forms.Label() + Me.lblStationMonthTemp = New System.Windows.Forms.Label() + Me.lblMaxMaxMonthly = New System.Windows.Forms.Label() + Me.lblMinMaxMonthly = New System.Windows.Forms.Label() + Me.lblMeanMaxMonthly = New System.Windows.Forms.Label() + Me.ucrReceiverMaxMaxMonthly = New instat.ucrReceiverSingle() + Me.ucrReceiverMeanmaxMonthly = New instat.ucrReceiverSingle() + Me.ucrReceiverMinMaxMonthly = New instat.ucrReceiverSingle() + Me.ucrReceiverMaxMinMonthly = New instat.ucrReceiverSingle() + Me.ucrReceiverMeanminMontly = New instat.ucrReceiverSingle() + Me.ucrReceiverYearMonthly = New instat.ucrReceiverSingle() + Me.ucrReceiverMonthlyTemp = New instat.ucrReceiverSingle() + Me.ucrBase = New instat.ucrButtonsSubdialogue() + Me.lblSeasonPlantingDay = New System.Windows.Forms.Label() + Me.lblRainyDaysYear = New System.Windows.Forms.Label() + Me.ucrReceiverRainDaysYear = New instat.ucrReceiverSingle() + Me.lblNoRainDaysSeason = New System.Windows.Forms.Label() + Me.lblSeasonalLength = New System.Windows.Forms.Label() + Me.lblSeasonalRain = New System.Windows.Forms.Label() + Me.lblAnnualRain = New System.Windows.Forms.Label() + Me.lblEndSeasonDate = New System.Windows.Forms.Label() + Me.lblEndSeasonDOY = New System.Windows.Forms.Label() + Me.lblEndRainDate = New System.Windows.Forms.Label() + Me.lblEndRainsDOY = New System.Windows.Forms.Label() + Me.lblStartRainDate = New System.Windows.Forms.Label() + Me.lblStartRainDOY = New System.Windows.Forms.Label() + Me.lblYear = New System.Windows.Forms.Label() + Me.lblStation = New System.Windows.Forms.Label() + Me.ucrReceiverStartRainDate = New instat.ucrReceiverSingle() + Me.ucrReceiverStartRainDOY = New instat.ucrReceiverSingle() + Me.ucrReceiverYear = New instat.ucrReceiverSingle() + Me.ucrReceiverStation = New instat.ucrReceiverSingle() + Me.ucrReceiverEndSeasonDate = New instat.ucrReceiverSingle() + Me.ucrReceiverEndSeasonDOY = New instat.ucrReceiverSingle() + Me.ucrReceiverEndRainsDOY = New instat.ucrReceiverSingle() + Me.tbSummaries = New System.Windows.Forms.TabControl() + Me.tbAnnualRainfall = New System.Windows.Forms.TabPage() + Me.ucrReceiverEndRainsDate = New instat.ucrReceiverSingle() + Me.ucrReceiverSeasonalLength = New instat.ucrReceiverSingle() + Me.ucrReceiverRainDaysSeason = New instat.ucrReceiverSingle() + Me.ucrReceiverSeasonalRain = New instat.ucrReceiverSingle() + Me.ucrReceiverAnnualRain = New instat.ucrReceiverSingle() + Me.ucrSelectorDefineAnnualRain = New instat.ucrSelectorByDataFrame() + Me.tbCropSuccessProp = New System.Windows.Forms.TabPage() + Me.lblPlantingLength = New System.Windows.Forms.Label() + Me.ucrReceiverPlantingLenghth = New instat.ucrReceiverSingle() + Me.lblPlantingDay = New System.Windows.Forms.Label() + Me.lblProbSuccess = New System.Windows.Forms.Label() + Me.lblTotalRain = New System.Windows.Forms.Label() + Me.lblCropStation = New System.Windows.Forms.Label() + Me.ucrReceiverPropSuccess = New instat.ucrReceiverSingle() + Me.ucrReceiverPlantingDay = New instat.ucrReceiverSingle() + Me.ucrReceiverTotalRain = New instat.ucrReceiverSingle() + Me.ucrReceiverStationCrop = New instat.ucrReceiverSingle() + Me.ucrSelectorCropProp = New instat.ucrSelectorByDataFrame() + Me.tbSeasonStartProb = New System.Windows.Forms.TabPage() + Me.lblSeasonYear = New System.Windows.Forms.Label() + Me.lblStationSeasonProb = New System.Windows.Forms.Label() + Me.ucrReceiverSeasonPlantingDay = New instat.ucrReceiverSingle() + Me.ucrReceiverSeasonYear = New instat.ucrReceiverSingle() + Me.ucrReceiverSeasonStationProb = New instat.ucrReceiverSingle() + Me.ucrSelectorSeasonStartProp = New instat.ucrSelectorByDataFrame() + Me.tbAnnualTempSummaries.SuspendLayout() + Me.tbMonthlyTemp.SuspendLayout() + Me.tbSummaries.SuspendLayout() + Me.tbAnnualRainfall.SuspendLayout() + Me.tbCropSuccessProp.SuspendLayout() + Me.tbSeasonStartProb.SuspendLayout() + Me.SuspendLayout() + ' + 'ucrReceiverPlantingDayCondition + ' + Me.ucrReceiverPlantingDayCondition.AutoSize = True + Me.ucrReceiverPlantingDayCondition.frmParent = Nothing + Me.ucrReceiverPlantingDayCondition.Location = New System.Drawing.Point(252, 155) + Me.ucrReceiverPlantingDayCondition.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverPlantingDayCondition.Name = "ucrReceiverPlantingDayCondition" + Me.ucrReceiverPlantingDayCondition.Selector = Nothing + Me.ucrReceiverPlantingDayCondition.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverPlantingDayCondition.strNcFilePath = "" + Me.ucrReceiverPlantingDayCondition.TabIndex = 8 + Me.ucrReceiverPlantingDayCondition.ucrSelector = Nothing + ' + 'lblMinMinAnnual + ' + Me.lblMinMinAnnual.AutoSize = True + Me.lblMinMinAnnual.Location = New System.Drawing.Point(249, 135) + Me.lblMinMinAnnual.Name = "lblMinMinAnnual" + Me.lblMinMinAnnual.Size = New System.Drawing.Size(98, 13) + Me.lblMinMinAnnual.TabIndex = 7 + Me.lblMinMinAnnual.Text = "Min Minimum Temp" + ' + 'ucrReceiverMinMinAnnual + ' + Me.ucrReceiverMinMinAnnual.AutoSize = True + Me.ucrReceiverMinMinAnnual.frmParent = Nothing + Me.ucrReceiverMinMinAnnual.Location = New System.Drawing.Point(250, 151) + Me.ucrReceiverMinMinAnnual.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMinMinAnnual.Name = "ucrReceiverMinMinAnnual" + Me.ucrReceiverMinMinAnnual.Selector = Nothing + Me.ucrReceiverMinMinAnnual.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMinMinAnnual.strNcFilePath = "" + Me.ucrReceiverMinMinAnnual.TabIndex = 8 + Me.ucrReceiverMinMinAnnual.ucrSelector = Nothing + ' + 'lblMeanAnnualTemp + ' + Me.lblMeanAnnualTemp.AutoSize = True + Me.lblMeanAnnualTemp.Location = New System.Drawing.Point(245, 93) + Me.lblMeanAnnualTemp.Name = "lblMeanAnnualTemp" + Me.lblMeanAnnualTemp.Size = New System.Drawing.Size(108, 13) + Me.lblMeanAnnualTemp.TabIndex = 5 + Me.lblMeanAnnualTemp.Text = "Mean Minimum Temp" + ' + 'lblMaxMinAnnual + ' + Me.lblMaxMinAnnual.AutoSize = True + Me.lblMaxMinAnnual.Location = New System.Drawing.Point(251, 174) + Me.lblMaxMinAnnual.Name = "lblMaxMinAnnual" + Me.lblMaxMinAnnual.Size = New System.Drawing.Size(101, 13) + Me.lblMaxMinAnnual.TabIndex = 9 + Me.lblMaxMinAnnual.Text = "Max Minimum Temp" + ' + 'lblAnnualTempYear + ' + Me.lblAnnualTempYear.AutoSize = True + Me.lblAnnualTempYear.Location = New System.Drawing.Point(249, 52) + Me.lblAnnualTempYear.Name = "lblAnnualTempYear" + Me.lblAnnualTempYear.Size = New System.Drawing.Size(32, 13) + Me.lblAnnualTempYear.TabIndex = 3 + Me.lblAnnualTempYear.Text = "Year:" + ' + 'lblAnnualTempStation + ' + Me.lblAnnualTempStation.AutoSize = True + Me.lblAnnualTempStation.Location = New System.Drawing.Point(248, 9) + Me.lblAnnualTempStation.Name = "lblAnnualTempStation" + Me.lblAnnualTempStation.Size = New System.Drawing.Size(43, 13) + Me.lblAnnualTempStation.TabIndex = 1 + Me.lblAnnualTempStation.Text = "Station:" + ' + 'lblMaxMaxAnnual + ' + Me.lblMaxMaxAnnual.AutoSize = True + Me.lblMaxMaxAnnual.Location = New System.Drawing.Point(255, 295) + Me.lblMaxMaxAnnual.Name = "lblMaxMaxAnnual" + Me.lblMaxMaxAnnual.Size = New System.Drawing.Size(104, 13) + Me.lblMaxMaxAnnual.TabIndex = 15 + Me.lblMaxMaxAnnual.Text = "Max Maximum Temp" + ' + 'ucrSelecetorMonthlyTemp + ' + Me.ucrSelecetorMonthlyTemp.AutoSize = True + Me.ucrSelecetorMonthlyTemp.bDropUnusedFilterLevels = False + Me.ucrSelecetorMonthlyTemp.bShowHiddenColumns = False + Me.ucrSelecetorMonthlyTemp.bUseCurrentFilter = True + Me.ucrSelecetorMonthlyTemp.Location = New System.Drawing.Point(10, 12) + Me.ucrSelecetorMonthlyTemp.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelecetorMonthlyTemp.Name = "ucrSelecetorMonthlyTemp" + Me.ucrSelecetorMonthlyTemp.Size = New System.Drawing.Size(151, 185) + Me.ucrSelecetorMonthlyTemp.TabIndex = 0 + ' + 'lblMinMaxAnnual + ' + Me.lblMinMaxAnnual.AutoSize = True + Me.lblMinMaxAnnual.Location = New System.Drawing.Point(254, 253) + Me.lblMinMaxAnnual.Name = "lblMinMaxAnnual" + Me.lblMinMaxAnnual.Size = New System.Drawing.Size(104, 13) + Me.lblMinMaxAnnual.TabIndex = 13 + Me.lblMinMaxAnnual.Text = "Min Maximum Temp:" + ' + 'lblMeanMaxAnnual + ' + Me.lblMeanMaxAnnual.AutoSize = True + Me.lblMeanMaxAnnual.Location = New System.Drawing.Point(254, 214) + Me.lblMeanMaxAnnual.Name = "lblMeanMaxAnnual" + Me.lblMeanMaxAnnual.Size = New System.Drawing.Size(111, 13) + Me.lblMeanMaxAnnual.TabIndex = 11 + Me.lblMeanMaxAnnual.Text = "Mean Maximum Temp" + ' + 'ucrReceiverMaxMaxAnnual + ' + Me.ucrReceiverMaxMaxAnnual.AutoSize = True + Me.ucrReceiverMaxMaxAnnual.frmParent = Nothing + Me.ucrReceiverMaxMaxAnnual.Location = New System.Drawing.Point(254, 308) + Me.ucrReceiverMaxMaxAnnual.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMaxMaxAnnual.Name = "ucrReceiverMaxMaxAnnual" + Me.ucrReceiverMaxMaxAnnual.Selector = Nothing + Me.ucrReceiverMaxMaxAnnual.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMaxMaxAnnual.strNcFilePath = "" + Me.ucrReceiverMaxMaxAnnual.TabIndex = 16 + Me.ucrReceiverMaxMaxAnnual.ucrSelector = Nothing + ' + 'ucrReceiverMeanMaxAnnual + ' + Me.ucrReceiverMeanMaxAnnual.AutoSize = True + Me.ucrReceiverMeanMaxAnnual.frmParent = Nothing + Me.ucrReceiverMeanMaxAnnual.Location = New System.Drawing.Point(253, 231) + Me.ucrReceiverMeanMaxAnnual.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMeanMaxAnnual.Name = "ucrReceiverMeanMaxAnnual" + Me.ucrReceiverMeanMaxAnnual.Selector = Nothing + Me.ucrReceiverMeanMaxAnnual.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMeanMaxAnnual.strNcFilePath = "" + Me.ucrReceiverMeanMaxAnnual.TabIndex = 12 + Me.ucrReceiverMeanMaxAnnual.ucrSelector = Nothing + ' + 'ucrReceiverMinMaxAnnual + ' + Me.ucrReceiverMinMaxAnnual.AutoSize = True + Me.ucrReceiverMinMaxAnnual.frmParent = Nothing + Me.ucrReceiverMinMaxAnnual.Location = New System.Drawing.Point(251, 271) + Me.ucrReceiverMinMaxAnnual.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMinMaxAnnual.Name = "ucrReceiverMinMaxAnnual" + Me.ucrReceiverMinMaxAnnual.Selector = Nothing + Me.ucrReceiverMinMaxAnnual.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMinMaxAnnual.strNcFilePath = "" + Me.ucrReceiverMinMaxAnnual.TabIndex = 14 + Me.ucrReceiverMinMaxAnnual.ucrSelector = Nothing + ' + 'ucrReceiverMaxMinAnnual + ' + Me.ucrReceiverMaxMinAnnual.AutoSize = True + Me.ucrReceiverMaxMinAnnual.frmParent = Nothing + Me.ucrReceiverMaxMinAnnual.Location = New System.Drawing.Point(249, 192) + Me.ucrReceiverMaxMinAnnual.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMaxMinAnnual.Name = "ucrReceiverMaxMinAnnual" + Me.ucrReceiverMaxMinAnnual.Selector = Nothing + Me.ucrReceiverMaxMinAnnual.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMaxMinAnnual.strNcFilePath = "" + Me.ucrReceiverMaxMinAnnual.TabIndex = 10 + Me.ucrReceiverMaxMinAnnual.ucrSelector = Nothing + ' + 'ucrReceiverMeanAnnual + ' + Me.ucrReceiverMeanAnnual.AutoSize = True + Me.ucrReceiverMeanAnnual.frmParent = Nothing + Me.ucrReceiverMeanAnnual.Location = New System.Drawing.Point(248, 112) + Me.ucrReceiverMeanAnnual.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMeanAnnual.Name = "ucrReceiverMeanAnnual" + Me.ucrReceiverMeanAnnual.Selector = Nothing + Me.ucrReceiverMeanAnnual.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMeanAnnual.strNcFilePath = "" + Me.ucrReceiverMeanAnnual.TabIndex = 6 + Me.ucrReceiverMeanAnnual.ucrSelector = Nothing + ' + 'ucrReceiverAnnualTempYr + ' + Me.ucrReceiverAnnualTempYr.AutoSize = True + Me.ucrReceiverAnnualTempYr.frmParent = Nothing + Me.ucrReceiverAnnualTempYr.Location = New System.Drawing.Point(247, 69) + Me.ucrReceiverAnnualTempYr.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverAnnualTempYr.Name = "ucrReceiverAnnualTempYr" + Me.ucrReceiverAnnualTempYr.Selector = Nothing + Me.ucrReceiverAnnualTempYr.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverAnnualTempYr.strNcFilePath = "" + Me.ucrReceiverAnnualTempYr.TabIndex = 4 + Me.ucrReceiverAnnualTempYr.ucrSelector = Nothing + ' + 'ucrReceiverAnnualTempStation + ' + Me.ucrReceiverAnnualTempStation.AutoSize = True + Me.ucrReceiverAnnualTempStation.frmParent = Nothing + Me.ucrReceiverAnnualTempStation.Location = New System.Drawing.Point(246, 26) + Me.ucrReceiverAnnualTempStation.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverAnnualTempStation.Name = "ucrReceiverAnnualTempStation" + Me.ucrReceiverAnnualTempStation.Selector = Nothing + Me.ucrReceiverAnnualTempStation.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverAnnualTempStation.strNcFilePath = "" + Me.ucrReceiverAnnualTempStation.TabIndex = 2 + Me.ucrReceiverAnnualTempStation.ucrSelector = Nothing + ' + 'tbAnnualTempSummaries + ' + Me.tbAnnualTempSummaries.Controls.Add(Me.lblMinMinAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.ucrReceiverMinMinAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.lblMeanAnnualTemp) + Me.tbAnnualTempSummaries.Controls.Add(Me.lblMaxMinAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.lblAnnualTempYear) + Me.tbAnnualTempSummaries.Controls.Add(Me.lblAnnualTempStation) + Me.tbAnnualTempSummaries.Controls.Add(Me.lblMaxMaxAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.lblMinMaxAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.lblMeanMaxAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.ucrReceiverMaxMaxAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.ucrReceiverMeanMaxAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.ucrReceiverMinMaxAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.ucrReceiverMaxMinAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.ucrReceiverMeanAnnual) + Me.tbAnnualTempSummaries.Controls.Add(Me.ucrReceiverAnnualTempYr) + Me.tbAnnualTempSummaries.Controls.Add(Me.ucrReceiverAnnualTempStation) + Me.tbAnnualTempSummaries.Controls.Add(Me.ucrSelectorAnnualTemp) + Me.tbAnnualTempSummaries.Location = New System.Drawing.Point(4, 22) + Me.tbAnnualTempSummaries.Name = "tbAnnualTempSummaries" + Me.tbAnnualTempSummaries.Padding = New System.Windows.Forms.Padding(3) + Me.tbAnnualTempSummaries.Size = New System.Drawing.Size(515, 404) + Me.tbAnnualTempSummaries.TabIndex = 3 + Me.tbAnnualTempSummaries.Text = "Annual Temperature" + Me.tbAnnualTempSummaries.UseVisualStyleBackColor = True + ' + 'ucrSelectorAnnualTemp + ' + Me.ucrSelectorAnnualTemp.AutoSize = True + Me.ucrSelectorAnnualTemp.bDropUnusedFilterLevels = False + Me.ucrSelectorAnnualTemp.bShowHiddenColumns = False + Me.ucrSelectorAnnualTemp.bUseCurrentFilter = True + Me.ucrSelectorAnnualTemp.Location = New System.Drawing.Point(11, 6) + Me.ucrSelectorAnnualTemp.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorAnnualTemp.Name = "ucrSelectorAnnualTemp" + Me.ucrSelectorAnnualTemp.Size = New System.Drawing.Size(151, 185) + Me.ucrSelectorAnnualTemp.TabIndex = 0 + ' + 'lblPlantingDayCond + ' + Me.lblPlantingDayCond.AutoSize = True + Me.lblPlantingDayCond.Location = New System.Drawing.Point(254, 139) + Me.lblPlantingDayCond.Name = "lblPlantingDayCond" + Me.lblPlantingDayCond.Size = New System.Drawing.Size(117, 13) + Me.lblPlantingDayCond.TabIndex = 7 + Me.lblPlantingDayCond.Text = "Planting Day Condition:" + ' + 'tbMonthlyTemp + ' + Me.tbMonthlyTemp.Controls.Add(Me.lblMonth) + Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverMonthMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.lblMinMInMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverMinMinMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.lblMeanMinMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.lblMaxMinMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.lblYearMonthTemp) + Me.tbMonthlyTemp.Controls.Add(Me.lblStationMonthTemp) + Me.tbMonthlyTemp.Controls.Add(Me.lblMaxMaxMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.lblMinMaxMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.lblMeanMaxMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverMaxMaxMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverMeanmaxMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverMinMaxMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverMaxMinMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverMeanminMontly) + Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverYearMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverMonthlyTemp) + Me.tbMonthlyTemp.Controls.Add(Me.ucrSelecetorMonthlyTemp) + Me.tbMonthlyTemp.Location = New System.Drawing.Point(4, 22) + Me.tbMonthlyTemp.Name = "tbMonthlyTemp" + Me.tbMonthlyTemp.Padding = New System.Windows.Forms.Padding(3) + Me.tbMonthlyTemp.Size = New System.Drawing.Size(515, 404) + Me.tbMonthlyTemp.TabIndex = 4 + Me.tbMonthlyTemp.Text = "Monthly Temperature" + Me.tbMonthlyTemp.UseVisualStyleBackColor = True + ' + 'lblMonth + ' + Me.lblMonth.AutoSize = True + Me.lblMonth.Location = New System.Drawing.Point(247, 95) + Me.lblMonth.Name = "lblMonth" + Me.lblMonth.Size = New System.Drawing.Size(40, 13) + Me.lblMonth.TabIndex = 5 + Me.lblMonth.Text = "Month:" + ' + 'ucrReceiverMonthMonthly + ' + Me.ucrReceiverMonthMonthly.AutoSize = True + Me.ucrReceiverMonthMonthly.frmParent = Nothing + Me.ucrReceiverMonthMonthly.Location = New System.Drawing.Point(245, 112) + Me.ucrReceiverMonthMonthly.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMonthMonthly.Name = "ucrReceiverMonthMonthly" + Me.ucrReceiverMonthMonthly.Selector = Nothing + Me.ucrReceiverMonthMonthly.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMonthMonthly.strNcFilePath = "" + Me.ucrReceiverMonthMonthly.TabIndex = 6 + Me.ucrReceiverMonthMonthly.ucrSelector = Nothing + ' + 'lblMinMInMonthly + ' + Me.lblMinMInMonthly.AutoSize = True + Me.lblMinMInMonthly.Location = New System.Drawing.Point(248, 181) + Me.lblMinMInMonthly.Name = "lblMinMInMonthly" + Me.lblMinMInMonthly.Size = New System.Drawing.Size(98, 13) + Me.lblMinMInMonthly.TabIndex = 9 + Me.lblMinMInMonthly.Text = "Min Minimum Temp" + ' + 'ucrReceiverMinMinMonthly + ' + Me.ucrReceiverMinMinMonthly.AutoSize = True + Me.ucrReceiverMinMinMonthly.frmParent = Nothing + Me.ucrReceiverMinMinMonthly.Location = New System.Drawing.Point(249, 197) + Me.ucrReceiverMinMinMonthly.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMinMinMonthly.Name = "ucrReceiverMinMinMonthly" + Me.ucrReceiverMinMinMonthly.Selector = Nothing + Me.ucrReceiverMinMinMonthly.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMinMinMonthly.strNcFilePath = "" + Me.ucrReceiverMinMinMonthly.TabIndex = 10 + Me.ucrReceiverMinMinMonthly.ucrSelector = Nothing + ' + 'lblMeanMinMonthly + ' + Me.lblMeanMinMonthly.AutoSize = True + Me.lblMeanMinMonthly.Location = New System.Drawing.Point(244, 139) + Me.lblMeanMinMonthly.Name = "lblMeanMinMonthly" + Me.lblMeanMinMonthly.Size = New System.Drawing.Size(108, 13) + Me.lblMeanMinMonthly.TabIndex = 7 + Me.lblMeanMinMonthly.Text = "Mean Minimum Temp" + ' + 'lblMaxMinMonthly + ' + Me.lblMaxMinMonthly.AutoSize = True + Me.lblMaxMinMonthly.Location = New System.Drawing.Point(250, 220) + Me.lblMaxMinMonthly.Name = "lblMaxMinMonthly" + Me.lblMaxMinMonthly.Size = New System.Drawing.Size(101, 13) + Me.lblMaxMinMonthly.TabIndex = 11 + Me.lblMaxMinMonthly.Text = "Max Minimum Temp" + ' + 'lblYearMonthTemp + ' + Me.lblYearMonthTemp.AutoSize = True + Me.lblYearMonthTemp.Location = New System.Drawing.Point(248, 54) + Me.lblYearMonthTemp.Name = "lblYearMonthTemp" + Me.lblYearMonthTemp.Size = New System.Drawing.Size(32, 13) + Me.lblYearMonthTemp.TabIndex = 3 + Me.lblYearMonthTemp.Text = "Year:" + ' + 'lblStationMonthTemp + ' + Me.lblStationMonthTemp.AutoSize = True + Me.lblStationMonthTemp.Location = New System.Drawing.Point(247, 15) + Me.lblStationMonthTemp.Name = "lblStationMonthTemp" + Me.lblStationMonthTemp.Size = New System.Drawing.Size(43, 13) + Me.lblStationMonthTemp.TabIndex = 1 + Me.lblStationMonthTemp.Text = "Station:" + ' + 'lblMaxMaxMonthly + ' + Me.lblMaxMaxMonthly.AutoSize = True + Me.lblMaxMaxMonthly.Location = New System.Drawing.Point(254, 341) + Me.lblMaxMaxMonthly.Name = "lblMaxMaxMonthly" + Me.lblMaxMaxMonthly.Size = New System.Drawing.Size(104, 13) + Me.lblMaxMaxMonthly.TabIndex = 17 + Me.lblMaxMaxMonthly.Text = "Max Maximum Temp" + ' + 'lblMinMaxMonthly + ' + Me.lblMinMaxMonthly.AutoSize = True + Me.lblMinMaxMonthly.Location = New System.Drawing.Point(253, 299) + Me.lblMinMaxMonthly.Name = "lblMinMaxMonthly" + Me.lblMinMaxMonthly.Size = New System.Drawing.Size(104, 13) + Me.lblMinMaxMonthly.TabIndex = 15 + Me.lblMinMaxMonthly.Text = "Min Maximum Temp:" + ' + 'lblMeanMaxMonthly + ' + Me.lblMeanMaxMonthly.AutoSize = True + Me.lblMeanMaxMonthly.Location = New System.Drawing.Point(253, 260) + Me.lblMeanMaxMonthly.Name = "lblMeanMaxMonthly" + Me.lblMeanMaxMonthly.Size = New System.Drawing.Size(111, 13) + Me.lblMeanMaxMonthly.TabIndex = 13 + Me.lblMeanMaxMonthly.Text = "Mean Maximum Temp" + ' + 'ucrReceiverMaxMaxMonthly + ' + Me.ucrReceiverMaxMaxMonthly.AutoSize = True + Me.ucrReceiverMaxMaxMonthly.frmParent = Nothing + Me.ucrReceiverMaxMaxMonthly.Location = New System.Drawing.Point(253, 354) + Me.ucrReceiverMaxMaxMonthly.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMaxMaxMonthly.Name = "ucrReceiverMaxMaxMonthly" + Me.ucrReceiverMaxMaxMonthly.Selector = Nothing + Me.ucrReceiverMaxMaxMonthly.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMaxMaxMonthly.strNcFilePath = "" + Me.ucrReceiverMaxMaxMonthly.TabIndex = 18 + Me.ucrReceiverMaxMaxMonthly.ucrSelector = Nothing + ' + 'ucrReceiverMeanmaxMonthly + ' + Me.ucrReceiverMeanmaxMonthly.AutoSize = True + Me.ucrReceiverMeanmaxMonthly.frmParent = Nothing + Me.ucrReceiverMeanmaxMonthly.Location = New System.Drawing.Point(252, 277) + Me.ucrReceiverMeanmaxMonthly.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMeanmaxMonthly.Name = "ucrReceiverMeanmaxMonthly" + Me.ucrReceiverMeanmaxMonthly.Selector = Nothing + Me.ucrReceiverMeanmaxMonthly.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMeanmaxMonthly.strNcFilePath = "" + Me.ucrReceiverMeanmaxMonthly.TabIndex = 14 + Me.ucrReceiverMeanmaxMonthly.ucrSelector = Nothing + ' + 'ucrReceiverMinMaxMonthly + ' + Me.ucrReceiverMinMaxMonthly.AutoSize = True + Me.ucrReceiverMinMaxMonthly.frmParent = Nothing + Me.ucrReceiverMinMaxMonthly.Location = New System.Drawing.Point(250, 317) + Me.ucrReceiverMinMaxMonthly.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMinMaxMonthly.Name = "ucrReceiverMinMaxMonthly" + Me.ucrReceiverMinMaxMonthly.Selector = Nothing + Me.ucrReceiverMinMaxMonthly.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMinMaxMonthly.strNcFilePath = "" + Me.ucrReceiverMinMaxMonthly.TabIndex = 16 + Me.ucrReceiverMinMaxMonthly.ucrSelector = Nothing + ' + 'ucrReceiverMaxMinMonthly + ' + Me.ucrReceiverMaxMinMonthly.AutoSize = True + Me.ucrReceiverMaxMinMonthly.frmParent = Nothing + Me.ucrReceiverMaxMinMonthly.Location = New System.Drawing.Point(248, 238) + Me.ucrReceiverMaxMinMonthly.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMaxMinMonthly.Name = "ucrReceiverMaxMinMonthly" + Me.ucrReceiverMaxMinMonthly.Selector = Nothing + Me.ucrReceiverMaxMinMonthly.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMaxMinMonthly.strNcFilePath = "" + Me.ucrReceiverMaxMinMonthly.TabIndex = 12 + Me.ucrReceiverMaxMinMonthly.ucrSelector = Nothing + ' + 'ucrReceiverMeanminMontly + ' + Me.ucrReceiverMeanminMontly.AutoSize = True + Me.ucrReceiverMeanminMontly.frmParent = Nothing + Me.ucrReceiverMeanminMontly.Location = New System.Drawing.Point(247, 158) + Me.ucrReceiverMeanminMontly.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMeanminMontly.Name = "ucrReceiverMeanminMontly" + Me.ucrReceiverMeanminMontly.Selector = Nothing + Me.ucrReceiverMeanminMontly.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMeanminMontly.strNcFilePath = "" + Me.ucrReceiverMeanminMontly.TabIndex = 8 + Me.ucrReceiverMeanminMontly.ucrSelector = Nothing + ' + 'ucrReceiverYearMonthly + ' + Me.ucrReceiverYearMonthly.AutoSize = True + Me.ucrReceiverYearMonthly.frmParent = Nothing + Me.ucrReceiverYearMonthly.Location = New System.Drawing.Point(246, 71) + Me.ucrReceiverYearMonthly.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverYearMonthly.Name = "ucrReceiverYearMonthly" + Me.ucrReceiverYearMonthly.Selector = Nothing + Me.ucrReceiverYearMonthly.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverYearMonthly.strNcFilePath = "" + Me.ucrReceiverYearMonthly.TabIndex = 4 + Me.ucrReceiverYearMonthly.ucrSelector = Nothing + ' + 'ucrReceiverMonthlyTemp + ' + Me.ucrReceiverMonthlyTemp.AutoSize = True + Me.ucrReceiverMonthlyTemp.frmParent = Nothing + Me.ucrReceiverMonthlyTemp.Location = New System.Drawing.Point(245, 32) + Me.ucrReceiverMonthlyTemp.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverMonthlyTemp.Name = "ucrReceiverMonthlyTemp" + Me.ucrReceiverMonthlyTemp.Selector = Nothing + Me.ucrReceiverMonthlyTemp.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverMonthlyTemp.strNcFilePath = "" + Me.ucrReceiverMonthlyTemp.TabIndex = 2 + Me.ucrReceiverMonthlyTemp.ucrSelector = Nothing + ' + 'ucrBase + ' + Me.ucrBase.AutoSize = True + Me.ucrBase.Location = New System.Drawing.Point(157, 455) + Me.ucrBase.Margin = New System.Windows.Forms.Padding(4) + Me.ucrBase.Name = "ucrBase" + Me.ucrBase.Size = New System.Drawing.Size(224, 30) + Me.ucrBase.TabIndex = 1 + ' + 'lblSeasonPlantingDay + ' + Me.lblSeasonPlantingDay.AutoSize = True + Me.lblSeasonPlantingDay.Location = New System.Drawing.Point(247, 97) + Me.lblSeasonPlantingDay.Name = "lblSeasonPlantingDay" + Me.lblSeasonPlantingDay.Size = New System.Drawing.Size(70, 13) + Me.lblSeasonPlantingDay.TabIndex = 5 + Me.lblSeasonPlantingDay.Text = "Planting Day:" + ' + 'lblRainyDaysYear + ' + Me.lblRainyDaysYear.AutoSize = True + Me.lblRainyDaysYear.Location = New System.Drawing.Point(248, 137) + Me.lblRainyDaysYear.Name = "lblRainyDaysYear" + Me.lblRainyDaysYear.Size = New System.Drawing.Size(103, 13) + Me.lblRainyDaysYear.TabIndex = 7 + Me.lblRainyDaysYear.Text = " Rainy Days in Year:" + ' + 'ucrReceiverRainDaysYear + ' + Me.ucrReceiverRainDaysYear.AutoSize = True + Me.ucrReceiverRainDaysYear.frmParent = Nothing + Me.ucrReceiverRainDaysYear.Location = New System.Drawing.Point(246, 153) + Me.ucrReceiverRainDaysYear.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverRainDaysYear.Name = "ucrReceiverRainDaysYear" + Me.ucrReceiverRainDaysYear.Selector = Nothing + Me.ucrReceiverRainDaysYear.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverRainDaysYear.strNcFilePath = "" + Me.ucrReceiverRainDaysYear.TabIndex = 8 + Me.ucrReceiverRainDaysYear.ucrSelector = Nothing + ' + 'lblNoRainDaysSeason + ' + Me.lblNoRainDaysSeason.AutoSize = True + Me.lblNoRainDaysSeason.Location = New System.Drawing.Point(241, 95) + Me.lblNoRainDaysSeason.Name = "lblNoRainDaysSeason" + Me.lblNoRainDaysSeason.Size = New System.Drawing.Size(117, 13) + Me.lblNoRainDaysSeason.TabIndex = 5 + Me.lblNoRainDaysSeason.Text = " Rainy Days in Season:" + ' + 'lblSeasonalLength + ' + Me.lblSeasonalLength.AutoSize = True + Me.lblSeasonalLength.Location = New System.Drawing.Point(247, 176) + Me.lblSeasonalLength.Name = "lblSeasonalLength" + Me.lblSeasonalLength.Size = New System.Drawing.Size(90, 13) + Me.lblSeasonalLength.TabIndex = 9 + Me.lblSeasonalLength.Text = "Seasonal Length:" + ' + 'lblSeasonalRain + ' + Me.lblSeasonalRain.AutoSize = True + Me.lblSeasonalRain.Location = New System.Drawing.Point(245, 54) + Me.lblSeasonalRain.Name = "lblSeasonalRain" + Me.lblSeasonalRain.Size = New System.Drawing.Size(79, 13) + Me.lblSeasonalRain.TabIndex = 3 + Me.lblSeasonalRain.Text = "Seasonal Rain:" + ' + 'lblAnnualRain + ' + Me.lblAnnualRain.AutoSize = True + Me.lblAnnualRain.Location = New System.Drawing.Point(244, 11) + Me.lblAnnualRain.Name = "lblAnnualRain" + Me.lblAnnualRain.Size = New System.Drawing.Size(68, 13) + Me.lblAnnualRain.TabIndex = 1 + Me.lblAnnualRain.Text = "Annual Rain:" + ' + 'lblEndSeasonDate + ' + Me.lblEndSeasonDate.AutoSize = True + Me.lblEndSeasonDate.Location = New System.Drawing.Point(250, 331) + Me.lblEndSeasonDate.Name = "lblEndSeasonDate" + Me.lblEndSeasonDate.Size = New System.Drawing.Size(97, 13) + Me.lblEndSeasonDate.TabIndex = 17 + Me.lblEndSeasonDate.Text = "End Season(Date):" + ' + 'lblEndSeasonDOY + ' + Me.lblEndSeasonDOY.AutoSize = True + Me.lblEndSeasonDOY.Location = New System.Drawing.Point(251, 297) + Me.lblEndSeasonDOY.Name = "lblEndSeasonDOY" + Me.lblEndSeasonDOY.Size = New System.Drawing.Size(97, 13) + Me.lblEndSeasonDOY.TabIndex = 15 + Me.lblEndSeasonDOY.Text = "End Season(DOY):" + ' + 'lblEndRainDate + ' + Me.lblEndRainDate.AutoSize = True + Me.lblEndRainDate.Location = New System.Drawing.Point(250, 255) + Me.lblEndRainDate.Name = "lblEndRainDate" + Me.lblEndRainDate.Size = New System.Drawing.Size(83, 13) + Me.lblEndRainDate.TabIndex = 13 + Me.lblEndRainDate.Text = "End Rain(Date):" + ' + 'lblEndRainsDOY + ' + Me.lblEndRainsDOY.AutoSize = True + Me.lblEndRainsDOY.Location = New System.Drawing.Point(250, 216) + Me.lblEndRainsDOY.Name = "lblEndRainsDOY" + Me.lblEndRainsDOY.Size = New System.Drawing.Size(83, 13) + Me.lblEndRainsDOY.TabIndex = 11 + Me.lblEndRainsDOY.Text = "End Rain(DOY):" + ' + 'lblStartRainDate + ' + Me.lblStartRainDate.AutoSize = True + Me.lblStartRainDate.Location = New System.Drawing.Point(11, 326) + Me.lblStartRainDate.Name = "lblStartRainDate" + Me.lblStartRainDate.Size = New System.Drawing.Size(86, 13) + Me.lblStartRainDate.TabIndex = 25 + Me.lblStartRainDate.Text = "Start Rain(Date):" + ' + 'lblStartRainDOY + ' + Me.lblStartRainDOY.AutoSize = True + Me.lblStartRainDOY.Location = New System.Drawing.Point(12, 285) + Me.lblStartRainDOY.Name = "lblStartRainDOY" + Me.lblStartRainDOY.Size = New System.Drawing.Size(86, 13) + Me.lblStartRainDOY.TabIndex = 23 + Me.lblStartRainDOY.Text = "Start Rain(DOY):" + ' + 'lblYear + ' + Me.lblYear.AutoSize = True + Me.lblYear.Location = New System.Drawing.Point(14, 239) + Me.lblYear.Name = "lblYear" + Me.lblYear.Size = New System.Drawing.Size(32, 13) + Me.lblYear.TabIndex = 21 + Me.lblYear.Text = "Year:" + ' + 'lblStation + ' + Me.lblStation.AutoSize = True + Me.lblStation.Location = New System.Drawing.Point(15, 198) + Me.lblStation.Name = "lblStation" + Me.lblStation.Size = New System.Drawing.Size(43, 13) + Me.lblStation.TabIndex = 19 + Me.lblStation.Text = "Station:" + ' + 'ucrReceiverStartRainDate + ' + Me.ucrReceiverStartRainDate.AutoSize = True + Me.ucrReceiverStartRainDate.frmParent = Nothing + Me.ucrReceiverStartRainDate.Location = New System.Drawing.Point(9, 344) + Me.ucrReceiverStartRainDate.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverStartRainDate.Name = "ucrReceiverStartRainDate" + Me.ucrReceiverStartRainDate.Selector = Nothing + Me.ucrReceiverStartRainDate.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverStartRainDate.strNcFilePath = "" + Me.ucrReceiverStartRainDate.TabIndex = 26 + Me.ucrReceiverStartRainDate.ucrSelector = Nothing + ' + 'ucrReceiverStartRainDOY + ' + Me.ucrReceiverStartRainDOY.AutoSize = True + Me.ucrReceiverStartRainDOY.frmParent = Nothing + Me.ucrReceiverStartRainDOY.Location = New System.Drawing.Point(9, 302) + Me.ucrReceiverStartRainDOY.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverStartRainDOY.Name = "ucrReceiverStartRainDOY" + Me.ucrReceiverStartRainDOY.Selector = Nothing + Me.ucrReceiverStartRainDOY.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverStartRainDOY.strNcFilePath = "" + Me.ucrReceiverStartRainDOY.TabIndex = 24 + Me.ucrReceiverStartRainDOY.ucrSelector = Nothing + ' + 'ucrReceiverYear + ' + Me.ucrReceiverYear.AutoSize = True + Me.ucrReceiverYear.frmParent = Nothing + Me.ucrReceiverYear.Location = New System.Drawing.Point(9, 258) + Me.ucrReceiverYear.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverYear.Name = "ucrReceiverYear" + Me.ucrReceiverYear.Selector = Nothing + Me.ucrReceiverYear.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverYear.strNcFilePath = "" + Me.ucrReceiverYear.TabIndex = 22 + Me.ucrReceiverYear.ucrSelector = Nothing + ' + 'ucrReceiverStation + ' + Me.ucrReceiverStation.AutoSize = True + Me.ucrReceiverStation.frmParent = Nothing + Me.ucrReceiverStation.Location = New System.Drawing.Point(11, 215) + Me.ucrReceiverStation.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverStation.Name = "ucrReceiverStation" + Me.ucrReceiverStation.Selector = Nothing + Me.ucrReceiverStation.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverStation.strNcFilePath = "" + Me.ucrReceiverStation.TabIndex = 20 + Me.ucrReceiverStation.ucrSelector = Nothing + ' + 'ucrReceiverEndSeasonDate + ' + Me.ucrReceiverEndSeasonDate.AutoSize = True + Me.ucrReceiverEndSeasonDate.frmParent = Nothing + Me.ucrReceiverEndSeasonDate.Location = New System.Drawing.Point(246, 348) + Me.ucrReceiverEndSeasonDate.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverEndSeasonDate.Name = "ucrReceiverEndSeasonDate" + Me.ucrReceiverEndSeasonDate.Selector = Nothing + Me.ucrReceiverEndSeasonDate.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverEndSeasonDate.strNcFilePath = "" + Me.ucrReceiverEndSeasonDate.TabIndex = 18 + Me.ucrReceiverEndSeasonDate.ucrSelector = Nothing + ' + 'ucrReceiverEndSeasonDOY + ' + Me.ucrReceiverEndSeasonDOY.AutoSize = True + Me.ucrReceiverEndSeasonDOY.frmParent = Nothing + Me.ucrReceiverEndSeasonDOY.Location = New System.Drawing.Point(250, 310) + Me.ucrReceiverEndSeasonDOY.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverEndSeasonDOY.Name = "ucrReceiverEndSeasonDOY" + Me.ucrReceiverEndSeasonDOY.Selector = Nothing + Me.ucrReceiverEndSeasonDOY.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverEndSeasonDOY.strNcFilePath = "" + Me.ucrReceiverEndSeasonDOY.TabIndex = 16 + Me.ucrReceiverEndSeasonDOY.ucrSelector = Nothing + ' + 'ucrReceiverEndRainsDOY + ' + Me.ucrReceiverEndRainsDOY.AutoSize = True + Me.ucrReceiverEndRainsDOY.frmParent = Nothing + Me.ucrReceiverEndRainsDOY.Location = New System.Drawing.Point(249, 233) + Me.ucrReceiverEndRainsDOY.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverEndRainsDOY.Name = "ucrReceiverEndRainsDOY" + Me.ucrReceiverEndRainsDOY.Selector = Nothing + Me.ucrReceiverEndRainsDOY.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverEndRainsDOY.strNcFilePath = "" + Me.ucrReceiverEndRainsDOY.TabIndex = 12 + Me.ucrReceiverEndRainsDOY.ucrSelector = Nothing + ' + 'tbSummaries + ' + Me.tbSummaries.Controls.Add(Me.tbAnnualRainfall) + Me.tbSummaries.Controls.Add(Me.tbCropSuccessProp) + Me.tbSummaries.Controls.Add(Me.tbSeasonStartProb) + Me.tbSummaries.Controls.Add(Me.tbAnnualTempSummaries) + Me.tbSummaries.Controls.Add(Me.tbMonthlyTemp) + Me.tbSummaries.Location = New System.Drawing.Point(12, 17) + Me.tbSummaries.Name = "tbSummaries" + Me.tbSummaries.SelectedIndex = 0 + Me.tbSummaries.Size = New System.Drawing.Size(523, 430) + Me.tbSummaries.TabIndex = 7 + ' + 'tbAnnualRainfall + ' + Me.tbAnnualRainfall.Controls.Add(Me.lblRainyDaysYear) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverRainDaysYear) + Me.tbAnnualRainfall.Controls.Add(Me.lblNoRainDaysSeason) + Me.tbAnnualRainfall.Controls.Add(Me.lblSeasonalLength) + Me.tbAnnualRainfall.Controls.Add(Me.lblSeasonalRain) + Me.tbAnnualRainfall.Controls.Add(Me.lblAnnualRain) + Me.tbAnnualRainfall.Controls.Add(Me.lblEndSeasonDate) + Me.tbAnnualRainfall.Controls.Add(Me.lblEndSeasonDOY) + Me.tbAnnualRainfall.Controls.Add(Me.lblEndRainDate) + Me.tbAnnualRainfall.Controls.Add(Me.lblEndRainsDOY) + Me.tbAnnualRainfall.Controls.Add(Me.lblStartRainDate) + Me.tbAnnualRainfall.Controls.Add(Me.lblStartRainDOY) + Me.tbAnnualRainfall.Controls.Add(Me.lblYear) + Me.tbAnnualRainfall.Controls.Add(Me.lblStation) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverStartRainDate) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverStartRainDOY) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverYear) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverStation) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverEndSeasonDate) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverEndSeasonDOY) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverEndRainsDOY) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverEndRainsDate) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverSeasonalLength) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverRainDaysSeason) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverSeasonalRain) + Me.tbAnnualRainfall.Controls.Add(Me.ucrReceiverAnnualRain) + Me.tbAnnualRainfall.Controls.Add(Me.ucrSelectorDefineAnnualRain) + Me.tbAnnualRainfall.Location = New System.Drawing.Point(4, 22) + Me.tbAnnualRainfall.Name = "tbAnnualRainfall" + Me.tbAnnualRainfall.Padding = New System.Windows.Forms.Padding(3) + Me.tbAnnualRainfall.Size = New System.Drawing.Size(515, 404) + Me.tbAnnualRainfall.TabIndex = 0 + Me.tbAnnualRainfall.Text = "Annual Rainfall" + Me.tbAnnualRainfall.UseVisualStyleBackColor = True + ' + 'ucrReceiverEndRainsDate + ' + Me.ucrReceiverEndRainsDate.AutoSize = True + Me.ucrReceiverEndRainsDate.frmParent = Nothing + Me.ucrReceiverEndRainsDate.Location = New System.Drawing.Point(247, 273) + Me.ucrReceiverEndRainsDate.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverEndRainsDate.Name = "ucrReceiverEndRainsDate" + Me.ucrReceiverEndRainsDate.Selector = Nothing + Me.ucrReceiverEndRainsDate.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverEndRainsDate.strNcFilePath = "" + Me.ucrReceiverEndRainsDate.TabIndex = 14 + Me.ucrReceiverEndRainsDate.ucrSelector = Nothing + ' + 'ucrReceiverSeasonalLength + ' + Me.ucrReceiverSeasonalLength.AutoSize = True + Me.ucrReceiverSeasonalLength.frmParent = Nothing + Me.ucrReceiverSeasonalLength.Location = New System.Drawing.Point(245, 194) + Me.ucrReceiverSeasonalLength.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverSeasonalLength.Name = "ucrReceiverSeasonalLength" + Me.ucrReceiverSeasonalLength.Selector = Nothing + Me.ucrReceiverSeasonalLength.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverSeasonalLength.strNcFilePath = "" + Me.ucrReceiverSeasonalLength.TabIndex = 10 + Me.ucrReceiverSeasonalLength.ucrSelector = Nothing + ' + 'ucrReceiverRainDaysSeason + ' + Me.ucrReceiverRainDaysSeason.AutoSize = True + Me.ucrReceiverRainDaysSeason.frmParent = Nothing + Me.ucrReceiverRainDaysSeason.Location = New System.Drawing.Point(244, 114) + Me.ucrReceiverRainDaysSeason.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverRainDaysSeason.Name = "ucrReceiverRainDaysSeason" + Me.ucrReceiverRainDaysSeason.Selector = Nothing + Me.ucrReceiverRainDaysSeason.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverRainDaysSeason.strNcFilePath = "" + Me.ucrReceiverRainDaysSeason.TabIndex = 6 + Me.ucrReceiverRainDaysSeason.ucrSelector = Nothing + ' + 'ucrReceiverSeasonalRain + ' + Me.ucrReceiverSeasonalRain.AutoSize = True + Me.ucrReceiverSeasonalRain.frmParent = Nothing + Me.ucrReceiverSeasonalRain.Location = New System.Drawing.Point(243, 71) + Me.ucrReceiverSeasonalRain.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverSeasonalRain.Name = "ucrReceiverSeasonalRain" + Me.ucrReceiverSeasonalRain.Selector = Nothing + Me.ucrReceiverSeasonalRain.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverSeasonalRain.strNcFilePath = "" + Me.ucrReceiverSeasonalRain.TabIndex = 4 + Me.ucrReceiverSeasonalRain.ucrSelector = Nothing + ' + 'ucrReceiverAnnualRain + ' + Me.ucrReceiverAnnualRain.AutoSize = True + Me.ucrReceiverAnnualRain.frmParent = Nothing + Me.ucrReceiverAnnualRain.Location = New System.Drawing.Point(242, 28) + Me.ucrReceiverAnnualRain.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverAnnualRain.Name = "ucrReceiverAnnualRain" + Me.ucrReceiverAnnualRain.Selector = Nothing + Me.ucrReceiverAnnualRain.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverAnnualRain.strNcFilePath = "" + Me.ucrReceiverAnnualRain.TabIndex = 2 + Me.ucrReceiverAnnualRain.ucrSelector = Nothing + ' + 'ucrSelectorDefineAnnualRain + ' + Me.ucrSelectorDefineAnnualRain.AutoSize = True + Me.ucrSelectorDefineAnnualRain.bDropUnusedFilterLevels = False + Me.ucrSelectorDefineAnnualRain.bShowHiddenColumns = False + Me.ucrSelectorDefineAnnualRain.bUseCurrentFilter = True + Me.ucrSelectorDefineAnnualRain.Location = New System.Drawing.Point(7, 8) + Me.ucrSelectorDefineAnnualRain.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorDefineAnnualRain.Name = "ucrSelectorDefineAnnualRain" + Me.ucrSelectorDefineAnnualRain.Size = New System.Drawing.Size(151, 185) + Me.ucrSelectorDefineAnnualRain.TabIndex = 0 + ' + 'tbCropSuccessProp + ' + Me.tbCropSuccessProp.Controls.Add(Me.lblPlantingLength) + Me.tbCropSuccessProp.Controls.Add(Me.ucrReceiverPlantingLenghth) + Me.tbCropSuccessProp.Controls.Add(Me.lblPlantingDay) + Me.tbCropSuccessProp.Controls.Add(Me.lblProbSuccess) + Me.tbCropSuccessProp.Controls.Add(Me.lblTotalRain) + Me.tbCropSuccessProp.Controls.Add(Me.lblCropStation) + Me.tbCropSuccessProp.Controls.Add(Me.ucrReceiverPropSuccess) + Me.tbCropSuccessProp.Controls.Add(Me.ucrReceiverPlantingDay) + Me.tbCropSuccessProp.Controls.Add(Me.ucrReceiverTotalRain) + Me.tbCropSuccessProp.Controls.Add(Me.ucrReceiverStationCrop) + Me.tbCropSuccessProp.Controls.Add(Me.ucrSelectorCropProp) + Me.tbCropSuccessProp.Location = New System.Drawing.Point(4, 22) + Me.tbCropSuccessProp.Name = "tbCropSuccessProp" + Me.tbCropSuccessProp.Padding = New System.Windows.Forms.Padding(3) + Me.tbCropSuccessProp.Size = New System.Drawing.Size(515, 404) + Me.tbCropSuccessProp.TabIndex = 1 + Me.tbCropSuccessProp.Text = "Crop Success Prop" + Me.tbCropSuccessProp.UseVisualStyleBackColor = True + ' + 'lblPlantingLength + ' + Me.lblPlantingLength.AutoSize = True + Me.lblPlantingLength.Location = New System.Drawing.Point(252, 137) + Me.lblPlantingLength.Name = "lblPlantingLength" + Me.lblPlantingLength.Size = New System.Drawing.Size(84, 13) + Me.lblPlantingLength.TabIndex = 7 + Me.lblPlantingLength.Text = "Planting Length:" + ' + 'ucrReceiverPlantingLenghth + ' + Me.ucrReceiverPlantingLenghth.AutoSize = True + Me.ucrReceiverPlantingLenghth.frmParent = Nothing + Me.ucrReceiverPlantingLenghth.Location = New System.Drawing.Point(250, 153) + Me.ucrReceiverPlantingLenghth.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverPlantingLenghth.Name = "ucrReceiverPlantingLenghth" + Me.ucrReceiverPlantingLenghth.Selector = Nothing + Me.ucrReceiverPlantingLenghth.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverPlantingLenghth.strNcFilePath = "" + Me.ucrReceiverPlantingLenghth.TabIndex = 8 + Me.ucrReceiverPlantingLenghth.ucrSelector = Nothing + ' + 'lblPlantingDay + ' + Me.lblPlantingDay.AutoSize = True + Me.lblPlantingDay.Location = New System.Drawing.Point(245, 95) + Me.lblPlantingDay.Name = "lblPlantingDay" + Me.lblPlantingDay.Size = New System.Drawing.Size(70, 13) + Me.lblPlantingDay.TabIndex = 5 + Me.lblPlantingDay.Text = "Planting Day:" + ' + 'lblProbSuccess + ' + Me.lblProbSuccess.AutoSize = True + Me.lblProbSuccess.Location = New System.Drawing.Point(251, 176) + Me.lblProbSuccess.Name = "lblProbSuccess" + Me.lblProbSuccess.Size = New System.Drawing.Size(117, 13) + Me.lblProbSuccess.TabIndex = 9 + Me.lblProbSuccess.Text = "Proportion of Success :" + ' + 'lblTotalRain + ' + Me.lblTotalRain.AutoSize = True + Me.lblTotalRain.Location = New System.Drawing.Point(249, 54) + Me.lblTotalRain.Name = "lblTotalRain" + Me.lblTotalRain.Size = New System.Drawing.Size(59, 13) + Me.lblTotalRain.TabIndex = 3 + Me.lblTotalRain.Text = "Total Rain:" + ' + 'lblCropStation + ' + Me.lblCropStation.AutoSize = True + Me.lblCropStation.Location = New System.Drawing.Point(248, 11) + Me.lblCropStation.Name = "lblCropStation" + Me.lblCropStation.Size = New System.Drawing.Size(43, 13) + Me.lblCropStation.TabIndex = 1 + Me.lblCropStation.Text = "Station:" + ' + 'ucrReceiverPropSuccess + ' + Me.ucrReceiverPropSuccess.AutoSize = True + Me.ucrReceiverPropSuccess.frmParent = Nothing + Me.ucrReceiverPropSuccess.Location = New System.Drawing.Point(249, 194) + Me.ucrReceiverPropSuccess.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverPropSuccess.Name = "ucrReceiverPropSuccess" + Me.ucrReceiverPropSuccess.Selector = Nothing + Me.ucrReceiverPropSuccess.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverPropSuccess.strNcFilePath = "" + Me.ucrReceiverPropSuccess.TabIndex = 10 + Me.ucrReceiverPropSuccess.ucrSelector = Nothing + ' + 'ucrReceiverPlantingDay + ' + Me.ucrReceiverPlantingDay.AutoSize = True + Me.ucrReceiverPlantingDay.frmParent = Nothing + Me.ucrReceiverPlantingDay.Location = New System.Drawing.Point(248, 114) + Me.ucrReceiverPlantingDay.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverPlantingDay.Name = "ucrReceiverPlantingDay" + Me.ucrReceiverPlantingDay.Selector = Nothing + Me.ucrReceiverPlantingDay.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverPlantingDay.strNcFilePath = "" + Me.ucrReceiverPlantingDay.TabIndex = 6 + Me.ucrReceiverPlantingDay.ucrSelector = Nothing + ' + 'ucrReceiverTotalRain + ' + Me.ucrReceiverTotalRain.AutoSize = True + Me.ucrReceiverTotalRain.frmParent = Nothing + Me.ucrReceiverTotalRain.Location = New System.Drawing.Point(247, 71) + Me.ucrReceiverTotalRain.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverTotalRain.Name = "ucrReceiverTotalRain" + Me.ucrReceiverTotalRain.Selector = Nothing + Me.ucrReceiverTotalRain.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverTotalRain.strNcFilePath = "" + Me.ucrReceiverTotalRain.TabIndex = 4 + Me.ucrReceiverTotalRain.ucrSelector = Nothing + ' + 'ucrReceiverStationCrop + ' + Me.ucrReceiverStationCrop.AutoSize = True + Me.ucrReceiverStationCrop.frmParent = Nothing + Me.ucrReceiverStationCrop.Location = New System.Drawing.Point(246, 28) + Me.ucrReceiverStationCrop.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverStationCrop.Name = "ucrReceiverStationCrop" + Me.ucrReceiverStationCrop.Selector = Nothing + Me.ucrReceiverStationCrop.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverStationCrop.strNcFilePath = "" + Me.ucrReceiverStationCrop.TabIndex = 2 + Me.ucrReceiverStationCrop.ucrSelector = Nothing + ' + 'ucrSelectorCropProp + ' + Me.ucrSelectorCropProp.AutoSize = True + Me.ucrSelectorCropProp.bDropUnusedFilterLevels = False + Me.ucrSelectorCropProp.bShowHiddenColumns = False + Me.ucrSelectorCropProp.bUseCurrentFilter = True + Me.ucrSelectorCropProp.Location = New System.Drawing.Point(11, 8) + Me.ucrSelectorCropProp.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorCropProp.Name = "ucrSelectorCropProp" + Me.ucrSelectorCropProp.Size = New System.Drawing.Size(151, 185) + Me.ucrSelectorCropProp.TabIndex = 0 + ' + 'tbSeasonStartProb + ' + Me.tbSeasonStartProb.Controls.Add(Me.lblPlantingDayCond) + Me.tbSeasonStartProb.Controls.Add(Me.ucrReceiverPlantingDayCondition) + Me.tbSeasonStartProb.Controls.Add(Me.lblSeasonPlantingDay) + Me.tbSeasonStartProb.Controls.Add(Me.lblSeasonYear) + Me.tbSeasonStartProb.Controls.Add(Me.lblStationSeasonProb) + Me.tbSeasonStartProb.Controls.Add(Me.ucrReceiverSeasonPlantingDay) + Me.tbSeasonStartProb.Controls.Add(Me.ucrReceiverSeasonYear) + Me.tbSeasonStartProb.Controls.Add(Me.ucrReceiverSeasonStationProb) + Me.tbSeasonStartProb.Controls.Add(Me.ucrSelectorSeasonStartProp) + Me.tbSeasonStartProb.Location = New System.Drawing.Point(4, 22) + Me.tbSeasonStartProb.Name = "tbSeasonStartProb" + Me.tbSeasonStartProb.Padding = New System.Windows.Forms.Padding(3) + Me.tbSeasonStartProb.Size = New System.Drawing.Size(515, 404) + Me.tbSeasonStartProb.TabIndex = 2 + Me.tbSeasonStartProb.Text = "Season Start Prob" + Me.tbSeasonStartProb.UseVisualStyleBackColor = True + ' + 'lblSeasonYear + ' + Me.lblSeasonYear.AutoSize = True + Me.lblSeasonYear.Location = New System.Drawing.Point(251, 56) + Me.lblSeasonYear.Name = "lblSeasonYear" + Me.lblSeasonYear.Size = New System.Drawing.Size(32, 13) + Me.lblSeasonYear.TabIndex = 3 + Me.lblSeasonYear.Text = "Year:" + ' + 'lblStationSeasonProb + ' + Me.lblStationSeasonProb.AutoSize = True + Me.lblStationSeasonProb.Location = New System.Drawing.Point(250, 13) + Me.lblStationSeasonProb.Name = "lblStationSeasonProb" + Me.lblStationSeasonProb.Size = New System.Drawing.Size(43, 13) + Me.lblStationSeasonProb.TabIndex = 1 + Me.lblStationSeasonProb.Text = "Station:" + ' + 'ucrReceiverSeasonPlantingDay + ' + Me.ucrReceiverSeasonPlantingDay.AutoSize = True + Me.ucrReceiverSeasonPlantingDay.frmParent = Nothing + Me.ucrReceiverSeasonPlantingDay.Location = New System.Drawing.Point(250, 116) + Me.ucrReceiverSeasonPlantingDay.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverSeasonPlantingDay.Name = "ucrReceiverSeasonPlantingDay" + Me.ucrReceiverSeasonPlantingDay.Selector = Nothing + Me.ucrReceiverSeasonPlantingDay.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverSeasonPlantingDay.strNcFilePath = "" + Me.ucrReceiverSeasonPlantingDay.TabIndex = 6 + Me.ucrReceiverSeasonPlantingDay.ucrSelector = Nothing + ' + 'ucrReceiverSeasonYear + ' + Me.ucrReceiverSeasonYear.AutoSize = True + Me.ucrReceiverSeasonYear.frmParent = Nothing + Me.ucrReceiverSeasonYear.Location = New System.Drawing.Point(249, 73) + Me.ucrReceiverSeasonYear.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverSeasonYear.Name = "ucrReceiverSeasonYear" + Me.ucrReceiverSeasonYear.Selector = Nothing + Me.ucrReceiverSeasonYear.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverSeasonYear.strNcFilePath = "" + Me.ucrReceiverSeasonYear.TabIndex = 4 + Me.ucrReceiverSeasonYear.ucrSelector = Nothing + ' + 'ucrReceiverSeasonStationProb + ' + Me.ucrReceiverSeasonStationProb.AutoSize = True + Me.ucrReceiverSeasonStationProb.frmParent = Nothing + Me.ucrReceiverSeasonStationProb.Location = New System.Drawing.Point(248, 30) + Me.ucrReceiverSeasonStationProb.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverSeasonStationProb.Name = "ucrReceiverSeasonStationProb" + Me.ucrReceiverSeasonStationProb.Selector = Nothing + Me.ucrReceiverSeasonStationProb.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverSeasonStationProb.strNcFilePath = "" + Me.ucrReceiverSeasonStationProb.TabIndex = 2 + Me.ucrReceiverSeasonStationProb.ucrSelector = Nothing + ' + 'ucrSelectorSeasonStartProp + ' + Me.ucrSelectorSeasonStartProp.AutoSize = True + Me.ucrSelectorSeasonStartProp.bDropUnusedFilterLevels = False + Me.ucrSelectorSeasonStartProp.bShowHiddenColumns = False + Me.ucrSelectorSeasonStartProp.bUseCurrentFilter = True + Me.ucrSelectorSeasonStartProp.Location = New System.Drawing.Point(13, 10) + Me.ucrSelectorSeasonStartProp.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorSeasonStartProp.Name = "ucrSelectorSeasonStartProp" + Me.ucrSelectorSeasonStartProp.Size = New System.Drawing.Size(151, 185) + Me.ucrSelectorSeasonStartProp.TabIndex = 0 + ' + 'sdgDefineAnnualRainfall + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(547, 503) + Me.Controls.Add(Me.ucrBase) + Me.Controls.Add(Me.tbSummaries) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "sdgDefineAnnualRainfall" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Define Elements" + Me.tbAnnualTempSummaries.ResumeLayout(False) + Me.tbAnnualTempSummaries.PerformLayout() + Me.tbMonthlyTemp.ResumeLayout(False) + Me.tbMonthlyTemp.PerformLayout() + Me.tbSummaries.ResumeLayout(False) + Me.tbAnnualRainfall.ResumeLayout(False) + Me.tbAnnualRainfall.PerformLayout() + Me.tbCropSuccessProp.ResumeLayout(False) + Me.tbCropSuccessProp.PerformLayout() + Me.tbSeasonStartProb.ResumeLayout(False) + Me.tbSeasonStartProb.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents ucrReceiverPlantingDayCondition As ucrReceiverSingle + Friend WithEvents lblMinMinAnnual As Label + Friend WithEvents ucrReceiverMinMinAnnual As ucrReceiverSingle + Friend WithEvents lblMeanAnnualTemp As Label + Friend WithEvents lblMaxMinAnnual As Label + Friend WithEvents lblAnnualTempYear As Label + Friend WithEvents lblAnnualTempStation As Label + Friend WithEvents lblMaxMaxAnnual As Label + Friend WithEvents ucrSelecetorMonthlyTemp As ucrSelectorByDataFrame + Friend WithEvents lblMinMaxAnnual As Label + Friend WithEvents lblMeanMaxAnnual As Label + Friend WithEvents ucrReceiverMaxMaxAnnual As ucrReceiverSingle + Friend WithEvents ucrReceiverMeanMaxAnnual As ucrReceiverSingle + Friend WithEvents ucrReceiverMinMaxAnnual As ucrReceiverSingle + Friend WithEvents ucrReceiverMaxMinAnnual As ucrReceiverSingle + Friend WithEvents ucrReceiverMeanAnnual As ucrReceiverSingle + Friend WithEvents ucrReceiverAnnualTempYr As ucrReceiverSingle + Friend WithEvents ucrReceiverAnnualTempStation As ucrReceiverSingle + Friend WithEvents tbAnnualTempSummaries As TabPage + Friend WithEvents ucrSelectorAnnualTemp As ucrSelectorByDataFrame + Friend WithEvents lblPlantingDayCond As Label + Friend WithEvents tbMonthlyTemp As TabPage + Friend WithEvents lblMonth As Label + Friend WithEvents ucrReceiverMonthMonthly As ucrReceiverSingle + Friend WithEvents lblMinMInMonthly As Label + Friend WithEvents ucrReceiverMinMinMonthly As ucrReceiverSingle + Friend WithEvents lblMeanMinMonthly As Label + Friend WithEvents lblMaxMinMonthly As Label + Friend WithEvents lblYearMonthTemp As Label + Friend WithEvents lblStationMonthTemp As Label + Friend WithEvents lblMaxMaxMonthly As Label + Friend WithEvents lblMinMaxMonthly As Label + Friend WithEvents lblMeanMaxMonthly As Label + Friend WithEvents ucrReceiverMaxMaxMonthly As ucrReceiverSingle + Friend WithEvents ucrReceiverMeanmaxMonthly As ucrReceiverSingle + Friend WithEvents ucrReceiverMinMaxMonthly As ucrReceiverSingle + Friend WithEvents ucrReceiverMaxMinMonthly As ucrReceiverSingle + Friend WithEvents ucrReceiverMeanminMontly As ucrReceiverSingle + Friend WithEvents ucrReceiverYearMonthly As ucrReceiverSingle + Friend WithEvents ucrReceiverMonthlyTemp As ucrReceiverSingle + Friend WithEvents ucrBase As ucrButtonsSubdialogue + Friend WithEvents lblSeasonPlantingDay As Label + Friend WithEvents lblRainyDaysYear As Label + Friend WithEvents ucrReceiverRainDaysYear As ucrReceiverSingle + Friend WithEvents lblNoRainDaysSeason As Label + Friend WithEvents lblSeasonalLength As Label + Friend WithEvents lblSeasonalRain As Label + Friend WithEvents lblAnnualRain As Label + Friend WithEvents lblEndSeasonDate As Label + Friend WithEvents lblEndSeasonDOY As Label + Friend WithEvents lblEndRainDate As Label + Friend WithEvents lblEndRainsDOY As Label + Friend WithEvents lblStartRainDate As Label + Friend WithEvents lblStartRainDOY As Label + Friend WithEvents lblYear As Label + Friend WithEvents lblStation As Label + Friend WithEvents ucrReceiverStartRainDate As ucrReceiverSingle + Friend WithEvents ucrReceiverStartRainDOY As ucrReceiverSingle + Friend WithEvents ucrReceiverYear As ucrReceiverSingle + Friend WithEvents ucrReceiverStation As ucrReceiverSingle + Friend WithEvents ucrReceiverEndSeasonDate As ucrReceiverSingle + Friend WithEvents ucrReceiverEndSeasonDOY As ucrReceiverSingle + Friend WithEvents ucrReceiverEndRainsDOY As ucrReceiverSingle + Friend WithEvents tbSummaries As TabControl + Friend WithEvents tbAnnualRainfall As TabPage + Friend WithEvents ucrReceiverEndRainsDate As ucrReceiverSingle + Friend WithEvents ucrReceiverSeasonalLength As ucrReceiverSingle + Friend WithEvents ucrReceiverRainDaysSeason As ucrReceiverSingle + Friend WithEvents ucrReceiverSeasonalRain As ucrReceiverSingle + Friend WithEvents ucrReceiverAnnualRain As ucrReceiverSingle + Friend WithEvents ucrSelectorDefineAnnualRain As ucrSelectorByDataFrame + Friend WithEvents tbCropSuccessProp As TabPage + Friend WithEvents lblPlantingLength As Label + Friend WithEvents ucrReceiverPlantingLenghth As ucrReceiverSingle + Friend WithEvents lblPlantingDay As Label + Friend WithEvents lblProbSuccess As Label + Friend WithEvents lblTotalRain As Label + Friend WithEvents lblCropStation As Label + Friend WithEvents ucrReceiverPropSuccess As ucrReceiverSingle + Friend WithEvents ucrReceiverPlantingDay As ucrReceiverSingle + Friend WithEvents ucrReceiverTotalRain As ucrReceiverSingle + Friend WithEvents ucrReceiverStationCrop As ucrReceiverSingle + Friend WithEvents ucrSelectorCropProp As ucrSelectorByDataFrame + Friend WithEvents tbSeasonStartProb As TabPage + Friend WithEvents lblSeasonYear As Label + Friend WithEvents lblStationSeasonProb As Label + Friend WithEvents ucrReceiverSeasonPlantingDay As ucrReceiverSingle + Friend WithEvents ucrReceiverSeasonYear As ucrReceiverSingle + Friend WithEvents ucrReceiverSeasonStationProb As ucrReceiverSingle + Friend WithEvents ucrSelectorSeasonStartProp As ucrSelectorByDataFrame +End Class diff --git a/instat/sdgDefineAnnualRainfall.resx b/instat/sdgDefineAnnualRainfall.resx new file mode 100644 index 00000000000..1af7de150c9 --- /dev/null +++ b/instat/sdgDefineAnnualRainfall.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/instat/sdgDefineAnnualRainfall.vb b/instat/sdgDefineAnnualRainfall.vb new file mode 100644 index 00000000000..f5b9c623b36 --- /dev/null +++ b/instat/sdgDefineAnnualRainfall.vb @@ -0,0 +1,319 @@ +'R-Instat +' Copyright (C) 2015-2017 +' +' This program is free software: you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation, either version 3 of the License, or +' (at your option) any later version. +' +' This program is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. +' +' You should have received a copy of the GNU General Public License +' along with this program. If not, see . + +Imports instat.Translations +Public Class sdgDefineAnnualRainfall + + Public clsReforMattAnnualSummariesFunction, clsExportRinstatToBucketFunction, clsReformatCropSuccessFunction, clsReformatSeasonStartFunction, clsReformatTempSummariesFunction, clsReformatMonthlyTempSummaries As New RFunction + Public clsRsyntax As New RSyntax + Public bControlsInitialised As Boolean = False + + Private Sub sdgDefineAnnualRainfall_Load(sender As Object, e As EventArgs) Handles MyBase.Load + autoTranslate(Me) + End Sub + + Public Sub InitialiseControls() + ucrSelectorDefineAnnualRain.SetParameter(New RParameter("data", 0)) + ucrSelectorDefineAnnualRain.SetParameterIsrfunction() + + ucrSelectorAnnualTemp.SetParameter(New RParameter("data", 0)) + ucrSelectorAnnualTemp.SetParameterIsrfunction() + + ucrSelectorCropProp.SetParameter(New RParameter("data", 0)) + ucrSelectorCropProp.SetParameterIsrfunction() + + ucrSelectorSeasonStartProp.SetParameter(New RParameter("data", 0)) + ucrSelectorSeasonStartProp.SetParameterIsrfunction() + + ucrSelecetorMonthlyTemp.SetParameter(New RParameter("data", 0)) + ucrSelecetorMonthlyTemp.SetParameterIsrfunction() + + ucrReceiverStation.SetParameter(New RParameter("station_col", 1)) + ucrReceiverStation.Selector = ucrSelectorDefineAnnualRain + ucrReceiverStation.SetParameterIsString() + + ucrReceiverYear.SetParameter(New RParameter("year_col", 2)) + ucrReceiverYear.Selector = ucrSelectorDefineAnnualRain + ucrReceiverYear.SetParameterIsString() + + ucrReceiverStartRainDOY.SetParameter(New RParameter("start_rains_doy_col", 3)) + ucrReceiverStartRainDOY.Selector = ucrSelectorDefineAnnualRain + ucrReceiverStartRainDOY.SetParameterIsString() + + ucrReceiverStartRainDate.SetParameter(New RParameter("start_rains_date_col", 4)) + ucrReceiverStartRainDate.Selector = ucrSelectorDefineAnnualRain + ucrReceiverStartRainDate.SetParameterIsString() + + ucrReceiverEndRainsDOY.SetParameter(New RParameter("end_rains_doy_col", 5)) + ucrReceiverEndRainsDOY.Selector = ucrSelectorDefineAnnualRain + ucrReceiverEndRainsDOY.SetParameterIsString() + + ucrReceiverEndRainsDate.SetParameter(New RParameter("end_rains_date_col", 6)) + ucrReceiverEndRainsDate.Selector = ucrSelectorDefineAnnualRain + ucrReceiverEndRainsDate.SetParameterIsString() + + ucrReceiverEndSeasonDOY.SetParameter(New RParameter("end_season_doy_col", 7)) + ucrReceiverEndSeasonDOY.Selector = ucrSelectorDefineAnnualRain + ucrReceiverEndSeasonDOY.SetParameterIsString() + + ucrReceiverEndSeasonDate.SetParameter(New RParameter("end_season_date_col", 8)) + ucrReceiverEndSeasonDate.Selector = ucrSelectorDefineAnnualRain + ucrReceiverEndSeasonDate.SetParameterIsString() + + ucrReceiverSeasonalRain.SetParameter(New RParameter("seasonal_rain_col", 9)) + ucrReceiverSeasonalRain.Selector = ucrSelectorDefineAnnualRain + ucrReceiverSeasonalRain.SetParameterIsString() + + ucrReceiverRainDaysSeason.SetParameter(New RParameter("n_seasonal_rain_col", 10)) + ucrReceiverRainDaysSeason.Selector = ucrSelectorDefineAnnualRain + ucrReceiverRainDaysSeason.SetParameterIsString() + + ucrReceiverRainDaysYear.SetParameter(New RParameter("n_rain_col", 11)) + ucrReceiverRainDaysYear.Selector = ucrSelectorDefineAnnualRain + ucrReceiverRainDaysYear.SetParameterIsString() + + ucrReceiverSeasonalLength.SetParameter(New RParameter("season_length_col", 12)) + ucrReceiverSeasonalLength.Selector = ucrSelectorDefineAnnualRain + ucrReceiverSeasonalLength.SetParameterIsString() + + ucrReceiverAnnualRain.SetParameter(New RParameter("annual_rain_col", 13)) + ucrReceiverAnnualRain.Selector = ucrSelectorDefineAnnualRain + ucrReceiverAnnualRain.SetParameterIsString() + + ucrReceiverStationCrop.SetParameter(New RParameter("station_col", 1)) + ucrReceiverStationCrop.Selector = ucrSelectorCropProp + ucrReceiverStationCrop.SetParameterIsString() + + ucrReceiverTotalRain.SetParameter(New RParameter("total_rain_col", 2)) + ucrReceiverTotalRain.Selector = ucrSelectorCropProp + ucrReceiverTotalRain.SetParameterIsString() + + ucrReceiverPlantingDay.SetParameter(New RParameter("plant_day_col", 3)) + ucrReceiverPlantingDay.Selector = ucrSelectorCropProp + ucrReceiverPlantingDay.SetParameterIsString() + + ucrReceiverPlantingLenghth.SetParameter(New RParameter("plant_length_col", 4)) + ucrReceiverPlantingLenghth.Selector = ucrSelectorCropProp + ucrReceiverPlantingLenghth.SetParameterIsString() + + ucrReceiverPropSuccess.SetParameter(New RParameter("prop_success_col", 5)) + ucrReceiverPropSuccess.Selector = ucrSelectorCropProp + ucrReceiverPropSuccess.SetParameterIsString() + + 'Season start + ucrReceiverSeasonStationProb.SetParameter(New RParameter("station_col", 1)) + ucrReceiverSeasonStationProb.Selector = ucrSelectorSeasonStartProp + ucrReceiverSeasonStationProb.SetParameterIsString() + + ucrReceiverSeasonYear.SetParameter(New RParameter("year_col", 2)) + ucrReceiverSeasonYear.Selector = ucrSelectorSeasonStartProp + ucrReceiverSeasonYear.SetParameterIsString() + + + ucrReceiverSeasonPlantingDay.SetParameter(New RParameter("plant_day_col", 3)) + ucrReceiverSeasonPlantingDay.Selector = ucrSelectorSeasonStartProp + ucrReceiverSeasonPlantingDay.SetParameterIsString() + + + ucrReceiverPlantingDayCondition.SetParameter(New RParameter("plant_day_cond_col", 5)) + ucrReceiverPlantingDayCondition.Selector = ucrSelectorSeasonStartProp + ucrReceiverPlantingDayCondition.SetParameterIsString() + + 'Annual Temp + ucrReceiverAnnualTempStation.SetParameter(New RParameter("station_col", 1)) + ucrReceiverAnnualTempStation.Selector = ucrSelectorAnnualTemp + ucrReceiverAnnualTempStation.SetParameterIsString() + + ucrReceiverAnnualTempYr.SetParameter(New RParameter("year_col", 2)) + ucrReceiverAnnualTempYr.Selector = ucrSelectorAnnualTemp + ucrReceiverAnnualTempYr.SetParameterIsString() + + ucrReceiverMeanAnnual.SetParameter(New RParameter("mean_tmin_col", 3)) + ucrReceiverMeanAnnual.Selector = ucrSelectorAnnualTemp + ucrReceiverMeanAnnual.SetParameterIsString() + + ucrReceiverMinMinAnnual.SetParameter(New RParameter("min_tmin_col", 4)) + ucrReceiverMinMinAnnual.Selector = ucrSelectorAnnualTemp + ucrReceiverMinMinAnnual.SetParameterIsString() + + ucrReceiverMaxMinAnnual.SetParameter(New RParameter("max_tmin_col", 5)) + ucrReceiverMaxMinAnnual.Selector = ucrSelectorAnnualTemp + ucrReceiverMaxMinAnnual.SetParameterIsString() + + ucrReceiverMeanMaxAnnual.SetParameter(New RParameter("mean_tmax_col", 6)) + ucrReceiverMeanMaxAnnual.Selector = ucrSelectorAnnualTemp + ucrReceiverMeanMaxAnnual.SetParameterIsString() + + ucrReceiverMinMaxAnnual.SetParameter(New RParameter("min_tmax_col", 7)) + ucrReceiverMinMaxAnnual.Selector = ucrSelectorAnnualTemp + ucrReceiverMinMaxAnnual.SetParameterIsString() + + ucrReceiverMaxMaxAnnual.SetParameter(New RParameter("max_tmax_col", 8)) + ucrReceiverMaxMaxAnnual.Selector = ucrSelectorAnnualTemp + ucrReceiverMaxMaxAnnual.SetParameterIsString() + + 'Monthly Temp + ucrReceiverMonthlyTemp.SetParameter(New RParameter("station_col", 1)) + ucrReceiverMonthlyTemp.Selector = ucrSelecetorMonthlyTemp + ucrReceiverMonthlyTemp.SetParameterIsString() + + ucrReceiverYearMonthly.SetParameter(New RParameter("year_col", 2)) + ucrReceiverYearMonthly.Selector = ucrSelecetorMonthlyTemp + ucrReceiverYearMonthly.SetParameterIsString() + + ucrReceiverMonthMonthly.SetParameter(New RParameter("month_col", 3)) + ucrReceiverMonthMonthly.Selector = ucrSelecetorMonthlyTemp + ucrReceiverMonthMonthly.SetParameterIsString() + + + ucrReceiverMeanminMontly.SetParameter(New RParameter("mean_tmin_col", 4)) + ucrReceiverMeanminMontly.Selector = ucrSelecetorMonthlyTemp + ucrReceiverMeanminMontly.SetParameterIsString() + + ucrReceiverMinMinMonthly.SetParameter(New RParameter("min_tmin_col", 5)) + ucrReceiverMinMinMonthly.Selector = ucrSelecetorMonthlyTemp + ucrReceiverMinMinMonthly.SetParameterIsString() + + ucrReceiverMaxMinMonthly.SetParameter(New RParameter("max_tmin_col", 6)) + ucrReceiverMaxMinMonthly.Selector = ucrSelecetorMonthlyTemp + ucrReceiverMaxMinMonthly.SetParameterIsString() + + ucrReceiverMeanmaxMonthly.SetParameter(New RParameter("mean_tmax_col", 7)) + ucrReceiverMeanmaxMonthly.Selector = ucrSelecetorMonthlyTemp + ucrReceiverMeanmaxMonthly.SetParameterIsString() + + ucrReceiverMinMaxMonthly.SetParameter(New RParameter("min_tmax_col", 8)) + ucrReceiverMinMaxMonthly.Selector = ucrSelecetorMonthlyTemp + ucrReceiverMinMaxMonthly.SetParameterIsString() + + ucrReceiverMaxMaxMonthly.SetParameter(New RParameter("max_tmax_col", 9)) + ucrReceiverMaxMaxMonthly.Selector = ucrSelecetorMonthlyTemp + ucrReceiverMaxMaxMonthly.SetParameterIsString() + + End Sub + Public Sub SetRCode(clsNewReforMattAnnualSummaries As RFunction, clsNewExportRinstatToBucketFunction As RFunction, clsNewReformatCropSuccessFunction As RFunction, clsNewReformatMonthlyTempSummaries As RFunction, clsNewReformatSeasonStartFunction As RFunction, clsNewReformatTempSummariesFunction As RFunction, Optional bReset As Boolean = False) + If Not bControlsInitialised Then + InitialiseControls() + End If + + clsReforMattAnnualSummariesFunction = clsNewReforMattAnnualSummaries + clsReformatCropSuccessFunction = clsNewReformatCropSuccessFunction + clsReformatMonthlyTempSummaries = clsNewReformatMonthlyTempSummaries + clsReformatSeasonStartFunction = clsNewReformatSeasonStartFunction + clsReformatTempSummariesFunction = clsNewReformatTempSummariesFunction + clsExportRinstatToBucketFunction = clsNewExportRinstatToBucketFunction + + ucrReceiverAnnualRain.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverEndRainsDate.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverEndRainsDOY.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverEndSeasonDate.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverEndSeasonDOY.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverRainDaysSeason.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverRainDaysYear.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverSeasonalLength.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverSeasonalRain.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverStartRainDate.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverStartRainDOY.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverStation.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrReceiverYear.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + ucrSelectorDefineAnnualRain.SetRCode(clsReforMattAnnualSummariesFunction, bReset) + + ucrReceiverStationCrop.SetRCode(clsReformatCropSuccessFunction, bReset) + ucrReceiverTotalRain.SetRCode(clsReformatCropSuccessFunction, bReset) + ucrReceiverPlantingDay.SetRCode(clsReformatCropSuccessFunction, bReset) + ucrReceiverPlantingLenghth.SetRCode(clsReformatCropSuccessFunction, bReset) + ucrReceiverPropSuccess.SetRCode(clsReformatCropSuccessFunction, bReset) + ucrSelectorCropProp.SetRCode(clsReformatCropSuccessFunction, bReset) + + ucrReceiverSeasonStationProb.SetRCode(clsReformatSeasonStartFunction, bReset) + ucrReceiverSeasonYear.SetRCode(clsReformatSeasonStartFunction, bReset) + ucrReceiverSeasonPlantingDay.SetRCode(clsReformatSeasonStartFunction, bReset) + ucrReceiverPlantingDayCondition.SetRCode(clsReformatSeasonStartFunction, bReset) + ucrSelectorSeasonStartProp.SetRCode(clsReformatSeasonStartFunction, bReset) + + ucrReceiverAnnualTempStation.SetRCode(clsReformatTempSummariesFunction, bReset) + ucrReceiverAnnualTempYr.SetRCode(clsReformatTempSummariesFunction, bReset) + ucrReceiverMeanAnnual.SetRCode(clsReformatTempSummariesFunction, bReset) + ucrReceiverMinMaxAnnual.SetRCode(clsReformatTempSummariesFunction, bReset) + ucrReceiverMaxMinAnnual.SetRCode(clsReformatTempSummariesFunction, bReset) + ucrReceiverMaxMaxAnnual.SetRCode(clsReformatTempSummariesFunction, bReset) + ucrReceiverMinMinAnnual.SetRCode(clsReformatTempSummariesFunction, bReset) + ucrReceiverMeanMaxAnnual.SetRCode(clsReformatTempSummariesFunction, bReset) + ucrSelectorAnnualTemp.SetRCode(clsReformatTempSummariesFunction, bReset) + + ucrReceiverMonthlyTemp.SetRCode(clsReformatMonthlyTempSummaries, bReset) + ucrReceiverYearMonthly.SetRCode(clsReformatMonthlyTempSummaries, bReset) + ucrReceiverMonthMonthly.SetRCode(clsReformatMonthlyTempSummaries, bReset) + ucrReceiverMeanmaxMonthly.SetRCode(clsReformatMonthlyTempSummaries, bReset) + ucrReceiverMinMaxMonthly.SetRCode(clsReformatMonthlyTempSummaries, bReset) + ucrReceiverMaxMinMonthly.SetRCode(clsReformatMonthlyTempSummaries, bReset) + ucrReceiverMaxMaxMonthly.SetRCode(clsReformatMonthlyTempSummaries, bReset) + ucrReceiverMinMinMonthly.SetRCode(clsReformatMonthlyTempSummaries, bReset) + ucrReceiverMeanminMontly.SetRCode(clsReformatMonthlyTempSummaries, bReset) + ucrSelecetorMonthlyTemp.SetRCode(clsReformatMonthlyTempSummaries, bReset) + End Sub + + Private Sub ucrReceiverAnnualRain_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrReceiverAnnualRain.ControlValueChanged, ucrReceiverEndRainsDate.ControlValueChanged, ucrReceiverEndRainsDOY.ControlValueChanged, ucrReceiverEndSeasonDate.ControlValueChanged, + ucrReceiverEndSeasonDOY.ControlValueChanged, ucrReceiverRainDaysSeason.ControlValueChanged, ucrReceiverRainDaysYear.ControlValueChanged, ucrReceiverSeasonalLength.ControlValueChanged, ucrReceiverSeasonalRain.ControlValueChanged, + ucrReceiverStartRainDate.ControlValueChanged, ucrReceiverStartRainDOY.ControlValueChanged, ucrReceiverStation.ControlValueChanged, ucrReceiverYear.ControlValueChanged + + If Not (ucrReceiverAnnualRain.IsEmpty AndAlso ucrReceiverEndRainsDate.IsEmpty AndAlso ucrReceiverEndRainsDOY.IsEmpty AndAlso ucrReceiverSeasonalLength.IsEmpty AndAlso ucrReceiverSeasonalRain.IsEmpty AndAlso + ucrReceiverEndSeasonDate.IsEmpty AndAlso ucrReceiverEndSeasonDOY.IsEmpty AndAlso ucrReceiverRainDaysSeason.IsEmpty AndAlso ucrReceiverRainDaysYear.IsEmpty AndAlso ucrReceiverStartRainDate.IsEmpty AndAlso + ucrReceiverStartRainDOY.IsEmpty AndAlso ucrReceiverStation.IsEmpty AndAlso ucrReceiverYear.IsEmpty) Then + clsExportRinstatToBucketFunction.AddParameter("annual_rainfall_data", clsRFunctionParameter:=clsReforMattAnnualSummariesFunction, iPosition:=1) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("annual_rainfall_data") + End If + End Sub + + Private Sub ucrReceiverStationCrop_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrReceiverStationCrop.ControlValueChanged, ucrReceiverTotalRain.ControlValueChanged, ucrReceiverPlantingDay.ControlValueChanged, ucrReceiverPlantingLenghth.ControlValueChanged, + ucrReceiverPropSuccess.ControlValueChanged + + If Not (ucrReceiverStationCrop.IsEmpty AndAlso ucrReceiverTotalRain.IsEmpty AndAlso ucrReceiverPlantingDay.IsEmpty AndAlso ucrReceiverPlantingLenghth.IsEmpty AndAlso ucrReceiverPropSuccess.IsEmpty) Then + clsExportRinstatToBucketFunction.AddParameter("crop_success_data", clsRFunctionParameter:=clsReformatCropSuccessFunction, iPosition:=2) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("crop_success_data") + End If + End Sub + + Private Sub ucrReceiverSeasonStationProb_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrReceiverSeasonStationProb.ControlValueChanged, ucrReceiverSeasonPlantingDay.ControlValueChanged, ucrReceiverPlantingDayCondition.ControlValueChanged, ucrReceiverSeasonYear.ControlValueChanged + + If Not (ucrReceiverSeasonStationProb.IsEmpty AndAlso ucrReceiverSeasonPlantingDay.IsEmpty AndAlso ucrReceiverPlantingDayCondition.IsEmpty AndAlso ucrReceiverSeasonYear.IsEmpty) Then + clsExportRinstatToBucketFunction.AddParameter("season_start_data", clsRFunctionParameter:=clsReformatSeasonStartFunction, iPosition:=3) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("season_start_data") + End If + End Sub + + Private Sub ucrReceiverAnnualTempStation_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrReceiverAnnualTempStation.ControlValueChanged, ucrReceiverAnnualTempYr.ControlValueChanged, ucrReceiverMaxMaxAnnual.ControlValueChanged, ucrReceiverMaxMinAnnual.ControlValueChanged, ucrReceiverMeanAnnual.ControlValueChanged, ucrReceiverMeanMaxAnnual.ControlValueChanged, ucrReceiverMinMaxAnnual.ControlValueChanged, ucrReceiverMinMinAnnual.ControlValueChanged + If Not (ucrReceiverAnnualTempStation.IsEmpty AndAlso ucrReceiverAnnualTempYr.IsEmpty AndAlso ucrReceiverMaxMaxAnnual.IsEmpty AndAlso + ucrReceiverMaxMinAnnual.IsEmpty AndAlso ucrReceiverMeanAnnual.IsEmpty AndAlso ucrReceiverMeanMaxAnnual.IsEmpty AndAlso ucrReceiverMinMaxAnnual.IsEmpty AndAlso ucrReceiverMinMinAnnual.IsEmpty) Then + clsExportRinstatToBucketFunction.AddParameter("annual_temperature_data", clsRFunctionParameter:=clsReformatTempSummariesFunction, iPosition:=4) + Else + + clsExportRinstatToBucketFunction.RemoveParameterByName("annual_temperature_data") + End If + End Sub + + Private Sub ucrReceiverMonthlyTemp_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrReceiverMonthlyTemp.ControlValueChanged, ucrReceiverYearMonthly.ControlValueChanged, ucrReceiverMonthMonthly.ControlValueChanged, ucrReceiverMeanmaxMonthly.ControlValueChanged, ucrReceiverMeanminMontly.ControlValueChanged, ucrReceiverMinMaxMonthly.ControlValueChanged, ucrReceiverMinMinMonthly.ControlValueChanged, ucrReceiverMaxMinMonthly.ControlValueChanged, ucrReceiverMaxMaxMonthly.ControlValueChanged + If Not (ucrReceiverMonthlyTemp.IsEmpty AndAlso ucrReceiverYearMonthly.IsEmpty AndAlso ucrReceiverMonthMonthly.IsEmpty AndAlso ucrReceiverMeanmaxMonthly.IsEmpty AndAlso ucrReceiverMeanminMontly.IsEmpty AndAlso ucrReceiverMinMaxMonthly.IsEmpty AndAlso ucrReceiverMinMinMonthly.IsEmpty AndAlso ucrReceiverMaxMinMonthly.IsEmpty AndAlso ucrReceiverMaxMaxMonthly.IsEmpty) Then + clsExportRinstatToBucketFunction.AddParameter("monthly_temperature_data", clsRFunctionParameter:=clsReformatMonthlyTempSummaries, iPosition:=5) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("monthly_temperature_data") + End If + End Sub + +End Class \ No newline at end of file diff --git a/instat/static/InstatObject/R/data_object_R6.R b/instat/static/InstatObject/R/data_object_R6.R index a81b21fa1db..bd9af123a80 100644 --- a/instat/static/InstatObject/R/data_object_R6.R +++ b/instat/static/InstatObject/R/data_object_R6.R @@ -670,7 +670,7 @@ DataSheet$set("public", "add_columns_to_data", function(col_name = "", col_data, if(require_correct_length) stop("Length of new column must be divisible by the length of the data frame") else curr_col <- rep(curr_col, length.out = self$get_data_frame_length()) } - if(use_col_name_as_prefix) curr_col_name = self$get_next_default_column_name(col_name) + if(use_col_name_as_prefix) curr_col_name = self$get_next_default_column_name(col_name[i]) else curr_col_name = col_name[[i]] curr_col_name <- make.names(iconv(curr_col_name, to = "ASCII//TRANSLIT", sub = ".")) new_col_names <- c(new_col_names, curr_col_name) diff --git a/instat/translations/rInstatTranslations.db b/instat/translations/rInstatTranslations.db index 7ec022bba69..8cfa1d7f5a3 100644 Binary files a/instat/translations/rInstatTranslations.db and b/instat/translations/rInstatTranslations.db differ