Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Текст модуля 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; Просмотров: 259; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.011 сек.