Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Міністерство освіти і науки, молоді та спорту
Кіровоградський Національний Технічний Університет
Факультет автоматики та енергетики
Звіт з об’єктно-орієнтованого програмування
Лабораторна робота №1
Тема: Вивчення інтегрованого середовища розробки (ICP) Delphi
Виконав: ст. гр. СІ-11
Кротенко Т.С.
Перевірив: ас. каф. АВП
Тесленко О.Є.
Кіровоград
2012
Мета роботи: 1. Ознайомитись з існуючими моделями GUI Windows-додатків.
2. Вивчити властивості форми (та їх можливі значення), що відповідають за стиль, розміри, оформлення та місцеположення вікна додатку на екрані монітора користувача.
3. Навчитися використовувати та визначати властивості, методи і події класу ТFont. Застосувати на практиці вивчений матеріал. Привести до стандартного вигляду інтерфейси раніше створених додатків (з лабораторних робіт №1 та №2).
Panel - є контейнером для групування органів керування та менших контейнерів.З їх допомогою компонуються різні елементи інтерфейсу (кнопки, вікна редагування, списки), функціонально пов'язані один з одним. Така функціональна зв'язок повинен підтримуватися і зорової зв'язком - об'єднанням відповідних елементів у рамках однієї панелі. Panel можуть також використовуватися для організації інструментальних панелей, смуг стану і т.п., хоча для цих цілей є і спеціалізовані компоненти, які будуть розглянуті пізніше.
Одним із призначень панелей є також групування таких керуючих елементів, як RadioButton - радіокнопки . Всі радіокнопки, розташовані на панелі, працюють як узгоджена група: в будь-який момент може бути обрана тільки одна з них. Аналогічно узгодженої групою працюють і розташовані на панелі швидкі кнопки SpeedButton якщо вони мають однакове значення властивості GroupIndex. У той же час SpeedButton, розташовані на різних панелях або на панелі і формі, не утворюють пов'язаної групи навіть при однаковому значенні GroupIndex.
Зовнішній вигляд панелі Panel визначається сукупністю параметрів BevelInner - стиль внутрішньої частини панелі, BevelOuter - стиль зовнішньої частини панелі, BevelWidth - ширина зовнішньої частини панелі, BorderStyle - стиль бордюру, BorderWidth - ширина бордюру.
Mainmenu – невізуальний компонент, який генерує головне меню. Головна властивістьItems. Заповнення цієї властивості підкоряється тим же правилам, що і заповнення аналогічної властивості в кнопках включаючи використання символу амперсанта для позначення клавіш швидкого доступу. Якщо до Caption ввести символ мінус "-", то замість розділу в меню з'явиться роздільник Властивість ShortCut визначає клавіші швидкого доступу до розділу меню — «гарячі» клавіші, за допомогою яких користувач, не заходячи в меню, може в будь-який момент викликати виконання процедури, пов'язаної з даним розділом. Визначаються клавіші швидкого доступу, вибором потрібної комбінації клавіш у випадаючому списку властивості ShortCut у вікні Інспектора Об'єктів. Ця комбінація з'явиться в рядку розділу меню.
Властивість Default визначає, чи даний розділ є розділом за замовчуванням свого підміню, тобто розділом, виконуваним при подвійному щиглику користувача на батьківському розділі. Підміню може містити тільки один розділ за замовчуванням, виділений жирним шрифтом.
.
Хід роботи
1.Запустив Делфі.
2.До другої лаби додав компоненти з 1 лаби, об’єднавши їх на одній формі та відокремивши посередині компонентом Panel.
2а. Зберіг через команду Shift+Ctrl+S у C:\Documents andSettings\User\Рабочийстол\Обучение\Лабы по всему\Лабы по делфи\3лаба, перейменувавши назву проекту на Project 13(Unit13,23,33).
2б.Змінив у формі заголовок з “Form1” на «Сипко Дмитро гр. СІ_10_2 лаб.роб. №3». Додав власну іконку.
3. Додав у форму наступні компоненти: Label 2шт. , Button3шт ,
Mainmenu,Panel- 1 шт.
4.Створив нові форми з інформацією про програму, про автораForm2, Form3.
5. Спроектував меню відповідним чином.
6. Зберіг програму.
7. Запустив програму на виконання, перевірив її роботоспроможність .
Рис.1 Робоча форма
рис.2.Форма після запуску
Рис.3. Форма після введення числа і натиснення Button «вирахувати» натиснення клавіши«пуск».
Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Edit2: TEdit;
Label2: TLabel;
Button3: TButton;
Label3: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N3: TMenuItem;
Panel1: TPanel;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button1KeyPress(Sender: TObject; var Key: Char);
procedure N8Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Edit2KeyPress (Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit33, Unit53, Unit63;{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject); );/процедура закриття вікна програми/
begin
Form1.Close;
end;
procedure TForm1.Button1Click(Sender: TObject); );/процедура конвертації фунтів у кілограми /
var
d:real;
s:extended;
begin
d:=StrToFloat(Edit1.Text);
s:=d*0.4 ;
Edit2.Text:=FloatToStr(s);
end;
procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char); /процедура яка слідкує за умовою введення символів/
begin
if (key=',') and (pos(',', edit1.Text)>0) then key:=#0;
if not (key in ['0'..'9',#8, #13, ',']) then
begin
key:=#0;
beep;
end;
end;
procedure TForm1.Button3Click(Sender: TObject); );/процедура зміни властивості Label1/
begin
Label3.Caption:='Цемійпершийдодаток!';
end;
procedure TForm1.N8Click(Sender: TObject); /файл-вихід/
begin
Form1.Close;
end;
procedure TForm1.N7Click(Sender: TObject); / файл-інформація про автора/
begin
Form3.showmodal;
end;
procedure TForm1.N6Click(Sender: TObject); / файл - інформація -про програму/
begin
Form5.showmodal;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; varKey: Char) ;
begin
key:=#0;
end;
end.
procedure TForm1.N3Click(Sender: TObject);/процедура над усіма вкл./
begin
FormStyle:=fsStayOnTop;
end;
procedure TForm1.N4Click(Sender: TObject);/процедура над усіма викл/
begin
FormStyle:=fsNormal;
end;
end.
Висновок: виконуючи дану лабораторну роботу я обєднав дві попередні лабораторні роботи в одну. Додав деякікомпонентиGUI задля більшої зручності та функціональності програми.