Программная реализация задачи
Date: 2015-10-07; view: 456.
Для реализации описанных выше функций необходимо в форму поместить элементы управления, представленные в таблице 5.3.
Таблица 5.3.
Элементы управления программы «Кредит» и значения их свойств
| Элемент | Свойство | Значение |
| Форма | Caption | Расчет накопленной суммы |
| Метка для суммы кредита | Name | LabelP |
| Caption | Сумма кредита | |
| Метка для годовой % ставки | Name | Labeli |
| Caption | Годовая % ставка | |
| Метка для накопленной суммы | Name | LabelS |
| Caption | Накопленная сумма | |
| Текстовое поле для переменой P | Name | TextP |
| Text | ||
| Enabled | True | |
| Текстовое поле для переменной i | Name | Texti |
| Text | ||
| Enabled | True | |
| Текстовое поле для переменной S | Name | TextS |
| Text | ||
| Enabled | False | |
| Кнопка для вычисления | Name | CmdCalc |
| Caption | Вычислить | |
| Кнопка для выхода | Name | CmdExit |
| Caption | Выход | |
| Рамка | Caption | Параметры периода кредита |
| Метка для срока | Name | Labelt |
| Caption | Срок | |
| Текстовое поле для переменной t | Name | Textt |
| Text | ||
| Enabled | True | |
| Метка для типа измерений | Name | LabelTip |
| Caption | Тип измерения | |
| Комбинированный список для типа измерений | Name | ComboD |
| Text | ||
| Флажок | Name | ChD |
| Caption | дней в году (да – 360, нет – 365) | |
| Enabled | False |
Полный текст программного кода приведен на рис.5.8.
Для проверки правильности работы программы на рис 5.7 представлены результаты расчетов, проведенных на контрольных данных.
‘ Описание переменных:
| <== previous lecture | | | next lecture ==> |
| Постановка задачи | | | ComboD.Clear |