Создание тестовой программы по предмету "Операционные системы"

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

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

Содержание

Введение

1. Постановка задачи

1.1 Организационная сущность задачи

1.2 Информационная модель

2. Вычислительная система

2.1 Используемые технические средства

2.2 Инструменты разработки

3. Проектирование задачи

3.1 Объектно-ориентированный анализ

3.2 Концептуальный прототип

4. Описание программного средства

4.1 Общие сведения

4.2 Функциональное назначение

5. Методика испытаний

5.1 Технические требования

5.2 Порядок проведения испытаний

5.2.1 Функциональное тестирование

5.2.2 Полное тестирование

6. Применение

6.1 Назначение программы

6.2 Условия применения

6.3 Справочная система

Заключение

Литература



Введение

Целью курсовой работы является создание тестовой программы по предмету «Операционные системы». Эта программа предназначена для проверки знаний пользователя.

Для достижения цели курсового проекта нужно решить следующие задачи:

1) Выполнить объектно-ориентированный анализ и проектирование системы, результатом которой будет модель системы;

2) Определить вычислительную систему, необходимую для создания программного средства;

3) По модели выполнить проектирование задачи;

4) Разработать программное средства;

5) Описать созданное программное средства;

6) Выбрать методику испытаний;

7) Описать процесс тестирования;

8) Привести примеры области применения.

Решение поставленных задач отражено в пояснительной записке.

Пояснительная записка состоит из 6 разделов и содержит необходимую и достаточную информацию по использованию данного программного средства.

В первом разделе «Постановка задачи» описывается исследование предметной области, определение круга задач, которые должны быть автоматизированы или модифицированы. Описывается задача, перечисляются основные функции программы (обоснование необходимости компьютерной обработки информации или процессов, как задача будет упрощать или усложнять решение поставленной задачи.Во втором разделе «Вычислительная система» перечисляются требования к аппаратному обеспечению и конфигурации компьютера, проводится характеристика операционной системы, обоснование выбранной среды для разработки приложения.

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

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

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

Шестой раздел «Применение» предназначен для описания сведений о назначении программного средства ,классе решаемых задач, ограничениях, накладываемых на область применения, требования к необходимым для данного программного средства техническим и программным ресурсам, структуре справочной системы, методике использования справочной системы и области его применения.

В заключении будет проанализировано выполнение поставленной задачи и выполненной работы, степень ее соответствия проектным решениям, причины несоответствия (если имеются).

1. Постановка задачи

1.1 Организационная сущность задачи

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

«TestOS.exe» курсового проектирования «voprosy1.db» будет предназначено для редактирования вопросов. Так же в программном продукте будет обеспечен легкий и приятный для работы интерфейс

1.2 Информационная модель

Согласно общим требованиям стандартный графический интерфейс разрабатываемого приложения должен:

1)содержать привычные и понятные пользователю пункты меню, соответствующие функциям обработки;

2)сохранять стандартное назначение и местоположение на экране графических объектов, работающих в среде Windows;

Данное программное средства работает в диалоговом режиме.

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

Для создания диалогового процесса интерфейса пользователя используют объектно-ориентированные средства разработки программ (Delphi). В их составе содержатся:

1)построители меню (для создания главного меню и вложенного подменю);

2)конструктор экранных форм (для разработки форматов экранного ввода и редактирования данных).

Диалоговые окна содержат элементы управления:

1)тексты сообщения;

2)списки возможных альтернатив для выбора;

3)кнопки, переключатели.

Компоненты формы Тест «операционные системы»:

1) nachalo:Tbutton, при нажатии начинается тест.

2) Cancel:Tbutton, при нажатии программа закрывается.

3) Otvet: TEdit, поле ввода ответа.

4) labelOtvet: TEdit, информирующая область.

5) OtvetGotov: Tbutton, кнопка - принять ответ.

6) MainMenu1: TMainmenu, главное меню.

7) LabelVopros: TLabel, область вывода вопроса.



2.Вычислительная система

2.1 Используемые технические средства

Конфигурация компьютера, на котором будет разрабатываться программное приложение:

1)Процессор AMD Turion(tm) II P540 Dual-Core Processor 2.4 MHz

