Мониторы

      Text6 - объект типа TextBox  (текстовое окно) для задания число периодов наращения;

      Text7 - объект типа TextBox (текстовое окно) для задания годовой процентной ставки;

      Text8 -  объект типа TextBox (текстовое окно) для задания годового взноса ренты;

      Text9 - объект типа TextBox (текстовое окно) для задания числа процентов в год;

      Frame1 - объект типа Frame (рамка) для группировки объектов, используемых для задания параметров расчета показателя ("Расчет показателя");

      Frame2 - объект типа Frame (рамка) для группировки объектов, используемых для задания параметров графика ("Построение графика");

      Command6 - объект типа CommandButton (командная кнопка) для активизации фрейма "Расчет показателя" (кнопка "Расчет показателя");

      Command1 - объект типа CommandButton (командная кнопка) для вызова процедуры расчета показателя (кнопка "ОК");

      Command2 - объект типа CommandButton (командная кнопка) для активизации фрейма "Построение графика" (кнопка "Построение графика");

      Command4 - объект типа CommandButton (командная кнопка) кнопка "ОК", для вызова процедуры построения графика (кнопка "ОК");

      Command5 - объект типа CommandButton (командная кнопка) для завершения работы проекта (кнопка "Выход");

      Picture1 - объект типа PictureBox для вывода графика;

      Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10, Label11, Label12, Label13, Label14 – поясняющие метки;

      Label14 – метка для вывода наращенной суммы при построении графика.

      Форма работает по следующей логике:

• при запуске программы на форме должны быть активными (доступными) три командные кнопки («Построение графика», «Расчет показателя» и «Выход»);
• при нажатии кнопки «Расчет показателя» становится активным фрейм «расчет показателя»;
• при нажатии кнопки «Построение графика» становится активным фрейм «Построение графика».
• после активизации соответствующего фрейма все остальные элементы формы, кроме кнопки «Выход» становятся недоступными.
• вывод результата расчета показателя производится  в текстовое окно «Сумма платежа» после нажатия кнопки «ОК» во фрейме «расчет показателя»;
• текстовое окно «Сумма платежа» недоступно для редактирования;
• вывод графика производится в элемент PictureBox после нажатия кнопки «ОК» во фрейме «Построение графика»;
• при повторном построении графика производится очистка элемента PictureBox от предыдущего построенного графика.

      При вводе данных в текстовые окна осуществляется проверка:

