diff --git a/instat/dlgExportClimaticDefinitions.Designer.vb b/instat/dlgExportClimaticDefinitions.Designer.vb index a699e015eac..feadbea35c8 100644 --- a/instat/dlgExportClimaticDefinitions.Designer.vb +++ b/instat/dlgExportClimaticDefinitions.Designer.vb @@ -646,7 +646,7 @@ Partial Class dlgExportClimaticDefinitions Me.MinimizeBox = False Me.Name = "dlgExportClimaticDefinitions" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen - Me.Text = "Export Climatic Definitions" + Me.Text = "Export to Google Buckets" Me.grpSummaries.ResumeLayout(False) Me.grpSummaries.PerformLayout() Me.ResumeLayout(False) diff --git a/instat/dlgImportOpenAppBuilder.Designer.vb b/instat/dlgImportOpenAppBuilder.Designer.vb new file mode 100644 index 00000000000..22b34703456 --- /dev/null +++ b/instat/dlgImportOpenAppBuilder.Designer.vb @@ -0,0 +1,53 @@ + _ +Partial Class dlgImportOpenAppBuilder + 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.ucrBase = New instat.ucrButtons() + Me.SuspendLayout() + ' + 'ucrBase + ' + Me.ucrBase.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.ucrBase.Location = New System.Drawing.Point(19, 276) + Me.ucrBase.Name = "ucrBase" + Me.ucrBase.Size = New System.Drawing.Size(410, 52) + Me.ucrBase.TabIndex = 0 + ' + 'dlgImportOpenAppBuilder + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(450, 341) + Me.Controls.Add(Me.ucrBase) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "dlgImportOpenAppBuilder" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Import From OpenAppBuilder" + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents ucrBase As ucrButtons +End Class diff --git a/instat/dlgImportOpenAppBuilder.resx b/instat/dlgImportOpenAppBuilder.resx new file mode 100644 index 00000000000..1af7de150c9 --- /dev/null +++ b/instat/dlgImportOpenAppBuilder.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/dlgImportOpenAppBuilder.vb b/instat/dlgImportOpenAppBuilder.vb new file mode 100644 index 00000000000..88073b55296 --- /dev/null +++ b/instat/dlgImportOpenAppBuilder.vb @@ -0,0 +1,3 @@ +Public Class dlgImportOpenAppBuilder + +End Class \ No newline at end of file diff --git a/instat/frmMain.Designer.vb b/instat/frmMain.Designer.vb index 4b5909ef8c6..a7bf5ad1fa8 100644 --- a/instat/frmMain.Designer.vb +++ b/instat/frmMain.Designer.vb @@ -185,6 +185,7 @@ Partial Class frmMain Me.mnuHelpGlossary = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpLicence = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator29 = New System.Windows.Forms.ToolStripSeparator() + Me.RInstatResourcesSiteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpPackagesDocumentation = New System.Windows.Forms.ToolStripMenuItem() Me.OpenFile = New System.Windows.Forms.OpenFileDialog() Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator() @@ -439,6 +440,7 @@ Partial Class frmMain Me.mnuFileImportFromPostgres = New System.Windows.Forms.ToolStripMenuItem() Me.mnuFileImportFromRapidPro = New System.Windows.Forms.ToolStripMenuItem() Me.mnuFileImportandTidyNetCDFFile = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuImportFromOpenAppBuilder = New System.Windows.Forms.ToolStripMenuItem() Me.mnuFileConvert = New System.Windows.Forms.ToolStripMenuItem() Me.tlSeparatorFile = New System.Windows.Forms.ToolStripSeparator() Me.mnuFileExport = New System.Windows.Forms.ToolStripMenuItem() @@ -700,7 +702,6 @@ Partial Class frmMain Me.mnuDataFrameMetadata = New System.Windows.Forms.ToolStripMenuItem() Me.mnuScriptFile = New System.Windows.Forms.ToolStripMenuItem() Me.mnuLogFile = New System.Windows.Forms.ToolStripMenuItem() - Me.RInstatResourcesSiteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.stsStrip.SuspendLayout() Me.Tool_strip.SuspendLayout() Me.mnuBar.SuspendLayout() @@ -1559,42 +1560,42 @@ Partial Class frmMain 'mnuHelpHelpIntroduction ' Me.mnuHelpHelpIntroduction.Name = "mnuHelpHelpIntroduction" - Me.mnuHelpHelpIntroduction.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpHelpIntroduction.Size = New System.Drawing.Size(230, 22) Me.mnuHelpHelpIntroduction.Text = "Introduction..." ' 'mnuHelpFAQ ' Me.mnuHelpFAQ.Name = "mnuHelpFAQ" - Me.mnuHelpFAQ.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpFAQ.Size = New System.Drawing.Size(230, 22) Me.mnuHelpFAQ.Text = "FAQ..." ' 'mnuHelpGetingStarted ' Me.mnuHelpGetingStarted.Name = "mnuHelpGetingStarted" - Me.mnuHelpGetingStarted.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpGetingStarted.Size = New System.Drawing.Size(230, 22) Me.mnuHelpGetingStarted.Text = "Getting Started..." ' 'mnuHelpData ' Me.mnuHelpData.Name = "mnuHelpData" - Me.mnuHelpData.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpData.Size = New System.Drawing.Size(230, 22) Me.mnuHelpData.Text = "Data..." ' 'ToolStripSeparator28 ' Me.ToolStripSeparator28.Name = "ToolStripSeparator28" - Me.ToolStripSeparator28.Size = New System.Drawing.Size(215, 6) + Me.ToolStripSeparator28.Size = New System.Drawing.Size(227, 6) ' 'mnuHelpWindows ' Me.mnuHelpWindows.Name = "mnuHelpWindows" - Me.mnuHelpWindows.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpWindows.Size = New System.Drawing.Size(230, 22) Me.mnuHelpWindows.Text = "Windows..." ' 'ToolStripSeparator81 ' Me.ToolStripSeparator81.Name = "ToolStripSeparator81" - Me.ToolStripSeparator81.Size = New System.Drawing.Size(215, 6) + Me.ToolStripSeparator81.Size = New System.Drawing.Size(227, 6) ' 'mnuHelpMenus ' @@ -1688,40 +1689,46 @@ Partial Class frmMain 'mnuHelpAboutR ' Me.mnuHelpAboutR.Name = "mnuHelpAboutR" - Me.mnuHelpAboutR.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpAboutR.Size = New System.Drawing.Size(230, 22) Me.mnuHelpAboutR.Text = "About R..." Me.mnuHelpAboutR.Visible = False ' 'mnuHelpLearningStatistics ' Me.mnuHelpLearningStatistics.Name = "mnuHelpLearningStatistics" - Me.mnuHelpLearningStatistics.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpLearningStatistics.Size = New System.Drawing.Size(230, 22) Me.mnuHelpLearningStatistics.Text = "Learning Statistics..." Me.mnuHelpLearningStatistics.Visible = False ' 'mnuHelpRPackages ' Me.mnuHelpRPackages.Name = "mnuHelpRPackages" - Me.mnuHelpRPackages.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpRPackages.Size = New System.Drawing.Size(230, 22) Me.mnuHelpRPackages.Text = "R Packages..." ' 'mnuHelpGlossary ' Me.mnuHelpGlossary.Name = "mnuHelpGlossary" - Me.mnuHelpGlossary.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpGlossary.Size = New System.Drawing.Size(230, 22) Me.mnuHelpGlossary.Text = "Glossary..." ' 'mnuHelpLicence ' Me.mnuHelpLicence.Name = "mnuHelpLicence" - Me.mnuHelpLicence.Size = New System.Drawing.Size(218, 22) + Me.mnuHelpLicence.Size = New System.Drawing.Size(230, 22) Me.mnuHelpLicence.Tag = "Licence..." Me.mnuHelpLicence.Text = "Licence..." ' 'ToolStripSeparator29 ' Me.ToolStripSeparator29.Name = "ToolStripSeparator29" - Me.ToolStripSeparator29.Size = New System.Drawing.Size(215, 6) + Me.ToolStripSeparator29.Size = New System.Drawing.Size(227, 6) + ' + 'RInstatResourcesSiteToolStripMenuItem + ' + Me.RInstatResourcesSiteToolStripMenuItem.Name = "RInstatResourcesSiteToolStripMenuItem" + Me.RInstatResourcesSiteToolStripMenuItem.Size = New System.Drawing.Size(230, 22) + Me.RInstatResourcesSiteToolStripMenuItem.Text = "R-Instat Resources Site" ' 'mnuHelpPackagesDocumentation ' @@ -2936,7 +2943,7 @@ Partial Class frmMain ' Me.mnuFileSave.Name = "mnuFileSave" Me.mnuFileSave.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys) - Me.mnuFileSave.Size = New System.Drawing.Size(232, 22) + Me.mnuFileSave.Size = New System.Drawing.Size(241, 22) Me.mnuFileSave.Tag = "Save" Me.mnuFileSave.Text = "Save..." ' @@ -2944,7 +2951,7 @@ Partial Class frmMain ' Me.mnuFileSaveAs.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileSaveAsDataAs, Me.mnuFileSaveAsOutputAs, Me.mnuFileSaveAsLogAs, Me.mnuFileSaveAsScriptAs}) Me.mnuFileSaveAs.Name = "mnuFileSaveAs" - Me.mnuFileSaveAs.Size = New System.Drawing.Size(232, 22) + Me.mnuFileSaveAs.Size = New System.Drawing.Size(241, 22) Me.mnuFileSaveAs.Tag = "Save_As" Me.mnuFileSaveAs.Text = "Save As" ' @@ -2977,7 +2984,7 @@ Partial Class frmMain Me.mnuFilePrint.Enabled = False Me.mnuFilePrint.Name = "mnuFilePrint" Me.mnuFilePrint.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P), System.Windows.Forms.Keys) - Me.mnuFilePrint.Size = New System.Drawing.Size(232, 22) + Me.mnuFilePrint.Size = New System.Drawing.Size(241, 22) Me.mnuFilePrint.Tag = "Print" Me.mnuFilePrint.Text = "Print..." Me.mnuFilePrint.Visible = False @@ -2986,7 +2993,7 @@ Partial Class frmMain ' Me.mnuFilePrintPreview.Enabled = False Me.mnuFilePrintPreview.Name = "mnuFilePrintPreview" - Me.mnuFilePrintPreview.Size = New System.Drawing.Size(232, 22) + Me.mnuFilePrintPreview.Size = New System.Drawing.Size(241, 22) Me.mnuFilePrintPreview.Tag = "Print_Preview" Me.mnuFilePrintPreview.Text = "Print Preview..." Me.mnuFilePrintPreview.Visible = False @@ -2994,12 +3001,12 @@ Partial Class frmMain 'tlSeparatorFile3 ' Me.tlSeparatorFile3.Name = "tlSeparatorFile3" - Me.tlSeparatorFile3.Size = New System.Drawing.Size(229, 6) + Me.tlSeparatorFile3.Size = New System.Drawing.Size(238, 6) ' 'mnuFIleExit ' Me.mnuFIleExit.Name = "mnuFIleExit" - Me.mnuFIleExit.Size = New System.Drawing.Size(232, 22) + Me.mnuFIleExit.Size = New System.Drawing.Size(241, 22) Me.mnuFIleExit.Tag = "Exit" Me.mnuFIleExit.Text = "Exit" ' @@ -3381,7 +3388,7 @@ Partial Class frmMain ' 'mnuFile ' - Me.mnuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileNewDataFrame, Me.mnuFileImportFromFile, Me.mnuFileImportFromLibrary, Me.ToolStripSeparator35, Me.mnuFileImportFromODK, Me.mnuFileImportFromCSPRO, Me.mnuFileImportFromDatabases, Me.mnuFileImportFromPostgres, Me.mnuFileImportFromRapidPro, Me.mnuFileImportandTidyNetCDFFile, Me.mnuFileConvert, Me.tlSeparatorFile, Me.mnuFileSave, Me.mnuFileSaveAs, Me.mnuFileExport, Me.mnuFilePrint, Me.mnuFilePrintPreview, Me.tlSeparatorFile3, Me.mnuFileCloseData, Me.ToolStripSeparator8, Me.mnuFIleExit}) + Me.mnuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileNewDataFrame, Me.mnuFileImportFromFile, Me.mnuFileImportFromLibrary, Me.ToolStripSeparator35, Me.mnuFileImportFromODK, Me.mnuFileImportFromCSPRO, Me.mnuFileImportFromDatabases, Me.mnuFileImportFromPostgres, Me.mnuFileImportFromRapidPro, Me.mnuFileImportandTidyNetCDFFile, Me.mnuImportFromOpenAppBuilder, Me.mnuFileConvert, Me.tlSeparatorFile, Me.mnuFileSave, Me.mnuFileSaveAs, Me.mnuFileExport, Me.mnuFilePrint, Me.mnuFilePrintPreview, Me.tlSeparatorFile3, Me.mnuFileCloseData, Me.ToolStripSeparator8, Me.mnuFIleExit}) Me.mnuFile.Name = "mnuFile" Me.mnuFile.Size = New System.Drawing.Size(37, 22) Me.mnuFile.Tag = "File" @@ -3391,7 +3398,7 @@ Partial Class frmMain ' Me.mnuFileNewDataFrame.Name = "mnuFileNewDataFrame" Me.mnuFileNewDataFrame.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys) - Me.mnuFileNewDataFrame.Size = New System.Drawing.Size(232, 22) + Me.mnuFileNewDataFrame.Size = New System.Drawing.Size(241, 22) Me.mnuFileNewDataFrame.Tag = "New_Data_Frame" Me.mnuFileNewDataFrame.Text = "New Data Frame..." ' @@ -3399,33 +3406,33 @@ Partial Class frmMain ' Me.mnuFileImportFromFile.Name = "mnuFileImportFromFile" Me.mnuFileImportFromFile.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) - Me.mnuFileImportFromFile.Size = New System.Drawing.Size(232, 22) + Me.mnuFileImportFromFile.Size = New System.Drawing.Size(241, 22) Me.mnuFileImportFromFile.Tag = "Import_From_File" Me.mnuFileImportFromFile.Text = "Import From File..." ' 'mnuFileImportFromLibrary ' Me.mnuFileImportFromLibrary.Name = "mnuFileImportFromLibrary" - Me.mnuFileImportFromLibrary.Size = New System.Drawing.Size(232, 22) + Me.mnuFileImportFromLibrary.Size = New System.Drawing.Size(241, 22) Me.mnuFileImportFromLibrary.Tag = "Open_From_Library" Me.mnuFileImportFromLibrary.Text = "Import From Library..." ' 'ToolStripSeparator35 ' Me.ToolStripSeparator35.Name = "ToolStripSeparator35" - Me.ToolStripSeparator35.Size = New System.Drawing.Size(229, 6) + Me.ToolStripSeparator35.Size = New System.Drawing.Size(238, 6) ' 'mnuFileImportFromODK ' Me.mnuFileImportFromODK.Name = "mnuFileImportFromODK" - Me.mnuFileImportFromODK.Size = New System.Drawing.Size(232, 22) + Me.mnuFileImportFromODK.Size = New System.Drawing.Size(241, 22) Me.mnuFileImportFromODK.Text = "Import From ODK..." ' 'mnuFileImportFromCSPRO ' Me.mnuFileImportFromCSPRO.Enabled = False Me.mnuFileImportFromCSPRO.Name = "mnuFileImportFromCSPRO" - Me.mnuFileImportFromCSPRO.Size = New System.Drawing.Size(232, 22) + Me.mnuFileImportFromCSPRO.Size = New System.Drawing.Size(241, 22) Me.mnuFileImportFromCSPRO.Text = "Import From CSPRO..." Me.mnuFileImportFromCSPRO.Visible = False ' @@ -3433,7 +3440,7 @@ Partial Class frmMain ' Me.mnuFileImportFromDatabases.Enabled = False Me.mnuFileImportFromDatabases.Name = "mnuFileImportFromDatabases" - Me.mnuFileImportFromDatabases.Size = New System.Drawing.Size(232, 22) + Me.mnuFileImportFromDatabases.Size = New System.Drawing.Size(241, 22) Me.mnuFileImportFromDatabases.Text = "Import From Databases..." Me.mnuFileImportFromDatabases.Visible = False ' @@ -3441,40 +3448,47 @@ Partial Class frmMain ' Me.mnuFileImportFromPostgres.Enabled = False Me.mnuFileImportFromPostgres.Name = "mnuFileImportFromPostgres" - Me.mnuFileImportFromPostgres.Size = New System.Drawing.Size(232, 22) + Me.mnuFileImportFromPostgres.Size = New System.Drawing.Size(241, 22) Me.mnuFileImportFromPostgres.Text = "Import From Postgres" Me.mnuFileImportFromPostgres.Visible = False ' 'mnuFileImportFromRapidPro ' Me.mnuFileImportFromRapidPro.Name = "mnuFileImportFromRapidPro" - Me.mnuFileImportFromRapidPro.Size = New System.Drawing.Size(232, 22) + Me.mnuFileImportFromRapidPro.Size = New System.Drawing.Size(241, 22) Me.mnuFileImportFromRapidPro.Text = "Import From RapidPro" ' 'mnuFileImportandTidyNetCDFFile ' Me.mnuFileImportandTidyNetCDFFile.Name = "mnuFileImportandTidyNetCDFFile" - Me.mnuFileImportandTidyNetCDFFile.Size = New System.Drawing.Size(232, 22) + Me.mnuFileImportandTidyNetCDFFile.Size = New System.Drawing.Size(241, 22) Me.mnuFileImportandTidyNetCDFFile.Text = "Import and Tidy NetCDF File..." ' + 'mnuImportFromOpenAppBuilder + ' + Me.mnuImportFromOpenAppBuilder.Enabled = False + Me.mnuImportFromOpenAppBuilder.Name = "mnuImportFromOpenAppBuilder" + Me.mnuImportFromOpenAppBuilder.Size = New System.Drawing.Size(241, 22) + Me.mnuImportFromOpenAppBuilder.Text = "Import From OpenAppBuilder..." + ' 'mnuFileConvert ' Me.mnuFileConvert.Enabled = False Me.mnuFileConvert.Name = "mnuFileConvert" - Me.mnuFileConvert.Size = New System.Drawing.Size(232, 22) + Me.mnuFileConvert.Size = New System.Drawing.Size(241, 22) Me.mnuFileConvert.Text = "Convert..." Me.mnuFileConvert.Visible = False ' 'tlSeparatorFile ' Me.tlSeparatorFile.Name = "tlSeparatorFile" - Me.tlSeparatorFile.Size = New System.Drawing.Size(229, 6) + Me.tlSeparatorFile.Size = New System.Drawing.Size(238, 6) ' 'mnuFileExport ' Me.mnuFileExport.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileExportExportDataSet, Me.mnuFileExportExportRObjectsToolStripMenuItem, Me.mnuFileExportExportRWorkspace, Me.mnuFileExportExportGraphAsImage}) Me.mnuFileExport.Name = "mnuFileExport" - Me.mnuFileExport.Size = New System.Drawing.Size(232, 22) + Me.mnuFileExport.Size = New System.Drawing.Size(241, 22) Me.mnuFileExport.Text = "Export" ' 'mnuFileExportExportDataSet @@ -3504,13 +3518,13 @@ Partial Class frmMain 'mnuFileCloseData ' Me.mnuFileCloseData.Name = "mnuFileCloseData" - Me.mnuFileCloseData.Size = New System.Drawing.Size(232, 22) + Me.mnuFileCloseData.Size = New System.Drawing.Size(241, 22) Me.mnuFileCloseData.Text = "Close Data Book" ' 'ToolStripSeparator8 ' Me.ToolStripSeparator8.Name = "ToolStripSeparator8" - Me.ToolStripSeparator8.Size = New System.Drawing.Size(229, 6) + Me.ToolStripSeparator8.Size = New System.Drawing.Size(238, 6) ' 'mnuPrepare ' @@ -5226,12 +5240,6 @@ Partial Class frmMain Me.mnuLogFile.Text = "Log Window..." Me.mnuLogFile.ToolTipText = "Log Window" ' - 'RInstatResourcesSiteToolStripMenuItem - ' - Me.RInstatResourcesSiteToolStripMenuItem.Name = "RInstatResourcesSiteToolStripMenuItem" - Me.RInstatResourcesSiteToolStripMenuItem.Size = New System.Drawing.Size(230, 22) - Me.RInstatResourcesSiteToolStripMenuItem.Text = "R-Instat Resources Site" - ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -5245,9 +5253,7 @@ Partial Class frmMain Me.IsMdiContainer = True Me.MainMenuStrip = Me.mnuBar Me.Name = "frmMain" - Me.Text = "R-Instat " + My.Application.Info.Version.Major.ToString + "." + - My.Application.Info.Version.Minor.ToString + "." + - My.Application.Info.Version.Build.ToString + Me.Text = "R-Instat .." Me.WindowState = System.Windows.Forms.FormWindowState.Maximized Me.stsStrip.ResumeLayout(False) Me.stsStrip.PerformLayout() @@ -5954,4 +5960,5 @@ Partial Class frmMain Friend WithEvents mnuSwapDataLogScript As ToolStripMenuItem Friend WithEvents mnuSwapDataMetadata As ToolStripMenuItem Friend WithEvents RInstatResourcesSiteToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuImportFromOpenAppBuilder As ToolStripMenuItem End Class diff --git a/instat/frmMain.vb b/instat/frmMain.vb index 5dcc43a4420..c6b67b8acdd 100644 --- a/instat/frmMain.vb +++ b/instat/frmMain.vb @@ -2847,4 +2847,8 @@ Public Class frmMain Private Sub RInstatResourcesSiteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RInstatResourcesSiteToolStripMenuItem.Click Process.Start("https://ecampus.r-instat.org/course/view.php?id=14") End Sub + + Private Sub mnuImportFromOpenAppBuilder_Click(sender As Object, e As EventArgs) Handles mnuImportFromOpenAppBuilder.Click + dlgImportOpenAppBuilder.ShowDialog() + End Sub End Class diff --git a/instat/instat.vbproj b/instat/instat.vbproj index 7670f979bf2..78fbab2eb1a 100644 --- a/instat/instat.vbproj +++ b/instat/instat.vbproj @@ -281,6 +281,12 @@ Form + + dlgImportOpenAppBuilder.vb + + + Form + dlgRandomSplit.vb @@ -3137,6 +3143,9 @@ dlgImportFromRapidPro.vb + + dlgImportOpenAppBuilder.vb + dlgInfillMissingValues.vb diff --git a/instat/sdgDefineAnnualRainfall.Designer.vb b/instat/sdgDefineAnnualRainfall.Designer.vb index 91bb5b1cb29..b44111f4361 100644 --- a/instat/sdgDefineAnnualRainfall.Designer.vb +++ b/instat/sdgDefineAnnualRainfall.Designer.vb @@ -22,22 +22,13 @@ Partial Class sdgDefineAnnualRainfall 'Do not modify it using the code editor. _ Private Sub InitializeComponent() - Me.ucrReceiverMaxMinMonthly = New instat.ucrReceiverSingle() - Me.ucrReceiverYearMonthly = New instat.ucrReceiverSingle() - Me.ucrReceiverMonthlyTemp = New instat.ucrReceiverSingle() - Me.ucrSelecetorMonthlyTemp = New instat.ucrSelectorByDataFrame() Me.lblSeasonPlantingDay = New System.Windows.Forms.Label() - Me.ucrSelectorSeasonStartProp = New instat.ucrSelectorByDataFrame() Me.tbSummaries = New System.Windows.Forms.TabControl() Me.tbAnnualRainfall = New System.Windows.Forms.TabPage() Me.lblStartRainStatus = New System.Windows.Forms.Label() - Me.ucrReceiverStartRainStatus = New instat.ucrReceiverSingle() Me.lblEndRainStatus = New System.Windows.Forms.Label() - Me.ucrReceiverEndRainStatus = New instat.ucrReceiverSingle() Me.lblEndSeasonStatus = New System.Windows.Forms.Label() - Me.ucrReceiverEndSeasonStatus = New instat.ucrReceiverSingle() 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() @@ -50,6 +41,39 @@ Partial Class sdgDefineAnnualRainfall Me.lblStartRainDOY = New System.Windows.Forms.Label() Me.lblYear = New System.Windows.Forms.Label() Me.lblStation = New System.Windows.Forms.Label() + Me.tbCropSuccessProp = New System.Windows.Forms.TabPage() + Me.lblPlantingLength = New System.Windows.Forms.Label() + 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.tbSeasonStartProb = New System.Windows.Forms.TabPage() + Me.lblPlantingDayCond = New System.Windows.Forms.Label() + Me.lblSeasonYear = New System.Windows.Forms.Label() + Me.lblStationSeasonProb = New System.Windows.Forms.Label() + Me.tbAnnualTempSummaries = New System.Windows.Forms.TabPage() + Me.lblMinMinAnnual = New System.Windows.Forms.Label() + 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.lblMinMaxAnnual = New System.Windows.Forms.Label() + Me.lblMeanMaxAnnual = New System.Windows.Forms.Label() + Me.tbMonthlyTemp = New System.Windows.Forms.TabPage() + Me.lblMonth = New System.Windows.Forms.Label() + Me.lblMinMInMonthly = New System.Windows.Forms.Label() + 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.ucrReceiverStartRainStatus = New instat.ucrReceiverSingle() + Me.ucrReceiverEndRainStatus = New instat.ucrReceiverSingle() + Me.ucrReceiverEndSeasonStatus = New instat.ucrReceiverSingle() + Me.ucrReceiverRainDaysYear = New instat.ucrReceiverSingle() Me.ucrReceiverStartRainDate = New instat.ucrReceiverSingle() Me.ucrReceiverStartRainDOY = New instat.ucrReceiverSingle() Me.ucrReceiverYear = New instat.ucrReceiverSingle() @@ -63,35 +87,17 @@ Partial Class sdgDefineAnnualRainfall 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.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.ucrReceiverPlantingLenghth = New instat.ucrReceiverSingle() 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.lblPlantingDayCond = New System.Windows.Forms.Label() - Me.lblSeasonYear = New System.Windows.Forms.Label() - Me.lblStationSeasonProb = New System.Windows.Forms.Label() Me.ucrReceiverPlantingDayCondition = New instat.ucrReceiverSingle() Me.ucrReceiverSeasonPlantingDay = New instat.ucrReceiverSingle() Me.ucrReceiverSeasonYear = New instat.ucrReceiverSingle() Me.ucrReceiverSeasonStationProb = New instat.ucrReceiverSingle() - Me.tbAnnualTempSummaries = New System.Windows.Forms.TabPage() - Me.lblMinMinAnnual = New System.Windows.Forms.Label() - 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.lblMinMaxAnnual = New System.Windows.Forms.Label() - Me.lblMeanMaxAnnual = New System.Windows.Forms.Label() + Me.ucrSelectorSeasonStartProp = New instat.ucrSelectorByDataFrame() Me.ucrReceiverMinMinAnnual = New instat.ucrReceiverSingle() Me.ucrReceiverMaxMaxAnnual = New instat.ucrReceiverSingle() Me.ucrReceiverMeanMaxAnnual = New instat.ucrReceiverSingle() @@ -101,22 +107,16 @@ Partial Class sdgDefineAnnualRainfall Me.ucrReceiverAnnualTempYr = New instat.ucrReceiverSingle() Me.ucrReceiverAnnualTempStation = New instat.ucrReceiverSingle() Me.ucrSelectorAnnualTemp = New instat.ucrSelectorByDataFrame() - Me.tbMonthlyTemp = New System.Windows.Forms.TabPage() - Me.lblMonth = New System.Windows.Forms.Label() - Me.lblMinMInMonthly = New System.Windows.Forms.Label() - 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.ucrReceiverMonthMonthly = New instat.ucrReceiverSingle() Me.ucrReceiverMinMinMonthly = New instat.ucrReceiverSingle() 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.ucrSelecetorMonthlyTemp = New instat.ucrSelectorByDataFrame() Me.ucrBase = New instat.ucrButtonsSubdialogue() Me.tbSummaries.SuspendLayout() Me.tbAnnualRainfall.SuspendLayout() @@ -126,79 +126,15 @@ Partial Class sdgDefineAnnualRainfall Me.tbMonthlyTemp.SuspendLayout() Me.SuspendLayout() ' - 'ucrReceiverMaxMinMonthly - ' - Me.ucrReceiverMaxMinMonthly.AutoSize = True - Me.ucrReceiverMaxMinMonthly.frmParent = Nothing - Me.ucrReceiverMaxMinMonthly.Location = New System.Drawing.Point(372, 366) - Me.ucrReceiverMaxMinMonthly.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverMaxMinMonthly.Name = "ucrReceiverMaxMinMonthly" - Me.ucrReceiverMaxMinMonthly.Selector = Nothing - Me.ucrReceiverMaxMinMonthly.Size = New System.Drawing.Size(180, 38) - Me.ucrReceiverMaxMinMonthly.strNcFilePath = "" - Me.ucrReceiverMaxMinMonthly.TabIndex = 12 - Me.ucrReceiverMaxMinMonthly.ucrSelector = Nothing - ' - 'ucrReceiverYearMonthly - ' - Me.ucrReceiverYearMonthly.AutoSize = True - Me.ucrReceiverYearMonthly.frmParent = Nothing - Me.ucrReceiverYearMonthly.Location = New System.Drawing.Point(369, 109) - Me.ucrReceiverYearMonthly.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverYearMonthly.Name = "ucrReceiverYearMonthly" - Me.ucrReceiverYearMonthly.Selector = Nothing - Me.ucrReceiverYearMonthly.Size = New System.Drawing.Size(180, 38) - 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(368, 49) - Me.ucrReceiverMonthlyTemp.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverMonthlyTemp.Name = "ucrReceiverMonthlyTemp" - Me.ucrReceiverMonthlyTemp.Selector = Nothing - Me.ucrReceiverMonthlyTemp.Size = New System.Drawing.Size(180, 38) - Me.ucrReceiverMonthlyTemp.strNcFilePath = "" - Me.ucrReceiverMonthlyTemp.TabIndex = 2 - Me.ucrReceiverMonthlyTemp.ucrSelector = Nothing - ' - 'ucrSelecetorMonthlyTemp - ' - Me.ucrSelecetorMonthlyTemp.AutoSize = True - Me.ucrSelecetorMonthlyTemp.bDropUnusedFilterLevels = False - Me.ucrSelecetorMonthlyTemp.bShowHiddenColumns = False - Me.ucrSelecetorMonthlyTemp.bUseCurrentFilter = True - Me.ucrSelecetorMonthlyTemp.Location = New System.Drawing.Point(15, 18) - Me.ucrSelecetorMonthlyTemp.Margin = New System.Windows.Forms.Padding(0) - Me.ucrSelecetorMonthlyTemp.Name = "ucrSelecetorMonthlyTemp" - Me.ucrSelecetorMonthlyTemp.Size = New System.Drawing.Size(339, 412) - Me.ucrSelecetorMonthlyTemp.TabIndex = 0 - ' 'lblSeasonPlantingDay ' Me.lblSeasonPlantingDay.AutoSize = True - Me.lblSeasonPlantingDay.Location = New System.Drawing.Point(370, 149) - Me.lblSeasonPlantingDay.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblSeasonPlantingDay.Location = New System.Drawing.Point(250, 97) Me.lblSeasonPlantingDay.Name = "lblSeasonPlantingDay" - Me.lblSeasonPlantingDay.Size = New System.Drawing.Size(102, 20) + Me.lblSeasonPlantingDay.Size = New System.Drawing.Size(70, 13) Me.lblSeasonPlantingDay.TabIndex = 5 Me.lblSeasonPlantingDay.Text = "Planting Day:" ' - 'ucrSelectorSeasonStartProp - ' - Me.ucrSelectorSeasonStartProp.AutoSize = True - Me.ucrSelectorSeasonStartProp.bDropUnusedFilterLevels = False - Me.ucrSelectorSeasonStartProp.bShowHiddenColumns = False - Me.ucrSelectorSeasonStartProp.bUseCurrentFilter = True - Me.ucrSelectorSeasonStartProp.Location = New System.Drawing.Point(20, 15) - Me.ucrSelectorSeasonStartProp.Margin = New System.Windows.Forms.Padding(0) - Me.ucrSelectorSeasonStartProp.Name = "ucrSelectorSeasonStartProp" - Me.ucrSelectorSeasonStartProp.Size = New System.Drawing.Size(339, 412) - Me.ucrSelectorSeasonStartProp.TabIndex = 0 - ' 'tbSummaries ' Me.tbSummaries.Controls.Add(Me.tbAnnualRainfall) @@ -206,11 +142,10 @@ Partial Class sdgDefineAnnualRainfall 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(18, 21) - Me.tbSummaries.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.tbSummaries.Location = New System.Drawing.Point(12, 14) Me.tbSummaries.Name = "tbSummaries" Me.tbSummaries.SelectedIndex = 0 - Me.tbSummaries.Size = New System.Drawing.Size(784, 728) + Me.tbSummaries.Size = New System.Drawing.Size(523, 473) Me.tbSummaries.TabIndex = 34 ' 'tbAnnualRainfall @@ -248,11 +183,10 @@ Partial Class sdgDefineAnnualRainfall 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, 29) - Me.tbAnnualRainfall.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.tbAnnualRainfall.Location = New System.Drawing.Point(4, 22) Me.tbAnnualRainfall.Name = "tbAnnualRainfall" - Me.tbAnnualRainfall.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.tbAnnualRainfall.Size = New System.Drawing.Size(776, 695) + Me.tbAnnualRainfall.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3) + Me.tbAnnualRainfall.Size = New System.Drawing.Size(515, 447) Me.tbAnnualRainfall.TabIndex = 0 Me.tbAnnualRainfall.Text = "Annual Rainfall" Me.tbAnnualRainfall.UseVisualStyleBackColor = True @@ -260,289 +194,594 @@ Partial Class sdgDefineAnnualRainfall 'lblStartRainStatus ' Me.lblStartRainStatus.AutoSize = True - Me.lblStartRainStatus.Location = New System.Drawing.Point(398, 501) - Me.lblStartRainStatus.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblStartRainStatus.Location = New System.Drawing.Point(264, 326) Me.lblStartRainStatus.Name = "lblStartRainStatus" - Me.lblStartRainStatus.Size = New System.Drawing.Size(144, 20) + Me.lblStartRainStatus.Size = New System.Drawing.Size(95, 13) Me.lblStartRainStatus.TabIndex = 27 Me.lblStartRainStatus.Text = "Start Rains Status:" ' - 'ucrReceiverStartRainStatus - ' - Me.ucrReceiverStartRainStatus.AutoSize = True - Me.ucrReceiverStartRainStatus.frmParent = Nothing - Me.ucrReceiverStartRainStatus.Location = New System.Drawing.Point(392, 527) - Me.ucrReceiverStartRainStatus.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverStartRainStatus.Name = "ucrReceiverStartRainStatus" - Me.ucrReceiverStartRainStatus.Selector = Nothing - Me.ucrReceiverStartRainStatus.Size = New System.Drawing.Size(180, 38) - Me.ucrReceiverStartRainStatus.strNcFilePath = "" - Me.ucrReceiverStartRainStatus.TabIndex = 28 - Me.ucrReceiverStartRainStatus.ucrSelector = Nothing - ' 'lblEndRainStatus ' Me.lblEndRainStatus.AutoSize = True - Me.lblEndRainStatus.Location = New System.Drawing.Point(396, 565) - Me.lblEndRainStatus.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEndRainStatus.Location = New System.Drawing.Point(264, 367) Me.lblEndRainStatus.Name = "lblEndRainStatus" - Me.lblEndRainStatus.Size = New System.Drawing.Size(138, 20) + Me.lblEndRainStatus.Size = New System.Drawing.Size(92, 13) Me.lblEndRainStatus.TabIndex = 29 Me.lblEndRainStatus.Text = "End Rains Status:" ' - 'ucrReceiverEndRainStatus - ' - Me.ucrReceiverEndRainStatus.AutoSize = True - Me.ucrReceiverEndRainStatus.frmParent = Nothing - Me.ucrReceiverEndRainStatus.Location = New System.Drawing.Point(392, 590) - Me.ucrReceiverEndRainStatus.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverEndRainStatus.Name = "ucrReceiverEndRainStatus" - Me.ucrReceiverEndRainStatus.Selector = Nothing - Me.ucrReceiverEndRainStatus.Size = New System.Drawing.Size(180, 38) - Me.ucrReceiverEndRainStatus.strNcFilePath = "" - Me.ucrReceiverEndRainStatus.TabIndex = 30 - Me.ucrReceiverEndRainStatus.ucrSelector = Nothing - ' 'lblEndSeasonStatus ' Me.lblEndSeasonStatus.AutoSize = True - Me.lblEndSeasonStatus.Location = New System.Drawing.Point(396, 627) - Me.lblEndSeasonStatus.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEndSeasonStatus.Location = New System.Drawing.Point(264, 408) Me.lblEndSeasonStatus.Name = "lblEndSeasonStatus" - Me.lblEndSeasonStatus.Size = New System.Drawing.Size(152, 20) + Me.lblEndSeasonStatus.Size = New System.Drawing.Size(101, 13) Me.lblEndSeasonStatus.TabIndex = 31 Me.lblEndSeasonStatus.Text = "End Season Status:" ' - 'ucrReceiverEndSeasonStatus - ' - Me.ucrReceiverEndSeasonStatus.AutoSize = True - Me.ucrReceiverEndSeasonStatus.frmParent = Nothing - Me.ucrReceiverEndSeasonStatus.Location = New System.Drawing.Point(392, 649) - Me.ucrReceiverEndSeasonStatus.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverEndSeasonStatus.Name = "ucrReceiverEndSeasonStatus" - Me.ucrReceiverEndSeasonStatus.Selector = Nothing - Me.ucrReceiverEndSeasonStatus.Size = New System.Drawing.Size(180, 39) - Me.ucrReceiverEndSeasonStatus.strNcFilePath = "" - Me.ucrReceiverEndSeasonStatus.TabIndex = 32 - Me.ucrReceiverEndSeasonStatus.ucrSelector = Nothing - ' 'lblRainyDaysYear ' Me.lblRainyDaysYear.AutoSize = True - Me.lblRainyDaysYear.Location = New System.Drawing.Point(396, 132) - Me.lblRainyDaysYear.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblRainyDaysYear.Location = New System.Drawing.Point(264, 86) Me.lblRainyDaysYear.Name = "lblRainyDaysYear" - Me.lblRainyDaysYear.Size = New System.Drawing.Size(151, 20) + Me.lblRainyDaysYear.Size = New System.Drawing.Size(103, 13) Me.lblRainyDaysYear.TabIndex = 15 Me.lblRainyDaysYear.Text = " Rainy Days in Year:" ' - 'ucrReceiverRainDaysYear - ' - Me.ucrReceiverRainDaysYear.AutoSize = True - Me.ucrReceiverRainDaysYear.frmParent = Nothing - Me.ucrReceiverRainDaysYear.Location = New System.Drawing.Point(392, 156) - Me.ucrReceiverRainDaysYear.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverRainDaysYear.Name = "ucrReceiverRainDaysYear" - Me.ucrReceiverRainDaysYear.Selector = Nothing - Me.ucrReceiverRainDaysYear.Size = New System.Drawing.Size(180, 38) - Me.ucrReceiverRainDaysYear.strNcFilePath = "" - Me.ucrReceiverRainDaysYear.TabIndex = 16 - Me.ucrReceiverRainDaysYear.ucrSelector = Nothing - ' 'lblNoRainDaysSeason ' Me.lblNoRainDaysSeason.AutoSize = True - Me.lblNoRainDaysSeason.Location = New System.Drawing.Point(396, 63) - Me.lblNoRainDaysSeason.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblNoRainDaysSeason.Location = New System.Drawing.Point(264, 41) Me.lblNoRainDaysSeason.Name = "lblNoRainDaysSeason" - Me.lblNoRainDaysSeason.Size = New System.Drawing.Size(172, 20) + Me.lblNoRainDaysSeason.Size = New System.Drawing.Size(117, 13) Me.lblNoRainDaysSeason.TabIndex = 13 Me.lblNoRainDaysSeason.Text = " Rainy Days in Season:" ' 'lblSeasonalLength ' Me.lblSeasonalLength.AutoSize = True - Me.lblSeasonalLength.Location = New System.Drawing.Point(396, 191) - Me.lblSeasonalLength.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblSeasonalLength.Location = New System.Drawing.Point(264, 124) Me.lblSeasonalLength.Name = "lblSeasonalLength" - Me.lblSeasonalLength.Size = New System.Drawing.Size(134, 20) + Me.lblSeasonalLength.Size = New System.Drawing.Size(90, 13) Me.lblSeasonalLength.TabIndex = 17 Me.lblSeasonalLength.Text = "Seasonal Length:" ' 'lblSeasonalRain ' Me.lblSeasonalRain.AutoSize = True - Me.lblSeasonalRain.Location = New System.Drawing.Point(18, 615) - Me.lblSeasonalRain.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblSeasonalRain.Location = New System.Drawing.Point(12, 400) Me.lblSeasonalRain.Name = "lblSeasonalRain" - Me.lblSeasonalRain.Size = New System.Drawing.Size(117, 20) + Me.lblSeasonalRain.Size = New System.Drawing.Size(79, 13) Me.lblSeasonalRain.TabIndex = 11 Me.lblSeasonalRain.Text = "Seasonal Rain:" ' 'lblAnnualRain ' Me.lblAnnualRain.AutoSize = True - Me.lblAnnualRain.Location = New System.Drawing.Point(19, 547) - Me.lblAnnualRain.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblAnnualRain.Location = New System.Drawing.Point(13, 356) Me.lblAnnualRain.Name = "lblAnnualRain" - Me.lblAnnualRain.Size = New System.Drawing.Size(100, 20) + Me.lblAnnualRain.Size = New System.Drawing.Size(68, 13) Me.lblAnnualRain.TabIndex = 9 Me.lblAnnualRain.Text = "Annual Rain:" ' 'lblEndSeasonDate ' Me.lblEndSeasonDate.AutoSize = True - Me.lblEndSeasonDate.Location = New System.Drawing.Point(396, 439) - Me.lblEndSeasonDate.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEndSeasonDate.Location = New System.Drawing.Point(264, 285) Me.lblEndSeasonDate.Name = "lblEndSeasonDate" - Me.lblEndSeasonDate.Size = New System.Drawing.Size(146, 20) + Me.lblEndSeasonDate.Size = New System.Drawing.Size(97, 13) Me.lblEndSeasonDate.TabIndex = 25 Me.lblEndSeasonDate.Text = "End Season(Date):" ' 'lblEndSeasonDOY ' Me.lblEndSeasonDOY.AutoSize = True - Me.lblEndSeasonDOY.Location = New System.Drawing.Point(396, 384) - Me.lblEndSeasonDOY.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEndSeasonDOY.Location = New System.Drawing.Point(264, 250) Me.lblEndSeasonDOY.Name = "lblEndSeasonDOY" - Me.lblEndSeasonDOY.Size = New System.Drawing.Size(146, 20) + Me.lblEndSeasonDOY.Size = New System.Drawing.Size(97, 13) Me.lblEndSeasonDOY.TabIndex = 23 Me.lblEndSeasonDOY.Text = "End Season(DOY):" ' 'lblEndRainDate ' Me.lblEndRainDate.AutoSize = True - Me.lblEndRainDate.Location = New System.Drawing.Point(396, 318) - Me.lblEndRainDate.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEndRainDate.Location = New System.Drawing.Point(264, 207) Me.lblEndRainDate.Name = "lblEndRainDate" - Me.lblEndRainDate.Size = New System.Drawing.Size(124, 20) + Me.lblEndRainDate.Size = New System.Drawing.Size(83, 13) Me.lblEndRainDate.TabIndex = 21 Me.lblEndRainDate.Text = "End Rain(Date):" ' 'lblEndRainsDOY ' Me.lblEndRainsDOY.AutoSize = True - Me.lblEndRainsDOY.Location = New System.Drawing.Point(396, 257) - Me.lblEndRainsDOY.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEndRainsDOY.Location = New System.Drawing.Point(264, 167) Me.lblEndRainsDOY.Name = "lblEndRainsDOY" - Me.lblEndRainsDOY.Size = New System.Drawing.Size(124, 20) + Me.lblEndRainsDOY.Size = New System.Drawing.Size(83, 13) Me.lblEndRainsDOY.TabIndex = 19 Me.lblEndRainsDOY.Text = "End Rain(DOY):" ' 'lblStartRainDate ' Me.lblStartRainDate.AutoSize = True - Me.lblStartRainDate.Location = New System.Drawing.Point(16, 486) - Me.lblStartRainDate.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblStartRainDate.Location = New System.Drawing.Point(11, 316) Me.lblStartRainDate.Name = "lblStartRainDate" - Me.lblStartRainDate.Size = New System.Drawing.Size(130, 20) + Me.lblStartRainDate.Size = New System.Drawing.Size(86, 13) Me.lblStartRainDate.TabIndex = 7 Me.lblStartRainDate.Text = "Start Rain(Date):" ' 'lblStartRainDOY ' Me.lblStartRainDOY.AutoSize = True - Me.lblStartRainDOY.Location = New System.Drawing.Point(18, 422) - Me.lblStartRainDOY.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblStartRainDOY.Location = New System.Drawing.Point(12, 274) Me.lblStartRainDOY.Name = "lblStartRainDOY" - Me.lblStartRainDOY.Size = New System.Drawing.Size(130, 20) + Me.lblStartRainDOY.Size = New System.Drawing.Size(86, 13) Me.lblStartRainDOY.TabIndex = 5 Me.lblStartRainDOY.Text = "Start Rain(DOY):" ' 'lblYear ' Me.lblYear.AutoSize = True - Me.lblYear.Location = New System.Drawing.Point(21, 355) - Me.lblYear.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblYear.Location = New System.Drawing.Point(14, 231) Me.lblYear.Name = "lblYear" - Me.lblYear.Size = New System.Drawing.Size(47, 20) + Me.lblYear.Size = New System.Drawing.Size(32, 13) Me.lblYear.TabIndex = 3 Me.lblYear.Text = "Year:" ' 'lblStation ' Me.lblStation.AutoSize = True - Me.lblStation.Location = New System.Drawing.Point(22, 288) - Me.lblStation.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblStation.Location = New System.Drawing.Point(15, 187) Me.lblStation.Name = "lblStation" - Me.lblStation.Size = New System.Drawing.Size(64, 20) + Me.lblStation.Size = New System.Drawing.Size(43, 13) Me.lblStation.TabIndex = 1 Me.lblStation.Text = "Station:" ' - 'ucrReceiverStartRainDate + 'tbCropSuccessProp ' - Me.ucrReceiverStartRainDate.AutoSize = True - Me.ucrReceiverStartRainDate.frmParent = Nothing - Me.ucrReceiverStartRainDate.Location = New System.Drawing.Point(14, 513) - Me.ucrReceiverStartRainDate.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverStartRainDate.Name = "ucrReceiverStartRainDate" - Me.ucrReceiverStartRainDate.Selector = Nothing - Me.ucrReceiverStartRainDate.Size = New System.Drawing.Size(180, 38) - Me.ucrReceiverStartRainDate.strNcFilePath = "" - Me.ucrReceiverStartRainDate.TabIndex = 8 - Me.ucrReceiverStartRainDate.ucrSelector = Nothing + Me.tbCropSuccessProp.Controls.Add(Me.lblPlantingLength) + 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.ucrReceiverPlantingLenghth) + 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, 3, 3, 3) + Me.tbCropSuccessProp.Size = New System.Drawing.Size(515, 447) + Me.tbCropSuccessProp.TabIndex = 1 + Me.tbCropSuccessProp.Text = "Crop Success Prop" + Me.tbCropSuccessProp.UseVisualStyleBackColor = True ' - 'ucrReceiverStartRainDOY + 'lblPlantingLength ' - Me.ucrReceiverStartRainDOY.AutoSize = True - Me.ucrReceiverStartRainDOY.frmParent = Nothing - Me.ucrReceiverStartRainDOY.Location = New System.Drawing.Point(14, 449) - Me.ucrReceiverStartRainDOY.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverStartRainDOY.Name = "ucrReceiverStartRainDOY" - Me.ucrReceiverStartRainDOY.Selector = Nothing - Me.ucrReceiverStartRainDOY.Size = New System.Drawing.Size(180, 38) - Me.ucrReceiverStartRainDOY.strNcFilePath = "" - Me.ucrReceiverStartRainDOY.TabIndex = 6 - Me.ucrReceiverStartRainDOY.ucrSelector = Nothing + Me.lblPlantingLength.AutoSize = True + Me.lblPlantingLength.Location = New System.Drawing.Point(248, 137) + Me.lblPlantingLength.Name = "lblPlantingLength" + Me.lblPlantingLength.Size = New System.Drawing.Size(84, 13) + Me.lblPlantingLength.TabIndex = 7 + Me.lblPlantingLength.Text = "Planting Length:" ' - 'ucrReceiverYear + 'lblPlantingDay ' - Me.ucrReceiverYear.AutoSize = True - Me.ucrReceiverYear.frmParent = Nothing - Me.ucrReceiverYear.Location = New System.Drawing.Point(14, 382) - 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, 38) - Me.ucrReceiverYear.strNcFilePath = "" - Me.ucrReceiverYear.TabIndex = 4 - Me.ucrReceiverYear.ucrSelector = Nothing + Me.lblPlantingDay.AutoSize = True + Me.lblPlantingDay.Location = New System.Drawing.Point(248, 95) + Me.lblPlantingDay.Name = "lblPlantingDay" + Me.lblPlantingDay.Size = New System.Drawing.Size(70, 13) + Me.lblPlantingDay.TabIndex = 5 + Me.lblPlantingDay.Text = "Planting Day:" ' - 'ucrReceiverStation + 'lblProbSuccess ' - Me.ucrReceiverStation.AutoSize = True - Me.ucrReceiverStation.frmParent = Nothing - Me.ucrReceiverStation.Location = New System.Drawing.Point(16, 314) - Me.ucrReceiverStation.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverStation.Name = "ucrReceiverStation" - Me.ucrReceiverStation.Selector = Nothing - Me.ucrReceiverStation.Size = New System.Drawing.Size(180, 38) - Me.ucrReceiverStation.strNcFilePath = "" - Me.ucrReceiverStation.TabIndex = 2 - Me.ucrReceiverStation.ucrSelector = Nothing + Me.lblProbSuccess.AutoSize = True + Me.lblProbSuccess.Location = New System.Drawing.Point(248, 176) + Me.lblProbSuccess.Name = "lblProbSuccess" + Me.lblProbSuccess.Size = New System.Drawing.Size(117, 13) + Me.lblProbSuccess.TabIndex = 9 + Me.lblProbSuccess.Text = "Proportion of Success :" ' - 'ucrReceiverEndSeasonDate + 'lblTotalRain ' - Me.ucrReceiverEndSeasonDate.AutoSize = True - Me.ucrReceiverEndSeasonDate.frmParent = Nothing - Me.ucrReceiverEndSeasonDate.Location = New System.Drawing.Point(392, 465) - Me.ucrReceiverEndSeasonDate.Margin = New System.Windows.Forms.Padding(0) - Me.ucrReceiverEndSeasonDate.Name = "ucrReceiverEndSeasonDate" - Me.ucrReceiverEndSeasonDate.Selector = Nothing - Me.ucrReceiverEndSeasonDate.Size = New System.Drawing.Size(180, 38) - Me.ucrReceiverEndSeasonDate.strNcFilePath = "" - Me.ucrReceiverEndSeasonDate.TabIndex = 26 - Me.ucrReceiverEndSeasonDate.ucrSelector = Nothing + Me.lblTotalRain.AutoSize = True + Me.lblTotalRain.Location = New System.Drawing.Point(248, 54) + Me.lblTotalRain.Name = "lblTotalRain" + Me.lblTotalRain.Size = New System.Drawing.Size(59, 13) + Me.lblTotalRain.TabIndex = 3 + Me.lblTotalRain.Text = "Total Rain:" ' - 'ucrReceiverEndSeasonDOY + 'lblCropStation ' - Me.ucrReceiverEndSeasonDOY.AutoSize = True - Me.ucrReceiverEndSeasonDOY.frmParent = Nothing - Me.ucrReceiverEndSeasonDOY.Location = New System.Drawing.Point(392, 404) - Me.ucrReceiverEndSeasonDOY.Margin = New System.Windows.Forms.Padding(0) + 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:" + ' + 'tbSeasonStartProb + ' + Me.tbSeasonStartProb.Controls.Add(Me.lblPlantingDayCond) + Me.tbSeasonStartProb.Controls.Add(Me.lblSeasonPlantingDay) + Me.tbSeasonStartProb.Controls.Add(Me.lblSeasonYear) + Me.tbSeasonStartProb.Controls.Add(Me.lblStationSeasonProb) + Me.tbSeasonStartProb.Controls.Add(Me.ucrReceiverPlantingDayCondition) + 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, 3, 3, 3) + Me.tbSeasonStartProb.Size = New System.Drawing.Size(515, 447) + Me.tbSeasonStartProb.TabIndex = 2 + Me.tbSeasonStartProb.Text = "Season Start Prob" + Me.tbSeasonStartProb.UseVisualStyleBackColor = True + ' + 'lblPlantingDayCond + ' + Me.lblPlantingDayCond.AutoSize = True + Me.lblPlantingDayCond.Location = New System.Drawing.Point(250, 139) + Me.lblPlantingDayCond.Name = "lblPlantingDayCond" + Me.lblPlantingDayCond.Size = New System.Drawing.Size(117, 13) + Me.lblPlantingDayCond.TabIndex = 7 + Me.lblPlantingDayCond.Text = "Planting Day Condition:" + ' + 'lblSeasonYear + ' + Me.lblSeasonYear.AutoSize = True + Me.lblSeasonYear.Location = New System.Drawing.Point(250, 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:" + ' + 'tbAnnualTempSummaries + ' + Me.tbAnnualTempSummaries.Controls.Add(Me.lblMinMinAnnual) + 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.ucrReceiverMinMinAnnual) + 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, 3, 3, 3) + Me.tbAnnualTempSummaries.Size = New System.Drawing.Size(515, 447) + Me.tbAnnualTempSummaries.TabIndex = 3 + Me.tbAnnualTempSummaries.Text = "Annual Temperature" + Me.tbAnnualTempSummaries.UseVisualStyleBackColor = True + ' + 'lblMinMinAnnual + ' + Me.lblMinMinAnnual.AutoSize = True + Me.lblMinMinAnnual.Location = New System.Drawing.Point(248, 135) + Me.lblMinMinAnnual.Name = "lblMinMinAnnual" + Me.lblMinMinAnnual.Size = New System.Drawing.Size(98, 13) + Me.lblMinMinAnnual.TabIndex = 7 + Me.lblMinMinAnnual.Text = "Min Minimum Temp" + ' + 'lblMeanAnnualTemp + ' + Me.lblMeanAnnualTemp.AutoSize = True + Me.lblMeanAnnualTemp.Location = New System.Drawing.Point(248, 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(248, 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(248, 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(248, 295) + Me.lblMaxMaxAnnual.Name = "lblMaxMaxAnnual" + Me.lblMaxMaxAnnual.Size = New System.Drawing.Size(104, 13) + Me.lblMaxMaxAnnual.TabIndex = 15 + Me.lblMaxMaxAnnual.Text = "Max Maximum Temp" + ' + 'lblMinMaxAnnual + ' + Me.lblMinMaxAnnual.AutoSize = True + Me.lblMinMaxAnnual.Location = New System.Drawing.Point(248, 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(248, 214) + Me.lblMeanMaxAnnual.Name = "lblMeanMaxAnnual" + Me.lblMeanMaxAnnual.Size = New System.Drawing.Size(111, 13) + Me.lblMeanMaxAnnual.TabIndex = 11 + Me.lblMeanMaxAnnual.Text = "Mean Maximum Temp" + ' + 'tbMonthlyTemp + ' + Me.tbMonthlyTemp.Controls.Add(Me.lblMonth) + Me.tbMonthlyTemp.Controls.Add(Me.lblMinMInMonthly) + 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.ucrReceiverMonthMonthly) + Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverMinMinMonthly) + 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, 3, 3, 3) + Me.tbMonthlyTemp.Size = New System.Drawing.Size(515, 447) + 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:" + ' + 'lblMinMInMonthly + ' + Me.lblMinMInMonthly.AutoSize = True + Me.lblMinMInMonthly.Location = New System.Drawing.Point(247, 181) + Me.lblMinMInMonthly.Name = "lblMinMInMonthly" + Me.lblMinMInMonthly.Size = New System.Drawing.Size(98, 13) + Me.lblMinMInMonthly.TabIndex = 9 + Me.lblMinMInMonthly.Text = "Min Minimum Temp" + ' + 'lblMeanMinMonthly + ' + Me.lblMeanMinMonthly.AutoSize = True + Me.lblMeanMinMonthly.Location = New System.Drawing.Point(247, 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(247, 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(247, 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(247, 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(247, 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(247, 260) + Me.lblMeanMaxMonthly.Name = "lblMeanMaxMonthly" + Me.lblMeanMaxMonthly.Size = New System.Drawing.Size(111, 13) + Me.lblMeanMaxMonthly.TabIndex = 13 + Me.lblMeanMaxMonthly.Text = "Mean Maximum Temp" + ' + 'ucrReceiverStartRainStatus + ' + Me.ucrReceiverStartRainStatus.AutoSize = True + Me.ucrReceiverStartRainStatus.frmParent = Nothing + Me.ucrReceiverStartRainStatus.Location = New System.Drawing.Point(264, 343) + Me.ucrReceiverStartRainStatus.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverStartRainStatus.Name = "ucrReceiverStartRainStatus" + Me.ucrReceiverStartRainStatus.Selector = Nothing + Me.ucrReceiverStartRainStatus.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverStartRainStatus.strNcFilePath = "" + Me.ucrReceiverStartRainStatus.TabIndex = 28 + Me.ucrReceiverStartRainStatus.ucrSelector = Nothing + ' + 'ucrReceiverEndRainStatus + ' + Me.ucrReceiverEndRainStatus.AutoSize = True + Me.ucrReceiverEndRainStatus.frmParent = Nothing + Me.ucrReceiverEndRainStatus.Location = New System.Drawing.Point(264, 383) + Me.ucrReceiverEndRainStatus.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverEndRainStatus.Name = "ucrReceiverEndRainStatus" + Me.ucrReceiverEndRainStatus.Selector = Nothing + Me.ucrReceiverEndRainStatus.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverEndRainStatus.strNcFilePath = "" + Me.ucrReceiverEndRainStatus.TabIndex = 30 + Me.ucrReceiverEndRainStatus.ucrSelector = Nothing + ' + 'ucrReceiverEndSeasonStatus + ' + Me.ucrReceiverEndSeasonStatus.AutoSize = True + Me.ucrReceiverEndSeasonStatus.frmParent = Nothing + Me.ucrReceiverEndSeasonStatus.Location = New System.Drawing.Point(261, 422) + Me.ucrReceiverEndSeasonStatus.Margin = New System.Windows.Forms.Padding(0) + Me.ucrReceiverEndSeasonStatus.Name = "ucrReceiverEndSeasonStatus" + Me.ucrReceiverEndSeasonStatus.Selector = Nothing + Me.ucrReceiverEndSeasonStatus.Size = New System.Drawing.Size(120, 25) + Me.ucrReceiverEndSeasonStatus.strNcFilePath = "" + Me.ucrReceiverEndSeasonStatus.TabIndex = 32 + Me.ucrReceiverEndSeasonStatus.ucrSelector = Nothing + ' + 'ucrReceiverRainDaysYear + ' + Me.ucrReceiverRainDaysYear.AutoSize = True + Me.ucrReceiverRainDaysYear.frmParent = Nothing + Me.ucrReceiverRainDaysYear.Location = New System.Drawing.Point(264, 101) + 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 = 16 + Me.ucrReceiverRainDaysYear.ucrSelector = Nothing + ' + 'ucrReceiverStartRainDate + ' + Me.ucrReceiverStartRainDate.AutoSize = True + Me.ucrReceiverStartRainDate.frmParent = Nothing + Me.ucrReceiverStartRainDate.Location = New System.Drawing.Point(9, 333) + 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 = 8 + Me.ucrReceiverStartRainDate.ucrSelector = Nothing + ' + 'ucrReceiverStartRainDOY + ' + Me.ucrReceiverStartRainDOY.AutoSize = True + Me.ucrReceiverStartRainDOY.frmParent = Nothing + Me.ucrReceiverStartRainDOY.Location = New System.Drawing.Point(9, 292) + 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 = 6 + Me.ucrReceiverStartRainDOY.ucrSelector = Nothing + ' + 'ucrReceiverYear + ' + Me.ucrReceiverYear.AutoSize = True + Me.ucrReceiverYear.frmParent = Nothing + Me.ucrReceiverYear.Location = New System.Drawing.Point(9, 248) + 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 = 4 + Me.ucrReceiverYear.ucrSelector = Nothing + ' + 'ucrReceiverStation + ' + Me.ucrReceiverStation.AutoSize = True + Me.ucrReceiverStation.frmParent = Nothing + Me.ucrReceiverStation.Location = New System.Drawing.Point(11, 204) + 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 = 2 + Me.ucrReceiverStation.ucrSelector = Nothing + ' + 'ucrReceiverEndSeasonDate + ' + Me.ucrReceiverEndSeasonDate.AutoSize = True + Me.ucrReceiverEndSeasonDate.frmParent = Nothing + Me.ucrReceiverEndSeasonDate.Location = New System.Drawing.Point(264, 302) + 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 = 26 + Me.ucrReceiverEndSeasonDate.ucrSelector = Nothing + ' + 'ucrReceiverEndSeasonDOY + ' + Me.ucrReceiverEndSeasonDOY.AutoSize = True + Me.ucrReceiverEndSeasonDOY.frmParent = Nothing + Me.ucrReceiverEndSeasonDOY.Location = New System.Drawing.Point(264, 263) + Me.ucrReceiverEndSeasonDOY.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverEndSeasonDOY.Name = "ucrReceiverEndSeasonDOY" Me.ucrReceiverEndSeasonDOY.Selector = Nothing - Me.ucrReceiverEndSeasonDOY.Size = New System.Drawing.Size(180, 38) + Me.ucrReceiverEndSeasonDOY.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverEndSeasonDOY.strNcFilePath = "" Me.ucrReceiverEndSeasonDOY.TabIndex = 24 Me.ucrReceiverEndSeasonDOY.ucrSelector = Nothing @@ -551,11 +790,11 @@ Partial Class sdgDefineAnnualRainfall ' Me.ucrReceiverEndRainsDOY.AutoSize = True Me.ucrReceiverEndRainsDOY.frmParent = Nothing - Me.ucrReceiverEndRainsDOY.Location = New System.Drawing.Point(392, 283) + Me.ucrReceiverEndRainsDOY.Location = New System.Drawing.Point(264, 184) Me.ucrReceiverEndRainsDOY.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverEndRainsDOY.Name = "ucrReceiverEndRainsDOY" Me.ucrReceiverEndRainsDOY.Selector = Nothing - Me.ucrReceiverEndRainsDOY.Size = New System.Drawing.Size(180, 38) + Me.ucrReceiverEndRainsDOY.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverEndRainsDOY.strNcFilePath = "" Me.ucrReceiverEndRainsDOY.TabIndex = 20 Me.ucrReceiverEndRainsDOY.ucrSelector = Nothing @@ -564,11 +803,11 @@ Partial Class sdgDefineAnnualRainfall ' Me.ucrReceiverEndRainsDate.AutoSize = True Me.ucrReceiverEndRainsDate.frmParent = Nothing - Me.ucrReceiverEndRainsDate.Location = New System.Drawing.Point(392, 346) + Me.ucrReceiverEndRainsDate.Location = New System.Drawing.Point(264, 225) Me.ucrReceiverEndRainsDate.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverEndRainsDate.Name = "ucrReceiverEndRainsDate" Me.ucrReceiverEndRainsDate.Selector = Nothing - Me.ucrReceiverEndRainsDate.Size = New System.Drawing.Size(180, 38) + Me.ucrReceiverEndRainsDate.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverEndRainsDate.strNcFilePath = "" Me.ucrReceiverEndRainsDate.TabIndex = 22 Me.ucrReceiverEndRainsDate.ucrSelector = Nothing @@ -577,11 +816,11 @@ Partial Class sdgDefineAnnualRainfall ' Me.ucrReceiverSeasonalLength.AutoSize = True Me.ucrReceiverSeasonalLength.frmParent = Nothing - Me.ucrReceiverSeasonalLength.Location = New System.Drawing.Point(392, 218) + Me.ucrReceiverSeasonalLength.Location = New System.Drawing.Point(264, 142) Me.ucrReceiverSeasonalLength.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverSeasonalLength.Name = "ucrReceiverSeasonalLength" Me.ucrReceiverSeasonalLength.Selector = Nothing - Me.ucrReceiverSeasonalLength.Size = New System.Drawing.Size(180, 38) + Me.ucrReceiverSeasonalLength.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverSeasonalLength.strNcFilePath = "" Me.ucrReceiverSeasonalLength.TabIndex = 18 Me.ucrReceiverSeasonalLength.ucrSelector = Nothing @@ -590,11 +829,11 @@ Partial Class sdgDefineAnnualRainfall ' Me.ucrReceiverRainDaysSeason.AutoSize = True Me.ucrReceiverRainDaysSeason.frmParent = Nothing - Me.ucrReceiverRainDaysSeason.Location = New System.Drawing.Point(392, 90) + Me.ucrReceiverRainDaysSeason.Location = New System.Drawing.Point(264, 58) Me.ucrReceiverRainDaysSeason.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverRainDaysSeason.Name = "ucrReceiverRainDaysSeason" Me.ucrReceiverRainDaysSeason.Selector = Nothing - Me.ucrReceiverRainDaysSeason.Size = New System.Drawing.Size(180, 38) + Me.ucrReceiverRainDaysSeason.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverRainDaysSeason.strNcFilePath = "" Me.ucrReceiverRainDaysSeason.TabIndex = 14 Me.ucrReceiverRainDaysSeason.ucrSelector = Nothing @@ -603,11 +842,11 @@ Partial Class sdgDefineAnnualRainfall ' Me.ucrReceiverSeasonalRain.AutoSize = True Me.ucrReceiverSeasonalRain.frmParent = Nothing - Me.ucrReceiverSeasonalRain.Location = New System.Drawing.Point(14, 641) + Me.ucrReceiverSeasonalRain.Location = New System.Drawing.Point(9, 417) Me.ucrReceiverSeasonalRain.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverSeasonalRain.Name = "ucrReceiverSeasonalRain" Me.ucrReceiverSeasonalRain.Selector = Nothing - Me.ucrReceiverSeasonalRain.Size = New System.Drawing.Size(180, 38) + Me.ucrReceiverSeasonalRain.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverSeasonalRain.strNcFilePath = "" Me.ucrReceiverSeasonalRain.TabIndex = 12 Me.ucrReceiverSeasonalRain.ucrSelector = Nothing @@ -616,11 +855,11 @@ Partial Class sdgDefineAnnualRainfall ' Me.ucrReceiverAnnualRain.AutoSize = True Me.ucrReceiverAnnualRain.frmParent = Nothing - Me.ucrReceiverAnnualRain.Location = New System.Drawing.Point(16, 573) + Me.ucrReceiverAnnualRain.Location = New System.Drawing.Point(11, 372) Me.ucrReceiverAnnualRain.Margin = New System.Windows.Forms.Padding(0) Me.ucrReceiverAnnualRain.Name = "ucrReceiverAnnualRain" Me.ucrReceiverAnnualRain.Selector = Nothing - Me.ucrReceiverAnnualRain.Size = New System.Drawing.Size(180, 38) + Me.ucrReceiverAnnualRain.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverAnnualRain.strNcFilePath = "" Me.ucrReceiverAnnualRain.TabIndex = 10 Me.ucrReceiverAnnualRain.ucrSelector = Nothing @@ -630,94 +869,22 @@ Partial Class sdgDefineAnnualRainfall Me.ucrSelectorDefineAnnualRain.AutoSize = True Me.ucrSelectorDefineAnnualRain.bDropUnusedFilterLevels = False Me.ucrSelectorDefineAnnualRain.bShowHiddenColumns = False - Me.ucrSelectorDefineAnnualRain.bUseCurrentFilter = True - Me.ucrSelectorDefineAnnualRain.Location = New System.Drawing.Point(10, 7) - Me.ucrSelectorDefineAnnualRain.Margin = New System.Windows.Forms.Padding(0) - Me.ucrSelectorDefineAnnualRain.Name = "ucrSelectorDefineAnnualRain" - Me.ucrSelectorDefineAnnualRain.Size = New System.Drawing.Size(339, 293) - Me.ucrSelectorDefineAnnualRain.TabIndex = 0 - ' - 'tbCropSuccessProp - ' - Me.tbCropSuccessProp.Controls.Add(Me.lblPlantingLength) - 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.ucrReceiverPlantingLenghth) - 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, 29) - Me.tbCropSuccessProp.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.tbCropSuccessProp.Name = "tbCropSuccessProp" - Me.tbCropSuccessProp.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.tbCropSuccessProp.Size = New System.Drawing.Size(776, 695) - 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(378, 211) - Me.lblPlantingLength.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblPlantingLength.Name = "lblPlantingLength" - Me.lblPlantingLength.Size = New System.Drawing.Size(124, 20) - Me.lblPlantingLength.TabIndex = 7 - Me.lblPlantingLength.Text = "Planting Length:" - ' - 'lblPlantingDay - ' - Me.lblPlantingDay.AutoSize = True - Me.lblPlantingDay.Location = New System.Drawing.Point(368, 146) - Me.lblPlantingDay.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblPlantingDay.Name = "lblPlantingDay" - Me.lblPlantingDay.Size = New System.Drawing.Size(102, 20) - Me.lblPlantingDay.TabIndex = 5 - Me.lblPlantingDay.Text = "Planting Day:" - ' - 'lblProbSuccess - ' - Me.lblProbSuccess.AutoSize = True - Me.lblProbSuccess.Location = New System.Drawing.Point(376, 271) - Me.lblProbSuccess.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblProbSuccess.Name = "lblProbSuccess" - Me.lblProbSuccess.Size = New System.Drawing.Size(173, 20) - Me.lblProbSuccess.TabIndex = 9 - Me.lblProbSuccess.Text = "Proportion of Success :" - ' - 'lblTotalRain - ' - Me.lblTotalRain.AutoSize = True - Me.lblTotalRain.Location = New System.Drawing.Point(374, 83) - Me.lblTotalRain.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblTotalRain.Name = "lblTotalRain" - Me.lblTotalRain.Size = New System.Drawing.Size(85, 20) - Me.lblTotalRain.TabIndex = 3 - Me.lblTotalRain.Text = "Total Rain:" - ' - 'lblCropStation - ' - Me.lblCropStation.AutoSize = True - Me.lblCropStation.Location = New System.Drawing.Point(372, 17) - Me.lblCropStation.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblCropStation.Name = "lblCropStation" - Me.lblCropStation.Size = New System.Drawing.Size(64, 20) - Me.lblCropStation.TabIndex = 1 - Me.lblCropStation.Text = "Station:" + Me.ucrSelectorDefineAnnualRain.bUseCurrentFilter = True + Me.ucrSelectorDefineAnnualRain.Location = New System.Drawing.Point(7, 5) + Me.ucrSelectorDefineAnnualRain.Margin = New System.Windows.Forms.Padding(0) + Me.ucrSelectorDefineAnnualRain.Name = "ucrSelectorDefineAnnualRain" + Me.ucrSelectorDefineAnnualRain.Size = New System.Drawing.Size(226, 190) + Me.ucrSelectorDefineAnnualRain.TabIndex = 0 ' 'ucrReceiverPlantingLenghth ' Me.ucrReceiverPlantingLenghth.AutoSize = True - Me.ucrReceiverPlantingLenghth.frmParent = Nothing - Me.ucrReceiverPlantingLenghth.Location = New System.Drawing.Point(375, 235) + Me.ucrReceiverPlantingLenghth.frmParent = Me + Me.ucrReceiverPlantingLenghth.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverPlantingLenghth.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverPlantingLenghth.strNcFilePath = "" Me.ucrReceiverPlantingLenghth.TabIndex = 8 Me.ucrReceiverPlantingLenghth.ucrSelector = Nothing @@ -725,12 +892,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverPropSuccess ' Me.ucrReceiverPropSuccess.AutoSize = True - Me.ucrReceiverPropSuccess.frmParent = Nothing - Me.ucrReceiverPropSuccess.Location = New System.Drawing.Point(374, 298) + Me.ucrReceiverPropSuccess.frmParent = Me + Me.ucrReceiverPropSuccess.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverPropSuccess.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverPropSuccess.strNcFilePath = "" Me.ucrReceiverPropSuccess.TabIndex = 10 Me.ucrReceiverPropSuccess.ucrSelector = Nothing @@ -738,12 +905,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverPlantingDay ' Me.ucrReceiverPlantingDay.AutoSize = True - Me.ucrReceiverPlantingDay.frmParent = Nothing - Me.ucrReceiverPlantingDay.Location = New System.Drawing.Point(372, 175) + Me.ucrReceiverPlantingDay.frmParent = Me + 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(180, 38) + Me.ucrReceiverPlantingDay.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverPlantingDay.strNcFilePath = "" Me.ucrReceiverPlantingDay.TabIndex = 6 Me.ucrReceiverPlantingDay.ucrSelector = Nothing @@ -751,12 +918,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverTotalRain ' Me.ucrReceiverTotalRain.AutoSize = True - Me.ucrReceiverTotalRain.frmParent = Nothing - Me.ucrReceiverTotalRain.Location = New System.Drawing.Point(370, 109) + Me.ucrReceiverTotalRain.frmParent = Me + Me.ucrReceiverTotalRain.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverTotalRain.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverTotalRain.strNcFilePath = "" Me.ucrReceiverTotalRain.TabIndex = 4 Me.ucrReceiverTotalRain.ucrSelector = Nothing @@ -764,12 +931,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverStationCrop ' Me.ucrReceiverStationCrop.AutoSize = True - Me.ucrReceiverStationCrop.frmParent = Nothing - Me.ucrReceiverStationCrop.Location = New System.Drawing.Point(369, 43) + Me.ucrReceiverStationCrop.frmParent = Me + Me.ucrReceiverStationCrop.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverStationCrop.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverStationCrop.strNcFilePath = "" Me.ucrReceiverStationCrop.TabIndex = 2 Me.ucrReceiverStationCrop.ucrSelector = Nothing @@ -780,71 +947,21 @@ Partial Class sdgDefineAnnualRainfall Me.ucrSelectorCropProp.bDropUnusedFilterLevels = False Me.ucrSelectorCropProp.bShowHiddenColumns = False Me.ucrSelectorCropProp.bUseCurrentFilter = True - Me.ucrSelectorCropProp.Location = New System.Drawing.Point(16, 12) + 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(339, 412) + Me.ucrSelectorCropProp.Size = New System.Drawing.Size(226, 268) Me.ucrSelectorCropProp.TabIndex = 0 ' - 'tbSeasonStartProb - ' - Me.tbSeasonStartProb.Controls.Add(Me.lblPlantingDayCond) - Me.tbSeasonStartProb.Controls.Add(Me.lblSeasonPlantingDay) - Me.tbSeasonStartProb.Controls.Add(Me.lblSeasonYear) - Me.tbSeasonStartProb.Controls.Add(Me.lblStationSeasonProb) - Me.tbSeasonStartProb.Controls.Add(Me.ucrReceiverPlantingDayCondition) - 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, 29) - Me.tbSeasonStartProb.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.tbSeasonStartProb.Name = "tbSeasonStartProb" - Me.tbSeasonStartProb.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.tbSeasonStartProb.Size = New System.Drawing.Size(776, 695) - Me.tbSeasonStartProb.TabIndex = 2 - Me.tbSeasonStartProb.Text = "Season Start Prob" - Me.tbSeasonStartProb.UseVisualStyleBackColor = True - ' - 'lblPlantingDayCond - ' - Me.lblPlantingDayCond.AutoSize = True - Me.lblPlantingDayCond.Location = New System.Drawing.Point(381, 214) - Me.lblPlantingDayCond.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblPlantingDayCond.Name = "lblPlantingDayCond" - Me.lblPlantingDayCond.Size = New System.Drawing.Size(173, 20) - Me.lblPlantingDayCond.TabIndex = 7 - Me.lblPlantingDayCond.Text = "Planting Day Condition:" - ' - 'lblSeasonYear - ' - Me.lblSeasonYear.AutoSize = True - Me.lblSeasonYear.Location = New System.Drawing.Point(376, 86) - Me.lblSeasonYear.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblSeasonYear.Name = "lblSeasonYear" - Me.lblSeasonYear.Size = New System.Drawing.Size(47, 20) - Me.lblSeasonYear.TabIndex = 3 - Me.lblSeasonYear.Text = "Year:" - ' - 'lblStationSeasonProb - ' - Me.lblStationSeasonProb.AutoSize = True - Me.lblStationSeasonProb.Location = New System.Drawing.Point(375, 20) - Me.lblStationSeasonProb.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblStationSeasonProb.Name = "lblStationSeasonProb" - Me.lblStationSeasonProb.Size = New System.Drawing.Size(64, 20) - Me.lblStationSeasonProb.TabIndex = 1 - Me.lblStationSeasonProb.Text = "Station:" - ' 'ucrReceiverPlantingDayCondition ' Me.ucrReceiverPlantingDayCondition.AutoSize = True - Me.ucrReceiverPlantingDayCondition.frmParent = Nothing - Me.ucrReceiverPlantingDayCondition.Location = New System.Drawing.Point(378, 238) + Me.ucrReceiverPlantingDayCondition.frmParent = Me + Me.ucrReceiverPlantingDayCondition.Location = New System.Drawing.Point(250, 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(180, 38) + Me.ucrReceiverPlantingDayCondition.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverPlantingDayCondition.strNcFilePath = "" Me.ucrReceiverPlantingDayCondition.TabIndex = 8 Me.ucrReceiverPlantingDayCondition.ucrSelector = Nothing @@ -852,12 +969,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverSeasonPlantingDay ' Me.ucrReceiverSeasonPlantingDay.AutoSize = True - Me.ucrReceiverSeasonPlantingDay.frmParent = Nothing - Me.ucrReceiverSeasonPlantingDay.Location = New System.Drawing.Point(375, 178) + Me.ucrReceiverSeasonPlantingDay.frmParent = Me + 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(180, 38) + Me.ucrReceiverSeasonPlantingDay.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverSeasonPlantingDay.strNcFilePath = "" Me.ucrReceiverSeasonPlantingDay.TabIndex = 6 Me.ucrReceiverSeasonPlantingDay.ucrSelector = Nothing @@ -865,12 +982,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverSeasonYear ' Me.ucrReceiverSeasonYear.AutoSize = True - Me.ucrReceiverSeasonYear.frmParent = Nothing - Me.ucrReceiverSeasonYear.Location = New System.Drawing.Point(374, 112) + Me.ucrReceiverSeasonYear.frmParent = Me + Me.ucrReceiverSeasonYear.Location = New System.Drawing.Point(250, 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(180, 38) + Me.ucrReceiverSeasonYear.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverSeasonYear.strNcFilePath = "" Me.ucrReceiverSeasonYear.TabIndex = 4 Me.ucrReceiverSeasonYear.ucrSelector = Nothing @@ -878,133 +995,37 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverSeasonStationProb ' Me.ucrReceiverSeasonStationProb.AutoSize = True - Me.ucrReceiverSeasonStationProb.frmParent = Nothing - Me.ucrReceiverSeasonStationProb.Location = New System.Drawing.Point(372, 46) + Me.ucrReceiverSeasonStationProb.frmParent = Me + Me.ucrReceiverSeasonStationProb.Location = New System.Drawing.Point(250, 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(180, 38) + Me.ucrReceiverSeasonStationProb.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverSeasonStationProb.strNcFilePath = "" Me.ucrReceiverSeasonStationProb.TabIndex = 2 Me.ucrReceiverSeasonStationProb.ucrSelector = Nothing ' - 'tbAnnualTempSummaries - ' - Me.tbAnnualTempSummaries.Controls.Add(Me.lblMinMinAnnual) - 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.ucrReceiverMinMinAnnual) - 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, 29) - Me.tbAnnualTempSummaries.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.tbAnnualTempSummaries.Name = "tbAnnualTempSummaries" - Me.tbAnnualTempSummaries.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.tbAnnualTempSummaries.Size = New System.Drawing.Size(776, 695) - Me.tbAnnualTempSummaries.TabIndex = 3 - Me.tbAnnualTempSummaries.Text = "Annual Temperature" - Me.tbAnnualTempSummaries.UseVisualStyleBackColor = True - ' - 'lblMinMinAnnual - ' - Me.lblMinMinAnnual.AutoSize = True - Me.lblMinMinAnnual.Location = New System.Drawing.Point(374, 208) - Me.lblMinMinAnnual.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMinMinAnnual.Name = "lblMinMinAnnual" - Me.lblMinMinAnnual.Size = New System.Drawing.Size(145, 20) - Me.lblMinMinAnnual.TabIndex = 7 - Me.lblMinMinAnnual.Text = "Min Minimum Temp" - ' - 'lblMeanAnnualTemp - ' - Me.lblMeanAnnualTemp.AutoSize = True - Me.lblMeanAnnualTemp.Location = New System.Drawing.Point(368, 143) - Me.lblMeanAnnualTemp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMeanAnnualTemp.Name = "lblMeanAnnualTemp" - Me.lblMeanAnnualTemp.Size = New System.Drawing.Size(160, 20) - Me.lblMeanAnnualTemp.TabIndex = 5 - Me.lblMeanAnnualTemp.Text = "Mean Minimum Temp" - ' - 'lblMaxMinAnnual - ' - Me.lblMaxMinAnnual.AutoSize = True - Me.lblMaxMinAnnual.Location = New System.Drawing.Point(376, 268) - Me.lblMaxMinAnnual.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMaxMinAnnual.Name = "lblMaxMinAnnual" - Me.lblMaxMinAnnual.Size = New System.Drawing.Size(149, 20) - Me.lblMaxMinAnnual.TabIndex = 9 - Me.lblMaxMinAnnual.Text = "Max Minimum Temp" - ' - 'lblAnnualTempYear - ' - Me.lblAnnualTempYear.AutoSize = True - Me.lblAnnualTempYear.Location = New System.Drawing.Point(374, 80) - Me.lblAnnualTempYear.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblAnnualTempYear.Name = "lblAnnualTempYear" - Me.lblAnnualTempYear.Size = New System.Drawing.Size(47, 20) - Me.lblAnnualTempYear.TabIndex = 3 - Me.lblAnnualTempYear.Text = "Year:" - ' - 'lblAnnualTempStation - ' - Me.lblAnnualTempStation.AutoSize = True - Me.lblAnnualTempStation.Location = New System.Drawing.Point(372, 14) - Me.lblAnnualTempStation.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblAnnualTempStation.Name = "lblAnnualTempStation" - Me.lblAnnualTempStation.Size = New System.Drawing.Size(64, 20) - Me.lblAnnualTempStation.TabIndex = 1 - Me.lblAnnualTempStation.Text = "Station:" - ' - 'lblMaxMaxAnnual - ' - Me.lblMaxMaxAnnual.AutoSize = True - Me.lblMaxMaxAnnual.Location = New System.Drawing.Point(382, 454) - Me.lblMaxMaxAnnual.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMaxMaxAnnual.Name = "lblMaxMaxAnnual" - Me.lblMaxMaxAnnual.Size = New System.Drawing.Size(153, 20) - Me.lblMaxMaxAnnual.TabIndex = 15 - Me.lblMaxMaxAnnual.Text = "Max Maximum Temp" - ' - 'lblMinMaxAnnual - ' - Me.lblMinMaxAnnual.AutoSize = True - Me.lblMinMaxAnnual.Location = New System.Drawing.Point(381, 389) - Me.lblMinMaxAnnual.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMinMaxAnnual.Name = "lblMinMaxAnnual" - Me.lblMinMaxAnnual.Size = New System.Drawing.Size(153, 20) - Me.lblMinMaxAnnual.TabIndex = 13 - Me.lblMinMaxAnnual.Text = "Min Maximum Temp:" - ' - 'lblMeanMaxAnnual + 'ucrSelectorSeasonStartProp ' - Me.lblMeanMaxAnnual.AutoSize = True - Me.lblMeanMaxAnnual.Location = New System.Drawing.Point(381, 329) - Me.lblMeanMaxAnnual.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMeanMaxAnnual.Name = "lblMeanMaxAnnual" - Me.lblMeanMaxAnnual.Size = New System.Drawing.Size(164, 20) - Me.lblMeanMaxAnnual.TabIndex = 11 - Me.lblMeanMaxAnnual.Text = "Mean Maximum Temp" + 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(226, 268) + Me.ucrSelectorSeasonStartProp.TabIndex = 0 ' 'ucrReceiverMinMinAnnual ' Me.ucrReceiverMinMinAnnual.AutoSize = True - Me.ucrReceiverMinMinAnnual.frmParent = Nothing - Me.ucrReceiverMinMinAnnual.Location = New System.Drawing.Point(375, 232) + Me.ucrReceiverMinMinAnnual.frmParent = Me + Me.ucrReceiverMinMinAnnual.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverMinMinAnnual.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverMinMinAnnual.strNcFilePath = "" Me.ucrReceiverMinMinAnnual.TabIndex = 8 Me.ucrReceiverMinMinAnnual.ucrSelector = Nothing @@ -1012,12 +1033,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverMaxMaxAnnual ' Me.ucrReceiverMaxMaxAnnual.AutoSize = True - Me.ucrReceiverMaxMaxAnnual.frmParent = Nothing - Me.ucrReceiverMaxMaxAnnual.Location = New System.Drawing.Point(381, 474) + Me.ucrReceiverMaxMaxAnnual.frmParent = Me + Me.ucrReceiverMaxMaxAnnual.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverMaxMaxAnnual.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverMaxMaxAnnual.strNcFilePath = "" Me.ucrReceiverMaxMaxAnnual.TabIndex = 16 Me.ucrReceiverMaxMaxAnnual.ucrSelector = Nothing @@ -1025,12 +1046,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverMeanMaxAnnual ' Me.ucrReceiverMeanMaxAnnual.AutoSize = True - Me.ucrReceiverMeanMaxAnnual.frmParent = Nothing - Me.ucrReceiverMeanMaxAnnual.Location = New System.Drawing.Point(380, 355) + Me.ucrReceiverMeanMaxAnnual.frmParent = Me + Me.ucrReceiverMeanMaxAnnual.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverMeanMaxAnnual.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverMeanMaxAnnual.strNcFilePath = "" Me.ucrReceiverMeanMaxAnnual.TabIndex = 12 Me.ucrReceiverMeanMaxAnnual.ucrSelector = Nothing @@ -1038,12 +1059,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverMinMaxAnnual ' Me.ucrReceiverMinMaxAnnual.AutoSize = True - Me.ucrReceiverMinMaxAnnual.frmParent = Nothing - Me.ucrReceiverMinMaxAnnual.Location = New System.Drawing.Point(376, 417) + Me.ucrReceiverMinMaxAnnual.frmParent = Me + Me.ucrReceiverMinMaxAnnual.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverMinMaxAnnual.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverMinMaxAnnual.strNcFilePath = "" Me.ucrReceiverMinMaxAnnual.TabIndex = 14 Me.ucrReceiverMinMaxAnnual.ucrSelector = Nothing @@ -1051,12 +1072,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverMaxMinAnnual ' Me.ucrReceiverMaxMinAnnual.AutoSize = True - Me.ucrReceiverMaxMinAnnual.frmParent = Nothing - Me.ucrReceiverMaxMinAnnual.Location = New System.Drawing.Point(374, 295) + Me.ucrReceiverMaxMinAnnual.frmParent = Me + Me.ucrReceiverMaxMinAnnual.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverMaxMinAnnual.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverMaxMinAnnual.strNcFilePath = "" Me.ucrReceiverMaxMinAnnual.TabIndex = 10 Me.ucrReceiverMaxMinAnnual.ucrSelector = Nothing @@ -1064,12 +1085,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverMeanAnnual ' Me.ucrReceiverMeanAnnual.AutoSize = True - Me.ucrReceiverMeanAnnual.frmParent = Nothing - Me.ucrReceiverMeanAnnual.Location = New System.Drawing.Point(372, 172) + Me.ucrReceiverMeanAnnual.frmParent = Me + 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(180, 38) + Me.ucrReceiverMeanAnnual.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverMeanAnnual.strNcFilePath = "" Me.ucrReceiverMeanAnnual.TabIndex = 6 Me.ucrReceiverMeanAnnual.ucrSelector = Nothing @@ -1077,12 +1098,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverAnnualTempYr ' Me.ucrReceiverAnnualTempYr.AutoSize = True - Me.ucrReceiverAnnualTempYr.frmParent = Nothing - Me.ucrReceiverAnnualTempYr.Location = New System.Drawing.Point(370, 106) + Me.ucrReceiverAnnualTempYr.frmParent = Me + Me.ucrReceiverAnnualTempYr.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverAnnualTempYr.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverAnnualTempYr.strNcFilePath = "" Me.ucrReceiverAnnualTempYr.TabIndex = 4 Me.ucrReceiverAnnualTempYr.ucrSelector = Nothing @@ -1090,12 +1111,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverAnnualTempStation ' Me.ucrReceiverAnnualTempStation.AutoSize = True - Me.ucrReceiverAnnualTempStation.frmParent = Nothing - Me.ucrReceiverAnnualTempStation.Location = New System.Drawing.Point(369, 40) + Me.ucrReceiverAnnualTempStation.frmParent = Me + Me.ucrReceiverAnnualTempStation.Location = New System.Drawing.Point(248, 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(180, 38) + Me.ucrReceiverAnnualTempStation.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverAnnualTempStation.strNcFilePath = "" Me.ucrReceiverAnnualTempStation.TabIndex = 2 Me.ucrReceiverAnnualTempStation.ucrSelector = Nothing @@ -1106,141 +1127,21 @@ Partial Class sdgDefineAnnualRainfall Me.ucrSelectorAnnualTemp.bDropUnusedFilterLevels = False Me.ucrSelectorAnnualTemp.bShowHiddenColumns = False Me.ucrSelectorAnnualTemp.bUseCurrentFilter = True - Me.ucrSelectorAnnualTemp.Location = New System.Drawing.Point(16, 9) + 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(339, 412) + Me.ucrSelectorAnnualTemp.Size = New System.Drawing.Size(226, 268) Me.ucrSelectorAnnualTemp.TabIndex = 0 ' - 'tbMonthlyTemp - ' - Me.tbMonthlyTemp.Controls.Add(Me.lblMonth) - Me.tbMonthlyTemp.Controls.Add(Me.lblMinMInMonthly) - 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.ucrReceiverMonthMonthly) - Me.tbMonthlyTemp.Controls.Add(Me.ucrReceiverMinMinMonthly) - 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, 29) - Me.tbMonthlyTemp.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.tbMonthlyTemp.Name = "tbMonthlyTemp" - Me.tbMonthlyTemp.Padding = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.tbMonthlyTemp.Size = New System.Drawing.Size(776, 695) - 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(370, 146) - 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:" - ' - 'lblMinMInMonthly - ' - Me.lblMinMInMonthly.AutoSize = True - Me.lblMinMInMonthly.Location = New System.Drawing.Point(372, 278) - Me.lblMinMInMonthly.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMinMInMonthly.Name = "lblMinMInMonthly" - Me.lblMinMInMonthly.Size = New System.Drawing.Size(145, 20) - Me.lblMinMInMonthly.TabIndex = 9 - Me.lblMinMInMonthly.Text = "Min Minimum Temp" - ' - 'lblMeanMinMonthly - ' - Me.lblMeanMinMonthly.AutoSize = True - Me.lblMeanMinMonthly.Location = New System.Drawing.Point(366, 214) - Me.lblMeanMinMonthly.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMeanMinMonthly.Name = "lblMeanMinMonthly" - Me.lblMeanMinMonthly.Size = New System.Drawing.Size(160, 20) - Me.lblMeanMinMonthly.TabIndex = 7 - Me.lblMeanMinMonthly.Text = "Mean Minimum Temp" - ' - 'lblMaxMinMonthly - ' - Me.lblMaxMinMonthly.AutoSize = True - Me.lblMaxMinMonthly.Location = New System.Drawing.Point(375, 338) - Me.lblMaxMinMonthly.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMaxMinMonthly.Name = "lblMaxMinMonthly" - Me.lblMaxMinMonthly.Size = New System.Drawing.Size(149, 20) - Me.lblMaxMinMonthly.TabIndex = 11 - Me.lblMaxMinMonthly.Text = "Max Minimum Temp" - ' - 'lblYearMonthTemp - ' - Me.lblYearMonthTemp.AutoSize = True - Me.lblYearMonthTemp.Location = New System.Drawing.Point(372, 83) - Me.lblYearMonthTemp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblYearMonthTemp.Name = "lblYearMonthTemp" - Me.lblYearMonthTemp.Size = New System.Drawing.Size(47, 20) - Me.lblYearMonthTemp.TabIndex = 3 - Me.lblYearMonthTemp.Text = "Year:" - ' - 'lblStationMonthTemp - ' - Me.lblStationMonthTemp.AutoSize = True - Me.lblStationMonthTemp.Location = New System.Drawing.Point(370, 23) - Me.lblStationMonthTemp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblStationMonthTemp.Name = "lblStationMonthTemp" - Me.lblStationMonthTemp.Size = New System.Drawing.Size(64, 20) - Me.lblStationMonthTemp.TabIndex = 1 - Me.lblStationMonthTemp.Text = "Station:" - ' - 'lblMaxMaxMonthly - ' - Me.lblMaxMaxMonthly.AutoSize = True - Me.lblMaxMaxMonthly.Location = New System.Drawing.Point(381, 525) - Me.lblMaxMaxMonthly.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMaxMaxMonthly.Name = "lblMaxMaxMonthly" - Me.lblMaxMaxMonthly.Size = New System.Drawing.Size(153, 20) - Me.lblMaxMaxMonthly.TabIndex = 17 - Me.lblMaxMaxMonthly.Text = "Max Maximum Temp" - ' - 'lblMinMaxMonthly - ' - Me.lblMinMaxMonthly.AutoSize = True - Me.lblMinMaxMonthly.Location = New System.Drawing.Point(380, 460) - Me.lblMinMaxMonthly.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMinMaxMonthly.Name = "lblMinMaxMonthly" - Me.lblMinMaxMonthly.Size = New System.Drawing.Size(153, 20) - Me.lblMinMaxMonthly.TabIndex = 15 - Me.lblMinMaxMonthly.Text = "Min Maximum Temp:" - ' - 'lblMeanMaxMonthly - ' - Me.lblMeanMaxMonthly.AutoSize = True - Me.lblMeanMaxMonthly.Location = New System.Drawing.Point(380, 400) - Me.lblMeanMaxMonthly.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) - Me.lblMeanMaxMonthly.Name = "lblMeanMaxMonthly" - Me.lblMeanMaxMonthly.Size = New System.Drawing.Size(164, 20) - Me.lblMeanMaxMonthly.TabIndex = 13 - Me.lblMeanMaxMonthly.Text = "Mean Maximum Temp" - ' 'ucrReceiverMonthMonthly ' Me.ucrReceiverMonthMonthly.AutoSize = True - Me.ucrReceiverMonthMonthly.frmParent = Nothing - Me.ucrReceiverMonthMonthly.Location = New System.Drawing.Point(368, 172) + Me.ucrReceiverMonthMonthly.frmParent = Me + Me.ucrReceiverMonthMonthly.Location = New System.Drawing.Point(247, 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(180, 38) + Me.ucrReceiverMonthMonthly.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverMonthMonthly.strNcFilePath = "" Me.ucrReceiverMonthMonthly.TabIndex = 6 Me.ucrReceiverMonthMonthly.ucrSelector = Nothing @@ -1248,12 +1149,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverMinMinMonthly ' Me.ucrReceiverMinMinMonthly.AutoSize = True - Me.ucrReceiverMinMinMonthly.frmParent = Nothing - Me.ucrReceiverMinMinMonthly.Location = New System.Drawing.Point(374, 303) + Me.ucrReceiverMinMinMonthly.frmParent = Me + Me.ucrReceiverMinMinMonthly.Location = New System.Drawing.Point(247, 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(180, 38) + Me.ucrReceiverMinMinMonthly.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverMinMinMonthly.strNcFilePath = "" Me.ucrReceiverMinMinMonthly.TabIndex = 10 Me.ucrReceiverMinMinMonthly.ucrSelector = Nothing @@ -1261,12 +1162,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverMaxMaxMonthly ' Me.ucrReceiverMaxMaxMonthly.AutoSize = True - Me.ucrReceiverMaxMaxMonthly.frmParent = Nothing - Me.ucrReceiverMaxMaxMonthly.Location = New System.Drawing.Point(380, 545) + Me.ucrReceiverMaxMaxMonthly.frmParent = Me + Me.ucrReceiverMaxMaxMonthly.Location = New System.Drawing.Point(247, 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(180, 38) + Me.ucrReceiverMaxMaxMonthly.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverMaxMaxMonthly.strNcFilePath = "" Me.ucrReceiverMaxMaxMonthly.TabIndex = 18 Me.ucrReceiverMaxMaxMonthly.ucrSelector = Nothing @@ -1274,12 +1175,12 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverMeanmaxMonthly ' Me.ucrReceiverMeanmaxMonthly.AutoSize = True - Me.ucrReceiverMeanmaxMonthly.frmParent = Nothing - Me.ucrReceiverMeanmaxMonthly.Location = New System.Drawing.Point(378, 426) + Me.ucrReceiverMeanmaxMonthly.frmParent = Me + Me.ucrReceiverMeanmaxMonthly.Location = New System.Drawing.Point(247, 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(180, 38) + Me.ucrReceiverMeanmaxMonthly.Size = New System.Drawing.Size(120, 25) Me.ucrReceiverMeanmaxMonthly.strNcFilePath = "" Me.ucrReceiverMeanmaxMonthly.TabIndex = 14 Me.ucrReceiverMeanmaxMonthly.ucrSelector = Nothing @@ -1287,48 +1188,98 @@ Partial Class sdgDefineAnnualRainfall 'ucrReceiverMinMaxMonthly ' Me.ucrReceiverMinMaxMonthly.AutoSize = True - Me.ucrReceiverMinMaxMonthly.frmParent = Nothing - Me.ucrReceiverMinMaxMonthly.Location = New System.Drawing.Point(375, 488) + Me.ucrReceiverMinMaxMonthly.frmParent = Me + Me.ucrReceiverMinMaxMonthly.Location = New System.Drawing.Point(247, 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(180, 38) + 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 = Me + Me.ucrReceiverMaxMinMonthly.Location = New System.Drawing.Point(247, 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(370, 243) + Me.ucrReceiverMeanminMontly.frmParent = Me + 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(180, 38) + 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 = Me + Me.ucrReceiverYearMonthly.Location = New System.Drawing.Point(247, 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 = Me + Me.ucrReceiverMonthlyTemp.Location = New System.Drawing.Point(247, 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 + ' + '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(226, 268) + Me.ucrSelecetorMonthlyTemp.TabIndex = 0 + ' 'ucrBase ' Me.ucrBase.AutoSize = True - Me.ucrBase.Location = New System.Drawing.Point(236, 751) - Me.ucrBase.Margin = New System.Windows.Forms.Padding(6) + Me.ucrBase.Location = New System.Drawing.Point(157, 488) + Me.ucrBase.Margin = New System.Windows.Forms.Padding(4) Me.ucrBase.Name = "ucrBase" - Me.ucrBase.Size = New System.Drawing.Size(336, 46) + Me.ucrBase.Size = New System.Drawing.Size(224, 30) Me.ucrBase.TabIndex = 35 ' 'sdgDefineAnnualRainfall ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoSize = True - Me.ClientSize = New System.Drawing.Size(820, 819) + Me.ClientSize = New System.Drawing.Size(547, 456) Me.Controls.Add(Me.tbSummaries) Me.Controls.Add(Me.ucrBase) 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 = "sdgDefineAnnualRainfall" diff --git a/instat/sdgDefineAnnualRainfall.vb b/instat/sdgDefineAnnualRainfall.vb index 6c09e8f7df9..1227f25560c 100644 --- a/instat/sdgDefineAnnualRainfall.vb +++ b/instat/sdgDefineAnnualRainfall.vb @@ -15,17 +15,83 @@ ' along with this program. If not, see . Imports instat.Translations +Imports System.Text.RegularExpressions +Imports RDotNet Public Class sdgDefineAnnualRainfall - + Private isFilling As Boolean = False Public clsReforMattAnnualSummariesFunction, clsExportRinstatToBucketFunction, clsReformatCropSuccessFunction, clsReformatSeasonStartFunction, clsReformatTempSummariesFunction, clsReformatMonthlyTempSummaries As New RFunction Public clsRsyntax As New RSyntax Public bControlsInitialised As Boolean = False + Dim lstReceivers As New List(Of ucrReceiverSingle) + Dim lstReceiversCrop As New List(Of ucrReceiverSingle) + Dim lstReceiversMonthTemp As New List(Of ucrReceiverSingle) + Dim lstReceiversAnnualTemp As New List(Of ucrReceiverSingle) + Dim lstReceiversProp As New List(Of ucrReceiverSingle) + + Dim lstRecognisedTypes As New List(Of KeyValuePair(Of String, List(Of String))) + Dim lstRecognisedCropTypes As New List(Of KeyValuePair(Of String, List(Of String))) + Dim lstRecognisedPropTypes As New List(Of KeyValuePair(Of String, List(Of String))) + Dim lstRecognisedAnnTempTypes As New List(Of KeyValuePair(Of String, List(Of String))) + Dim lstRecognisedMonthTempTypes As New List(Of KeyValuePair(Of String, List(Of String))) Private Sub sdgDefineAnnualRainfall_Load(sender As Object, e As EventArgs) Handles MyBase.Load autoTranslate(Me) + AutoFillReceivers() + AutoFillReceiversCrop() + AutoFillReceiversForAnnualTemp() + AutoFillReceiversForMonthlyTemp() + AutoFillReceiversForSeasonsStart() + End Sub Public Sub InitialiseControls() + Dim kvpAnnualRain As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("annual_rain_col", {"annual_rainfall", "annual_rain", "annual_precip", "annual_precipitation", "annual_rr", "annual_prec", "annual_prcp", "sum_rainfall", "sum_rain", "sum_precip", "sum_precipitation", "sum_rr", "sum_pre", "sum_prcp"}.ToList()) + Dim kvpSeasonalRain As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("seasonal_rain_col", {"seasonal_rainfall", "seasonal_rain", "seasonal_precip", "seasonal_precipitation", "seasonal_rr", "seasonal_prec", "seasonal_prcp"}.ToList()) + Dim kvpRainDaysYear As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("n_rain_col", {"annual_rainday", "sum_rainday"}.ToList()) + Dim kvpRainDaysSeason As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("n_seasonal_rain_col", {"seasonal_rainday"}.ToList()) + Dim kvpSeasonalLength As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("season_length_col", {"length"}.ToList()) + Dim kvpStartRainDOY As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("start_rains_doy_col", {"start_rain"}.ToList()) + Dim kvpStartRainDate As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("start_rains_date_col", {"start_rain_date"}.ToList()) + Dim kvpEndRainDOY As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("end_rains_doy_col", {"end_rains"}.ToList()) + Dim kvpEndRainDate As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("end_rains_date_col", {"end_rains_date"}.ToList()) + Dim kvpEndSeasonDOY As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("end_season_doy_col", {"end_season"}.ToList()) + Dim kvpEndSeasonDate As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("end_season_date_col", {"end_season_date"}.ToList()) + Dim kvpStartRainStatus As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("start_rains_status_column", {"start_rain_status"}.ToList()) + Dim kvpEndRainStatus As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("end_rains_status_column", {"end_rains_status"}.ToList()) + Dim kvpEndSeasonStatus As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("end_season_status_column", {"end_season_status"}.ToList()) + + Dim kvpMeanMinTemp As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("mean_tmin_col", {"mean_tmin", "mean_tn", "mean_tempmin", "mean_tmp_min", "mean_tmpmin", "mean_temperature_min", "mean_min_temperature"}.ToList()) + Dim kvpMinMinTemp As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("min_tmin_col", {"min_tmin", "min_tn", "min_tempmin", "min_tmp_min", "min_tmpmin", "min_temperature_min", "min_min_temperature"}.ToList()) + Dim kvpMaxMinTemp As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("max_tmin_col", {"max_tmin", "max_tn", "max_tempmin", "max_tmp_min", "max_tmpmin", "max_temperature_min", "max_min_temperature"}.ToList()) + Dim kvpMeanMaxTemp As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("mean_tmax_col", {"mean_tmax", "mean_tx", "mean_tempmax", "mean_tmp_max", "mean_tmpmax", "mean_temperature_max", "mean_max_temperature"}.ToList()) + Dim kvpMinMaxTemp As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("min_tmax_col", {"min_tmax", "min_tx", "min_tempmax", "min_tmp_max", "min_tmpmax", "min_temperature_max", "min_max_temperature"}.ToList()) + Dim kvpMaxMaxTemp As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("max_tmax_col", {"max_tmax", "max_tx", "max_tempmax", "max_tmp_max", "max_tmpmax", "max_temperature_max", "max_max_temperature"}.ToList()) + + Dim kvpTotalRain As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("total_rain_col", {"rain_total"}.ToList()) + Dim kvpPlantDay As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("plant_day_col", {"plant_day"}.ToList()) + Dim kvpPlantLength As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("plant_length_col", {"plant_length"}.ToList()) + Dim kvpPropSuccess As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("prop_success_col", {"prop_success"}.ToList()) + Dim kvpStationCrop As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("station", {"station", "id", "name"}.ToList()) + + Dim kvpPlantingDay As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("plant_day_col", {"plant_day"}.ToList()) + Dim kvpPlantDayCond As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("plant_day_cond_col", {"plant_day_cond"}.ToList()) + Dim kvpStationProb As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("station", {"station", "id", "name"}.ToList()) + Dim kvpYear As KeyValuePair(Of String, List(Of String)) = New KeyValuePair(Of String, List(Of String))("year", {"year", "s_year"}.ToList()) + + lstRecognisedTypes.AddRange({kvpAnnualRain, kvpEndRainDate, kvpEndRainDOY, kvpEndRainStatus, kvpEndSeasonDate, kvpEndSeasonDOY, kvpEndSeasonStatus, + kvpRainDaysSeason, kvpRainDaysYear, kvpSeasonalLength, kvpSeasonalRain, kvpStartRainDate, + kvpStartRainDOY, kvpStartRainStatus}) + lstRecognisedCropTypes.AddRange({kvpTotalRain, kvpStationCrop, kvpPlantDay, kvpPlantLength, kvpPropSuccess}) + lstRecognisedPropTypes.AddRange({kvpPlantingDay, kvpYear, kvpStationProb, kvpPlantDayCond}) + lstRecognisedMonthTempTypes.AddRange({kvpMeanMinTemp, kvpMinMinTemp, kvpMaxMinTemp, kvpMeanMaxTemp, kvpMinMaxTemp, kvpMaxMaxTemp}) + lstRecognisedAnnTempTypes.AddRange({kvpMeanMinTemp, kvpMinMinTemp, kvpMaxMinTemp, kvpMeanMaxTemp, kvpMinMaxTemp, kvpMaxMaxTemp}) + + lstReceivers.AddRange({ucrReceiverAnnualRain, ucrReceiverEndRainsDate, ucrReceiverEndRainsDOY, ucrReceiverEndRainStatus, ucrReceiverEndSeasonDate, ucrReceiverEndSeasonDOY, ucrReceiverEndSeasonStatus, ucrReceiverRainDaysSeason, ucrReceiverRainDaysYear, ucrReceiverSeasonalLength, ucrReceiverSeasonalRain, ucrReceiverStartRainDate, ucrReceiverStartRainDOY, ucrReceiverStartRainStatus}) + lstReceiversAnnualTemp.AddRange({ucrReceiverMaxMaxAnnual, ucrReceiverMaxMaxMonthly, ucrReceiverMaxMinAnnual, ucrReceiverMaxMinMonthly, ucrReceiverMeanAnnual, ucrReceiverMeanMaxAnnual, ucrReceiverMeanmaxMonthly, ucrReceiverMeanminMontly, ucrReceiverMinMaxAnnual, ucrReceiverMinMaxMonthly, ucrReceiverMinMinAnnual, ucrReceiverMinMinMonthly}) + lstReceiversMonthTemp.AddRange({ucrReceiverMaxMaxAnnual, ucrReceiverMaxMaxMonthly, ucrReceiverMaxMinAnnual, ucrReceiverMaxMinMonthly, ucrReceiverMeanAnnual, ucrReceiverMeanMaxAnnual, ucrReceiverMeanmaxMonthly, ucrReceiverMeanminMontly, ucrReceiverMinMaxAnnual, ucrReceiverMinMaxMonthly, ucrReceiverMinMinAnnual, ucrReceiverMinMinMonthly}) + lstReceiversCrop.AddRange({ucrReceiverPlantingDay, ucrReceiverStationCrop, ucrReceiverPlantingLenghth, ucrReceiverPropSuccess, ucrReceiverTotalRain}) + lstReceiversProp.AddRange({ucrReceiverPlantingDayCondition, ucrReceiverSeasonYear, ucrReceiverSeasonStationProb, ucrReceiverSeasonPlantingDay}) + ucrSelectorDefineAnnualRain.SetParameter(New RParameter("data", 0)) ucrSelectorDefineAnnualRain.SetParameterIsrfunction() @@ -46,111 +112,153 @@ Public Class sdgDefineAnnualRainfall ucrReceiverStation.SetParameterIsString() ucrReceiverStation.SetClimaticType("station") ucrReceiverStation.bAutoFill = True + ucrReceiverStation.bExcludeFromSelector = True ucrReceiverYear.SetParameter(New RParameter("year_col", 2)) ucrReceiverYear.Selector = ucrSelectorDefineAnnualRain ucrReceiverYear.SetParameterIsString() ucrReceiverYear.SetClimaticType("year") ucrReceiverYear.bAutoFill = True + ucrReceiverYear.bExcludeFromSelector = True ucrReceiverStartRainDOY.SetParameter(New RParameter("start_rains_doy_col", 3)) ucrReceiverStartRainDOY.Selector = ucrSelectorDefineAnnualRain ucrReceiverStartRainDOY.SetParameterIsString() + ucrReceiverStartRainDOY.Tag = "start_rains_doy_col" + ucrReceiverStartRainDOY.bExcludeFromSelector = True ucrReceiverStartRainDate.SetParameter(New RParameter("start_rains_date_col", 4)) ucrReceiverStartRainDate.Selector = ucrSelectorDefineAnnualRain ucrReceiverStartRainDate.SetParameterIsString() + ucrReceiverStartRainDate.Tag = "start_rains_date_col" + ucrReceiverStartRainDate.bExcludeFromSelector = True ucrReceiverEndRainsDOY.SetParameter(New RParameter("end_rains_doy_col", 5)) ucrReceiverEndRainsDOY.Selector = ucrSelectorDefineAnnualRain ucrReceiverEndRainsDOY.SetParameterIsString() + ucrReceiverEndRainsDOY.Tag = "end_rains_doy_col" + ucrReceiverEndRainsDOY.bExcludeFromSelector = True ucrReceiverEndRainsDate.SetParameter(New RParameter("end_rains_date_col", 6)) ucrReceiverEndRainsDate.Selector = ucrSelectorDefineAnnualRain ucrReceiverEndRainsDate.SetParameterIsString() + ucrReceiverEndRainsDate.Tag = "end_rains_date_col" + ucrReceiverEndRainsDate.bExcludeFromSelector = True ucrReceiverEndSeasonDOY.SetParameter(New RParameter("end_season_doy_col", 7)) ucrReceiverEndSeasonDOY.Selector = ucrSelectorDefineAnnualRain ucrReceiverEndSeasonDOY.SetParameterIsString() + ucrReceiverEndSeasonDOY.Tag = "end_season_doy_col" + ucrReceiverEndSeasonDOY.bExcludeFromSelector = True ucrReceiverEndSeasonDate.SetParameter(New RParameter("end_season_date_col", 8)) ucrReceiverEndSeasonDate.Selector = ucrSelectorDefineAnnualRain ucrReceiverEndSeasonDate.SetParameterIsString() + ucrReceiverEndSeasonDate.Tag = "end_season_date_col" + ucrReceiverEndSeasonDate.bExcludeFromSelector = True ucrReceiverSeasonalRain.SetParameter(New RParameter("seasonal_rain_col", 9)) ucrReceiverSeasonalRain.Selector = ucrSelectorDefineAnnualRain ucrReceiverSeasonalRain.SetParameterIsString() + ucrReceiverSeasonalRain.Tag = "seasonal_rain_col" + ucrReceiverSeasonalRain.bExcludeFromSelector = True ucrReceiverRainDaysSeason.SetParameter(New RParameter("n_seasonal_rain_col", 10)) ucrReceiverRainDaysSeason.Selector = ucrSelectorDefineAnnualRain ucrReceiverRainDaysSeason.SetParameterIsString() + ucrReceiverRainDaysSeason.Tag = "n_seasonal_rain_col" + ucrReceiverRainDaysSeason.bExcludeFromSelector = True ucrReceiverRainDaysYear.SetParameter(New RParameter("n_rain_col", 11)) ucrReceiverRainDaysYear.Selector = ucrSelectorDefineAnnualRain ucrReceiverRainDaysYear.SetParameterIsString() + ucrReceiverRainDaysYear.Tag = "n_rain_col" + ucrReceiverRainDaysYear.bExcludeFromSelector = True ucrReceiverSeasonalLength.SetParameter(New RParameter("season_length_col", 12)) ucrReceiverSeasonalLength.Selector = ucrSelectorDefineAnnualRain ucrReceiverSeasonalLength.SetParameterIsString() + ucrReceiverSeasonalLength.Tag = "season_length_col" + ucrReceiverSeasonalLength.bExcludeFromSelector = True ucrReceiverAnnualRain.SetParameter(New RParameter("annual_rain_col", 13)) ucrReceiverAnnualRain.Selector = ucrSelectorDefineAnnualRain ucrReceiverAnnualRain.SetParameterIsString() + ucrReceiverAnnualRain.Tag = "annual_rain_col" + ucrReceiverAnnualRain.bExcludeFromSelector = True ucrReceiverStartRainStatus.SetParameter(New RParameter("start_rains_status_column", 14)) ucrReceiverStartRainStatus.Selector = ucrSelectorDefineAnnualRain ucrReceiverStartRainStatus.SetParameterIsString() + ucrReceiverStartRainStatus.Tag = "start_rains_status_column" + ucrReceiverStartRainStatus.bExcludeFromSelector = True ucrReceiverEndRainStatus.SetParameter(New RParameter("end_rains_status_column", 15)) ucrReceiverEndRainStatus.Selector = ucrSelectorDefineAnnualRain ucrReceiverEndRainStatus.SetParameterIsString() + ucrReceiverEndRainStatus.Tag = "end_rains_status_column" + ucrReceiverEndRainStatus.bExcludeFromSelector = True ucrReceiverEndSeasonStatus.SetParameter(New RParameter("end_season_status_column", 16)) ucrReceiverEndSeasonStatus.Selector = ucrSelectorDefineAnnualRain ucrReceiverEndSeasonStatus.SetParameterIsString() + ucrReceiverEndSeasonStatus.Tag = "end_season_status_column" + ucrReceiverEndSeasonStatus.bExcludeFromSelector = True ucrReceiverStationCrop.SetParameter(New RParameter("station_col", 1)) ucrReceiverStationCrop.Selector = ucrSelectorCropProp ucrReceiverStationCrop.SetParameterIsString() - ucrReceiverStationCrop.SetClimaticType("station") - ucrReceiverStationCrop.bAutoFill = True + ucrReceiverStationCrop.Tag = "station" + ucrReceiverStationCrop.bExcludeFromSelector = True ucrReceiverTotalRain.SetParameter(New RParameter("total_rain_col", 2)) ucrReceiverTotalRain.Selector = ucrSelectorCropProp ucrReceiverTotalRain.SetParameterIsString() + ucrReceiverTotalRain.Tag = "total_rain_col" + ucrReceiverTotalRain.bExcludeFromSelector = True ucrReceiverPlantingDay.SetParameter(New RParameter("plant_day_col", 3)) ucrReceiverPlantingDay.Selector = ucrSelectorCropProp ucrReceiverPlantingDay.SetParameterIsString() + ucrReceiverPlantingDay.Tag = "plant_day_col" + ucrReceiverPlantingDay.bExcludeFromSelector = True ucrReceiverPlantingLenghth.SetParameter(New RParameter("plant_length_col", 4)) ucrReceiverPlantingLenghth.Selector = ucrSelectorCropProp ucrReceiverPlantingLenghth.SetParameterIsString() + ucrReceiverPlantingLenghth.Tag = "plant_length_col" + ucrReceiverPlantingLenghth.bExcludeFromSelector = True ucrReceiverPropSuccess.SetParameter(New RParameter("prop_success_col", 5)) ucrReceiverPropSuccess.Selector = ucrSelectorCropProp ucrReceiverPropSuccess.SetParameterIsString() + ucrReceiverPropSuccess.Tag = "prop_success_col" + ucrReceiverPropSuccess.bExcludeFromSelector = True 'Season start ucrReceiverSeasonStationProb.SetParameter(New RParameter("station_col", 1)) ucrReceiverSeasonStationProb.Selector = ucrSelectorSeasonStartProp ucrReceiverSeasonStationProb.SetParameterIsString() - ucrReceiverSeasonStationProb.SetClimaticType("station") - ucrReceiverSeasonStationProb.bAutoFill = True + ucrReceiverSeasonStationProb.Tag = "station" + ucrReceiverSeasonStationProb.bExcludeFromSelector = True ucrReceiverSeasonYear.SetParameter(New RParameter("year_col", 2)) ucrReceiverSeasonYear.Selector = ucrSelectorSeasonStartProp ucrReceiverSeasonYear.SetParameterIsString() - ucrReceiverSeasonYear.SetClimaticType("year") - ucrReceiverSeasonYear.bAutoFill = True + ucrReceiverSeasonYear.Tag = "year" + ucrReceiverSeasonYear.bExcludeFromSelector = True ucrReceiverSeasonPlantingDay.SetParameter(New RParameter("plant_day_col", 3)) ucrReceiverSeasonPlantingDay.Selector = ucrSelectorSeasonStartProp ucrReceiverSeasonPlantingDay.SetParameterIsString() + ucrReceiverSeasonPlantingDay.Tag = "plant_day_col" + ucrReceiverSeasonPlantingDay.bExcludeFromSelector = True ucrReceiverPlantingDayCondition.SetParameter(New RParameter("plant_day_cond_col", 5)) ucrReceiverPlantingDayCondition.Selector = ucrSelectorSeasonStartProp ucrReceiverPlantingDayCondition.SetParameterIsString() + ucrReceiverPlantingDayCondition.Tag = "plant_day_cond_col" + ucrReceiverPlantingDayCondition.bExcludeFromSelector = True 'Annual Temp ucrReceiverAnnualTempStation.SetParameter(New RParameter("station_col", 1)) @@ -158,36 +266,50 @@ Public Class sdgDefineAnnualRainfall ucrReceiverAnnualTempStation.SetParameterIsString() ucrReceiverAnnualTempStation.SetClimaticType("station") ucrReceiverAnnualTempStation.bAutoFill = True + ucrReceiverAnnualTempStation.bExcludeFromSelector = True ucrReceiverAnnualTempYr.SetParameter(New RParameter("year_col", 2)) ucrReceiverAnnualTempYr.Selector = ucrSelectorAnnualTemp ucrReceiverAnnualTempYr.SetParameterIsString() ucrReceiverAnnualTempYr.SetClimaticType("year") ucrReceiverAnnualTempYr.bAutoFill = True + ucrReceiverAnnualTempYr.bExcludeFromSelector = True ucrReceiverMeanAnnual.SetParameter(New RParameter("mean_tmin_col", 3)) ucrReceiverMeanAnnual.Selector = ucrSelectorAnnualTemp ucrReceiverMeanAnnual.SetParameterIsString() + ucrReceiverMeanAnnual.Tag = "mean_tmin_col" + ucrReceiverMeanAnnual.bExcludeFromSelector = True ucrReceiverMinMinAnnual.SetParameter(New RParameter("min_tmin_col", 4)) ucrReceiverMinMinAnnual.Selector = ucrSelectorAnnualTemp ucrReceiverMinMinAnnual.SetParameterIsString() + ucrReceiverMinMinAnnual.Tag = "min_tmin_col" + ucrReceiverMinMinAnnual.bExcludeFromSelector = True ucrReceiverMaxMinAnnual.SetParameter(New RParameter("max_tmin_col", 5)) ucrReceiverMaxMinAnnual.Selector = ucrSelectorAnnualTemp ucrReceiverMaxMinAnnual.SetParameterIsString() + ucrReceiverMaxMinAnnual.Tag = "max_tmin_col" + ucrReceiverMaxMinAnnual.bExcludeFromSelector = True ucrReceiverMeanMaxAnnual.SetParameter(New RParameter("mean_tmax_col", 6)) ucrReceiverMeanMaxAnnual.Selector = ucrSelectorAnnualTemp ucrReceiverMeanMaxAnnual.SetParameterIsString() + ucrReceiverMeanMaxAnnual.Tag = "mean_tmax_col" + ucrReceiverMeanMaxAnnual.bExcludeFromSelector = True ucrReceiverMinMaxAnnual.SetParameter(New RParameter("min_tmax_col", 7)) ucrReceiverMinMaxAnnual.Selector = ucrSelectorAnnualTemp ucrReceiverMinMaxAnnual.SetParameterIsString() + ucrReceiverMinMaxAnnual.Tag = "min_tmax_col" + ucrReceiverMinMaxAnnual.bExcludeFromSelector = True ucrReceiverMaxMaxAnnual.SetParameter(New RParameter("max_tmax_col", 8)) ucrReceiverMaxMaxAnnual.Selector = ucrSelectorAnnualTemp ucrReceiverMaxMaxAnnual.SetParameterIsString() + ucrReceiverMaxMaxAnnual.Tag = "max_tmax_col" + ucrReceiverMaxMaxAnnual.bExcludeFromSelector = True 'Monthly Temp ucrReceiverMonthlyTemp.SetParameter(New RParameter("station_col", 1)) @@ -195,42 +317,58 @@ Public Class sdgDefineAnnualRainfall ucrReceiverMonthlyTemp.SetParameterIsString() ucrReceiverMonthlyTemp.SetClimaticType("station") ucrReceiverMonthlyTemp.bAutoFill = True + ucrReceiverMonthlyTemp.bExcludeFromSelector = True ucrReceiverYearMonthly.SetParameter(New RParameter("year_col", 2)) ucrReceiverYearMonthly.Selector = ucrSelecetorMonthlyTemp ucrReceiverYearMonthly.SetParameterIsString() ucrReceiverYearMonthly.SetClimaticType("year") ucrReceiverYearMonthly.bAutoFill = True + ucrReceiverYearMonthly.bExcludeFromSelector = True ucrReceiverMonthMonthly.SetParameter(New RParameter("month_col", 3)) ucrReceiverMonthMonthly.Selector = ucrSelecetorMonthlyTemp ucrReceiverMonthMonthly.SetParameterIsString() ucrReceiverMonthMonthly.SetClimaticType("month") ucrReceiverMonthMonthly.bAutoFill = True + ucrReceiverMonthMonthly.bExcludeFromSelector = True ucrReceiverMeanminMontly.SetParameter(New RParameter("mean_tmin_col", 4)) ucrReceiverMeanminMontly.Selector = ucrSelecetorMonthlyTemp ucrReceiverMeanminMontly.SetParameterIsString() + ucrReceiverMeanminMontly.Tag = "mean_tmin_col" + ucrReceiverMeanminMontly.bExcludeFromSelector = True ucrReceiverMinMinMonthly.SetParameter(New RParameter("min_tmin_col", 5)) ucrReceiverMinMinMonthly.Selector = ucrSelecetorMonthlyTemp ucrReceiverMinMinMonthly.SetParameterIsString() + ucrReceiverMinMinMonthly.Tag = "min_tmin_col" + ucrReceiverMinMinMonthly.bExcludeFromSelector = True ucrReceiverMaxMinMonthly.SetParameter(New RParameter("max_tmin_col", 6)) ucrReceiverMaxMinMonthly.Selector = ucrSelecetorMonthlyTemp ucrReceiverMaxMinMonthly.SetParameterIsString() + ucrReceiverMaxMinMonthly.Tag = "max_tmin_col" + ucrReceiverMaxMinMonthly.bExcludeFromSelector = True ucrReceiverMeanmaxMonthly.SetParameter(New RParameter("mean_tmax_col", 7)) ucrReceiverMeanmaxMonthly.Selector = ucrSelecetorMonthlyTemp ucrReceiverMeanmaxMonthly.SetParameterIsString() + ucrReceiverMeanmaxMonthly.Tag = "mean_tmax_col" + ucrReceiverMeanmaxMonthly.bExcludeFromSelector = True ucrReceiverMinMaxMonthly.SetParameter(New RParameter("min_tmax_col", 8)) ucrReceiverMinMaxMonthly.Selector = ucrSelecetorMonthlyTemp ucrReceiverMinMaxMonthly.SetParameterIsString() + ucrReceiverMinMaxMonthly.Tag = "min_tmax_col" + ucrReceiverMinMaxMonthly.bExcludeFromSelector = True ucrReceiverMaxMaxMonthly.SetParameter(New RParameter("max_tmax_col", 9)) ucrReceiverMaxMaxMonthly.Selector = ucrSelecetorMonthlyTemp ucrReceiverMaxMaxMonthly.SetParameterIsString() + ucrReceiverMaxMaxMonthly.Tag = "max_tmax_col" + ucrReceiverMaxMaxMonthly.bExcludeFromSelector = True + bControlsInitialised = True 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) @@ -308,17 +446,27 @@ Public Class sdgDefineAnnualRainfall ucrReceiverMinMinMonthly.SetRCode(clsReformatMonthlyTempSummaries, bReset) ucrReceiverMeanminMontly.SetRCode(clsReformatMonthlyTempSummaries, bReset) ucrSelecetorMonthlyTemp.SetRCode(clsReformatMonthlyTempSummaries, bReset) + AutoFillReceivers() + AutoFillReceiversCrop() + AutoFillReceiversForAnnualTemp() + AutoFillReceiversForMonthlyTemp() + AutoFillReceiversForSeasonsStart() 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) + If dlgExportClimaticDefinitions.ucrChkAnnualRainfall.Checked Then + If Not ucrReceiverStation.IsEmpty AndAlso Not ucrReceiverYear.IsEmpty AndAlso (Not ucrReceiverAnnualRain.IsEmpty OrElse Not ucrReceiverEndRainsDate.IsEmpty OrElse Not ucrReceiverEndRainsDOY.IsEmpty OrElse ucrReceiverSeasonalLength.IsEmpty OrElse Not ucrReceiverSeasonalRain.IsEmpty OrElse + Not ucrReceiverEndSeasonDate.IsEmpty OrElse Not ucrReceiverEndSeasonDOY.IsEmpty OrElse Not ucrReceiverRainDaysSeason.IsEmpty OrElse Not ucrReceiverRainDaysYear.IsEmpty OrElse Not ucrReceiverStartRainDate.IsEmpty OrElse + Not ucrReceiverStartRainDOY.IsEmpty) Then + clsExportRinstatToBucketFunction.AddParameter("annual_rainfall_data", clsRFunctionParameter:=clsReforMattAnnualSummariesFunction, iPosition:=1) + + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("annual_rainfall_data") + End If Else clsExportRinstatToBucketFunction.RemoveParameterByName("annual_rainfall_data") End If @@ -327,37 +475,366 @@ Public Class sdgDefineAnnualRainfall 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:=9) + If dlgExportClimaticDefinitions.ucrChkCropSuccessProp.Checked Then + + If Not ucrReceiverStationCrop.IsEmpty AndAlso (Not ucrReceiverTotalRain.IsEmpty OrElse Not ucrReceiverPlantingDay.IsEmpty OrElse Not ucrReceiverPlantingLenghth.IsEmpty OrElse Not ucrReceiverPropSuccess.IsEmpty) Then + clsExportRinstatToBucketFunction.AddParameter("crop_success_data", clsRFunctionParameter:=clsReformatCropSuccessFunction, iPosition:=9) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("crop_success_data") + End If 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:=10) + If dlgExportClimaticDefinitions.ucrChkSeasonStartProp.Checked Then + If Not ucrReceiverSeasonStationProb.IsEmpty AndAlso Not ucrReceiverSeasonYear.IsEmpty AndAlso (Not ucrReceiverSeasonPlantingDay.IsEmpty OrElse Not ucrReceiverPlantingDayCondition.IsEmpty) Then + clsExportRinstatToBucketFunction.AddParameter("season_start_data", clsRFunctionParameter:=clsReformatSeasonStartFunction, iPosition:=10) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("season_start_data") + End If 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:=11) + + If dlgExportClimaticDefinitions.ucrChkAnnualTemp.Checked Then + If Not ucrReceiverAnnualTempStation.IsEmpty AndAlso Not ucrReceiverAnnualTempYr.IsEmpty AndAlso (Not ucrReceiverMaxMaxAnnual.IsEmpty OrElse + Not ucrReceiverMaxMinAnnual.IsEmpty OrElse Not ucrReceiverMeanAnnual.IsEmpty OrElse Not ucrReceiverMeanMaxAnnual.IsEmpty OrElse Not ucrReceiverMinMaxAnnual.IsEmpty OrElse Not ucrReceiverMinMinAnnual.IsEmpty) Then + clsExportRinstatToBucketFunction.AddParameter("annual_temperature_data", clsRFunctionParameter:=clsReformatTempSummariesFunction, iPosition:=11) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("annual_temperature_data") + End If 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:=18) + If dlgExportClimaticDefinitions.ucrChkMonthlyTemp.Checked Then + If Not ucrReceiverMonthlyTemp.IsEmpty AndAlso Not ucrReceiverYearMonthly.IsEmpty AndAlso Not ucrReceiverMonthMonthly.IsEmpty AndAlso (Not ucrReceiverMeanmaxMonthly.IsEmpty OrElse Not ucrReceiverMeanminMontly.IsEmpty OrElse Not ucrReceiverMinMaxMonthly.IsEmpty OrElse Not ucrReceiverMinMinMonthly.IsEmpty OrElse Not ucrReceiverMaxMinMonthly.IsEmpty OrElse Not ucrReceiverMaxMaxMonthly.IsEmpty) Then + clsExportRinstatToBucketFunction.AddParameter("monthly_temperature_data", clsRFunctionParameter:=clsReformatMonthlyTempSummaries, iPosition:=18) + Else + clsExportRinstatToBucketFunction.RemoveParameterByName("monthly_temperature_data") + End If Else clsExportRinstatToBucketFunction.RemoveParameterByName("monthly_temperature_data") End If End Sub + Private Sub AutoFillReceivers() + If isFilling Then + Exit Sub + End If + isFilling = True + + ' Temporarily remove the event handler + RemoveHandler ucrSelectorDefineAnnualRain.ControlValueChanged, AddressOf AutoFillReceivers + + Dim lstRecognisedValues As List(Of String) + Dim ucrCurrentReceiver As ucrReceiver + Dim bFound As Boolean = False + + ucrCurrentReceiver = ucrSelectorDefineAnnualRain.CurrentReceiver + + For Each ucrTempReceiver As ucrReceiver In lstReceivers + ucrTempReceiver.SetMeAsReceiver() + lstRecognisedValues = GetRecognisedValues(ucrTempReceiver.Tag) + + If lstRecognisedValues.Count > 0 Then + For Each lviTempVariable As ListViewItem In ucrSelectorDefineAnnualRain.lstAvailableVariable.Items + For Each strValue As String In lstRecognisedValues + If Regex.Replace(lviTempVariable.Text.ToLower(), "[^\w]", String.Empty).Equals(strValue) Then + ucrTempReceiver.Add(lviTempVariable.Text, ucrSelectorDefineAnnualRain.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + bFound = True + Exit For + End If + Next + If bFound Then + bFound = False + Exit For + End If + Next + End If + Next + + If ucrCurrentReceiver IsNot Nothing Then + ucrCurrentReceiver.SetMeAsReceiver() + End If + + ' Re-enable the event handler + AddHandler ucrSelectorDefineAnnualRain.ControlValueChanged, AddressOf AutoFillReceivers + + isFilling = False + End Sub + + Private Sub AutoFillReceiversCrop() + If isFilling Then + Exit Sub + End If + isFilling = True + + ' Temporarily remove the event handler + RemoveHandler ucrSelectorCropProp.ControlValueChanged, AddressOf AutoFillReceiversCrop + + Dim lstRecognisedValues As List(Of String) + Dim ucrCurrentReceiver As ucrReceiver + Dim bFound As Boolean = False + + ucrCurrentReceiver = ucrSelectorCropProp.CurrentReceiver + + For Each ucrTempReceiver As ucrReceiver In lstReceiversCrop + ucrTempReceiver.SetMeAsReceiver() + lstRecognisedValues = GetRecognisedValuesCrop(ucrTempReceiver.Tag) + + If lstRecognisedValues.Count > 0 Then + For Each lviTempVariable As ListViewItem In ucrSelectorCropProp.lstAvailableVariable.Items + For Each strValue As String In lstRecognisedValues + If Regex.Replace(lviTempVariable.Text.ToLower(), "[^\w]", String.Empty).Equals(strValue) Then + ucrTempReceiver.Add(lviTempVariable.Text, ucrSelectorCropProp.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + bFound = True + Exit For + End If + Next + If bFound Then + bFound = False + Exit For + End If + Next + End If + Next + + If ucrCurrentReceiver IsNot Nothing Then + ucrCurrentReceiver.SetMeAsReceiver() + End If + + ' Re-enable the event handler + AddHandler ucrSelectorCropProp.ControlValueChanged, AddressOf AutoFillReceiversCrop + + isFilling = False + End Sub + + Private Sub AutoFillReceiversForSeasonsStart() + If isFilling Then + Exit Sub + End If + isFilling = True + + ' Temporarily remove the event handler + RemoveHandler ucrSelectorSeasonStartProp.ControlValueChanged, AddressOf AutoFillReceiversForSeasonsStart + + Dim lstRecognisedValues As List(Of String) + Dim ucrCurrentReceiver As ucrReceiver + Dim bFound As Boolean = False + + ucrCurrentReceiver = ucrSelectorSeasonStartProp.CurrentReceiver + + For Each ucrTempReceiver As ucrReceiver In lstReceiversProp + ucrTempReceiver.SetMeAsReceiver() + lstRecognisedValues = GetRecognisedValuesProp(ucrTempReceiver.Tag) + + If lstRecognisedValues.Count > 0 Then + For Each lviTempVariable As ListViewItem In ucrSelectorSeasonStartProp.lstAvailableVariable.Items + For Each strValue As String In lstRecognisedValues + If Regex.Replace(lviTempVariable.Text.ToLower(), "[^\w]", String.Empty).Equals(strValue) Then + ucrTempReceiver.Add(lviTempVariable.Text, ucrSelectorSeasonStartProp.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + bFound = True + Exit For + End If + Next + If bFound Then + bFound = False + Exit For + End If + Next + End If + Next + + If ucrCurrentReceiver IsNot Nothing Then + ucrCurrentReceiver.SetMeAsReceiver() + End If + + ' Re-enable the event handler + AddHandler ucrSelectorSeasonStartProp.ControlValueChanged, AddressOf AutoFillReceiversForSeasonsStart + + isFilling = False + End Sub + + Private Sub AutoFillReceiversForAnnualTemp() + If isFilling Then + Exit Sub + End If + isFilling = True + + ' Temporarily remove the event handler + RemoveHandler ucrSelectorAnnualTemp.ControlValueChanged, AddressOf AutoFillReceiversForAnnualTemp + + Dim lstRecognisedValues As List(Of String) + Dim ucrCurrentReceiver As ucrReceiver + Dim bFound As Boolean = False + + ucrCurrentReceiver = ucrSelectorAnnualTemp.CurrentReceiver + + For Each ucrTempReceiver As ucrReceiver In lstReceiversAnnualTemp + ucrTempReceiver.SetMeAsReceiver() + lstRecognisedValues = GetRecognisedValuesAnnTemp(ucrTempReceiver.Tag) + + If lstRecognisedValues.Count > 0 Then + For Each lviTempVariable As ListViewItem In ucrSelectorAnnualTemp.lstAvailableVariable.Items + For Each strValue As String In lstRecognisedValues + If Regex.Replace(lviTempVariable.Text.ToLower(), "[^\w]", String.Empty).Equals(strValue) Then + ucrTempReceiver.Add(lviTempVariable.Text, ucrSelectorAnnualTemp.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + bFound = True + Exit For + End If + Next + If bFound Then + bFound = False + Exit For + End If + Next + End If + Next + + If ucrCurrentReceiver IsNot Nothing Then + ucrCurrentReceiver.SetMeAsReceiver() + End If + + ' Re-enable the event handler + AddHandler ucrSelectorAnnualTemp.ControlValueChanged, AddressOf AutoFillReceiversForAnnualTemp + + isFilling = False + End Sub + + Private Sub AutoFillReceiversForMonthlyTemp() + If isFilling Then + Exit Sub + End If + isFilling = True + + Me.SuspendLayout() + ' Temporarily remove the event handler + RemoveHandler ucrSelecetorMonthlyTemp.ControlValueChanged, AddressOf AutoFillReceiversForMonthlyTemp + + Dim lstRecognisedValues As List(Of String) + Dim ucrCurrentReceiver As ucrReceiver + Dim bFound As Boolean = False + + ucrCurrentReceiver = ucrSelecetorMonthlyTemp.CurrentReceiver + + For Each ucrTempReceiver As ucrReceiver In lstReceiversMonthTemp + ucrTempReceiver.SetMeAsReceiver() + lstRecognisedValues = GetRecognisedValuesMothTemp(ucrTempReceiver.Tag) + + If lstRecognisedValues.Count > 0 Then + For Each lviTempVariable As ListViewItem In ucrSelecetorMonthlyTemp.lstAvailableVariable.Items + For Each strValue As String In lstRecognisedValues + If Regex.Replace(lviTempVariable.Text.ToLower(), "[^\w]", String.Empty).Equals(strValue) Then + ucrTempReceiver.Add(lviTempVariable.Text, ucrSelecetorMonthlyTemp.ucrAvailableDataFrames.cboAvailableDataFrames.Text) + bFound = True + Exit For + End If + Next + If bFound Then + bFound = False + Exit For + End If + Next + End If + Next + + If ucrCurrentReceiver IsNot Nothing Then + ucrCurrentReceiver.SetMeAsReceiver() + End If + + ' Re-enable the event handler + AddHandler ucrSelecetorMonthlyTemp.ControlValueChanged, AddressOf AutoFillReceiversForMonthlyTemp + + Me.ResumeLayout() + + isFilling = False + End Sub + + Private Function GetRecognisedValues(strVariable As String) As List(Of String) + Dim lstValues As New List(Of String) + + For Each kvpTemp As KeyValuePair(Of String, List(Of String)) In lstRecognisedTypes + If kvpTemp.Key = strVariable Then + lstValues = kvpTemp.Value + Exit For + End If + Next + Return lstValues + End Function + + Private Function GetRecognisedValuesCrop(strVariable As String) As List(Of String) + Dim lstValues As New List(Of String) + + For Each kvpTemp As KeyValuePair(Of String, List(Of String)) In lstRecognisedCropTypes + If kvpTemp.Key = strVariable Then + lstValues = kvpTemp.Value + Exit For + End If + Next + Return lstValues + End Function + + Private Function GetRecognisedValuesProp(strVariable As String) As List(Of String) + Dim lstValues As New List(Of String) + + For Each kvpTemp As KeyValuePair(Of String, List(Of String)) In lstRecognisedPropTypes + If kvpTemp.Key = strVariable Then + lstValues = kvpTemp.Value + Exit For + End If + Next + Return lstValues + End Function + + Private Function GetRecognisedValuesAnnTemp(strVariable As String) As List(Of String) + Dim lstValues As New List(Of String) + + For Each kvpTemp As KeyValuePair(Of String, List(Of String)) In lstRecognisedAnnTempTypes + If kvpTemp.Key = strVariable Then + lstValues = kvpTemp.Value + Exit For + End If + Next + Return lstValues + End Function + + Private Function GetRecognisedValuesMothTemp(strVariable As String) As List(Of String) + Dim lstValues As New List(Of String) + + For Each kvpTemp As KeyValuePair(Of String, List(Of String)) In lstRecognisedMonthTempTypes + If kvpTemp.Key = strVariable Then + lstValues = kvpTemp.Value + Exit For + End If + Next + Return lstValues + End Function + Private Sub ucrSelecetorMonthlyTemp_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelecetorMonthlyTemp.ControlValueChanged + AutoFillReceiversForMonthlyTemp() + End Sub + + Private Sub ucrSelectorAnnualTemp_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelectorAnnualTemp.ControlValueChanged + AutoFillReceiversForAnnualTemp() + End Sub + + Private Sub ucrSelectorCropProp_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelectorCropProp.ControlValueChanged + AutoFillReceiversCrop() + End Sub + + Private Sub ucrSelectorDefineAnnualRain_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelectorDefineAnnualRain.ControlValueChanged + AutoFillReceivers() + End Sub + + Private Sub ucrSelectorSeasonStartProp_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrSelectorSeasonStartProp.ControlValueChanged + AutoFillReceiversForSeasonsStart() + End Sub + End Class \ No newline at end of file diff --git a/instat/static/Help/R-Instat.chm b/instat/static/Help/R-Instat.chm index 24fca5f21b7..20e9de1bc37 100644 Binary files a/instat/static/Help/R-Instat.chm and b/instat/static/Help/R-Instat.chm differ