2)Оперативная память 2.00 Гб

3)Видеокарта ATI Mobility Radeon HD 5470

4)Жёсткий диск HDD Seagate 300Гб .

5)Звуковая карта;

2.2 Инструменты разработки

Инструментами разработки будут являться:

1)Операционная система Windows7 Ultimate;

2)Среда программирования Delphi v.7.3.3.5 Lite Edition;

3)Язык программирования TurboPascal v7.0.



3.Проектирование задачи

3.1 Объектно-ориентированный анализ

Принципиальное различие между структурным и объектно-ориентированным подходом (ООП) заключается в способе декомпозиции системы. ООП использует объектную декомпозицию, при этом статическая структура системы описывается в терминах объектов и связей между ними, а поведение системы описывается в терминах обмена сообщениями между объектами. Каждый объект системы обладает своим собственным поведением, моделирующим поведение объекта реального мира. Концептуальной основой ООП является объектная модель. Основными ее элементами являются: абстрагирование, инкапсуляция, наследование, полиморфизм, модульность, иерархия.

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

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

Наследование - один из четырёх важнейших механизмов объектно-ориентированного программирования (наряду с инкапсуляцией, полиморфизмом и абстракцией), позволяющий описать новый класс на основе уже существующего (родительского), при этом свойства и функциональность родительского класса заимствуются новым классом.

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

Модульность - принцип, согласно которому программное средство (ПС, программа, библиотека, web-приложение и др.) разделяется на отдельные именованные сущности, называемые модулями. Модульность часто является средством упрощения задачи проектирования ПС и распределения процесса разработки ПС между группами разработчиков. При разбиении ПС на модули для каждого модуля указывается реализуемая им функциональность, а также связи с другими модулями.

Иерархия -- порядок подчинённости низших звеньев высшим, организация их в структуру типа дерево.

Описание элементов используемых в данном программном средстве приведены в пункте 1.2.

3.2 Концептуальный прототип

При создании приложения важную роль играют формы, так как являются основным диалоговым средством работы пользователя. Разрабатываемое приложение будет многооконное. Программное средство будет содержать 2 форм (модулей). В приложении не предусмотрено меню.

Данные о формах данного программного средства представлены в таблице 1.



Таблица 1 - Элементы управления и визуализации

Размещение	Элемент экрана	Класс	Действие
Форма тест «Операционные системы»	nachalo-кнопка для начала теста.	Tbutton Tbutton TEdit Tbutton TLabel	Открывается новая форма, в которой пользователь может ввести свои данные (Ф.И.О , и группу).
	Cancel- кнопка для закрытия приложения.		При нажатии программа прекращает свою работу.
	Otvet - область в которую вводится ответ.		Область для введения варианта ответа.
	OtvetGotov - кнопка что бы принять ответ.		При нажатии кнопки принимается выбранный пользователем вариант ответа.
	LabelVopros - область вывода вопроса.		В эту область выводится вопрос.

4. Описание программного средства

4.1 Общие сведения

Программное средство представляет собой самостоятельно разрабатываемый файл «TestOS.exe». Его объем занимает 1455 Кбайт. Для начала необходимо запустить программу «TestOS.exe».. Поскольку программное средство функционирует в среде Windows, на ПК должны быть установлены следующие библиотеки Windows.dll,Messages.dll,SysUtils.dll,Variants.dll,Classes.dll,Graphics.dll,Controls.dll,Forms.dll,Dialogs.dll,Grids.dll,IniFiles.dll,ExtCtrls.dll,Buttons.dll,DBTables.dll,ComCtrls.dll,StdCtrls.dll,jpeg.dll,ExtCtrls.dll,ToolWin.dll,Menus.dll,DB,DBTables.dll,Grids.dll,DBGrids.dll,Buttons.dll,DBCtrls.dll,OleServer.dll,Comobj.dll,ExcelXP.dll,WordXP.dll,ADODB.dll,ShellApi.dll,XPMan.dll,ImgList.dll.

Необходимость разработки данного программного средства в Delphi - это использование библиотек Graphics.dll, Buttons.dll, XPMan.dll, ImgList.dll, jpeg.dll, выполняющих графическое.

