minor change

berylwaswa · Jun 26, 2023 · 84928e0 · 84928e0
1 parent d278bee
commit 84928e0
Show file tree

Hide file tree

Showing 2 changed files with 36 additions and 4 deletions.
diff --git a/instat/dlgEvapotranspiration.Designer.vb b/instat/dlgEvapotranspiration.Designer.vb
diff --git a/instat/dlgEvapotranspiration.vb b/instat/dlgEvapotranspiration.vb
@@ -60,6 +60,7 @@ Public Class dlgEvapotranspiration
         ucrReceiverDate.Selector = ucrSelectorEvapotranspiration
         ucrReceiverTmax.Selector = ucrSelectorEvapotranspiration
         ucrReceiverTmin.Selector = ucrSelectorEvapotranspiration
+        ucrReceiverExtraRadiation.Selector = ucrSelectorEvapotranspiration
         ucrReceiverHumidityMax.Selector = ucrSelectorEvapotranspiration
         ucrReceiverHumidityMin.Selector = ucrSelectorEvapotranspiration
         ucrReceiverRadiation.Selector = ucrSelectorEvapotranspiration
@@ -80,6 +81,10 @@ Public Class dlgEvapotranspiration
         ucrReceiverTmin.SetClimaticType("temp_min")
         ucrReceiverTmin.bAutoFill = True
 
+        ucrReceiverExtraRadiation.SetParameter(New RParameter("R_a", 4))
+        ucrReceiverExtraRadiation.SetParameterIsRFunction()
+        ucrReceiverExtraRadiation.SetClimaticType("R_a")
+
         ucrReceiverHumidityMax.SetParameter(New RParameter("RHmax", 4))
         ucrReceiverHumidityMax.SetParameterIsRFunction()
         ucrReceiverHumidityMax.SetClimaticType("hum_max")
@@ -121,6 +126,12 @@ Public Class dlgEvapotranspiration
         ucrChkWind.SetValuesCheckedAndUnchecked(Chr(34) & "yes" & Chr(34), Chr(34) & "no" & Chr(34))
         ucrChkWind.SetRDefault(Chr(34) & "yes" & Chr(34))
 
+        ucrNudAlpha.SetParameter(New RParameter("alpha", 4))
+        ucrNudAlpha.SetMinMax(0, 1)
+        ucrNudAlpha.DecimalPlaces = 2
+        ucrNudAlpha.Increment = 0.05
+        ucrNudAlpha.SetLinkedDisplayControl(lblAlpha)
+
         'panel setting
         ucrPnlMethod.AddRadioButton(rdoPenmanMonteith)
         ucrPnlMethod.AddRadioButton(rdoHargreavesSamani)
@@ -136,6 +147,7 @@ Public Class dlgEvapotranspiration
         ucrPnlMethod.AddToLinkedControls(ucrChkWind, {rdoPenmanMonteith}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True)
         ucrPnlMethod.AddToLinkedControls(ucrInputSolar, {rdoPenmanMonteith}, bNewLinkedAddRemoveParameter:=True, bNewLinkedHideIfParameterMissing:=True)
 
+        ucrReceiverExtraRadiation.SetLinkedDisplayControl(lblRa)
         ucrReceiverRadiation.SetLinkedDisplayControl(lblRadiation)
         ucrReceiverHumidityMax.SetLinkedDisplayControl(lblHumidityMax)
         ucrReceiverHumidityMin.SetLinkedDisplayControl(lblHumidityMin)