Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
лекции по инфе / Лабораторная работа 3_Turbo.doc
Скачиваний:
9
Добавлен:
15.04.2015
Размер:
354.3 Кб
Скачать

Для завершения выполнения программы и перехода в режим проектирования необходимо закрыть окно главной формы.

Если никаких ошибок обнаружено не было, введены исходные данные, получены ожидаемые результаты, перейти к п. 9. Если Turbo Delphi обнаружил любые ошибки, нужно изменить интерфейс приложения или полученные результаты не совпадают с подготовленными тестами, то перейти к п.8.

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

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

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

Пункты 8, 6, 7 повторяются до тех пор, пока на экране не будут получены результаты, совпадающие с подготовленными тестами, а интерфейс и функционирование проекта не будут соответствовать поставленной задаче.

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

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

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

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

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

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

Для того, чтобы вывести на принтер окно формы в режиме выполнения:

  • перейти в режим выполнения (п.7);

  • сделать активной форму с исходными данными и/или результатами, которую нужно распечатать;

  • нажать комбинацию клавиш Alt+PrtScr, окно с формой помещается в Буфер Обмена;

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

  • вставить данные из Буфера Обмена в документ Word (например, с помощью команды Правка - Вставить);

  • вывести документ Word на принтер с помощью команды Файл – Печать…. Предварительно может быть выполнен просмотр документа и изменение параметров страницы.

  1. Завершение работы Delphi. Закрыть главное окно Delphi.

Примеры создания простых приложений.

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

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

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

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

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

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

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

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

Form1

Caption

Первая форма

Введи имя

Label1

Caption

Введи имя

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

Edit1

Text

Введи группу

Label2

Caption

Введи группу

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

Edit2

Text

Нажми

Label3

Caption

Нажми

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

Button1

Caption

Привет

Поле вывода приветствия

Label4

Caption

Для всех компонентов можно изменить шрифт с помощью свойства Font.

Процедура обработки события OnClick для кнопки Привет (записывается в модуле после двойного щелчка мышью по кнопке Привет или на вкладке Events события OnClick):

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

Для всех компонентов можно изменить шрифт с помощью свойства Font.

Процедура обработки события OnClick для кнопки ОК (записывается в модуле после двойного щелчка мышью по кнопке ОК или на вкладке Events события OnClick):

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;