4.2 Функциональное назначение

Главным назначением программы является проверка знаний пользователя по предмету «Операционные системы».В программном средстве «TestOS.exe» реализованы функции, которые были определены на этапе объектно-ориентированного программирования и анализа. Также программное средство обладает гибким и удобным меню. Главная форма также обладает всеми нужными кнопками, которые значительно ускоряют работу программным средством. Для удобства работы сделана удобная справочная система.

Средства защиты, разграничения доступа к данным и сетевая поддержка не предусмотрены.

5. Методика испытаний

5.1 Технические требования

Для полноценного функционирования разработанного программного продукта, качественного выполнения всех поставленных задач, требуется ПК следующей конфигурации:

-- процессор 500 MHz;

-- объем ОЗУ: 64 Mb;

-- объём HDD: 16 Mb

-- ОС Windows 98/XP/Vista/7

-- графический адаптер, поддерживающий 32 bit цветов

-- винчестер 1 Gb и более

5.2 Порядок проведения испытаний

5.2.1 Функциональное тестирование

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

Протестируем функцию запуска теста «Операционные системы». Результат выполнения представлены на рисунке 1.



Рисунок 1

5.2.2 Полное тестирование

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

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

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

Вид программы при запуске представлен на рисунке 2



Рисунок 2- Главная форма

Действия программы при нажатии на кнопку «Начать тест» представлены на рисунке 3.

Рисунок 3- Ввод личных данных



Действия программы при нажатии на кнопку «Начать» представлены на рисунке 4.

Рисунок 4-Начало теста

Вам нужно выбрать правильный ответ из предложенных четырех вариантов и нажать на кнопку «Принять ответ». В зависимости от того как вы ответили, появится табличка, информирующая о правильности (Рисунок 5) или не правильности (Рисунок 6) вашего ответа.



Рисунок 5- Ответ правильный

Рисунок 6-Не правильный ответ

После прохождения всего теста, вам будет выдана информация о количестве набранных вами баллов рисунок 7

Рисунок 7- Результат

Вопросы для тестирования программа считывает из файла базы данных Voprosy1.db. После прохождения теста результат записывается в текстовый файл database.txt Рисунок 8



Рисунок 8

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



6. Применение

6.1 Назначение программы

Разработанное программное средство тест «Операционные системы», предназначено для проверки знаний пользователя.

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

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

6.2 Условия применения

Необходимо отметить, что данное программное средство не обладает средствами, ограничивающими доступ к нему, а также средствами, препятствующими свободному распространения программы.

6.3 Справочная система

вычислительный программный визуализация интерфейс

Действия программы при нажатии на пункт главного меню «Справка» представлено на рисунке 9.



Рисунок 9

1Действия программы при нажатии на кнопку «Справка» на рисунке 10.

Рисунок 10



Справочная система для данного программного средства довольно проста. Она представляет собой описание возможных действий для работы с программой.



Заключение

В рамках курсового проектирования по предмету «Основы алгоритмизации и программирование» было разработано программное средство тестовая программа «TestOS.exe», позволяющее проверить свои знания.

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

В программе реализованы такие задачи, как:

1)разработана выходная форма;

2)ограничение тестируемого по времени;

3)анализ допущенных ошибок и выдачу информации о количестве набранных баллов;

4)редактирование добавление и удаление вопросов;

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

Возможными недостатками является низкий уровень защиты данных и неполные сведения о Игроках и Матчах, что и планируется доработать в последующих версиях программы.

В процессе разработки программы использовался в большом объеме тематический материал (о операционных системах) и материал по программированию, что способствовало закреплению наработанных навыков и умений в этих интересных областях знаний.



Список используемых источников

1) Интернет-издание, 32 урока: Borland Delphi или о том, что лучше один раз увидеть, чем сто раз услышать.

2)http://ru.wikipedia.org



Приложение А

(обязательное)

Листинг

unit MainForm;

interface

uses about,

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, NameEntr, jpeg, ExtCtrls;

const put_k_voprosam1='Voprosy1.db'; // файл с вопросами

put_k_voprosam2='';

put_k_data_base='database'; //файл для записи рез-ов

