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

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 + i) ^ n - 1) / (p * ((1 + i) ^ (1 / p) - 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 – годовой взнос ренты;

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

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

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

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

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

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

                                                                             показателя 

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

Text6.SetFocus

End Sub 

Private Sub command4_Click()

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

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

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

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

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