Разработка программы для автоматического расчета кредитных и депозитных операций при помощи Visual Basic for Applications
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?мы прекращается. Листинг подпрограммы можно просмотреть в приложении 2 под названием vih, схема алгоритма подпрограммы изображена на рисунке 7.6
7.2 Используемые подпрограммы
7.2.1 Подпрограмма сохранения [4]
Рис 7.2 Схема алгоритма подпрограммы сохранения файла
Блок 1 проверяет введено ли ФИО клиента в третьей форме,
Блок 2 присваивание промежуточной переменной i ФИО клиента в 3-й форме.
Блок 3 присваивание промежуточной переменной i ФИО клиента во 2-й форме.
Блок 4 присваивание рабочей книги имени i
Блок 5 проверяет условие нажата ли кнопка отмены, если да то завершение подпрограммы.
Блок 6 сохранение рабочей книги.
7.2.2 Подпрограмма расчета кредита [2]
Рис 7.3 Схема алгоритма подпрограммы расчета кредита
Подпрограмма расчета кредита выводит окно для ввода необходимых для расчетов данных, проверяет все ли они введены и удовлетворяют ли условиям, и по введенным параметрам рассчитывает выходные данные, затем строит по ним графики.
Подпрограмма расчета депозита [1]
Рис 7.4 Схема алгоритма подпрограммы расчета депозита
Подпрограмма расчета депозита выводит окно для ввода необходимых для расчетов данных, проверяет все ли они введены и удовлетворяют ли условиям, и по введенным параметрам рассчитывает выходные данные, затем строит по ним графики. Окно для ввода данных представлено на рисунке 6.4.
7.2.3 Подпрограмма пересчета [3]
Рис 7.5 Схема алгоритма подпрограммы пересчета
При запуске подпрограммы пересчета данных появляется диалоговое окно о возможном сохранении (рис 6.6), так как если данные были не сохранены они будут утеряны при закрытии созданной книги. После подпрограмма закрывает UserForm4 (рис 6.5) и открывает UserForm1 (рис 6.1).
7.2.4 Подпрограмма выхода [5]
Рис 7.6 Схема алгоритма подпрограммы выхода
Подпрограмма выхода, что запускается при нажатии кнопки "Выход" расположенной в окне изображенном на рисунке 6.5 В результате программа выводит два диалоговых окна изображенных на рисунках 6.3 и 6.6 одно из них о возможном сохранении рабочей книги и затем работа программы прекращается.
Заключение
В данной курсовой я ознакомилась с использованием Basic for Applications в автоматизации банковских операций. Также ознакомилась со структурой банка и видами банковских операций. Создала программу для расчёта кредитных и депозитных операций при помощи Visual Basic for Applications. В программе реализованы все поставленные задачи:
программа запрашивает у пользователя все входные данные с помощью формы;
автоматически рассчитываются все выходные данные кредитных и депозитных операций;
автоматически строятся графики на основе рассчитанных значений на другом листе книги;
предусмотрена возможность выбора пользователем одного из видов платежа (аннуитетный или дифференцированный) для кредитных операций;
предусмотрена возможность выбора пользователем вида начисления процентов (простой и сложный) для депозитных операций
при разработке программы учтены параметры Варианта №20:
Литература
1. Андрей Гарнаев." Использование MS Excel и VBA в экономике и финансах".
. Джон Уокенбах. "Программирование на VBA в Excel 2002". Киев. 2003г.
.А.Н. Пылкин, Л.А. Демидова "Программирование в среде Visual for Applications".
. Конспект лекций
Приложения
Приложение 1. "Примеры расчетов"
1.Пример расчета кредита дифференцированным методом
В форме 1 изображенной на рисунке 6.1 выбираем кредитные операции, затем вводим необходимые данные:
сумма кредита-5000000
срок кредита-15лет
Рис 1. UserForm2
Результаты:
Рис 2. Лист1 с результатами расчета
График:
Рис 3. График платежей кредита
. Пример расчета депозита со сложным процентом
В форме 1 изображенной на рисунке 6.1 выбираем депозитные операции, затем вводим необходимые данные:
сумма депозита-5000000
срок депозита-15мес
Рис 4. UserForm3
Результаты:
Рис 5. Лист1 с результатами расчета
График:
Рис 6. График платежей депозита
Приложение 2. "Листинг программы"
переход к первой форме сразу при открытии рабочей книги
Private Sub Workbook_Open ()
переход к первой форме
UserForm1. Show
End Sub
UserForm1
Переход к форме расчета кредита
Private Sub CommandButton1_Click ()
создание новой книги
Workbooks. Add. Hide. ShowSub
Переход к форме расчета депозита
Private Sub CommandButton2_Click ()
создание новой книги
Workbooks. Add
UserForm1. Hide. ShowSub
процедура выхода
Private Sub vix_Click ()
запрос у пользователя на подтверждение выхода
Ex = MsgBox ("Вы действительно хотите выйти?", vbYesNo + vbQuestion, Zagl)
If Ex = vbNo Then Exit Sub
закрытие рабочих книг
ActiveWorkbook. Close False. CloseSub
UserForm2
подпрограмма рассчета кредитов
Private Sub rascred_Click () [2]Pz, Summ, Sroc As Singleost, osn, proc, plat, Sum1, Sum2, Sum3 As Singlei As IntegerZaglav As String = "Кредитные и депозитные операции"
показать ошибку, если не введена ФИО клиента
If fio. Value = "" Then
MsgBox "Введите ФИО клиента",, Zaglav
Exit Sub
End If
показать ошибку, если не выб