4. Пример проектирования Windows-приложений Решение некоторых финансовых операций
В окне формы (рис. 4.6) должны располагаться три кнопки (Command Button) и одно текстовое поле (Textbox). Кроме того, в верхней части формы должны выводиться соответствующие пояснения к программам и их текст в компактном виде.
Рис. 4.6. Внешний вид окна приложения
Комментарии к работе приложения
После щелчка по правой кнопке (Определение величины ежемесячных выплат по известной процентной ставке кредита) последовательно одно за другим должны появиться три окна ввода, в которые следует ввести соответствующую информацию (рис. 4.7).
.
Рис. 4.7. Ввод исходной информации.
После чего в текстовом поле появится результат вычислений (рис. 4.8).
Рис. 4.8. Результат вычислений.
После щелчка по средней кнопке (Определение величины кредита по известной процентной ставке) последовательно одно за другим должны появиться три окна ввода, в которые вы также должны ввести соответствующую информацию (рис. 4.6)
В текстовом окне появятся результаты вычислений другого задания. После щелчка по левой кнопке (рис. 4.6) программа завершит свою работу.
Код 4.2
Программный код
Private Sub Command1_Click()
End
End Sub
'Применение функции PV.
Private Sub Command2_Click()
Text1.Text = " Определение величины кредита при известной процентной ставке "
p = InputBox("Ввести проц. ставку – rate (в процентах годовых)", , "Ввод в %, например, 12")
k = InputBox("Ввести количество периодов - nper", , "Ввод в мес.")
c = InputBox("Ввести ежемесячную выплату в банк- mpt", , "Ввод в руб. со знаком минус")
p = p / 1200 ' - это 12% годовых, т. е. 12%/(100*12 мес.)
Кредит = PV(p, k, c): Кредит = Int(Кредит * 100) / 100
Text1.Text = "Величина возможного кредита составит " _
& Str(Кредит) & "р."
Print "rate="; p, " nper="; k; " mpt ="; c
Кредит = PV(p, k, -c)
Print "PV(rate,nper,mpt)="; Кредит
Print "Величина возможного кредита составит Кредит ="; Кредит
End Sub
'Применение функции Pmt.
Public Sub пуск_Click()
Dim Выплата As Currency, Кредит As Currency, Прирост As Single
Print "Pmt - выплата; pv - кредит;";
Print "nper - число платежей; rate - прирост."
Text1.Text = " Определение ежемесячной выплаты при взятии кредита "
p = InputBox("Ввести проц. ставку (в процентах годовых)", , "Ввод в %, например, 12 ")
k = InputBox("Ввести количество периодов", , "Ввод в мес.")
c = InputBox("Ввести величину кредита", , "Ввод в руб.")
p = p / 1200 ' - это 12% годовых, т. е. 12%/(100*12 мес.)
Выплата = Pmt(p, k, c): Выплата = CInt(Выплата * 10) / 10
Text1.Text = "Ежемесячные выплаты составят " _
& Str(Выплата) & "р."
Print "rate=0.01;nper=120;pv=150000"
Print "Pmt(rate,nper,pv)="; Выплата
Выплата = Pmt(0, 1, 120, 150000)
End Sub
Литература
Волченков Н.Г. Программирование на Visual Basic 6: В 3 ч.– М.: ИНФРА–М, 2000. – 288 с.
Крейг Дж. К., Уэбб Дж. Microsoft Visual Basic 5.0. Мастерская разработчика: Пер. с англ. – М.: Изд. отд. «Русская редакция» ТОО «Channel Trading Ltd», 1998. – 616 с.
Учебное издание
Голубев Федор Кузьмич
Проектирование Windows-приложений
(Visual Basic)
Учебное пособие