![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Текст модуля DemoPageControl приводится ниже.⇐ ПредыдущаяСтр 41 из 41
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 с.
|