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

При запуске теста, показывается название программы и кнопка «Начать тест». компьютерный тест пользовательский интерфейс После нажатия этой кнопки начинается сам тест, при этом откроется новое окно, а старое закроется.

При нажатии кнопки «Начать тест» на форме отобразится вопрос и четыре варианта ответа, выбор варианта ответа производится кликом мыши. Продолжение тестирования производится кнопкой «Ответить >>>» при этом на форме будут отображаться новые вопросы и четыре варианта ответа.

По окончании теста, программа подсчитает количество правильных ответов и выставит на их основе оценку тестируемого.

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

unit Unit2; // модуль главной формы.

В этом модуле содержится несколько основных функций необходимых для работы программы.

Переменные.

var

Form2: TForm2;

Ini: TIniFile;

QuestNum: Integer;

QuestCount: Integer;

Scores: Integer;

Wrong: Integer;

ProgPath : string;

Count: integer;

Создание простейшей кнопки:

Простейшей и, пожалуй, наиболее часто используемой кнопкой является кнопка Button расположенная на странице библиотеки Standard.

Основное с точки зрения внешнего вида свойство кнопки — Caption (надпись). В надписях кнопок можно предусматривать использование клавиш ускоренного доступа, выделяя для этого один из символов надписи. Перед символом, который должен соответствовать клавише ускоренного доступа, ставится символ амперсанта «&». Этот символ не появляется в надписи, а следующий за ним символ оказывается подчеркнутым. Тогда пользователь может вместо щелчка на кнопке нажать в любой момент клавишу Alt совместно с клавишей выделенного символа.

Основное событие любой кнопки — OnClick, возникающее при щелчке на ней. Именно в обработчике этого события записываются операторы, которые должны выполняться при щелчке пользователя на кнопке. Помимо этого есть еще ряд событий, связанных с различными манипуляциями клавишами и кнопками мыши.

Свойство Cancel, если его установить в true, определяет, что нажатие пользователем клавиши Esc будет эквивалентно нажатию на данную кнопку. Это свойство целесообразно задавать равным true для кнопок «Отменить» в различных диалоговых окнах, чтобы можно было выйти из диалога, нажав на эту кнопку или нажав клавишу Esc. Свойство Default, если его установить в true, определяет, что нажатие пользователем клавиши ввода Enter будет эквивалентно нажатию на данную кнопку, даже если данная кнопка в этот момент не находится в фокусе. Правда, если в момент нажатия Enter в фокусе находится другая кнопка, то все-таки сработает именно кнопка в фокусе.

Из методов, присущих кнопкам, имеет смысл отметить один — Click. Выполнение этого метода эквивалентно щелчку на кнопке, т. е. вызывает событие кнопки OnClick. Этим можно воспользоваться, чтобы продублировать какими-то другими действиями пользователя щелчок на кнопке. Пусть, например, вы хотите, чтобы при нажатии пользователем клавиши с символом «С» или «с» в любой момент работы с приложением выполнялись операции, предусмотренные в обработчике события OnClick кнопки Button1. Поскольку неизвестно, какой компонент будет находиться в фокусе в момент этого события, надо перехватить его на уровне формы. Такой перехват осуществляется, если установить свойство формы KeyPreview в true. Тогда в обработчике события формы OnKeyPress можно написать оператор

if (key='C' or key='c') then Button1.Click;

Если пользователь ввел символ «С» или «с», то в результате будет выполнен обработчик щелчка кнопки Button1.

Опции окна редактирования

В компоненте Edit вводимый и выводимый текст содержится в свойстве Text. Это свойство можно устанавливать в процессе проектирования или задавать программно. Выравнивание текста, как это имело место в метках и панелях, невозможно. Перенос строк тоже невозможен. Текст, не помещающийся по длине в окно, просто сдвигается, и пользователь может перемещаться по нему с помощью курсора. Свойство AutoSize в окнах редактирования имеет смысл, отличный от смысла аналогичного свойства меток: автоматически подстраивается под размер текста только высота, но не ширина окна.

Окна редактирования снабжены многими функциями, свойственными большинству редакторов. Например, в них предусмотрены типичные комбинации «горячих» клавиш: Ctrl-C — копирование выделенного текста в буфер обмена Clipboard (команда Copy), Ctrl-X — вырезание выделенного текста в буфер Clipboard (команда Cut), Ctrl-V — вставка текста из буфера Clipboard в позицию курсора (команда Paste), Ctrl-Z — отмена последней команды редактирования.

