Использование Visual Basic for Applications в автоматизации банковских операций
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
жении 2, пример №1)
При запуске данной процедуры производится расчет депозита по сложному проценту. После вычисления депозита подпрограмма возвращается к процедуре вывода итогов и построения графиков.
5.2 Процедура сохранения файла
Рис. 5.2. Схема алгоритма процедуры сохранения файла (листинг данной подпрограммы в приложении 1, рис.6 в приложении 2, пример №1)
Процедура сохраняет файл с пользовательским именем. При отмене сохранения запускает программу ввода данных для операций с кредитом и депозитом.
5.3 Процедура выхода из программы
Рис. 5.3. Схема алгоритма процедуры выхода из программы. (листинг данной подпрограммы в приложении 1, рис.3 в приложении 2, пример №1)
Процедура запускается при нажатии кнопки Выход, после чего появляется запрос у пользователя на подтверждение выхода. При положительном ответе происходит закрытие рабочей книги, при отрицательном - процедура завершается.
Заключение
В данной курсовой мы ознакомились с использованием Basic for Applications в автоматизации банковских операций. Также освоили следующие теоритические вопросы:
1.Структура банка
2.Виды банковских операций
3.Среда MS Excel для автоматизации расчётов и анализа данных
Написали программу для расчета кредитных операций (для аннуитентных и дифференцированных платежей) и депозитных операций с учетом ежемесячной капитализации процента.
Благодаря выполнению курсовой были получены знания о Visual Basic for Applications, также было осуществлено знакомство с программированием в среде Microsoft Excel.
программирование алгоритм коммерческий банк
Использованная литратура
1.С. Роман, Использование макросов в Excel - М.,2004г.
2.Е. Нагина, В. Ищенко, Visual Basic for Applications. Практика - Воронеж, 2009г.
.Интернет-ресурсы:
.combanks.ru
4.Конспект лекций
5.Методические пособия по VBA
Приложение 1
Листинг программы
(UserForm1)
Option Explicit
SaveName, Sv, Ex, Op, save объявление переменых
Dim Sum As Double сумма кредита
Dim Sum1, Sum2, Sum3 As Double сумма по осн. долгу, процентам и общая сумма
Dim Ps As Double процентная ставкаplat As Double ежемесячная плата
Dim osn As Double плата по основному долгуproc As Double плата по процентам
Dim ostatok As Double остаток задолженностиi As Integer
Dim Sroc As Integer срок кредитовани/депозитаZagl As String = "Кредитные и депозитные операции"
Подпрограмма расчёта кредита:
Private Sub RaschetCR_Click()
sumkr.Value = "" Then показать ошибку, если не введена сумма кредита"Введите сумму кредита",,ZaglSubIf
srokkr.Value = "" Then показать ошибку, если не введена сумма кредита"Введите срок кредитования",,ZaglSubIf
IsNumeric(sumkr.Value) = False Then показать ошибку, если неправильно введена сумма кредита"Неправильно введена сумма кредита",,ZaglSubIf
IsNumeric(srokkr.Value) = False Then показать ошибку, если неправильно введен срок кредитования"Неправильно введен срок кредитования",,ZaglSubIf
присвоение переменным значений, вводимых пользователем
Sum = CDbl(sumkr.Value)= CInt(srokkr.Value)
проверка на правильность ввода срока кредитованияSroc < 1 Then"Минимальный срок кредитования - 1 год"
Exit SubIf
Sroc > 40 Then
MsgBox "Максимальный срок кредитования - 40 лет"SubIf
приcваивание процентной ставки в зависимости от срока кредитования
If Sroc >= 1 And Sroc 5 Then Ps = 0.08
.Clear очистка ячеек
вывод подсказки для запуска программы("C2").Value = "Запуск программы:" определение свойств ячеек; ввод значений
Range("D2").Value = "Ctrl+Z"("A1").Value = "Ф.И.О. клиента:"("A2").Value = "Тип операции "("A3").Value = "Тип платежа:"
Range("A4").Value = "Сумма кредита, руб:"("A5").Value = "Срок кредитования, лет:"("A6").Value = "Процентная ставка:"("A7").Value = "Первоначальный взнос, %:"("A8").Value = "Первоначальный взнос, руб:"
Range("A10:D10").Font.Bold = True
Range("A10").Value = "№ месяца"("B10").Value = "Оплата по основному долгу, руб"("C10").Value = "Оплата по процентам, руб"("D10").Value = "Ежемесячные платежи, руб"
Range("E9").Value = "Итого:"("E9").Font.Bold = True
Range("F9").Value = "Плата по основному долгу"("G9").Value = "Плата по процентам"("H9").Value = "Общая плата:"
Range("B1").NumberFormat = "general" определение формата ячеек
Range("B2").NumberFormat = "Кредит"("B3").NumberFormat = "general" общий("B4").NumberFormat = "0.00$" денежный("B5").NumberFormat = "0год(а)"("B6").NumberFormat = "0.00%"("B7").NumberFormat = "0.00%"("B8").NumberFormat = "0.00$"("B10:D500").NumberFormat = "0.00$"("E10:H10").NumberFormat = "0.00$"
("A:D").ColumnWidth = 30 определение ширины колонок("E").ColumnWidth = 10("F:H").ColumnWidth = 25
Range("B1").Value = FIO ввод исходных значений в рабочий лист
Range("B2").Value = "Кредит"("B4").Value = Sum("B5").Value = Sroc("B6").Value = Ps("B7").Value = 0.5("B8").Value = Sum * 0.5
Sum = Sum - Sum * 0.5
обнуление переменных
ostatok = 0= 0