Online-тестирование

Разработка программы для тестирования студентов в интегрированной среде разработки Lazarus. Создание формы, отображение графического изображения, выхода, ответа, завершения теста. Процесс выбора ответа студентом. Исходный вид программы тестирования.

Рубрика Программирование, компьютеры и кибернетика
Вид курсовая работа
Язык русский
Дата добавления 23.12.2014
Размер файла 388,4 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

РОСЖЕЛДОР

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«СИБИРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ» (СГУПС)

Кафедра «Информационные технологии транспорта»

Расчетно-графическая работа

по дисциплине «Высокоуровневые методы программирования» на тему

«Online тестирование»

Выполнил: Студент гр. БИСТ-211

М. Нартова

Руководитель:

Доцент_______________А.В.Хлебус

Новосибирск, 2014 г.

СОДЕРЖАНИЕ

ЗАДАНИЕ

СТРУКТУРА ПРОГРАММЫ

ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

ПРИЛОЖЕНИЕ А - КОД ПРОГРАММЫ

ЗАДАНИЕ

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

Требования к программе:

1. Для каждого вопроса должно быть предоставлено не более четырех возможных вариантов ответа;

2. Каждому ответу необходимо присвоить определенное кол-во баллов;

3. В программе должны использоваться различные компоненты;

4. По окончанию теста необходимо предоставить оценку, которую заработал пользователь (оценка: «5», «4», «3», «2»).

СТРУКТУРА ПРОГРАММЫ

Программная среда:Lazarus

Приложение состоит из нескольких форм, которое содержит следующие процедуры:

FormCreate - создание формы;

Image1, Image2, Image3, Image4 - отображает графическое изображение;

Button1Click- выход;

Button2Click - ответ;

Button3Click - завершить тест;

Radiobutton1, Radiobutton2, Radiobutton3, CheckBox1, CheckBox2, CheckBox3 - выбор ответа;

Label1 - вопрос в тесте;

Edit1.Text - ответ, данный пользователем;

Edit2.Text - результат за правильный ответ.

ИНСТРУКЦИЯ ПОЛЬЗОВАТЕЛЯ

Исходный вид программы:

Пользователь набрал 10 баллов:

тестирование программа ответ изображение

Пользователь набрал 7-9 баллов:

Пользователь набрал 5-6 баллов:

Пользователь набрал 3-4 балла:

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. Самоучитель по программированию на Free Pascal и Lazarus / Е.Р. Алексеев, О.В. Чеснокова, Т.В. Кучер. - 2012

2. Основы программирования в среде Lazarus / К.Т. Мансуров - 2011.

ПРИЛОЖЕНИЕ А - КОД ПРОГРАММЫ

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,

ActnList, StdCtrls, ExtCtrls, Unit2, Unit3, Unit4;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

Edit1: TEdit;

Edit2: TEdit;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

MainMenu1: TMainMenu;

MenuItem1: TMenuItem;

MenuItem10: TMenuItem;

MenuItem2: TMenuItem;

MenuItem3: TMenuItem;

MenuItem4: TMenuItem;

MenuItem5: TMenuItem;

MenuItem6: TMenuItem;

MenuItem7: TMenuItem;

MenuItem8: TMenuItem;

MenuItem9: TMenuItem;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure MenuItem10Click(Sender: TObject);

procedure MenuItem1Click(Sender: TObject);

procedure MenuItem2Click(Sender: TObject);

procedure MenuItem3Click(Sender: TObject);

procedure MenuItem4Click(Sender: TObject);

procedure MenuItem5Click(Sender: TObject);

procedure MenuItem6Click(Sender: TObject);

procedure MenuItem7Click(Sender: TObject);

procedure MenuItem8Click(Sender: TObject);

procedure MenuItem9Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

type

Test1=record

end;

var

k:integer;

rez:integer;

n:integer;

stroka:string[255];

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

case k of

1: if radiobutton2.Checked then n:=n+1 else ShowMessage('Вы ответили не верно!');

