s [ TmpI]);:=300;:=0; TmpI:=1 to F do:=X2 + 5 * (sgRes.ColWidths [TmpI]);:=450;:=Rect (X1, Y1, X2 - 30, Y2) ;. Canvas.Font.Style:=[fsBold] ;. Canvas.Font.Size:=7; .Canvas.TextRect (TR, X1 + 50, 350, sgRes.Cells [F, 0]) ;. Canvas.Font.Style:=[]; TmpI:=1 to sgRes.RowCount - 1 do:=150 * TmpI + 300;:=150 * (TmpI + 1) + 300;:=Rect (X1, Y1, X2 -30, Y2) ;. Canvas.TextRect (TR, X1 + 50, Y1 + 50, sgRes.Cells [F, TmpI]) ;;;. EndDoc ;;. Orientation:=OldOrientation ;; TFCalc.bbHelpClick (Sender: TObject ); (handle, nil, PChar (ExtractFilePath (ParamStr (0)) + spravkam ), nil, nil, SW_SHOW);// Виклик довідки;.
ФОРМА 3Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ComCtrls, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart ,, Printers;=class (TForm): TPageControl ;: TTabSheet ;: TTabSheet ;: TTabSheet ;: TChart ;: TLineSeries ;: TLineSeries ;: TLineSeries ;: TChart ;: TLineSeries ;: TLineSeries ;: TLineSeries ;: TChart ;: TSurfaceSeries ;: TButton ;: TButton ;: TButton;:TPrintDialog; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFCharts; Unit2, Unit1, shellapi;
{$ R * .dfm} TFCharts.Button1Click (Sender: TObject) ;; TFCharts.Button2Click (Sender: TObject); (handle, nil, PChar (ExtractFilePath (ParamStr (0)) + laquo ; spravkam ), nil, nil, SW_SHOW);// Виклик довідки; TFCharts.Button3Click (Sender: TObject) ;, pWidth: Longint ;: TPrinterOrientation ;: TChart; PrintDlg.Execute thenPageControl1.TabIndex of
: TempChart:=Chart1;
: TempChart:=Chart2;
: TempChart:=Chart3 ;;. Cursor:=crHourGlass;:=Printer.Orientation; .Orientation:=poLandScape; .BeginDoc;:=Printer.PageHeight;:=Printer.PageWidth; .PrintPartial (Rect (pWidth div 15, pHeight div 10, - (pWidth div 20), pHeight - (pHeight div 20))) ;. EndDoc; Exception do.Abort; .EndDoc ;;;. Orientation:=OldOrientation; .Cursor: =crDefault ;;.
ФОРМА 4Unit4 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, Buttons, Shellapi;=class (TForm): TGroupBox ;: TGroupBox ;: TLabel ;: TGroupBox ;: TBitBtn ;: TBitBtn ;: TTimer ;: TImage; tAnimationTimer (Sender: TObject); FormDestroy (Sender: TObject); FormShow (Sender: TObject); BitBtn2Click (Sender: TObject); BitBtn3Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFAbout;: integer;
{$ R * .dfm} TFAbout.tAnimationTimer (Sender: TObject) ;: integer; .Canvas.Pen.Color:=clWhite; .Canvas.Rectangle (0,0, Image1. Width, Image1.Height) ;. Canvas.Pen.Color:=clBlack; .Canvas.MoveTo (0, trunc (30 * sin (y)) + 40); x:=0 to Image1.ClientWidth do//Від лівого краю до кінця форми.Canvas.LineTo (x, trunc (30 * sin (x/10 + y)) + 40);// Власне, малюємо графік;:=y + 1 ;; TFAbout.FormDestroy (Sender: TObject) ;. Enabled:=False ;; TFAbout.FormShow (Sender: TObject) ;. Enabled:=True ;; TFAbout.BitBtn2Click ( Sender: TObject); (handle, nil, PChar (ExtractFilePath (ParamStr (0)) + spravkam ), nil, nil, SW_SHOW);// Виклик довідки; TFAbout.BitBtn3Click (Sender: TObject) ;: integer; .Canvas.Pen.Color:=clBlack;// Малюємо блакитним цветом1.Canvas.MoveTo (0, 100);// Встановлюємо точку початку малювання
for x:=0 to Image1.ClientWidth do//Від лівого краю до кінця форми
begin
Image1.Canvas.LineTo (x, trunc (30 * sin (x/10)) + 40);// Власне, малюємо графік
end ;;. FormulaDLL;
{$ R * .res} Formula (k0, X, E, k, Id, Em: Real): Real; stdcall;:=((2 * sqrt (2))/(3.14 * k)) - ((2 * Em * Id * X * k0)/(3.14 * E * k))
end;
//k - відношення ефективного струму вторинної обмотки трансформатора до середнього Випрямлену току
//Em - коефіцієнт, що враховує вплив омічного падіння напруги в колі змінного струму на середнє випрямлена напруга
//Id - величина випрямленої струму
//X - (завис) реактивний опір
//k0 -отношение коефіцієнта трансформації на даному ступені регулювання до найменшого коефіцієнту трансформації, при якому виходить номінальна електрорушійна сила ходу вторинної обмотки трансформатора
//E - (завис) ефективне значення електрорушійної сили
exports Formula index 1;.
