Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

инфа л.р 3 / Лабораторная работа №3 готовая!!!

.doc
Скачиваний:
2
Добавлен:
15.04.2015
Размер:
130.05 Кб
Скачать

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ

УЧРЕЖДЕНИЕ ОБРАЗОВАНИЯ

«ГОМЕЛЬСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ

УНИВЕРСИТЕТ ИМЕНИ П. О. СУХОГО»

Механико-технологический факультет

Кафедра «Информатика»

ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ № 3

по дисциплине «Информатика»

на тему:

«Создание простого приложения в интегрированной среде разработки (ИСР) Delphi»

Выполнил: студент гр. С-11

Б.Н.Удодов

Принял: преподаватель

В.О. Лукьяненко

Дата сдачи отчета: _____________________

Дата допуска к защите: _____________________

Дата защиты: _____________________

Гомель 2012

Цель работы: изучить интерфейс ИСР Delphi, этапы работы при создании приложения в ИСР; научиться создавать интерфейс простого приложения и процедуры обработки событий, выводить тексты процедур (или весь модуль) и формы с результатами работы на принтер; получить навыки тестирования программ.

  1. Запуск системы программирования Delphi.

Запуск Delphi выполняется с помощью ярлыка на Рабочем столе.

  1. Открытие существующего проекта или создание нового.

При запуске Delphi обычно уже создан проект Project1, содержащий одну главную форму Form1 и соответствующий ей модуль Unit1. Для создания нового проекта необходимо выполнить команду FileNew Application, для открытия существующего использовать команду FileOpen Project… или кнопку на Панели Инструментов (ПИ) Open Project.

  1. Создание интерфейса приложения.

Разместить на каждой форме визуальные компоненты в соответствии с разработанным интерфейсом проекта.

Для размещения каждого визуального компонента необходимо:

  • щелкнуть мышью по визуальному компоненту на палитре компонентов, а затем щелкнуть мышью в месте его расположения на форме;

  • на вкладке Properties инспектора объектов найти свойства, которые нужно изменить, и установить для них необходимые значения.

Выделенный (щелчком мыши) визуальный компонент можно удалить (клавишей DELETE), с помощью мыши переместить в другое место на форме, изменить размер компонента или cкопировать его, используя команды работы с буфером обмена меню Edit.

  1. Создание процедур – обработчиков событий.

Ввести текст всех процедур для обработки событий в соответствии с разработанными алгоритмами решения задачи. Для создания и изменения процедур обработки каждого события необходимо:

  • выделить компонент, для которого создается событие;

  • найти на вкладке Events инспектора объектов нужное событие;

  • выполнить двойной щелчок по полю, находящемуся справа от названия события (если процедура только создается, то поле пустое, если процедура изменяется, то поле содержит имя процедуры);

  • ввести текст процедуры или изменить ее в окне редактора кода.

  1. Сохранение проекта.

Сохранить созданный проект можно используя команду FileSave All или кнопку на ПИ Save All.

  1. Выполнение (запуск) проекта.

Выполнить команду RunRun (F9) или использовать кнопку Run на ПИ. Нельзя запустить вторую копию приложения во время работы первой.

  1. Внесение изменений в проект.

Если необходимо внести изменения в интерфейс приложения, то см. п.3, если изменяются или создаются новые процедуры обработки событий, то см. п.5.

При редактировании программного кода модулей или проекта используются методы работы с текстом в любых текстовых редакторах в OC Windows. Для работы с буфером обмена можно использовать команды меню Edit.

  1. Вывод программ и форм на принтер.

В ИСР Delphi можно распечатать вид формы на этапе проектирования, текст всего модуля или выделенной его части. Для этого необходимо:

  • сделать активным модуль или форму;

  • выполнить команду FilePrint (появится диалоговое окно Print Selection для модуля или Print Form для формы);

  • щелкнуть по кнопке Setup, выбрать принтер; при необходимости установить альбомную ориентацию и щелкнуть по кнопке ОК;

  • щелкнуть по кнопке ОК.

  1. Завершение работы Delphi.

Закрыть главное окно Delphi.

Пример1. Ввести имя и группу пользователя и после щелчка мышью по кнопке Привет вывести приветствие, включающее введенные фамилию и группу. Интерфейс программы представлен на рисунке:

Таблица используемых компонентов и их свойств, которые устанавливаются на вкладке Properties инспектора объектов (Object Inspector).

Элемент интерфейса

Визуальный компонент

Свойство компонента

Значение свойства

Заголовок окна

Form1

Caption

Первая форма

Введи имя

Label1

Caption

Введи имя

Поле ввода имени

Edit1

Text

Введи группу

Label2

Caption

Введи группу

Поле ввода группы

Edit2

Text

Нажми

Label3

Caption

Нажми

Кнопка Привет

Button1

Caption

Привет

<Выводимое приветствие>

Label4

Caption

procedure TForm1.Button1Click(Sender: TObject);

var

im:string;

gr:string;

begin

im:=edit1.Text;

gr:=edit2.Text;

Label4.Caption:='Привет '+im+' из группы '+gr+'!'

end;

Пример2. Ввести два вещественных числа x и y и вычислить их сумму z. Интерфейс приложения представлен на рисунке:

Таблица используемых компонентов и их свойств, которые устанавливаются на вкладке Properties инспектора объектов (Object Inspector).

Элемент интерфейса

Визуальный компонент

Свойство компонента

Значение свойства

Заголовок окна

Form1

Caption

Линейные алгоритмы

Введите x

Label1

Caption

Введите x

Поле ввода x

Edit1

Text

Введите y

Label2

Caption

Введите y

Поле ввода y

Edit2

Text

Нажмите

Label3

Caption

Нажмите

Кнопка ОК

Button1

Caption

ОК

<Вывод x,y>

Label4

Caption

И получили z=

Label5

Caption

И получили z=

Поле вывода z

Edit3

Text

Поле вывода z

Edit3

ReadOnly

True

Текст модуля второго примера:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

Edit3: TEdit;

Button1: TButton;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

x, y, z : real;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

Label4.Caption:='Вы ввели х='+FloatToStr(x)+' y='+FloatToStr(y);

z:=x+y;

Edit3.Text:=FloatToStr(z);

end;

end.

Вывод: изучил интерфейс ИСР Delphi, этапы работы при создании приложения в ИСР; научился создавать интерфейс простого приложения и процедуры обработки событий, выводить тексты процедур (или весь модуль) и формы с результатами работы на принтер; получить навыки тестирования программ.