– по известному конечному вкладу, величине ставки и времени вычислить начальный вклад: , (4.8)– по известным начальному и конечным вкладам и процентной ставке вычислить время вклада: , (4.9)– по известным начальному и конечному вкладам и времени вычислить величину ставки: . (4.10)
Проектирование интерфейса На основе уравнений (4.7) – (4.10) можно создать вычислительный комплекс со следующим интерфейсом.При запуске программы появляется лист, содержащий главное меню – рис.4.3.Рис.4.3. Внешний вид главного меню программыПри щелчке по кнопке «Конечный вклад» система переходит на Лист2, в котором реализованы расчеты по формуле (4.7) – рис. 4.4. После завершения расчетов вернуться в главное меню можно с помощью соответствующей кнопки.По аналогичной схеме работают кнопки «Начальный вклад», «Время» и «Ставка». При этом система должна переходить на соответствующие листы – Лист3, Лист4 и Лист5. Кнопка «Выход» обеспечивает закрытие программы и выход из Excel.Рис.4.4. Лист с реализацией расчетов величины конечного вклада.
Этапы создания интерфейсаСоздание кнопок -
Вызывается панель инструментов с заготовками интерфейса –
Вид > Панели инструментов > Формы. -
На появившейся панели выбрать элемент «Кнопка» и нарисовать ее в нужном месте экрана. На запрос о назначении макроса щелкнуть «Отмена».
-
Аналогично нарисовать все остальные кнопки меню и расчетных листах.
-
Исправить надписи на кнопках.
Оформление главного менюОформлять или не оформлять главное меню дело вкуса. Но если в этом есть необходимость, то:
-
Вызвать панель рисования (Вид > Панели инструментов > Рисование), выбрать на ней объект «Прямоугольник» и накрыть им кнопки главного меню.
-
Выделить нарисованный прямоугольник и на панели рисования выбрать Рисование > Порядок > На задний план. При этом скрытые прямоугольником кнопки выйдут на передний план.
-
Не снимая выделения с прямоугольника залить его выбранным цветом и стилем.
-
Убрать сетку таблицы – Сервис > Параметры > Снять отметку с параметра «Сетка».
-
Выбрать подложку для фона – Формат > Лист > Подложка > Выбрать рисунок > Вставить. Рисунок можно выбрать из коллекции ClipArt.
Создание макросов для кнопокСогласно плану проекта интерфейса созданные кнопки должны обеспечить выполнение следующих команд – табл.4.3.Таблица 4.3Предназначение кнопок
N
|
Кнопка
|
Назначение
|
1
|
«Конечный вклад»
|
Переход на Лист2
|
2
|
«Начальный вклад»
|
Переход на Лист3
|
3
|
«Время»
|
Переход на Лист4
|
4
|
«Ставка»
|
Переход на Лист5
|
5
|
«Выход»
|
Выход из Excel
|
6
|
«Главное меню» на расчетных листах
|
Переход на Лист1
|
Все макросы, выполняющие указанные команды, создаются практически одинаково. Например, для кнопки «Конечный вклад»:1. Перейти на Лист1.2. Выполнить команды –
Сервис > Макрос > Начать запись.3. На запрос о параметрах макроса необходимо только указать осмысленное имя макроса. Например,
Кон_вклад и затем «Ok». При вводе имени макроса нельзя использовать пробелы.4. Система перейдет в режим записи макроса. Но в Excel, в отличие от Word, нет внешних признаков того, что система находится в режиме записи. Поэтому здесь необходимо очень аккуратно выполнить только необходимые команды и тут же остановить запись.5. Применительно к рассматриваемой задаче – щелкнуть по ярлычку «Лист1» и затем
Сервис > Макрос > Остановить запись.Точно также можно создать макросы для остальных кнопок перехода – «Начальный вклад», «Время», «Ставка» и «Главное меню» на расчетных листах.Но удобнее (и быстрее) остальные макросы создать следующим образом:
-
После создания первого макроса (для кнопки «Конечный вклад») перейти в редактор Visual Basic – Сервис > Макрос > Макросы > Выбрать только что созданный > Изменить.
-
Система перейдет в редактор Visual Basic, в котором мы увидим, как выглядит наш макрос в виде команд Бейсика. Если все было сделано правильно, то там должно быть примерно следующее:
Sub Кон_вклад()Sheets("Лист2").SelectEnd Sub -
Для создания остальных макросов имеющийся текст макроса как в Word выделяется, копируется в буфер и путем вставки делается пять его копий.
-
Каждую копию следует исправить, создавая новые макросы. Например, первую копию исправить, так, чтобы она приняла следующий вид:
Sub Нач_вклад()Sheets("Лист3").SelectEnd SubВторую копию:
Sub Время()Sheets("Лист4").SelectEnd SubТретью копию:
Sub Ставка()Sheets("Лист5").SelectEnd SubЧетвертую копию:
Sub Меню()Sheets("Лист1").SelectEnd Sub -
Для кнопки «Выход» макрос должен содержать следующую команду:
Sub Выход() Workbooks.CloseEnd Sub -
Все необходимые макросы созданы.
Привязка макросов к кнопкамДля привязки имеющихся макросов к соответствующим кнопкам необходимо:
-
Вернуться в Excel.
-
Установить указатель мыши на нужную кнопку и щелкнуть правой кнопкой мыши.
-
В появившемся меню выбрать пункт «Назначить макрос»
-
Из списка макросов выбрать нужный и «Ok».
После выполнения указанных команд выбранная кнопка становится активной – при установке на нее указателя мыши он принимает форму ладони.
Реализация вычисленийВ соответствии с проектом вычисления по формулам (4.7) – (4.10) должны быть разнесены по разным листам. Организация вычисления на всех листах в каком-то смысле типична.На Лист2 вычисляется величина конечного вклада.
|
А
|
B
|
C
|
D
|
1
|
|
|
|
|
2
|
|
Начальный вклад
|
10000
|
|
3
|
|
Ставка
|
0,06
|
|
4
|
|
Время
|
5
|
|
5
|
|
Конечный вклад
|
13382,26
|
|
6
|
|
|
|
|
При этом в ячейку С5 введена формула (4.7): = C2*(1+C3)^C4.
На Лист3 вычисляется величина начального вклада.
|
A
|
B
|
C
|
D
|
1
|
|
|
|
|
2
|
|
Конечный вклад
|
15000
|
|
3
|
|
Ставка
|
0,06
|
|
4
|
|
Время
|
5
|
|
5
|
|
Начальный вклад
|
11208,87
|
|
6
|
|
|
|
|
При этом в ячейку С5 введена формула (4.8): = C2/(1+C3)^C4.На Лист4 вычисляется время вклада.
|
A
|
B
|
C
|
D
|
1
|
|
|
|
|
2
|
|
Конечный вклад
|
15000
|
|
3
|
|
Начальный вклад
|
10000
|
|
4
|
|
Ставка
|
0,06
|
|
5
|
|
Время
|
6,958516
|
|
6
|
|
|
|
|
При этом в ячейку С5 введена формула (4.9): = Ln(C2/C3)/Ln(1+C4).На лист5 вычисляется величина процентной ставки.
|
A
|
B
|
C
|
D
|
1
|
|
|
|
|
2
|
|
Конечный вклад
|
15000
|
|
3
|
|
Начальный вклад
|
10000
|
|
4
|
|
Время
|
5
|
|
5
|
|
Ставка
|
0,084472
|
|
6
|
|
|
|
|
При этом в ячейку С5 введена формула (4.10): = (C2/C3)^(1/C4)-1.