Рисунок 8 – Кнопка для смены пароля 

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

• - окно форматирования шрифта;
• - окно смены цветовой палитры;
• - очистки фоновой заставки;
• - окно оформления фоновой заставки.

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

     Для формирования новых тестовых заданий  следует выбрать кнопку меню «Тест - Написать». В появившимся окне оператор набирает текст вопроса и варианты ответов в соответствующих для этого полях. При заполнении данной формы программой осуществлены все возможные проверки на корректный ввод пользователем данных – программа выводит об этом соответствующее сообщение, эти возможные ошибки представлены в пункте 5.1. После набора теста оператору необходимо сохранить опросник, указав тему и автора тестовых заданий в соответствующем окне.

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

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

     Завершение  работы с программой осуществляется через запрос в сопровождении звукового сигнала (см. рис.9) нажатием пункта основного меню «Выход».  

     

 

Рисунок 9 – Диалоговое окно - запрос на выход 

     5.1 Сообщения оператору 

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

• если при работе с программой возникла ошибка, показанная на рисунке 10, то она означает, что студент переходит к следующему вопросу,  не выбрав какой – либо вариант ответа;

 

 

Рисунок 10 – Сообщение об ошибке

• если при составлении тестовых заданий преподаватель не заполняет обязательные для заполнения поля, то высвечиваются сообщения, показанные на рисунке 11-13;

Рисунок 11 – Сообщение об ошибке

Рисунок 12 – Сообщение об ошибке.

   

Рисунок 13 – Сообщение об ошибке

• на рисунке 14 показано, как выглядит сообщение о возможных дальнейших действиях оператора при окончании редактирования тестовых заданий;

   

Рисунок 14 – Сообщение об ошибке

• сообщение, представленное на рисунке 15, связано с проверкой ввода пароля на редактирование тестовых заданий;

Рисунок 15 – Сообщение об ошибке

     5.2 Наиболее вероятные  ошибки

 

     В процессе  выполнения программы  могут возникать ошибки:

• Error (8) Could not compile used unit 'Unit1.pas' - Ошибка: Не возможно скомпилировать модуль Unit1.pas. Устранение: Исправить критические ошибки в программе.
• Error (2) File not found - Ошибка: файл не найден. Устранение: проверить правильность пути к файлу.

 
 
 

 

      Заключение 

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

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

 

    Список использованных источников

 
     

1. Кенин А. «Самоучитель для пользователя IBM PC». Практическое руководство. Екатеринбург: Литур, 2003. – 608 стр.
2. Под общей ред. А.Д. Хомоненко. «Delphi 7».Учебник. СПб.: БХВ-Петербург, 2004.-1216 с.: ил.
3. Н.В. Макарова «Информатика» - М.: Финансы и статистика, 2002.-768 стр. ил.
4. А.Я. Архангельский «Delphi 7. Справочное пособие» - М.: ООО «Бином-Пресс», 2004.-1024 с.: ил.
5. А.Я. Архангельский «Программирование в Delphi 7» - М.: ООО «Бином-Пресс», 2003.-950 с.: ил.

 
 

 

Приложение  А

 Входные и выходные документы

     Источником  входной информации программного продукта для решения задачи являются тестовые задания преподавателей.

     Выходным  документом программного продукта является список вопросов и ответов теста, составленного преподавателем, с указанием автора и темы. 
 
 
 
 

 

Приложение  Б  

Текст программы 

program Project2; 

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1},

  Unit2 in 'Unit2.pas' {Form2},

  Unit3 in 'Unit3.pas' {Form3},

  Unit4 in 'Unit4.pas' {Form4},

  Unit5 in 'Unit5.pas' {Form5},

  Unit6 in 'Unit6.pas' {Form6},

  Unit7 in 'Unit7.pas' {Form7},

  Unit8 in 'Unit8.pas' {Form8},

  Unit9 in 'Unit9.pas' {Form9},

  Unit10 in 'Unit10.pas' {Form10}; 

{$R *.res} 

begin

Application.Initialize;

  Application.Run;

end. 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, Grids, jpeg, Buttons, ComCtrls, ToolWin,  ImgList, ExtDlgs, MPlayer; 

type

  TForm1 = class(TForm)

    Label4: TLabel;

    Timer2: TTimer;

    Label7: TLabel;

    Memo1: TMemo;

    ToolButton2: TToolButton;

    ImageList1: TImageList;

    ToolButton3: TToolButton;

    OpenPictureDialog1: TOpenPictureDialog;

    Image1: TImage;

    ToolButton4: TToolButton;

    Label1: TLabel;

    Label2: TLabel;

    OpenDialog1: TOpenDialog;

    Label3: TLabel;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    procedure Timer2Timer(Sender: TObject);

    procedure ToolButton4Click(Sender: TObject);

    procedure ToolButton3Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure FormCreate(Sender: TObject); 

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1;

  FName:String;

  i,j,kv1,bal:integer;

  f:textfile;

  tempstr:string;

  v:boolean;

implementation 

uses Unit3; 

{$R *.dfm} 

procedure TForm1.Timer2Timer(Sender: TObject);

begin

StatusBar1.Panels[0].Text:=FormatDateTime('dddddd',Now)+'  '+FormatDateTime('hh:nn:ss',Time);

end; 

procedure TForm1.SpeedButton2Click(Sender: TObject); 

unit Unit9;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, Buttons;

type

  TForm9 = class(TForm)

    Label1: TLabel;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    MaskEdit1: TMaskEdit;

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form9: TForm9;

  FName:string;

  i:integer;

implementation

uses Unit7, Unit10, Unit3;

{$R *.dfm} 

procedure TForm9.SpeedButton1Click(Sender: TObject);

begin

if maskedit1.text=Form10.Label1.Caption then

begin

form9.Hide;

maskEdit1.Text:=''; 

if form3.OpenDialog1.Execute then

begin

FName:=form3.OpenDialog1.FileName;

assignfile (f,FName);

reset (f);

readln (f,tempstr);

Form7.Label2.Caption:=tempstr;//тема

Form7.Edit2.Text:=tempstr;

readln (f,tempstr);

Form7.Label3.Caption:=tempstr;//автор

Form7.Edit1.Text:=tempstr;

readln (f,tempstr);//количество  вопросов

//kv2:=strtoint(tempstr);

form7.edit3.text:=tempstr;

readln (f,tempstr);//№  вопроса считываем

readln (f,tempstr);

Form7.Memo1.Lines.Add(tempstr); //вывели вопрос

for i:=0 to 2 do

begin

readln (F, tempstr);

Form7.StringGrid1.cells[0,i]:=tempstr;//вывели  варианты ответов

end;

readln (F, tempstr);

if tempstr='1в' then Form7.radiobutton1.Checked:=true;//считали  1 отв

  readln (F, tempstr);

  if tempstr='2в' then Form7.radiobutton2.Checked:=true;//считали 2 отв

readln (F, tempstr);

if tempstr='3в' then Form7.radiobutton3.Checked:=true;//считали  3 отв

form7.Memo2.Lines.Add('');

form7.Memo2.Lines.Add('');

form7.Memo2.Lines.Add('');

form7.showmodal;

if form3.OpenDialog1.FileName='' then ExitProcessProc;

end; 

end

else

begin

showmessage('Неправильный  пароль!!!');

maskEdit1.Text:='';

end;

end;

procedure TForm9.SpeedButton2Click(Sender: TObject);

begin

close;

end;

end. 

unit Unit10;

interface

uses