![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Создание программы с несколькими формами и средства управления ими
Цель: Изучить методы, связанные с созданием программы, в которой используется несколько форм. Постановка задачи: 1. Создать главную форму, содержащую название работы, ФИО исполнителей, кнопки изменения цвета формы и вызова другой формы. 2. Создать вторую форму для задания параметров, необходимых для вычисления определенного интеграла. На вторую форму поместить кнопку, при нажатии которой вычисляется интеграл и абсолютная погрешность его вычисления, а затем открывается третья форма, содержащая полученный результат. 3. Каждая из форм должна содержать кнопку, при нажатии которой можно вернуться назад в предыдущую форму. Интерфейс программы, реализующей задания по пп.1-3, показан на фиг.1-4.
Фиг.1. Form1. Фиг.2. FORM2. Фиг.3. Form3. Фиг.4. Form4.
Программные модули, реализующие сформулированную задачу, приведены ниже.
unit DemoMultiForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; StatusBar1: TStatusBar; ColorDialog1: TColorDialog; procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; implementation uses lab3_2b; var q: integer; {$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject); begin q: = Form1.Color; ColorDialog1.Execute; Form1.Color: = ColorDialog1.Color; Label1.Font.Color: = Form1.Color + 10000; Button3.Enabled: = True; end;
procedure TForm1.Button4Click(Sender: TObject); begin Close; end;
procedure TForm1.Button3Click(Sender: TObject); begin Form1.Color: = q; end;
procedure TForm1.Button1Click(Sender: TObject); begin Form2.ShowModal; end; end.
unit lab3_2b; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Math; type TForm2 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Button1: TButton; Image1: TImage; Label4: TLabel; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Edit2KeyPress(Sender: TObject; var Key: Char); procedure Edit3KeyPress(Sender: TObject; var Key: Char); procedure Edit3Exit(Sender: TObject); procedure Edit2Exit(Sender: TObject); procedure Edit1Exit(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form2: TForm2; implementation uses lab3_3b; var q, w, e, r, t, y, u, i: extended; {$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject); begin Close; end;
procedure TForm2.Button3Click(Sender: TObject); begin Halt; end;
procedure TForm2.Button2Click(Sender: TObject); begin q: = StrToFloat(Edit1.Text); //nijnii predel w: = StrToFloat(Edit2.Text); //verxnii predel e: = StrToFloat(Edit3.Text); //4islo razbienii
if e =0 then begin ShowMessage('Division by ZERO detected!!! The program will be closed!!! '); Halt; end;
if q < =0 then begin ShowMessage('Division by ZERO detected!!! The program will be closed!!! '); Halt; end;
if w < =0 then begin ShowMessage('Division by ZERO detected!!! The program will be closed!!! '); Halt; end;
if q =1 then begin ShowMessage('Division by ZERO detected!!! The program will be closed!!! '); Halt; end;
if w =1 then begin ShowMessage('Division by ZERO detected!!! The program will be closed!!! '); Halt; end;
if q > w then begin ShowMessage('Please, change the number''s position and restart the program!!! '); ShowMessage('The value of the left border MUST be bigger than the value of the right one!!! '); Halt; end;
r: = (w - q)/e; //6ag i: = 0; t: = 0; u: = w;
while i < e do begin t: = t + (r*(1/(q*ln(q)))); q: = q + r; i: = i + 1; end;
q: = StrToFloat(Edit1.Text); //nijnii predel y: = ((w - q)/24)*sqr(r)*abs((1/(Power(u, 3)*ln(u)))* (2+(2/sqr(ln(u)))+(3/ln(u)))); Form3.Label1.Caption: = FloatToStr(t); Form3.Label2.Caption: = FloatToStr(y); Form3.ShowModal; end;
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9', #8, '.']) then key: = #27; end;
procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9', #8, '.']) then key: = #27; end;
procedure TForm2.Edit3KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9', #8]) then key: = #27; end;
procedure TForm2.Edit3Exit(Sender: TObject); begin if Length(Edit3.Text) < 1 then begin MessageBox(0, 'Please, fill the field with appropriate number! ', 'WARNING!!! ', mb_OK); ActiveControl: = Edit3; end; end;
procedure TForm2.Edit2Exit(Sender: TObject); begin if Length(Edit2.Text) < 1 then begin MessageBox(0, 'Please, fill the field with appropriate number! ', 'WARNING!!! ', mb_OK); ActiveControl: = Edit2; end; end;
procedure TForm2.Edit1Exit(Sender: TObject); begin if Length(Edit1.Text) < 1 then begin MessageBox(0, 'Please, fill the field with appropriate number! ', 'WARNING!!! ', mb_OK); ActiveControl: = Edit1; end; end; end.
unit lab3_3b; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm3 = class(TForm) Image1: TImage; Label1: TLabel; Button1: TButton; Image2: TImage; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Label3Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form3: TForm3;
implementation uses lab3_4b, lab3_2b; var q, w: extended; {$R *.DFM}
procedure TForm3.Button1Click(Sender: TObject); begin Close; end;
procedure TForm3.Label3Click(Sender: TObject); begin Form4.ShowModal; end;
procedure TForm3.Button2Click(Sender: TObject); begin q: = (2.3026*(ln(ln(StrToFloat(Form2.Edit2.Text)))- ln(ln(2))))-(2.3026*(ln(ln(StrToFloat(Form2.Edit1.Text)))- ln(ln(2)))); w: = StrToFloat(Label1.Caption); ShowMessage(FloatToStr(w - q)); end;
end.
unit lab3_4b; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm4 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form4: TForm4; implementation {$R *.DFM}
procedure TForm4.Button1Click(Sender: TObject); begin Close; end;
procedure TForm4.FormCreate(Sender: TObject); begin end;
end.
program Plaba3_1b; uses Forms, lab3_1b in 'lab3_1b.pas' {Form1}, lab3_2b in 'lab3_2b.pas' {Form2}, lab3_3b in 'lab3_3b.pas' {Form3};
{$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm3, Form3); Application.Run; end.
|