2: if radiobutton1.checked then n:=n+1 else ShowMessage('Вы ответили не верно!');

3: if Edit1.Text= '255' then n:=n+1 else ShowMessage('Вы ответили не верно!');

4: if radiobutton3.checked then n:=n+1 else ShowMessage('Вы ответили не верно!');

5: if radiobutton3.checked then n:=n+1 else ShowMessage('Вы ответили не верно!');

6: if Edit1.Text= 'нет' then n:=n+1 else ShowMessage('Вы ответили не верно!');

7: if radiobutton1.checked then n:=n+1 else ShowMessage('Вы ответили не верно!');

8: if CheckBox1.checked and CheckBox2.checked then n:=n+1 else ShowMessage('Вы ответили не верно!');

9: if CheckBox1.checked and CheckBox3.checked then n:=n+1 else ShowMessage('Вы ответили не верно!');

10: if Edit1.Text= '0' then n:=n+1 else ShowMessage('Вы ответили не верно!');

end;

Edit2.Text :=IntToStr(n);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if Edit2.Text='10' then form2.Label1.Caption:='Ваша оценка 5';

if (Edit2.Text='7')or (Edit2.Text='8') or (Edit2.Text='9') then form2.Label1.Caption:='Ваша оценка 4';

if (Edit2.Text='5') or (Edit2.Text='6') then form3.Label1.Caption:='Ваша оценка 3';

if (Edit2.Text='3') or (Edit2.Text='4') then form4.Label1.Caption:='Вы не прошли тест!';

if Edit2.Text='10' then form2.ShowModal;

if (Edit2.Text='7')or (Edit2.Text='8') or (Edit2.Text='9') then form2.ShowModal;

if (Edit2.Text='5') or (Edit2.Text='6') then form3.ShowModal;

if (Edit2.Text='3') or (Edit2.Text='4') then form4.ShowModal;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

k:=1;

edit1.Visible:=False;

radiobutton1.Visible:=True;

radiobutton2.Visible:=True;

radiobutton3.Visible:=True;

CheckBox1.Visible:=False;

CheckBox2.Visible:=False;

CheckBox3.Visible:=False;

Label1.Left:=25;

Label1.Caption:='1. Как называется группа файлов, которая хранится отдельной группой и имеет собственное имя?';

radiobutton1.Caption:='Байт';

radiobutton2.Caption:='Каталог';

radiobutton3.Caption:='Дискета';

end;

procedure TForm1.MenuItem1Click(Sender: TObject);

begin

k:=1;

edit1.Visible:=False;

radiobutton1.Visible:=True;

radiobutton2.Visible:=True;

radiobutton3.Visible:=True;

CheckBox1.Visible:=False;

CheckBox2.Visible:=False;

CheckBox3.Visible:=False;

Label1.Left:=25;

Label1.Caption:='1. Как называется группа файлов, которая хранится отдельной группой и имеет собственное имя?';

radiobutton1.Caption:='Байт';

radiobutton2.Caption:='Каталог';

radiobutton3.Caption:='Дискета';

end;

procedure TForm1.MenuItem2Click(Sender: TObject);

begin

k:=2;

edit1.Visible:=False;

radiobutton1.Visible:=True;

radiobutton2.Visible:=True;

radiobutton3.Visible:=True;

CheckBox1.Visible:=False;

CheckBox2.Visible:=False;

CheckBox3.Visible:=False;

Label1.Left:=72;

Label1.Caption:='2. Выберите правильное имя файла anketa с расширением txt';

radiobutton1.Caption:='Anketa. txt';

radiobutton2.Caption:='Anketa. txt.';

radiobutton3.Caption:='Anketa/txt';

end;

procedure TForm1.MenuItem3Click(Sender: TObject);

begin

k:=3;

rez:=0;

edit1.Visible:=True;

radiobutton1.Visible:=False;

radiobutton2.Visible:=False;

radiobutton3.Visible:=False;

CheckBox1.Visible:=False;