rasshirenie_file_data_base='.txt'; // тип файла рез-в

voprosov_v_teste=20; // воспроизводимое количество вопросов в тесте

max_variantov=4; // количество вариантов

max_otvetov=50; // количество ответов

kluch='314159';

max_voprosov=100; // общее количество вопросов

put_k_parolu='c:\windows\system32\OSPassword.db';

strok_v_voprose=10; // мах кол-во строк в вопросе

bukv_stroke_voprosa:integer=63; // кол-во символов в воспроизводимой строке вопроса

type

tstudents=record // тип данных о тестируемом

name,familiya,group,resultat:string;

end;

tvse_voprosy=record

vopros:array[1..10] of string;

оtvety:array[1..max_otvetov] of string;

end;

TForm1 = class(TForm)

nachalo: TButton; // кнопка - начать тест

Cancel: TButton; // кнопка - выход

otvet: TEdit; // окно ввода ответа

Labelotvet: TLabel; // информирующая область

Otvetgotov: TButton; //кнопка - принять ответ

MainMenu1: TMainMenu; // главное меню

Labelvopros: TLabel; // область вывода вопроса

N1: TMenuItem; // семь пунктов главного меню

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

vopros: TLabel; // информирующая область

procedure chtenie_voprosov; // считывание вопросов

procedure CancelClick(Sender: TObject); // выход

procedure nachaloClick(Sender: TObject); // начать тест

procedure vivod_voprosa; // вывод вопроса

procedure vivod_poley_voprosa; // границы полей вопроса

procedure OtvetgotovClick(Sender: TObject); // принять ответ

procedure FormCreate(Sender: TObject); // онформ.о форме

function resultat:integer; // вывод результата

procedure zapis_v_data_base; // запись результата в файл

function proverka:boolean;

procedure n7click(sender:tobject); //информация о прогр.

procedure otvetkeypress(sender:tobject;var key:char);

private

{ Private declarations }

vse_voprosy:array[1..max_voprosov]of tvse_voprosy;

ispol_voprosy:array[1..voprosov_v_teste] of integer;

schitano_voprosov:integer;

tek_vopros,nomer:integer;

file_s_voprosami:text;

otvety_na_voprosy:array[1..voprosov_v_teste] of boolean;

public

student:tstudents;

students:array[1..200] of tstudents;

end;

var

Form1: TForm1;

s:tstrings;

implementation

{$R *.dfm}

function tform1.proverka:boolean; // проверка, проходили вы тест или нет

var file_db:textfile;

n,vsego_proshli:integer;

str:string;

begin

if not fileexists(put_k_data_base+rasshirenie_file_data_base)then

begin

proverka:=false;

exit;

end;

assignfile(file_db,put_k_data_base+rasshirenie_file_data_base);

reset(file_db);

if ioresult=0 then

begin

n:=0;

while not(eof(file_db))do

begin

n:=n+1;

readln(file_db,students[n].name);

delete(students[n].name,1,4);

readln(file_db,students[n].familiya);

delete(students[n].familiya,1,8);

readln(file_db,str);

readln(file_db,str);

readln(file_db,str);

readln(file_db,str);

end;

vsego_proshli:=n;

for n:=1 to vsego_proshli do

begin

if (students[n].name=student.name) and

(students[n].familiya=student.familiya) then

begin

messagedlg('Извините, вы уже проходили этот тест отойдите, пожалуйста, от омпьютера',mtinformation,[mbok],0);

proverka:=true;

exit;

end;

end;

end;

else proverka:=false;

closefile(file_db);

end;

procedure tform1.otvetkeypress(sender:tobject;var key:char); // принять ответ

begin

if key=#13 then

otvetgotov.Click;

end;

procedure tform1.zapis_v_data_base; // запись результата

var file_db:textfile;

begin

if fileexists(put_k_data_base+rasshirenie_file_data_base) then

begin

assignfile(file_db,put_k_data_base+rasshirenie_file_data_base);

append(file_db);

end

else

begin

assignfile(file_db,put_k_data_base+rasshirenie_file_data_base);

rewrite(file_db);

end;

writeln(file_db,'Имя '+student.name);

