Курсовая работа: Создание проекта для тестирования знаний студентов по языку программирования Delphi по теме "Назначение и основные свойства палитры компонентов "Standard"
readln(f,s);
memo1.Text:=s;
readln(f,s);
radiobutton1.caption:=s;
readln(f,s);
radiobutton2.caption:=s;
readln(f,s);
radiobutton3.caption:=s;
readln(f,s);
radiobutton1.Checked:=false;
end;
end;
end;
//------------------------------------------------------
{процедура для коррекного закрытия программы}
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form3.Button3.Click;
end;
//------------------------------------------------------------
{процедура перехода на главную форму}
procedure TForm3.Button2Click(Sender: TObject);
begin
{скрытие теста}
form3.Hide;
{открытие главной формы}
form2.show;
end;
//---------------------------------------------------------
{выход}
procedure TForm3.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
//----------------------------------------------------------------
{проверка активности переключателя и присвоение ему определенного значения}
procedure TForm3.RadioButton1Click(Sender: TObject);
begin
z:=1;
{if radiobutton1.Checked then z:=1;
if radiobutton2.Checked then z:=2;
if radiobutton3.Checked then z:=3;}
end;
//----------------------------------------------------------------
{проверка активности переключателя и присвоение ему определенного значения}
procedure TForm3.RadioButton2Click(Sender: TObject);
begin
z:=2;
{if radiobutton1.Checked then z:=1;
if radiobutton2.Checked then z:=2;
if radiobutton3.Checked then z:=3; }
end;
//-----------------------------------------------------------------------
{проверка активности переключателя и присвоение ему определенного значения}
procedure TForm3.RadioButton3Click(Sender: TObject);
begin
z:=3;
{if radiobutton1.Checked then z:=1;
if radiobutton2.Checked then z:=2;
if radiobutton3.Checked then z:=3;}
end;
//-------------------------------------------------------------------------
{открытие файла с вопросами и ответами для теста на чтение}
procedure TForm3.FormActivate(Sender: TObject);
begin
assignfile(f,'Test.txt');
reset(f);
end;
//-------------------------------------------------------------------------
{процедура для повторного тестирования}
procedure TForm3.Button4Click(Sender: TObject);
begin
form3.Hide;
form2.Show;
form2.Hide;
form3.Show;
g:=0;
j:=0;
i:=0;
sek:=0;
min:=0;
radiobutton1.Checked:=true;
label1.Caption:='Тест';
button1.caption:='Начать тест';
Edit1.Visible:=false;
Edit2.Visible:=false;
Edit3.Visible:=false;
Edit4.Visible:=false;
Edit5.Visible:=false;
Edit6.Visible:=false;
Edit7.Visible:=false;
button1.Visible:=true;
button4.Visible:=false;
end;
//--------------------------------------------------------------------------
procedure TForm3.Timer1Timer(Sender: TObject);
begin
sek:=sek+1;
if sek=60 then begin
sek:=0;
min:=min+1;
end;
if min<10 then label2.Caption:='0'+inttostr(min)+':'
else label2.Caption:=inttostr(min)+':';
if sek<10 then label2.Caption:=label2.Caption+'0'+inttostr(sek)
else label2.Caption:=label2.Caption+inttostr(sek);
if min=8 then theend;
end;
procedure tform3.theend;
begin
timer1.Enabled:=false;
radiobutton1.Visible:=false;
radiobutton2.Visible:=false;
radiobutton3.Visible:=false;
memo1.Text:='РЕЗУЛЬТАТ ТЕСТИРОВАНИЯ';
Edit1.Visible:=True;
Edit2.Visible:=True;
Edit2.Text:=inttostr(i-1);
Edit3.Visible:=True;
Edit4.Visible:=True;
Edit5.Visible:=True;
Edit5.Text:=inttostr(g);
Edit6.Visible:=True;
Edit7.Visible:=True;
Edit7.Text:=inttostr(i-g-1);
closefile(f);
button1.Visible:=false;
button4.Visible:=true;
end;
end.
3. Листинг третьей формы: Об авторе
unit Unit4;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, jpeg;
type
TAboutBox = class(TForm)
OKButton: TButton;
Panel2: TPanel;
Memo1: TMemo;
Image1: TImage;
Image2: TImage;
procedure OKButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
uses Unit2;
{$R *.dfm}
procedure TAboutBox.OKButtonClick(Sender: TObject);
{переход на главную форму и скрытие окна "об авторе"}
begin
AboutBox.Hide;
form2.show;
end;
end.
2.4 Тестирование программы
В ходе тестирования были проверены требования к программному продукту (тест).
Было протестировано правильность работ все командных кнопок, теста программы, и подсчет, вывод результата. В ходе тестирования были выявлены ошибки. Со временем они были устранены.
Вопросы и правильные ответы к ним:
Пояснение: жирным шрифтом выделены правильные ответы.
| № | Вопрос | 1 ответ | 2 ответ | 3 ответ |
| 1 | Название компонента который создает текстовую метку (надпись) на форме? | Button. | Panel. |
Label. |
| 2 | Контейнер для компонентов, по своим свойствам похожий на форму (укажите компонент)? |
Frames. |
Memo. | Button |
| 3 | Простая командная кнопка (укажите компонент)? | Memo. | Items. |
Button. |
| 4 | Список строк с возможностью выбора нескольких из них (укажите компонент)? | TImageList |
ListBox |
ActionList |
| 5 | компонент который может служить либо для отрисовки текста (встроенная возможность) либо контейнером для других компонентов? | GroupBox | Panel | Bitmap |
| 6 | Компонент для создания и централизованного управления методами, ассоциируемыми с обработчиками событий компонентов? | Sorted. |
ActionList. |
Columns. |
| 7 | как выглядит компонент MainMenu после помещения его на форму? |
В виде значка |
В виде главного меню в верхней части формы | Компонент не отоброжается |
| 8 | чем различаются компоненты Label и Edit? | Максимальным размером вводимого текста. |
Текст в Label нельзя редактировать во время работы программы. |
Компонент Edit служит для ввода чисел. |
| 9 | чем различаются компоненты CheckBox и RadioButton? | CheckBox не содержит пояснительной части | RadioButton не содержит поля выбора |
RadioButton исключает выбор двух значений в одном блоке переключателей |
| 10 | Свойство ReadOnly позволяет? | Настроить регистр вводимых символов | Настроить содержимое текстового поля |
запретить редактирование текста в поле |
| 11 | Как задается содержимое компонента Memo при создании программы? | Вводится в специальном окне |
Вводится в отдельном окне, так и в редакторе кода |
Вводится в редакторе кода |
| 12 | как отображается компонент PopupMenu после помещения его на форму? |
В виде значка |
В виде контейнера | Компонент не отоброжается |
| 13 | Контекстное меню (укажите компонент)? | Memo |
popupmenu |
Items |
| 14 | Однострочное текстовое поле для ввода данных (укажите компонент)? | Text | Memo | Edit |
| 15 | Многострочное текстовое поле (укажите компонент)? | Frames |
Memo |
Align |
