Мониторы

      Text6.SetFocus

      End Sub

      Private Sub command4_Click ()

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

      Очистка объекта PictureBox от предыдущего графика.

      Построение  графика в объекте PictureBox (масштабирование  объекта PictureBox, рисование координатных осей и графика).

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

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

      Private Sub Command4_Click()

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

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

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

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

      Dim m As Single                                                      ' счетчик цикла

      Dim st As Single                                                       ' счетчик цикла

      Dim minfx As Single                                                ' функции

      Dim maxfx As Single                                               ' функции

      Dim minx As Single                                                 ' функции

      Dim maxx As Single                                                ' функции

      Dim step_t As Double                                              ' шаг построения графика

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

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

      Text6.SetFocus

      Exit Sub

      End If

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

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

      Text7.SetFocus

      Exit Sub

      End If

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

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

      Text8.SetFocus

      Exit Sub

      End If

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

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

      Text9.SetFocus

      Exit Sub

      End If

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

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

      Text10.SetFocus

      Exit Sub

      End If

      Зададим систему координат формы для  чего найдем максимальное и минимальное  значение принимаемое функций на отрезке начальное значение выбираем произвольное

      Picture1.Cls                                                             ' очистка элемента PictureBox

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

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

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

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

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

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

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

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

      minfx = S(n, i, R, m)                                                  ' минимальное значение функции

      maxfx = S(n, i, R, m)                                                 ' максимальное значение функции

      minx = 0                                                                    ' минимальное значение аргумента

      maxx = 0                                                                   ' максимальное значение аргумента

      step_t = Val(Text10.Text)                                         ' переменной присвоим значение шага                       

                                                                                          построения графика

      For st = 0 To n Step step_t                                                          ' вычислим минимальное и максимальное  значения функции

      If minfx > S(st, i, R, m) Then                                    ' вычислим минимальное значение       

                                                                                         функции

      minfx = S(st, i, R, m)

      minx = st

      End If

      If maxfx < S(st, i, R, m) Then                                    ' вычислим максимальное значение  

                                                                                          функции

      maxfx = S(st, i, R, m)

      maxx = st

      End If

      Next st

      Задание пользовательской системы координат  в окне изображения

      Picture1.Scale (0, maxfx)-(n, 0)                                'установка масштаба

      Picture1.DrawWidth = 2                                           ' толщина точки равна 2 рисуем ось X

      Picture1.Line (0, 0 + 0.01 * maxfx)-(n, 0 + 0.01 * maxfx), RGB(0, 255, 0)

                                                                                         ' при рисовании оси Х задается отступ от края объекта PictureBox на  0.01 * maxfx для лучшей видимости координатной оси

      Рисуем ось y

      Picture1.Line (0 + 0.01 * n, 0)-(0 + 0.01 * n, maxfx), RGB(0, 255, 0)

                                                                                         ' при рисовании оси y задается отступе от края объекта PictureBox на  0.01 * n для лучшей видимости координатной оси

      Picture1.DrawWidth = 1                                             ' толщина точки равна 1

      Picture1.CurrentX = minx                                          ' задание координат пера

      Picture1.CurrentY = S(minx, i, R, m)                          ' задание координат пера

      Picture1.DrawWidth = 8                                             ' толщина точки равна 8

      Picture1.PSet (Picture1.CurrentX, Picture1.CurrentY) ' рисование точки  в начале графика

      Picture1.DrawWidth = 1                                              ' толщина точки равна 1

      Picture1.CurrentX = 0                                                  ' задание координат пера

      Picture1.CurrentY = S(0, i, R, m)                                 ' задание координат пера

      Рисование графика

      For m = 0 To n Step step_t

      Picture1.DrawWidth = 5                                               ' толщина точки равна 5

      Picture1.PSet (Picture1.CurrentX, Picture1.CurrentY) ' рисование точек  построения  графика

      Picture1.DrawWidth = 1                                                ' толщина точки равна 1

      Picture1.Line -(m, S(m, i, R, m))                                    ' рисование графика

      Next m

      Label15.Caption = maxfx                                                                            ' значение метки сумма наращенного платежа

      Label14.Visible = True                                                  ' метка видима

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

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

      Command6.Enabled = True                                           ' командная кнопка   доступна

      Command2.Enabled = True                                           ' командная кнопка   доступна

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

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

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

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

      Label5.Enabled = False                                                 ' метка недоступна

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

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

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

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

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

      Label14.Enabled = False                                               ' метка недоступна