Программное обеспечение современных ЭВМ: приложения для выполнения математических расчетов в среде OC Windows

Private Sub Command4_Click()

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

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

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

Dim p 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)                                    ' присвоение переменным значений           

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

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

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

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

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

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

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

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

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

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

                                                                                     значения функции 

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

                                                                                   функции

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

minx = st

End If

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

                                                                                    функции

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

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, p)                          ' задание координат пера

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

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

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

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

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

 

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

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, p))                                    ' рисование графика

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                                               ' метка недоступна

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

End Sub 

Private Sub Command5_Click()

End                                                                                 ' завершение работы проекта при

                                                                                         нажатии кнопки «Выход».

End Sub 

Private Sub Form_Load()

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