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

Данные вводятся в элемент Text1.textПроверенное значение в переменнойP.

…

If mText1.Text = "" Then

MsgBox "Сумма кредита не задана.", vbExclamation + _ vbOKOnly,"Проверка исходных данных"

mText1.SetFocus

Exit Sub

End If

' проверка на число

If Not IsNumeric(mText1.Text) Then

MsgBox "Сумма кредита - не число.<" & mText1.Text & ">", _

vbExclamation + vbOKOnly, "Проверка исходных данных"

mText1.SetFocus

Exit Sub

End If

…

Расчет значения показателя

Для расчета значения показателя необходимо создать подпрограмму-функцию, поскольку вычисление значения необходимо выполнять многократно в процессе выполнения программы.

Количество параметров подпрограммы – функции должно соответствовать количеству параметров, которое требуется для вычисления значения финансового показателя в соответствии с вариантом задания. Выбор типов параметров функции должен производится в соответствии с физическим смыслом параметров в решаемой задаче. Например: величина кредита может быть дробным числом, следовательно, для хранения его значения может использоваться тип single и не может использоваться тип integer.

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

В подпрограмме-функции присутствует обработка ситуации возникновения ошибки при вычислении.

При возникновении ошибки в пределах строк программы расположенных между

…

On error goto err1 … On error goto 0

…

программа не прерывается вызовом стандартного сообщения об ошибке, а управление передается оператору с меткой err1. По коду ошибки, который узнается по свойству Err.Numberопределяется тип ошибки и выводится диагностическое сообщение.

Public Function s (ByVal p As Double, ByVal i As Double, _

ByVal n As Double) As Double

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

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

On Error GoTo err1 ' в случае ошибки - перейти на метку err1

s = p * (1 + i) ^ n ' функция наращения при сложных _

‘процентах

On Error GoTo 0

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

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

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

‘ вывести на экран сообщение

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

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

Else

MsgBox Msg & Err.Number

Err.Clear

End If

' очистка формы

Picture1.Cls 'очистка PictureBox

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

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

End Function

Принципы построения приближенного графика

График функции на заданном отрезке изменения аргумента может быть построен приближенно путем замены настоящего графика функции - ломаной линией приблизительно соответствующей графику функции. Ломаная линия соединяет ряд точек (X;Y) причем координаты, точек рассчитываются путем изменения с заданным шагом значений аргумента функции (ось Х) и вычисления соответствующих им значений функции Y= F(X) .

Рис.2.

Рисование отрезков ломаной линии в программе возможно либо непосредственно на форме, где расположены элементы управления, или внутри элемента управления PictureBox.

Рис.3

Предварительно, перед рисованием графика необходимо задать систему координат для элемента PictureBox. Система координат нужна для указания расположения точек и линий графика внутри области построения PictureBox. (См. Рис 3.) Система координат должна быть такой, что бы внутри элемента управления PictureBox целиком поместился график функции и оси координат. (См. Рис. 4)

Размеры оси Х ( оси значений аргумента функции ) известны из условия задачи: требуется построить график функции на определенном отрезке аргумента от А до В. В данной курсовой работе необходимо построить график изменения значения финансового показателя во времени, значит изменяющимся аргументом Х будет являться время.

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

Максимальное значение координаты вертикальной оси Y должно быть равно максимальному значению функции, которое она принимает на отрезке построения графика (обозначим его maxFx), минимальное значение оси Y должно быть равно 0, так как все показатели, используемые в заданиях курсовой работы не отрицательные.

Максимальное значение на оси X должно быть равно максимальному значению аргумента (правый край области построения А) , минимальное - минимальному значению аргумента ( левый край области построения B). (См.Рис.4)

Рис.4

Рис.5

Что бы иметь возможность создания собственной системы координат свойство PictureBox1.ScaleMode должно быть равно = 0 – User пользовательская система координат (устанавливается на этапе проектирования с помощью окна свойств элемента Picture Box).

Для задания направления и размеров шкалы осей координат используется метод Piture1.Scale.МетодScaleимеет следующий синтаксис:

object.Scale (x1, y1) - (x2, y2)

Например: для графика, указанного на рисунке, метод задания системы координат будет иметь вид Picture1.scale (a;maxFx)-(b;0)

Для рисования отрезков прямой используется метод Line

Синтаксис метода рисования линии следующий:

object.Line [Step] [(x1, y1) ] [Step] - (x2, y2), [color], [B][F]

Например: для рисования отрезка начиная с текущей точки до точки с координатами (x1;y1) метод line будет иметь вид:

Picture1.Line - (x1,y1)

Цвет линии задается значением параметра color. Текущей точкой называется точка, где располагается воображаемое перо после рисования фигуры. Первоначально перо располагается в начале координат. Для перемещения текущей точки в точку с заданным координатами без рисования линии используются свойства Picture1.CurrentX, Picture1.CurrentY.

Для рисования точек используется метод PitureBox1.Pset

Синтаксис метода рисования Pset:

object.PSet [Step] (x, y), [color]

Например: для рисования точки с координатами (x1;y1) необходимо вызвать метод:

Picture1.Line (x1,y1)

Цвет точки задается значением параметра color.

Для задания толщины линии или точки используется свойство Picture1.DrawWidth. Для задания толщины равной 6 ед. необходимо присвоить перед вызовом метода рисования Picture1. DrawWidth = 6.

Для задания цвета рисования используется встроенная функция RGB(red, green, blue).Функция возвращает после вызова значения кода цвета. Значения параметров red, green, blue могут быть 0-255 и указывают интенсивность красного, зеленого или голубо цвета, смешением которых производится рисование.