Задание для самостоятельного решения.

№ п/п

Описание действий учащегося

краткое

подробное

1

Запустить Delphi

Использовать меню Пуск (раздел Программы)

Ввести заголовок формы

В окне Object Inspector выбрать свойство Caption и ввести его значение: Сборная покупка

Указать вид значка в заголовке формы

Щелкнуть по слову None свойства Icon, а затем – по появившейся кнопке с изображением трех точек. В появившемся окне Picture Editor щелкнуть мышью по кнопке Load. Выбрать указанный преподавателем файл с рисунком для размещения в заголовке формы, щелкнуть мышью по кнопке Открыть, а затем – по кнопке ОК.

Сохранить новый проект на диске

Использовать команду File -> Save Project As

Указать имя программного модуля первой формы

Набрать имя:

mod1

и щелкнуть мышью по кнопке Сохранить

Указать имя проекта

Набрать имя:

stoimost

и щелкнуть мышью по кнопке Сохранить

2

Разместить компоненты

Разместить компоненты на форме компоненты, вначале щелкая по их изображению мышью на панели компонентов, а затем – в выбранном для данного компонента месте формы. Используемые в форме 1 компоненты имеют следующие обозначения:

группа Standart

- поле Memo

- кнопка;

группа Additional

- рисунок

Определить свойства компонентов:

- рисунка

Дважды щелкнуть мышью в области рисунка. В появившемся окне Picture Editor аналогично выбору значка в заголовке окна найти указанный преподавателем файл с рисунком для размещения на форме. Затем при необходимости изменить размеры области для рисунка

- поля Memo

Щелкнуть мышью в области поля Memo, затем в окне Object Inspector щелкнуть мышью по слову Tstring свойства Lines и по появившейся кнопке с изображением трех точек. В окне для ввода текста набрать: Для продолжения нажмите ОК

и щелкнуть мышью по кнопке ОК.

По аналогии вызвать изображение кнопки с тремя точками для свойства Font, щелкнуть по ней мышью, установите требуемые параметры шрифта и щелкните по кнопке ОК

- кнопки

Щелкнуть мышью в области размещенной на форме кнопке. В окне Object Inspector свойству Caption присвоить следующее значение: ОК

Записать изменения, внесенный в форму, на диск

Использовать команду File -> Save All

3

Создать новую форму

Использовать команду File-> New Form

Ввести заголовок формы

В окне Object Inspector выбрать свойство Caption и ввести его значение: Расчет стоимости

Сохранить форму на диске

Вызвать команду File -> Save. Указать имя программного модуля для второй формы: mod2 и щелкнуть мышью по кнопке Сохранить

Добавить форму в проект

Вызвать команду Project-> Add to Project.Указать имя программного модуля: mod2 и щелкнуть мышью по кнопке Открыть

4

Разместить на форме компоненты

По аналогии с п. 2 разместить на форме в соответствии требуемые компоненты: для инструкции по работе с программой – поле Memo, для надписей Цена, Кол-во, Стоимость покупки – компонент Метка, для отображения числовых значений – поле Edit. Не использовавшиеся ранее компоненты Edit и Метка размещены в группе Standart и обозначаются следующим образом:

- метка;

-поле Edit

Указать свойство компонентов:

- поля Memo

Щелкнуть мышью в области поля Memo. По аналогии с заполнением такого поля в первой форме ввести в него текст инструкции.

- кнопок

Щелкая мышью в области каждой из кнопок, присвоить их свойству Caption значения Добавить, Закрыть и Сброс в соответствии с их месторасположением.

- меток

Щелкая мышью в области каждой из меток, присвоить их свойству Caption значения Цена, Кол-во и Стоимость в соответствии с их месторасположением.

Проверить правильность расположения полей Edit

Убедитесь в том, что в верхнем поле написан текст “Edit1”, в среднем - “Edit2” и в нижнем – “Edit3”. В случае иного расположения полей расставить их в таком порядке, перетягивая с помощью мыши

Записать изменения, внесенные в форму, на диск

Использовать команду File -> Save All

5

Описать события:

- при открытии второй формы происходит присвоение значений «0» строковым переменным (свойствам) Text полей Edit1, Edit2, Edit3.

Щелкнуть мышью в любом месте формы, не заполненном компонентами. В окне Object Inspector щелкнуть по закладке Events, а затем дважды щелкнуть по пустой строке слева от слова OnCreate. В появившемся справа окне mod2 между словами begin и end набрать текст:

Edit1. Text: = ‘0’;

Edit2. Text: = ‘0’;

Edit3. Text: = ‘0’;

При наборе текста символ «;» обязательно должен ставиться в конце каждой строки, как этого требует любая программа, написанная на языке Паскаль. В апострофах указывается число «нуль», а не буква «О»

- при нажатии на кнопку Сброс выполняются те же действия

Щелкнуть мышью в любом месте окна Расчет стоимости (обычно на экране виден только его заголовок), а затем – по кнопке Сброс. Внести в строку события OnClick текст:

Edit1. Text: = ‘0’;

Edit2. Text: = ‘0’;

Edit3. Text: = ‘0’;

- при нажатии на кнопку Закрыть закрывается окно

По аналогии описать событие OnClick для кнопки Закрыть, набрав между словами begin и end команду закрытия окна Close;

- при нажатии на кнопку Добавить выполняются расчеты

По аналогии описать событие OnClick для кнопки Добавить, набрав между словами begin и end текст:

d: =StrToInt (Edit3.Text)+StrToInt (Edit1.Text)*StrToInt (Edit2.Text);

Edit3.Text: =IntToStr(d);

Здесь же между словами procedure и begin вставить строку описания переменной d:

Var d: integer;

Некоторая сложность формул обусловлена необходимостью преобразования строковой переменной Text в целочисленную для выполнения арифметических действий. Назначение используемых во вводимом фрагменте программы функций StrToInt и IntToStr приведено выше в разделе, описывающим работу со строковыми величинами в языке Паскаль.

- при нажатии на кнопку ОК, находящуюся на первой форме, происходит вызов второй формы

Вызвать на экран изображение первой формы, использовав для этого команду View-> Forms. Щелкнуть мышью по строке Form1, а затем – по кнопке ОК. Щелкнуть мышью в области кнопки ОК, расположенной на форме, и описать для этой кнопки событие OnClick, набрав между словами begin и end команду изображения на экране второй формы:

Form2.Show;

Записать изменения, внесенные в формы, на диск

Использовать команду File -> Save All

6

Отладить программу

Запустить программу командой Run->Run. Проверить работу всех кнопок, вводя произвольные значения цены и количества товаров; при обнаружении ошибок в программе исправить их. После исправления ошибок все изменения программы записать на диск с помощью команды Save All

Скомпилировать команду

Выполнить команду Project->Compile

7

Запустить созданную программу на выполнение

Закрыть Delphi. Средствами Проводника найти и запустить на выполнение файл stoimost.exe. Убедиться в работоспособности созданного приложения.