; 2) or (Xmin gt; 2) then ( Значення реактивного опору повинно бути не більше 2 Ом raquo ;,
mtWarning, [mbOK], 0);:=False ;; (Emin lt; 0.1) or (Emax lt; 0.1) then ( Ефективне значення електрорушійної сили повинно бути не менше 0,1 У ,
mtWarning, [mbOK], 0);:=False ;; (Emax gt; 3) or (Emin gt; 3) then ( Ефективне значення електрорушійної сили повинно бути не більше 3 В ,
mtWarning, [mbOK], 0);:=False ;; (_ k gt; 0.5) or (_k lt; 0.1) then ( Значення відношення ефективного струму вторинної обмотки +
до середнього Випрямлену току повинно знаходитися в +
межах від 0,1 до 0,5 raquo ;, mtWarning, [mbOK], 0);
Result:=False ;; (_ Em lt; 0.1) or (_Em gt; 0.5) then
MessageDlg ( Значення коефіцієнта, що враховує вплив омічного +
падіння напруги в колі змінного струму на середнє випрямлена напруга +
повинно знаходитися в межах від 0,1 до 0,5 raquo ;, mtWarning, [mbOK], 0);
end; (_ Id lt; 0.5) or (_Id gt; 1) then
MessageDlg ( Величина випрямленого струму повинна знаходитися +
в межах від 0,5 до 1 А raquo ;, mtWarning, [mbOK], 0);
Result:=False ;; (k0 lt; 0.1) or (k0 gt; 0.5) then
MessageDlg ( Ставлення коефіцієнта трансформації на даному ступені +
регулювання до найменшого коефіцієнту трансформації повинен знаходитися +
в межах від 0,1 до 0,5 raquo ;, mtWarning, [mbOK], 0);
Result:=False ;; (Xmin gt;=Xmax) or (Xmin gt;=Xmax) then
MessageDlg ( Мінімальне значення повинно бути менше максимального ,
mtWarning, [mbOK], 0);:=False ;; EConvertError do ( Некоректно введені дані! raquo ;, mtWarning, [mbOK], 0) ;. SetFocus;:=False; ; EZeroDivide do ( Кількість кроків має бути gt; 1! raquo ;, mtWarning, [mbOK], 0) ;. SetFocus;:=False ;;;;; TFMain.Calculate (Sender: TObject) ;, j: Integer ; GetData then.sgRes.ColCount:=MsSteps + 1; .sgRes.RowCount:=MvSteps + 1;.Series1.Clear;.Series2.Clear;.Series3.Clear;.Series4.Clear;.LineSeries1.Clear;.LineSeries2.Clear;.LineSeries3.Clear;i :=0 to MsSteps - 1 doj:=0 to MvSteps - 1 do.sgRes.Cells [i + 1, j + 1]:=Format (% 0.2f ,
[Formula (k0, Xmin + dX * i, Emin + dE * j, _k, _Id, _Em)]); i:=1 to MsSteps doj:=1 to MvSteps do.Series4. AddXYZ (j, StrToFloat (FCalc.sgRes.Cells [i, j]), i);
//xi:=1 to MsSteps do.sgRes.Cells [i, 0]:=Format (%. 0f Ом raquo ;, [Xmin + dX * (i - 1)]) ; .AutoSizeGridColumn (FCalc.sgRes, i) ;;
//xi:=1 to MvSteps do.sgRes.Cells [0, i]:=Format (%. 0f У raquo ;, [Emin + dE * (i - 1)]) ; .AutoSizeGridColumn (FCalc.sgRes, 0); i:=0 to MsSteps - 1 do.Series1.AddXY ((Xmin + dX * i)/1000, (k0, Xmin + dX * i, Emin, _k, _Id, _Em)/1000) ;. Series2.AddXY ((Xmin + dX * i)/1000, (k0, Xmin + dX * i, (Emin + Emax)/2, _k, _Id, _Em)/
) ;. Series3.AddXY ((Xmin + dX * i)/1000, (k0, Xmin + dX * i, Emax, _k, _Id, _Em)/1000) ;; i:= 0 to MvSteps - 1 do.LineSeries1.AddXY ((Emin + dE * i)/1000, (k0, Xmin, Emin + dE * i, _k, _Id, _Em)/1000) ;. LineSeries2.AddXY ((Emin + dE * i)/1000, (k0, (Xmin + Xmax)/2, Emin + dE * i, _k, _Id, _Em)/
) ;. LineSeries3.AddXY ((Emin + dE * i)/1000, (k0, Xmax, Emin + dE * i, _k, _Id, _Em)/1000) ;;. ShowModal; ;; TFMain.FormCreate (Sender: TObject); ( Data.txt ) ;. OnHint:=ShowHint; TFMain.leFloatKeyPress (Sender: TObject; var Key: Char); Key of
0 .. 9 raquo ;, # 8:;
. raquo ;, , raquo ;: Key:=DecimalSeparator:=# 0 ;;; TFMain.leIntKeyPress (Sender: TObject; var Key: Char); Key of
0 .. 9 raquo ;, # 8:;:=# 0 ;;; TFMain.leIntKeyUp (Sender: TObject; var Key: Word ;: TShiftState); (TLabeledEdit ( Sender) .Text= ) or
(StrToInt (TLabeledEdit (Sender) .Text) lt;=1) then (Sender) .Text:= 2 raquo ;;; TFMain.ShowAboutProgram (Sender: TObject) ;. ShowModal ;; TFMain.N4Click (Sender: TObject) ;. InitialDir:=ExtractFilePath (Application.ExeName); OpenDlg.Execute then (OpenDlg.FileName) ;; TFMain.N5Click (Sender: TObject) ;. InitialDir:=ExtractFilePath (Application.ExeName) ; SaveDlg.Execute thenPos ( .txt raquo ;, SaveDlg.FileName)=0 then.FileName:=SaveDlg.FileName + .txt raquo ;; (SaveDlg.FileName) ;;; TFMain.FormCloseQuery (Sender: TObject; var CanClose: Boolean);
case MessageDlg ( Ви дійсно хочете вийти з програми? raquo ;, mtConfirmation,
mbOKCancel, 0) of: CanClose:=True ;: CanClose:=False ;;; TFMain.bbHelpClick (Sender: TObject); (handle,...