• на непустоту данных (ввод всех необходимых данных для расчета во все окна ввода, при ошибке выводится сообщение);
• на положительность вводимых данных и неравенство нулю (в случае ошибки производится очистка окна от введенных символов);
• осуществляется проверка на ввод только числовых данных, в случае ошибки данные сбрасываются;

      Примечание: при выполнении индивидуальных заданий  при разработке внешнего вида форм и логике их работы приветствуются собственные решения студентов, развивающие возможности рассматриваемого примера.

      В модуле кода формы, в разделе объявления общих переменных «General», объявляются переменные для хранения параметров финансового показателя при выполнении расчетов в программе.

      Функция для расчета значений финансового  показателя

      Public Function S(ByVal n As Single, ByVal i As Single, ByVal R As Single, ByVal p As Single) As Single

      Const Msg  As String = "Ошибка при вычислении показателя !"

      Функция для расчета финансового показателя

      On Error GoTo err1                                           ' в случае ошибки  - перейти на метку err1                                                           ' функция наращения при сложных процентах

      s = r * (((1 + j / m) ^ (m * n)) - 1) / ((1 + j / m) ^ m - 1)

      On Error GoTo 0

      Exit Function                                                       ' выйти из функции

      err1:                                                                      'обработка ошибки

      If Err.Number = 6 Then                                       ' если ошибка - переполнение, вывести          

                                                                                 на экран сообщение

      Dim Msg As String

      Msg = "Ошибка при вычислении!"

      MsgBox Msg, , "Переполнение"

      Err.Clear                                                               ' очистка поля ошибки

      End If

      End

      End Function

      Кнопка  с именем Command1 используется для активизации рамки frame1 и подготовки формы к вводу исходных данных для расчета показателя.

      Private Sub Command 6_Click()

      После нажатия кнопки "Расчет показателя" становится  доступным фрейм "Расчет показателя", остальные элементы формы становятся недоступными.

      Private Sub Command6_Click()

      Frame1.Enabled = True                                           'фрейм доступен

      Frame2.Enabled = False                                          'фрейм недоступен

      Label1.Enabled = True                                            'метка доступна

      Label2.Enabled = True                                            'метка доступна

      Label3.Enabled = True                                            'метка доступна

      Label4.Enabled = True                                            'метка доступна

      Text1.SetFocus

      End Sub

      Private Sub Command2_Click()

      Производится  проверка на заполненность текстовых  окон (если окно незаполненно, то происходит выдача сообщения и курсор переводится  в соответствующее текстовое  окно).

      После проверки происходит вызов функции  для расчета финансового показателя (в качестве параметров передаются значения текстовых окон).

      Результаты  расчета передаются в текстовое  окно «Сумма платежа».

      Оба фрейма становятся недоступными (доступ возможен к командным кнопкам  «Построение графика», «Расчет показателя»  и «Выход»).

      n – число периодов наращения;

      j – годовая процентная ставка;

      S – наращенная сумма;

      R – годовой взнос ренты;

       m– число выплат в год.

      Private Sub Command1_Click()

      Dim n As Single                                                      ‘число периодов наращения;

      Dim i As Single                                                       ‘годовая процентная ставка

      Dim R As Single                                                      ‘годовой взнос ренты

      Dim p As Single                                                       ‘число выплат в год

      If Text1.Text = "" Or Val(Text1.Text) = 0 Then

      Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")  ' вывести сообщение

      Text1.SetFocus

      Exit Sub

      End If

      If Text2.Text = "" Or Val(Text2.Text) = 0 Then

      Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")  ' вывести сообщение

      Text2.SetFocus

      Exit Sub

      End If

      If Text3.Text = "" Or Val(Text3.Text) = 0 Then

      Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")  ' вывести сообщение

      Text3.SetFocus

      Exit Sub

      End If

      If Text4.Text = "" Or Val(Text4.Text) = 0 Then

      Call MsgBox("Не заданы параметры для расчета", vbExclamation, "Ошибка при задании параметров")  ' вывести сообщение

      Text4.SetFocus

      Exit Sub

      End If

      n = Val(Text1.Text)                                           ' присвоение переменным значений

      введенных                                                    

                                                                                   параметров из текстовых окон

      i = Val(Text2.Text)                                            ' присвоение переменным значений

      введенных                                                    

                                                                                   параметров из текстовых окон

      R = Val(Text3.Text)                                          ' присвоение переменным значений

      введенных                                                             

                                                                                   параметров из текстовых окон

      m = Val(Text4.Text)                                            ' присвоение переменным значений     

                                                                                    введенных параметров из текстовых  окон

      Text5.Text = S(n, i, R, m)                                  ' в текстовое окно передать результаты          

                                                                                   расчета показателя

      End Sub

      Private Sub Command3_Click()

      Кнопка  с именем Command3 используется  для активизации рамки frame2  и подготовки формы к вводу исходных данных для построения графика. После нажатия кнопки "Расчет показателя" становится  доступным фрейм "Расчет показателя", остальные элементы формы становятся недоступными.

      Private Sub Command2_Click()

      Frame1.Enabled = False                                            'фрейм недоступен

      Frame2.Enabled = True                                             'фрейм доступен

      Label6.Enabled = True                                              'метка доступна

      Label7.Enabled = True                                              'метка доступна

      Label8.Enabled = True                                              'метка доступна

      Label9.Enabled = True                                              'метка доступна

      Label10.Enabled = True                                            'метка доступна