Програмування в середовищі Delphi

 

 

         
 
 

                               Мал №8.2.9. «Головне вікно програми №1» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.3.Додаток №3 «Вихідний код програми №1 – Unit2»

unit Unit2; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Menus; 

type

  TForm2 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    Button1: TButton;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    procedure Button1Click(Sender: TObject);

 

    procedure N1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form2: TForm2; 

implementation 

uses Unit3; 

{$R *.dfm} 

procedure TForm2.Button1Click(Sender: TObject);

var

x,y,z:real;

suma,dob:real;

begin

x:=strtofloat(edit1.text);      // присвоюємо компонентам Edit свої символи

y:=strtofloat(edit2.text);

z:=strtofloat(edit3.text);

if CheckBox1.Checked then

begin

suma:=x+y+z;         // обчислення суми

end;

Form3.Edit1.text:=floattostr(round(suma)); // виведення значення суми

begin

if CheckBox2.Checked then

begin

dob:=x*y*z;        //обчислюємо добуток

end;

Form3.Edit2.text:=floattostr(round(dob));    // виведення значення сдобутку

close;

end; 

end; 

procedure TForm2.N1Click(Sender: TObject);

begin

Edit1.Clear;   // очищення компонент Edit на даній формі

Edit2.Clear;

Edit3.Clear;

end; 

end.

8.4.Додаток  №4 «Вікно вводу даних»

 

                                                    Мал №8.3.10. «Вікно розділу Input» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.5.Додаток  №5 «Вихідний код  програми №1 – Unit3»

unit Unit3; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls; 

type

  TForm3 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Label2: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form3: TForm3; 

implementation 

{$R *.dfm} 

procedure TForm3.Button1Click(Sender: TObject);

begin

Close;    // закриття форми

end; 

end.

8.6.Додаток  №6 «Вікно результату обчислень»

 

                                               Мал №8.6.11. «Вікно розділу Calc» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.7.Додаток  №7 «Вихідний код  програми №1 – Unit4»

unit Unit4; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls; 

type

  TForm4 = class(TForm)

    Label1: TLabel;

    Panel1: TPanel;

    Label2: TLabel;

    Label3: TLabel;

    Button1: TButton;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form4: TForm4; 

implementation 

{$R *.dfm} 

procedure TForm4.Button1Click(Sender: TObject);

begin

close; //закриття форми

end; 

end.

8.8.Додаток  №8 « Про програму»

                                                 Мал №8.8.12. «Вікно розділу About» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.9.Додаток  №9 «Вихідний код  програми №1 – Unit5»

unit Unit5; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls; 

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form5: TForm5; 

implementation 

{$R *.dfm} 

end. 
 
 
 
 
 
 

8.10.Додаток  №10 «Вікно розділу Help»

 

 Мал №8.10.13. «Вікно розділу Help» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.11.Додаток №11 «Код програми №2 – Unit1»

unit Unit1; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls; 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation 

uses Unit2; 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.ShowModal; // налагодження звязку з формою

end; 

end. 

8.12.Додаток  №12 «Про програму»

 Мал №8.12.14. «Вікно про програми » 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.13.Додаток  №13 «Вихідний код програми №2 – Unit2»

unit Unit2; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, jpeg, ExtCtrls, Menus, XPMan; 

type

  TForm2 = class(TForm)

    Image1: TImage;

    MainMenu1: TMainMenu;

    Chart1: TMenuItem;

    Imput1: TMenuItem;

    Choose1: TMenuItem;

    Draw1: TMenuItem;

    Quit1: TMenuItem;

    XPManifest1: TXPManifest;

    procedure Quit1Click(Sender: TObject);

    procedure Imput1Click(Sender: TObject);

    procedure Draw1Click(Sender: TObject);

    procedure Choose1Click(Sender: TObject); 

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form2: TForm2; 

implementation 

uses Unit3, Unit4, Unit5; 

{$R *.dfm} 

procedure TForm2.Quit1Click(Sender: TObject);

begin

Close;     // закриття форми

end;

procedure TForm2.Imput1Click(Sender: TObject);

begin

Form3.Show;   // налагодження звязку з формою

end; 

procedure TForm2.Draw1Click(Sender: TObject);

var F:textfile;

F1:string;

x,y,x1,y1:real;      //опис значень