CheckBox2.Visible:=False;

CheckBox3.Visible:=False;

Label1.Left:=35;

Edit1.Left:=104;

Edit1.Top:=48;

Edit1.Text:='';

Label1.Caption:='3. Какое наибольшее количество символов имеет имя файла или каталога в Windows?';

stroka:=edit1.text;

Edit1.Text:=IntToStr(rez);

end;

procedure TForm1.MenuItem4Click(Sender: TObject);

begin

k:=4;

edit1.Visible:=False;

radiobutton1.Visible:=True;

radiobutton2.Visible:=True;

radiobutton3.Visible:=True;

CheckBox1.Visible:=False;

CheckBox2.Visible:=False;

CheckBox3.Visible:=False;

Label1.Left:=72;

Label1.Caption:='4. Какое расширение у исполняемых файлов?';

radiobutton1.Caption:='exe, doс';

radiobutton2.Caption:='bak, bat';

radiobutton3.Caption:='exe, com, bat';

end;

procedure TForm1.MenuItem5Click(Sender: TObject);

begin

k:=5;

edit1.Visible:=False;

radiobutton1.Visible:=True;

radiobutton2.Visible:=True;

radiobutton3.Visible:=True;

CheckBox1.Visible:=False;

CheckBox2.Visible:=False;

CheckBox3.Visible:=False;

Label1.Left:=24;

Label1.Caption:='5. Подкаталог SSS входит в каталог YYY. Как называется каталог YYY относительно каталога SSS?';

radiobutton1.Caption:='дочерний';

radiobutton2.Caption:='корневой';

radiobutton3.Caption:='родительский';

end;

procedure TForm1.MenuItem6Click(Sender: TObject);

begin

k:=6;

rez:=0;

edit1.Visible:=True;

radiobutton1.Visible:=False;

radiobutton2.Visible:=False;

radiobutton3.Visible:=False;

CheckBox1.Visible:=False;

CheckBox2.Visible:=False;

CheckBox3.Visible:=False;

Label1.Left:=40;

Edit1.Left:=104;

Edit1.Top:=48;

Edit1.Text:='';

Label1.Caption:='6. Может ли в одном каталоге быть два файла с одинаковыми именами?';

stroka:=edit1.text;

Edit1.Text:=IntToStr(rez);

end;

procedure TForm1.MenuItem7Click(Sender: TObject);

begin

k:=7;

edit1.Visible:=False;

radiobutton1.Visible:=True;

radiobutton2.Visible:=True;

radiobutton3.Visible:=True;

CheckBox1.Visible:=False;

CheckBox2.Visible:=False;

CheckBox3.Visible:=False;

Label1.Left:=72;

Label1.Caption:='7. Что такое кластер на магнитном диске?';

radiobutton1.Caption:='единица дискового пространства';

radiobutton2.Caption:='конверт для диска';

radiobutton3.Caption:='виртуальный диск';

end;

procedure TForm1.MenuItem8Click(Sender: TObject);

begin

k:=8;

edit1.Visible:=False;

radiobutton1.Visible:=False;

radiobutton2.Visible:=False;

radiobutton3.Visible:=False;

CheckBox1.Visible:=True;

CheckBox2.Visible:=True;

CheckBox3.Visible:=True;

Label1.Left:=80;

CheckBox1.Left:=120;

CheckBox2.Left:=120;

CheckBox3.Left:=120;

Label1.Caption:='8. Что содержит 0-я дорожка каждой дискеты?';

CheckBox1.Caption:='корневой каталог';

CheckBox2.Caption:='FАТ-таблицу';

CheckBox3.Caption:='файлы';

end;

procedure TForm1.MenuItem9Click(Sender: TObject);

begin

k:=9;

edit1.Visible:=False;

radiobutton1.Visible:=False;

radiobutton2.Visible:=False;

radiobutton3.Visible:=False;

CheckBox1.Visible:=True;

CheckBox2.Visible:=True;