writeln(file_db,'Фамилия '+student.familiya);

writeln(file_db,'Группа '+student.group);

writeln(file_db,'Дата '+datetostr(date));

writeln(file_db,'Время '+timetostr(time));

writeln(file_db,'Результат '+student.resultat);

writeln(file_db,' ');

{ flush(file_db);}

closefile(file_db);

end;

function tform1.resultat:integer; // вывод результата

var i,kol_vo_pravilnyh:integer;

begin

kol_vo_pravilnyh:=0;

for i:=1 to voprosov_v_teste do

begin

if form1.otvety_na_voprosy[i] then

kol_vo_pravilnyh:=kol_vo_pravilnyh+1;

end;

resultat:=round(10*(kol_vo_pravilnyh/voprosov_v_teste));

end;

procedure tform1.chtenie_voprosov; // считывание вопросов

label 1,2;

var

schyotchik,i,j:integer;

str:string;

b1,b2:boolean;

begin

str:=put_k_voprosam1;

b1:=FileExists(put_k_voprosam1);

b2:=FileExists(put_k_voprosam2);

if (b1) and (b2 )then

begin

str:=put_k_voprosam1;

end;

if (b1) and (not (b2))then

begin

str:=put_k_voprosam1;

end;

if (b2) and (not (b1)) then

begin

str:=put_k_voprosam2;

end;

if (not (b1))and(not (b2)) then

begin

showmessage('Не найден файл с вопросами');

halt;

end;

try

schyotchik:=0;

assignfile(file_s_voprosami,str);

reset(file_s_voprosami);

while not(seekeof(file_s_voprosami)) do

begin {n 001}

schyotchik:=schyotchik+1;

i:=0;

repeat

i:=i+1;

readln(file_s_voprosami,vse_voprosy[schyotchik].vopros[i]);

until vse_voprosy[schyotchik].vopros[i]='end of question';

vse_voprosy[schyotchik].vopros[i]:='';

for i:=1 to max_otvetov-1 do

begin

readln(file_s_voprosami,vse_voprosy[schyotchik].otvety[i]);

if vse_voprosy[schyotchik].otvety[i]='end' then

begin

for j:=i to max_otvetov do

vse_voprosy[schyotchik].otvety[j]:=kluch;

goto 1;

end;

end;

1:end; 2:

closefile(file_s_voprosami);

schitano_voprosov:=schyotchik;

if schitano_voprosov<voprosov_v_teste then

begin

MessageDlg('Количество вопросов в тесте превышает количество вопросов в базе данных пожалуйста обновите Базу Данных',mterror,[mbok],0);

exit;

end;

except

MessageDlg('Неверен формат Базы Данных',mterror,[mbok],0);

end;

end;

procedure tform1.vivod_poley_voprosa; // границы вопроса

var sam_vopros:string;

i:integer;

begin

labelvopros.Visible:=true;

vopros.Visible:=true;

otvet.Visible:=true;

labelotvet.Visible:=true;

otvetgotov.Visible:=true;

sam_vopros:='';

for i:=1 to strok_v_voprose do

sam_vopros:=sam_vopros+vse_voprosy[nomer].vopros[i];

if length(sam_vopros)>7*109 then

begin

//vopros.ScrollBars:=ssVertical;

vopros.Height:=100

end

else

begin

//vopros.ScrollBars:=ssnone;

vopros.Height:=17*(trunc(length(sam_vopros)/72)+1);

end;

end;

procedure tform1.vivod_voprosa; // вывод вопроса на форму

label 1;

var i,j:integer;

begin

form1.vopros.Caption:='';

randomize;

labelvopros.Caption:='Вопрос №'+inttostr(tek_vopros);

1:nomer:=trunc(random(schitano_voprosov))+1;

if tek_vopros>=1 then

for i:=1 to tek_vopros do

begin

if (ispol_voprosy[i]=nomer) or (nomer>schitano_voprosov) then goto 1;

end

else nomer:=trunc(schitano_voprosov)+1;

ispol_voprosy[tek_vopros]:=nomer;

form1.vivod_poley_voprosa;

j:=1;

for i:=1 to strok_v_voprose do

begin

