Рисование осей координат
Рисование осей координат необходимо для визуальной оценки расположения графика по отношению к осям координат. Оси координат вычерчиваем, утолщено и другим цветом для отличия от линий графика.
'устанавливаем толщину линии 6
Picture1.DrawWidth = 6 ' толщина точки равна 6
' рисуем ось X
Picture1.Line (0, 0)-(n, 0), RGB(0, 255, 0)
' рисуем ось Y
Для задания цвета линии используем функцию RGB. Интенсивность красной составляющей цвета 0, интенсивность зеленой 255 (т.е. максимум), интенсивность синей – 0. Получаем ярко зеленый цвет.
Рисование ломаной линии графика
Для рисования ломаной линии изображающей график функции необходимо выбрать толщину линии и установить начальную точку, с которой будет выполняться рисование. Координаты начальной точки будут (0, f(0)), т. к. график функции строится с начального момента времени.
'Устанавливаем толщину линии и
‘координаты начала рисования ломаной линии
Picture1.DrawWidth = 1 ' толщина точки равна 1
Picture1.CurrentX = 0 ' задание координат пера
Picture1.CurrentY = s(p, i, 0) ' задание координат пера
Вычисление координат точек ломаной линии соединяемых отрезками производится последовательно в цикле. Для рисования отрезков используется метод Line без указания координат начальной точки. В этом случае линия будет продолжаться с места, где было закончено предыдущее рисование. Соединяемые точки выделяются на графике утолщениями. Для рисования точек графика используется метод Pset.
' рисование ломаной линии графика
For st = 0 To n Step step_t
Picture1.DrawWidth = 5 ' толщина точки равна 5
' рисование точек построения графика
Picture1.PSet (Picture1.CurrentX, Picture1.CurrentY)
Picture1.DrawWidth = 1 ' толщина точки равна 1
Picture1.Line -(st, s(p, i, st)) ' рисование графика
Next st
Если значение шага построения графика функции не укладывается целое число раз на отрезке, то ломаная линия не будет дорисована до конца области определения функции. Поэтому дополнительно после завершения цикла необходимо выполнить оператор:
' дорисовываем график до конечной точки ( если интервал "шаг построения" укладывается не целое число раз
Picture1.Line -(n, s(p, i, n)) ' рисование графика
перед завершением процедуры рисования графика функции.
После завершения построения графика рассчитываем значение максимума функции и отображаем его на форме.
' выводим максимальное значение функции на экран
mLabel10.Caption = s(p, i, maxX) ' значение метки
‘- сумма наращенного платежа
Текст программы приведен в примере отчета курсовой работы.
Пример выполнения задания :
Задание
Разработать приложение для расчета значения наращенной суммы платежа по кредиту по формуле сложных процентов при выплате процентов один раз в год. Построить график зависимости наращенной суммы (S) от срока платежа (n).
Расчетная формула:
S=P*(i+1)^n.
Вводимые параметры:
P – первоначальный размер кредита;
i – проценты по кредиту;
n – число лет наращения.
Пример разработанного приложения (описание экранной формы и назначения элементов управления)
Для выполнения данного задания была создана форма:
Рис.8
Command1 - объект типа CommandButton (командная кнопка) для активизации фрейма "Расчет показателя" (кнопка " Расчет показателя ");
Command2 - объект типа CommandButton (командная кнопка) для активизации фрейма "Построение графика" (кнопка "Построение графика");
Command3 - объект типа CommandButton (командная кнопка) для вызова процедуры расчета показателя (кнопка "ОК");
Command4 - объект типа CommandButton (командная кнопка) кнопка "ОК", для вызова процедуры построения графика (кнопка "ОК");
Picture1 - объект типа PictureBox для вывода графика;
mLabel1, mLabel2, mLabel3, mLabel4, mLabel5, mLabel6, mLabel7, mLabel8, mLabel9 – поясняющие метки;
mLabel10 – метка для вывода наращенной суммы при построении графика.
mText8 – элемент управления “TextBox” для вывода наращенной суммы.
Форма работает по следующей логике:
при запуске программы на форме должны быть активными (доступными) командные кнопки «Построение графика», «Расчет показателя» ;
при нажатии кнопки «Расчет показателя» становится активным фрейм «Расчет показателя» и его содержимое;
при нажатии кнопки «Построение графика» становится активным фрейм «Построение графика» и его содержимое.
вывод результата расчета показателя производится в текстовое окно «Сумма платежа» после нажатия кнопки «ОК» во фрейме «расчет показателя»;
текстовое окно «Наращенная сумма» недоступно для редактирования, но доступно для копирования данных;
вывод графика производится в элемент PictureBox после нажатия кнопки «ОК» во фрейме «Построение графика»;
при повторном построении графика производится очистка элемента PictureBox от предыдущего построенного графика.
При вводе данных в текстовые окна осуществляется проверка:
на наличие данных (ввод всех необходимых данных для расчета во все окна ввода, при ошибке выводится сообщение);
осуществляется проверка на ввод только числовых данных
проверка на допустимость введенных данных с точки зрения логики расчета показателя. (Например: положительность, принадлежность допустимому диапазону значений и т. д.)
Примечание:при выполнении индивидуальных заданий при разработке внешнего вида форм и логике их работы приветствуются собственные решения студентов, развивающие возможности рассматриваемого примера.
В модуле кода формы, в разделе объявления общих переменных «General», объявляются переменные для хранения параметров финансового показателя при выполнении расчетов в программе.