CheckBox3.Visible:=True;

Label1.Left:=25;

CheckBox1.Left:=120;

CheckBox2.Left:=120;

CheckBox3.Left:=120;

Label1.Caption:='9. На дискете имеются испорченные сектора. Что делает система, чтобы предотвратить их использование?';

CheckBox1.Caption:='ничего не делает';

CheckBox2.Caption:='использует, но осторожно';

CheckBox3.Caption:='отмечает их как испорченные';

end;

procedure TForm1.MenuItem10Click(Sender: TObject);

begin

k:=10;

rez:=0;

edit1.Visible:=True;

radiobutton1.Visible:=False;

radiobutton2.Visible:=False;

radiobutton3.Visible:=False;

CheckBox1.Visible:=False;

CheckBox2.Visible:=False;

CheckBox3.Visible:=False;

Label1.Left:=80;

Edit1.Left:=104;

Edit1.Top:=48;

Edit1.Text:='';

Label1.Caption:='10. Какой номер имеет начальная дорожка?';

stroka:=edit1.text;

Edit1.Text:=IntToStr(rez);

end;

end.

Размещено на Allbest.ru


Подобные документы

  • Обеспечение универсальности функций тестирования при разработке программы для тестирования студентов. Бесплатное программное обеспечение. Анализ выбора среды программирования. Особенности среды Delphi и СУБД MySQL. Описание алгоритма и блок-схемы.

    курсовая работа [1,6 M], добавлен 01.02.2013

  • Обследование объекта, обоснование необходимости систем компьютерного тестирования. Анализ существующих разработок и обоснование выбора технологии проектирования. Создание системы компьютерного тестирования на основе случайного выбора в среде Visual Basic.

    дипломная работа [2,4 M], добавлен 18.08.2013

  • Способы оценки знаний. WEB-система тестирования студентов. Блок регистрации и авторизации. Категорирование страниц сайта по различным терминам. Создание вопроса с выбором количества правильных вариантов ответа. Система настройки тестов и вопросов в них.

    дипломная работа [3,7 M], добавлен 15.04.2012

  • Создание системы компьютерного тестирования для контроля знаний. Проблемы, возникающие при создании тестовой оболочки в среде Ren`Py. Разработка проектных решений по системе и её частям. Структура тестирования, вопросы и ответы тестирующей системы.

    дипломная работа [501,6 K], добавлен 12.09.2016

  • Проектирование программы в среде Delphi для тестирования знаний студентов по программированию, с выводом оценки по окончанию тестирования. Разработка экранных форм и алгоритма программы. Описание программных модулей. Алгоритм процедуры BitBtn1Click.

    курсовая работа [365,0 K], добавлен 18.05.2013

  • Исторические предпосылки разработки тестирования. Виды электронных тестов и их роль в программировании. Этапы разработки программы для решения задачи быстрой сортировки. Пользовательский интерфейс, отладка, алгоритм программы. Файл теста в формате XML.

    курсовая работа [1,5 M], добавлен 27.01.2014

  • Создание программы на языке Visual C++ с использованием библиотеки MFC для тестирования знаний пользователя в области геометрии. Генерирование тестовых заданий, введение ответа, оценка результата; логическая структура приложения; техническое обеспечение.

    курсовая работа [2,1 M], добавлен 26.06.2011

  • Основные функции, требования и характеристики системы тестирования. Создание современной модели WEB-сервиса тестирования знаний студентов с помощью средств WEB-разработки. Описание пользовательского интерфейса сайта, этапы прохождения тестовых заданий.

    курсовая работа [6,4 M], добавлен 14.07.2012

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

    презентация [574,8 K], добавлен 22.03.2014

  • Разработка головоломки на основе гравюры Альбрехта Дюрера "Магический квадрат". Главные составные части среды программирования Delphi, особенности ее стандартных компонентов и процесса сохранения программы. Компоненты и алгоритмы создаваемой программы.

    курсовая работа [147,1 K], добавлен 05.02.2015

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.