Edit можно использовать и просто как компоненты отображения текста. Для этого надо установить в true его свойство ReadOnly и целесообразно установить AutoSelect в false. В этом случае пользователь не сможет изменять отображаемый текст, и окно редактирования становится подобным меткам. При использовании окон редактирования для вывода, ввода и редактирования чисел необходимо использовать функции взаимного преобразования строк и чисел. Для вывода это описанные при рассмотрении меток функции FloatToStr и IntToStr. При вводе это функции StrToFloat — преобразование строки в значение с плавающей запятой, и StrToInt — преобразование строки в целое значение. Если вводимый текст не соответствует числу (например, содержит недопустимые символы), то функции преобразования генерируют исключение EConvertError.

Этот код обеспечивает сообщение пользователю об ошибке ввода и предотвращает ошибочные вычисления. Впрочем, это не лучший вариант предотвратить ошибочный ввод, поскольку пользователь узнает о своей ошибке только после того, как программа пытается использовать введенные данные. Лучше, если пользователь просто не сможет ввести неправильные символы. Например, если вы хотите, чтобы пользователь мог вводить в окно редактирования Edit только цифры и символ точки, вы можете в обработчик события OnKeyPress этого компонента вставить оператор:

if not (Key in ['0'.'9', ',']) then Key := #0;

Этот оператор подменит все символы, кроме цифр и запятой, нулевым символом, который не занесется в текст окна Edit.

Функции

1) функция, ss2nn которая переводит секунды в минуты + секунды в строковом формате (необходимо для подсчета времени прошедшего с начала тестирования):

function TForm2.ss2nn (Seconds: Integer): String;

var

nMin, nSec: Integer;

begin

{Проверяем, меньше чем 1/Min}

if Seconds < 60 then Result := '0 минут ' + IntToStr (Seconds) + ' секунд'.

else begin

{Определяем минуты}

nMin := Seconds div 60;

{Определяем секунды}

nSec := Seconds — (nMin * 60);

{Возвращаем результат}

Result := IntToStr (nMin) + ' минут ' + IntToStr (nSec) + ' секунд';

end;

end;

Функции надо передать количество секунд и в результате мы получим значение типа string. Например, если мы передадим функции число 70, то получим в результате 1 минут 10 секунд.

2) процедура ShowQuestion — функция, которая загружает текст вопроса и варианты ответов, а так же показывает текст вопроса и варианты ответов на текстовых метках.

procedure TForm2.ShowQuestion;

var

Count, i: Integer;

begin

if (QuestNum > QuestCount) and (QuestNum > 0) then

begin

{ Если номер текущего вопроса больше чем должно быть показано и кол-во вопросов >0 то выполняем следующее…}

Form3 := TForm3. Create (self);//создаем форму с результатами тестирования.

res := (Scores * 100) div QuestCount;// узнаем кол-во правильных ответов.

Form3.Gauge1.Progress := res; // выводим правильные ответы на графике в %

Form3.Gauge2.Progress := 100-res; //выводим кол-во неправильных ответов.

//сколько всего вопросов…

Form3.Label5.Caption := 'Вопросов в тесте: '+IntToStr (QuestCount);

//пишем на label кол-во правильных ответов.

Form3.Label3.Caption := IntToStr (Scores);

//тоже самое, только неправильные.

Form3.Label4.Caption := IntToStr (Wrong);

Timer1.Enabled:=False; //выключаем таймер времени.

Form3.TimeLabel.Caption:=TimeLabel.Caption; //выводим время на label времени.

Form3.ShowModal;// наконец показываем форму с результатами.

Form2.close; //закрываем форму с вопросами end;

Если данное условие не выполняется, то…

Рассмотрим это фрагмент функции более подробно. Для загрузки вопросов я использовал класс TIniFile — этот класс используется для работы с ini-файлами. Список вопросов и ответов хранится в специально сформированном файле Test.ini, откуда программа их загружает. Вот вырезка из файла Test.ini:

Ниже приведена процедура загрузки вопроса и вариантов ответов:

//загружаем текст вопроса.

Label1.Caption := Ini. ReadString('Вопрос №' + inttostr (QuestNum), 'Текст вопроса', 'Вопрос отсутствует');

//загружаем варианты ответов.

RadioButton1.Caption := Ini. ReadString('Вопрос №' + inttostr (QuestNum), 'Текст кнопки 1', 'ERROR');

