Лабораторная работа № 3. Элемент управления tEdit — текстовое поле
Разработайте приложение, которое вычисляет сумму трех любых чисел при нажатии на кнопку
Инструментарий:
| объект | свойство name | свойство text |
| форма | frmSumma | Вычисление суммы |
| кнопка (tbutton) | btnExit | Выход |
| текстовое поле (tEdit) | txtA | 0 |
| текстовое поле (tEdit) | txtB | 0 |
| текстовое поле (tEdit) | txtC | 0 |
| текстовое поле (tEdit) | txtSumma | 0 |
| кнопка (tbutton) | btnCount | Вычислить |
Выполнение:
- Внимание! Называйте все объекты согласно правилам именования объектов, принятых в Lazarus. В таблице или в скобках будет указан возможный вариант для имени создаваемого объекта.
- Создайте новый проект (Вычисление), назовите его форму frmSumma, а свойству Caption задайте значение Вычисление суммы.
- Создайте и самостоятельно запрограммируйте кнопку Выход (btnExit) .
- Создайте три элемента управления tEdit (txtA, txtB, txtC) для слагаемых. Задайте свойство Text для этих элементов управления, равное 0.
- Создайте еще один элемент управления TextBox (txtSumma) (размеры и расположение кнопок см. рис «форма Вычисление_суммы»). Установите его свойство Text равное 0.
- Создайте кнопку Вычислить (btnCount), задайте ей соответствующе свойства Caption и Name.
- Запрограммируйте событие Click для кнопки Вычислить следующим образом:
| procedure TForm1.btnCountClick(Sender: TObject); begin txtSumma.text:= FloatToStrF(StrToFloat(txtA.Text) + StrToFloat(txtB.Text) + StrToFloat(txtC.Text),ffFixed,2,2); end; |
Функция StrToFloat () преобразует текстовое значение в дробное число
Функция FloatToStrF() преобразует дробное число типа Float в текстовое значение, параметр ffFixed — константа, вписывается без изменений, третий параметр — ширина поля, отводимого под всё число, четвертый параметр — количество цифр в дробной части
- Запустите приложение, введите значения для слагаемых и посмотрите, что произойдет, если Вы нажмете на кнопку Вычислить.
- Сохраните проект.
Дополнительное задание. Измените приложение так, чтобы оно вычисляло сумму квадратов трех чисел.Контрольное задание. Разработайте приложение, которое вычисляет:
- площадь треугольника по трем сторонам;
- площадь прямоугольника по двум сторонам;
- площадь треугольника по двум сторонам и углу между ними;
- процент от числа.
Вопросы для самоконтроля.
- Какова основная функция элемента управления Edit?
- Какая функция Lazarus переводит числовое значение в строковое?