Програмування в середовищі Delphi
Курсовая работа, 11 Ноября 2011, автор: пользователь скрыл имя
Описание работы
Написати програму для Windows, в якій:
1) Створити головне вікно. Заголовок містить ПІБ, гр., вар.
2) Створити меню вигляду: Input Choose Calc About Quit
Пункт Calc заборонений. При виборі Quit програма закривається.
3) При виборі Input відкривається діалогове вікно вигляду 1:
При виборі Choose відкривається діалогове вікно вигляду 2:
Содержание
Завдання до курсової роботи 2
Завдання №1 2
Завдання №2 3
Завдання №3 4
Реферат 5
Зміст 6
Вступ 9
Розділ 5. Основна частина 10
Середовище Delphi 10
5.1. Оператори та функції,оператор begin end. 10
5.2.Робота з текстовими файлами. 11
5.3. Процедура assignfile. 11
5.4.Процедура reset 12
5.5. Процедура rewrite 12
5.6.Процедура closefile 13
5.7.Умовний оператор IF. 13
5.8.Приклад використання умовного оператору if для запису інформації у текстовий файл. 15
5.9.Складені умови 20
5.10.Операція and 20
5.11.Операція or 21
5.12.Операція заперечення not. 21
5.13.Операція xor 21
5.15.Використання оператору IF зі складеними умовами. 24
5.16.Оператор вибору CASE. 27
Висновок 28
Список використаної літератури 29
Работа содержит 1 файл
Звіт.docx
— 460.33 Кб (Скачать)
Мал №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);
y:=strtofloat(edit2.text);
z:=strtofloat(edit3.text);
if CheckBox1.Checked then
begin
suma:=x+y+z; // обчислення суми
end;
Form3.Edit1.text:=floattostr(
begin
if CheckBox2.Checked then
begin
dob:=x*y*z; //обчислюємо добуток
end;
Form3.Edit2.text:=floattostr(
close;
end;
end;
procedure TForm2.N1Click(Sender: TObject);
begin
Edit1.Clear; // очищення компонент Edit на даній формі
Edit2.Clear;
Edit3.Clear;
end;
end.
8.4.Додаток №4 «Вікно вводу даних»
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.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; //опис значень