RadioButton2.Caption := Ini. ReadString('Вопрос №' + inttostr (QuestNum), 'Текст кнопки 2', 'ERROR');

RadioButton3.Caption := Ini.ReadString('Вопрос №' + inttostr (QuestNum), 'Текст кнопки 3', 'ERROR');

RadioButton4.Caption := Ini. ReadString('Вопрос №' + inttostr (QuestNum), 'Текст кнопки 4', 'ERROR');

{Процедура загрузки завершена}

end;

В данной функции метод ReadString класса TIniFile собственно и производит загрузку начальных значений меток (label) с вопросом и вариантами ответов.

Процедуры

1) Процедура — обработчик события нажатия на кнопку «Начать тест"(Button1):

procedure TForm2.Button1Click (Sender: TObject);

begin

Count:=0;

Timer1.Enabled:=True;

Label10.Visible:=True;

TimeLabel.Visible:=True;

BitBtn1.Visible := true;

Panel3.Visible := true;

Button1.Visible := false;

Label9.Visible:=True;

BitBtn1.OnClick (self);

end;

Во время выполнения этой процедуры происходит показ всех нужных для правильной работы программы компонентов, запуск таймера, а также скрытие самой кнопки «Начать тест».

2) процедура — обработчик события нажатия на кнопку «Ответить"(Button):

procedure TForm2.BitBtn1Click (Sender: TObject);

var

Answer, CA: Integer;

begin

Answer := Ini. ReadInteger ('Вопрос №' + inttostr (QuestNum), 'Правильный вариант', -1);

if Answer < 0 then Exception.Create ('В файле с вопросами не написан правильный вариант');

ca := 0;

if RadioButton1.Checked then

Ca := 1;

if RadioButton2.Checked then

Ca := 2;

if RadioButton3.Checked then

Ca := 3;

if RadioButton4.Checked then

Ca := 4;

if Ca = Answer then

inc (Scores)

else

inc (Wrong);

inc (QuestNum);

Label6.Caption := 'Номер вопроса: ' + IntToStr (QuestNum);

Label8.Caption := 'Правильных ответов: ' + IntToStr (Scores);

Label7.Caption := 'Неправильных ответов: ' + IntToStr (Wrong);

ShowQuestion;

end;

Читаем Правильный ответ из рабочего ini файла программы:

Answer := Ini. ReadInteger('Вопрос №' + inttostr (QuestNum), 'Правильный вариант', -1);

Собственно определяем правильный ответ или нет.

if Ca = Answer then

inc (Scores)

else

inc (Wrong);

Оператор Inc увеличивает значение указанной переменной на 1. Если да то +1 к правильным если нет, то +1 к неправильным.

Процедура работы таймера времени

procedure TForm2.Timer1Timer (Sender: TObject);

begin

Count:=Count+1;

TimeLabel.Caption:=ss2nn (Count);

end;

Начальное значение переменной Count — 0, с каждой секундой значение переменной увеличивается на 1, затем функцией ss2nn значение переводится в секунды + минуты (если нужно) и результат выводится на TimeLabel. На рисунке 2 приведена иллюстрация, демонстрирующая работу программы.

Рисунок 1 — Внешний вид программы.

Форма с результатами тестирования (Form3/Unit3)

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

Рисунок 2 — Вид формы для результатов тестирования в дизайнере форм Delphi.

Кнопка «Ok» на Form3 закрывает программу.

Процедуры.

Процедура — обработчик создания формы с результатами тестирования описана в предыдущем модуле (Unit2). Рассмотрим работу таймера, который собственно выставляет оценку.

procedure TForm3.Timer1Timer (Sender: TObject);

begin

if (Gauge1.Progress < 40) then label7.Caption:='2';

if (Gauge1.Progress >= 40)and (Gauge1.Progress <60) then label7.Caption:='3';

if (Gauge1.Progress >=60) and (Gauge1.Progress <=90)

then label7.Caption:='4'; if Gauge1.Progress >90 then label7.Caption:='5'; end;

В настоящее время в нашу жизнь широко внедряются информационные технологии. На сегодняшний день, наверное, не осталось такой области, где бы они ни применялись. Данная программа может применяться для оценки уровня знаний по русскому языку в школах, ВУЗах, техникумах или для оценки собственных познаний в культуре правописания. Её пользовательский интерфейс делает её простой, понятной и доступной.