Текст модуля DemoPageControl приводится ниже

Все вычисления будем производить на стадии загрузки программы, используя обработчик события PageControl1Change для формы Form1 (т.е. в процедуре TForm1.PageControl1Change).

Форма 4

Форма 3

unit DemoPageControl;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Math, Chart, StdCtrls, ComCtrls, Buttons;

type

TForm1 = class(TForm)

StatusBar1: TStatusBar;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

BitBtn1: TBitBtn;

TabSheet2: TTabSheet;

RadioGroup1: TRadioGroup;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

Chart1: TChart;

Series1: TLineSeries;

Image1: TImage;

Label4: TLabel;

BitBtn2: TBitBtn;

Label5: TLabel;

Bevel1: TBevel;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure PageControl1Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

function Funkc(x: extended): extended;

begin

Funkc:= x + cos(x);

end;

function Pervoobraznaia(x: extended): extended;

begin

Pervoobraznaia:= Power(x, 2)/2 + sin(x);

end;

procedure TForm1.PageControl1Change(Sender: TObject);

var

i, N, a, b: integer;

x, y, h: extended;

begin

a:= StrToInt(Form1.Edit1.Text);

b:= StrToInt(Form1.Edit2.Text);

h:= StrToFloat(Form1.Edit3.Text);

x:= a;

y:= 0;

N:= Round((b - a)/h);

For i:=1 to N do

begin

y:= y + Funkc(x);

x:= x + h;

end;

if Form1.RadioGroup1.ItemIndex =0 then

Form1.Label5.Caption:= FloatToStr(h*y);

if Form1.RadioGroup1.ItemIndex =1 then

Form1.Label5.Caption:= FloatToStr(Pervoobraznaia(b) - Pervoobraznaia(a));

If Form1.RadioGroup1.ItemIndex =2 then

begin

y:= 0;

For i:=2 to N-1 do

begin

y:= y + Funkc(x);

x:= x + h;

end;

y:= ((b - a)/(2*N))*(Funkc(x) + Funkc(x) + 2*y);

Form1.Label5.Caption:= FloatToStr(y);

end;

for i:=a to b do

Form1.Chart1.Series[0].AddXY(i, i + cos(i),'', clAqua);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.PageControl1Change(Sender);

PageControl1.ActivePage:= TabSheet1;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form1.PageControl1Change(Sender);

PageControl1.ActivePage:= TabSheet2;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Form1.PageControl1Change(Sender);

PageControl1.ActivePage:= TabSheet3;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Form1.PageControl1Change(Sender);

PageControl1.ActivePage:= TabSheet4;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Form1.PageControl1Change(Sender);

PageControl1.ActivePage:= TabSheet1;

end;

end.

ЛИТЕРАТУРА

1. Фаронов В.В. Delphi 6. Учебный курс. – М.: Изд. Молгачева С.В., 2001. - 672 c.

2. Тейксейра Стив, Пачеко Ксавье. Delphi 6. Руководство разрабочика. Т.1. Основные методы и технологии. Пер. с англ. Уч. пос. – М.: Изд. дом «Вильямс», - 2001. - 832 с.

3. Тейксейра Стив, Пачеко Ксавье. Delphi 6. Руководство разрабочика. Т.2. Разработка компонентов и работа с базами данных. Пер. с англ. Уч. пос. – М.: Изд. дом «Вильямс», - 2001. – 992 с.

4. Фаронов В.В. Программирование баз данных в Delphi 6. Учебный курс. – СПб, Питер, 2002. - 352 c.

5. Подольский С.В., Скиба С.А., Кожедуб О.А. Разработка интернет-приложений в Delphi 6. – СПб, БХВ-Петербург, 2002. - 452 c.

6. Сван, Том. Delphi 4. Библия разработчика: Пер. с англ. – К; М.; СПб.: Диалектика, 1998. – 672 с.

7. Федоров А.. Delphi 5.0 для всех. - М.: ТОО “КомпьютерПресс”, 1998. - 464 с.

8. Марко Кэнту. Delphi 5 для профессионалов.- СПб.: Питер. 2001. – 944 с.

9. Бобровский С. Delphi 5: учебный курс – СПб: Питер, 2000.- 640 с.

10. Дэн Оузьер, и др. Delphi 3. Освой самостоятельно. / Пер. с англ. – М.: Издательство БИНОМ, 1998. – 560 с.

11. Рубенкин Нейл Дж.. Программирование в Delphi для “чайников” - К.: Диалектика, 1996. - 304 с.

12. Дантеман Джефф, Мишел Джим, Тейлор Дон. Программирование в среде Delphi. Пер. с англ. - К.:НИПФ “ДиаСофт Лтд”, 1995. - 608 с.

Дата добавления: 2014-01-07