for j:=1 to Trunc(length(vse_voprosy[nomer].vopros[i])/bukv_stroke_voprosa)+1 do

if not((i=1) and (j=1)) then

vopros.Caption:=vopros.Caption+#13+copy(vse_voprosy[nomer].vopros[i],(j-1)*bukv_stroke_voprosa+1,bukv_stroke_voprosa)

else

vopros.Caption:=vopros.Caption+copy(vse_voprosy[nomer].vopros[i],(j-1)*bukv_stroke_voprosa-1,bukv_stroke_voprosa)

end;

otvet.Text:='';

end;

procedure TForm1.CancelClick(Sender: TObject); // выход

begin

close;

end;

procedure TForm1.nachaloClick(Sender: TObject);//начать тест

begin

form2.ShowModal;

if not(form2.vvedenie_imeni) then exit

else

begin

student.name:=form2.name.Text;

student.familiya:=form2.Familiya.Text;

student.group:=form2.gruppa.Text;

if form1.proverka then close;

end;

screen.Cursor:=crappstart;

form1.chtenie_voprosov;

screen.Cursor:=crdefault;

tek_vopros:=1;

form1.vivod_voprosa;

otvet.SetFocus;

N5.Enabled:=true;

end;

procedure TForm1.OtvetgotovClick(Sender: TObject); //принять ответ

var i:integer;

beginfor i:=1 to max_otvetov-1 do

begin

if otvet.Text=vse_voprosy[nomer].otvety[i] then

begin

messagedlg('Ответ правильный',mtconfirmation,[mbok],0);

otvety_na_voprosy[tek_vopros]:=true;

tek_vopros:=tek_vopros+1;

otvet.SetFocus;

if tek_vopros=voprosov_v_teste+1 then

begin

messagedlg('Вы закончили тест и получили (из 10 возможных баллов) - '+inttostr(form1.resultat),mtconfirmation,[mbok],0);

student.resultat:=inttostr(form1.resultat);

form1.zapis_v_data_base;

close;

end;

form1.vivod_voprosa;

exit;

end;

end;

if not(otvety_na_voprosy[tek_vopros]) then

begin

messagedlg('Ответ неправильный',mtconfirmation,[mbok],0);

otvety_na_voprosy[tek_vopros]:=false;

tek_vopros:=tek_vopros+1;

if tek_vopros=voprosov_v_teste+1 then

begin

messagedlg('Вы закончили тест и получили (из 10 возможных баллов) - '+inttostr(form1.resultat),mtconfirmation,[mbok],0);

student.resultat:=inttostr(form1.resultat);

form1.zapis_v_data_base;

close;

end;

form1.vivod_voprosa;

end;

otvet.SetFocus;

end;

procedure TForm1.FormCreate(Sender: TObject); //инф.о форме

var i,j:integer;

begin // цикл вывода вопроса на форму

for j:=1 to max_voprosov do

for i:=1 to strok_v_voprose do

begin

vse_voprosy[j].vopros[i]:='';

end;

for i:=1 to voprosov_v_teste do

begin

otvety_na_voprosy[i]:=false;

ispol_voprosy[i]:=0;

end;

if fileexists(put_k_parolu) then

begin

end;

end;

procedure tform1.n7click(sender:tobject); // инф.о программе

begin

aboutbox.ShowModal; // открытие окна другой формы

procedure TForm1.Button1Click(Sender: TObject);

begin

i := 2000;//время тестирования

Timer1.Enabled := True; //

end;

function IntToStr2(I, C: Integer): String;

begin

Result := IntToStr(I);

while Length(Result) < C do

Result := Result + '0';

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

H, M, S: Integer;

begin

i := i - 1; //

H := I div 360; // ч

M := (I - H) div 60; //

S := (I - H - M); //

Label1.Caption := IntToStr2(S, 1);

if i = 0 then

begin

Timer1.Enabled := False;

messagedlg(' +inttostr(form1.resultat),mtconfirmation,[mbok],0);

student.resultat:=inttostr(form1.resultat);

form1.zapis_v_data_base;

close;

end;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

WinExec('hh.exe help.chm',SW_SHOW);

end;

Приложение Б

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

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

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