3.2 Интерфейс программы
Интерфейс программы представлен пятью формами:
- Окно приветствия, в соответствии с рисунком 3;
Рисунок 3 Окно приветствия
- Главное окно программы, в соответствии с рисунком 4;
Рисунок 4 Главное окно программы
- Окно о программе, в соответствии с рисунком 5;
Рисунок 5 О программе
-
Окно выбора цвета, в соответствии с
рисунком 6;
Рисунок 6 Окно выбора цвета
-
Окно печати, в соответствии с рисунком
7.
Рисунок 7 – Окно печати
3.3 Описание процедур и функций
procedure TForm1.BitBtn1Click(Sender: TObject);
Данная процедура делает невидимой первую форму и показывает вторую.
procedure TForm1.Timer1Timer(Sender: TObject);
Данная процедура наполняет строку символами, для создания анимационного эффекта.
procedure
TForm1.Timer4Timer(Sender: TObject);
Данная процедура обеспечивает плавное появление первой формы
procedure TForm1.Timer3Timer(Sender: TObject);
Данная процедура создаёт анимацию на первой форме.
procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура изменяет цвет шрифта кнопки при движении мыши на кнопке.
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура возвращает цвет шрифта кнопки в исходное состояние.
procedure Timer2Timer(Sender: TObject);
Данная процедура создаёт первую часть бегущей строки и меняет её цвет.
procedure TForm1.Timer5Timer(Sender: TObject);
Данная процедура создаёт вторую часть бегущей строки и меняет её цвет.
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
Данная процедура закрывает главное окно программы.
procedure TForm2.BitBtn2Click(Sender: TObject);
Данная процедура очищает поля таблицы.
procedure TForm2.ComboBox1Select(Sender: TObject);
Данная процедура строит таблицу и подписывает фиксированные поля.
procedure TForm2.OpenExecute(Sender: TObject);
Данная процедура открывает текстовый файл.
procedure TForm2.SaveExecute(Sender: TObject);
Данная процедура производит сохранение в текстовый файл.
procedure TForm2.N5Click(Sender: TObject);
Данная процедура закрывает главное окно программы.
procedure
TForm2.N6Click(Sender: TObject);
Данная процедура открывает окно «О программе».
procedure TForm2.s1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Даная процедура обеспечивает перемещение по таблице, а в случае если ячейка последняя - Расчёт.
procedure TForm2.YadroExecute(Sender: TObject);
Данная процедура обеспечивает решение системы, в случае её совместности. В ней осуществляется прямой, затем обратный ход и вывод корней.
procedure TForm2.FormCreate(Sender: TObject);
Данная процедура заполняет списки числами от 1 до 350 и делает невидимыми таблицы.
procedure TForm2.SpeedButton5Click(Sender: TObject);
Данная процедура открывает окно выбора цвета.
procedure TForm2.N8Click(Sender: TObject);
Данная процедура открывает файл справки.
procedure TForm2.N10Click(Sender: TObject);
Данная процедура сохраняет файл «для печати».
procedure
TForm2.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура изменяет цвет шрифта кнопки при движении мыши на кнопке.
procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура возвращает цвет кнопок в исходное состояние при движении мыши на картинке.
procedure TForm2.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура возвращает цвет кнопок в исходное состояние при движении мыши на панели.
procedure TForm2.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура изменяет цвет шрифта кнопки при движении мыши на кнопке.
procedure TForm2.ComboBox2Select(Sender: TObject);
Данная процедура подписывает фиксированные поля таблицы.
procedure TForm2.AutoZapExecute(Sender: TObject);
Данная процедура производит наполнение большой таблицы случайными числами.
procedure TForm2.PrintExecute(Sender: TObject);
Данная процедура открывает окно печати.
procedure TForm2.s2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Данная процедура обеспечивает перемещение по малой таблице.
procedure TForm2.N12Click(Sender: TObject);
Данная процедура производит наполнение малой таблицы случайными числами.
procedure
TForm2.SpeedButton6Click(Sender: TObject);
Данная процедура открывает файл справки.
procedure TForm2.SpeedButton7Click(Sender: TObject);
Данная процедура производит тестирование результата работы программы.
procedure TForm3.BitBtn1Click(Sender: TObject);
Данная процедура закрывает окно «О программе.»
procedure TForm4.BitBtn1Click(Sender: TObject);
Данная процедура возвращает оформление программы в исходное состояние, если отмечен флажок «по умолчанию», в противном случае изменяет цвет.
procedure TForm4.BitBtn2Click(Sender: TObject);
Данная процедура изменяет цвет программы.
procedure TForm4.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура изменяет цвет шрифта кнопки при движении мыши на кнопке.
procedure TForm4.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура возвращает цвет шрифта кнопок в исходное состояние.
procedure TForm4.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура изменяет цвет шрифта кнопки при движении мыши на кнопке.
procedure TForm5.BitBtn1Click(Sender: TObject);
Данная процедура открывает текстовый файл и помещает его в компонент RichEdit.
procedure TForm5.BitBtn3Click(Sender: TObject);
Данная процедура печатает содержимое компонента RichEdit.
procedure TForm5.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура изменяет цвет шрифта кнопки при движении мыши на кнопке.
procedure TForm5.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Данная процедура возвращает цвет кнопок в исходное состояние.
procedure TForm5.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y:
Integer);
Данная процедура изменяет цвет шрифта кнопки при движении мыши на кнопке.
procedure TForm5.N1Click(Sender: TObject);
Данная процедура очищает содержимое компонента RichEdit.
3.4 Вызов и загрузка программы
Для вызова программы необходимо запустить файл Gauss.exe, после чего откроется окно приветствия, после нажатия на кнопку «Далее» происходит переход к основному окну программы.
4
Программа тестирования и методика
испытаний
4.1 Цель и объект проведения испытаний
Цель испытаний: проверить правильность вычислений, убедиться в том, что программа защищена от некорректного ввода данных, что в ней учтены все исключительные ситуации. Объектом испытаний является программный продукт, реализованный в рамках данного курсового проекта.
4.2 Порядок проведения испытаний
Для проведения испытаний необходимо спроектировать и реализовать тесты. Проектирование тестов:
Для проверки правильности вычислений воспользуемся системой уравнений (1):
1Х1+2Х2+3Х3+4Х4=11 (1)
2Х2+3Х3+4Х4+1Х1=12
3
Х3+4Х4+1Х1+2Х2=13
4Х4+1Х1+2Х2+3Х3=14
Решив эту систему, получаем корни: Х1=2, Х2=1, Х3=1, Х4=1.
Непосредственно подстановкой убеждаемся в том, что система решена правильно.
Предполагается, что программа работает правильно, если результат, который будет получен при тестировании, совпадёт с результатом, полученным вручную.
Для проверки защищённости программы от некорректного ввода данных достаточно ввести символ несоответствующий числовому представлению коэффициента при неизвестной или свободного члена в любую из ячеек таблицы.
Для проверки защищённости программы от сбоев при возникновении исключительных ситуаций, необходимо спровоцировать возбуждение исключительной ситуации, например при открытии текстового файла указать графический файл, или нажать на кнопку «Печать» при неустановленном принтере и посмотреть, как поведёт себя программа.
Реализация тестов:
Произведём решение системы уравнений при помощи программы.
Данные, полученные при решении данной системы программой, совпали с данными, полученными при решении системы вручную, отсюда следует, что программа работает правильно.
Введём в ячейку таблицы, символ несоответствующий числовому представлению коэффициента при неизвестной, в соответствии с рисунком 8.
Рисунок 8 – Неверное представление числа
После
щелчка на кнопке «Расчёт» возникло
сообщение об ошибке: «Не все поля
заполнены». Отсюда следует, что программа
защищена от некорректного ввода данных.
При открытии текстового файла укажем графический файл,- возникло сообщение об ошибке: «Ошибка чтения из файла». При неустановленном принтере нажмём на кнопку «Печать» в окне печати, возникло сообщение об ошибке «Не подключен принтер». Отсюда можно сделать вывод, что в программе учтены исключительные ситуации.