Case Key of

Begin

Var

ms: integer; // скорость м/с

kmh: real; // скорость км/час

begin

ms:= StrToInt(Edit1.Text); // ввести исходные данные

kmh:= ms * 3.6; // пересчитать

Label3.Caption:= IntToStr(ms) + ' м/с - это ' + FloatToStr(kmh) + ' км/час' // вывести результат

end;

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

6. Модернизировать приложение таким образом, чтобы пользователь мог ввести в поле Скорость только целое положительное число. Для этого:

§ в процедуру Button1Click добавить следующий код (выделен полужирным шрифтом):

Procedure TForm1.Button1Click(Sender: TObject);

begin

if Length(Edit1.Text) = 0 then

ShowMessage('Надо ввести скорость');

exit;

end;

ms:= StrToInt(Edit1.Text);

...//(далее без изменений)

end;

§ Для объекта Edit1 выбрать событие KeyPress и ввести следующий код:

Procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

// Key - символ, соответствующий нажатой клавише

..// '9',#8 - цифры и <Backspace>

. // Chr(0) – неотображаемый символ

if not ((Key >= '0') and (Key <='9') or (Key = #8))

then Key:= Chr(0);

end;

7. Проверить работу приложения на различных значениях (целых и вещественных).

8. Модернизировать приложение для того, чтобы вычисление выполнялось не только при щелчке по кнопке Пересчет, но и при нажатии Enter после ввода последней цифры в поле Скорость. Для этого:

§ создать новую процедуру:

- перед End. ввести Procedure WindSpeed;

- переместить в нее весь код процедуры Button1Click;

§ для процедуры Button1Click ввести новый код:

procedure TForm1.Button1Click(Sender: TObject);

begin

WindSpeed; // пересчитать скорость

end;

§ внести изменения в процедуру Edit1KeyPress:

begin

// #13 - клавиша <Enter>

'0'..'9',#8:; // цифры и <Backspace>

#13: WindSpeed; // пересчитать скорость

else Key:= Chr(0); // остальные символы не отображать

end;

9. Проверить работу приложения.

10. Сохранить проект. Результат показать преподавателю.

Задания для самостоятельного выполнения

Задание №1

Разработать приложение для пересчета массы из фунтов в килограммы (1 фунт = 409,5 грамм). Кнопка Пересчет должна быть доступна только в том случае, если пользователь ввел исходные данные. Разрешается вводить целые и вещественные значения (разделитель точка и только одна). Добавить на форму кнопку, при щелчке по которой удаляются значения из полей ввода и вывода.

Задание №2

Разработать приложение, которое вычисляет скорость (км/час), с которой спортсмен пробежал дистанцию. Рекомендуемый вид формы приведен на рисунке. Количество минут задается целым числом, секунд – вещественным.

Задание №3

Разработать приложение для вычисления сопротивления электрической цепи, состоящей из двух сопротивлений. Сопротивления могут быть соединены последовательно или параллельно. Рекомендуемый вид формы приведен на рисунке. Если величина сопротивления цепи превышает 1 000 Ом, то результат должен быть выведен в килоомах.

Задание №4

Разработать приложение для вычисления стоимости покупки с учетом скидки. Скидка 1% предоставляется, если сумма покупки больше 300 руб., 2% - если больше 500 руб., 3% - если больше 1000 руб. Информация о предоставленной скидке (процент и величина) должна быть выведена в диалоговое окно. Рекомендуемый вид формы приведен на рисунке.

Задание №5

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

Контрольные вопросы

1. Когда происходит событие KeyPress?

2. Значения какого типа возвращают объекты Edit, Label?

3. Какие объекты позволяют вводить (выводить) значения?

4. Можно ли для одного объекта создать две процедуры обработки события?

Дата добавления: 2014-10-23