Тестирование знаний студентов

    zprot,vop:string;

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button5Click(Sender: TObject);

begin

close();

exit;

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

Edit1.Text:=ListBox1.Items[ListBox1.Itemindex];

ListBox1.Hide;

if Edit1.Text='Файловий менеджер' then

ComboBox1.Items.LoadFromFile('fa_men.txt');

if Edit1.Text='Экономическая теория' then

ComboBox1.Items.LoadFromFile('et.txt');

if Edit1.Text='Програмування_Ч1' then

ComboBox1.Items.LoadFromFile('pr_1.txt');

if Edit1.Text='Програмування_Ч2' then

ComboBox1.Items.LoadFromFile('pr_2.txt');

if Edit1.Text='Операційна система' then

ComboBox1.Items.LoadFromFile('OS.txt');

if Edit1.Text='Текстовий редактор WORD' then

ComboBox1.Items.LoadFromFile('TR_WORD.txt');

if Edit1.Text='Табличний процесор EXCEL' then

ComboBox1.Items.LoadFromFile('TP_EXCEL.txt');

if Edit1.Text='Основи баз даних та знань' then

ComboBox1.Items.LoadFromFile('obdz.txt');

if Edit1.Text='Динаміка' then

ComboBox1.Items.LoadFromFile('dinamika.txt');

if Edit1.Text='СГВ' then

ComboBox1.Items.LoadFromFile('sgv.txt');

Edit2.SetFocus;

end;

procedure TForm1.Edit1Click(Sender: TObject);

begin

ListBox1.Show;

ListBox1.Items.LoadFromFile('disciplina.txt');

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Button1.SetFocus;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

e1: string;

len,i,k:integer;

begin

kv:=0;ko:=0;

// Это кнопка - "начать тест"

if Edit1.Text='Файловий менеджер' then Reset(fil,'fa_men.txt');

if Edit1.Text='Экономическая теория' then Reset(fil,'et.txt');

if Edit1.Text='Програмування_Ч1'  then Reset(fil,'pr_1.txt');

if Edit1.Text='Програмування_Ч2'  then Reset(fil,'pr_2.txt');

if Edit1.Text='Операційна система' then Reset(fil,'OS.txt');

if Edit1.Text='Текстовий редактор WORD' then Reset(fil,'TR_WORD.txt');

if Edit1.Text='Табличний процесор EXCEL' then Reset(fil,'TP_EXCEL.txt');

if Edit1.Text='Основи баз даних та знань' then Reset(fil,'obdz.txt');

if Edit1.Text='Динаміка' then Reset(fil,'dinamika.txt');

if Edit1.Text='СГВ' then Reset(fil,'sgv.txt');

read(fil,vop);

Edit3.Text:=' ';

RadioButton1.Caption:=' ';

RadioButton2.Caption:=' ';

RadioButton3.Caption:=' ';

Button2.Click;

Label9.Caption:=IntToStr(kv);

Label8.Caption:=IntToStr(ko);

RadioButton1.Enabled:=true;

RadioButton2.Enabled:=true;

RadioButton3.Enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

nv:integer;

begin

Randomize;

Edit3.Text:='';

kv:=kv+1;

Label9.Caption:=IntToStr(kv);

nv:=random(ComboBox1.Items.Count);

vop:=ComboBox1.Items[nv];

RadioButton1.Caption:=' ';

RadioButton2.Caption:=' ';

RadioButton3.Caption:=' ';

Label11.Caption:=' ';

Button6.Click;

RadioButton1.Enabled:=true;

RadioButton2.Enabled:=true;

RadioButton3.Enabled:=true;

RadioButton1.Checked:=false;

RadioButton2.Checked:=false;

RadioButton3.Checked:=false;

end;

procedure TForm1.Zagruzka(Sender: TObject);

var

len,i,k:integer;

e1:string;

begin

len:=length(vop);

k:=0; e1:='';

for i:=1 to len do

begin

   if copy(vop,i,1)<>'*' then e1:=e1+copy(vop,i,1)

   else

   begin

   k:=k+1;

   if k=1 then Edit3.Text:=e1;

   if k=2 then RadioButton1.Caption:=e1;

   if k=3 then RadioButton2.Caption:=e1;

   if k=4 then RadioButton3.Caption:=e1;

   if k=5 then Edit8.Text:=e1;

   e1:=' ';

   end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

//randomize;

ListBox1.Hide;

//Edit8.Hide;

Button6.Hide;

end;

procedure TForm1.Button6Click(Sender: TObject);

var

len,i,k:integer;

e1:string;

begin

len:=length(vop);

k:=0; e1:='';

for i:=1 to len do

begin

   if copy(vop,i,1)<>'*' then e1:=e1+copy(vop,i,1)

   else

   begin

   k:=k+1;

   if k=1 then Edit3.Text:=e1;

   if k=2 then RadioButton1.Caption:=e1;

   if k=3 then RadioButton2.Caption:=e1;

   if k=4 then RadioButton3.Caption:=e1;

   if k=5 then Edit8.Text:=e1;

   e1:=' ';

   end;

end;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

var

nkn,i:integer;

begin

nkn:=1;

if trim(Edit8.Text)=IntToStr(nkn) then

begin

ko:=ko+1;

Label8.Caption:=IntToStr(ko);

Label11.Caption:='ПРАВИЛЬНО';

end

else Label11.Caption:='НЕ ПРАВИЛЬНО';

RadioButton1.Enabled:=false;

RadioButton2.Enabled:=false;

RadioButton3.Enabled:=false;

Edit3.Text:='';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

var

nkn:integer;

begin

nkn:=2;

if trim(Edit8.Text)=IntToStr(nkn) then

begin

ko:=ko+1;

Label8.Caption:=IntToStr(ko);

Label11.Caption:='ПРАВИЛЬНО';

end

else Label11.Caption:='НЕ ПРАВИЛЬНО';

RadioButton1.Enabled:=false;

RadioButton2.Enabled:=false;

RadioButton3.Enabled:=false;

Edit3.Text:='';

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

var

nkn:integer;

begin

nkn:=3;

if trim(Edit8.Text)=IntToStr(nkn) then

begin

ko:=ko+1;

Label8.Caption:=IntToStr(ko);

Label11.Caption:='ПРАВИЛЬНО';

end

else Label11.Caption:='НЕ ПРАВИЛЬНО';

RadioButton1.Enabled:=false;

RadioButton2.Enabled:=false;

RadioButton3.Enabled:=false;

Edit3.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

var oz:real;

begin

AssignFile(filp,'protocol.txt');

Edit6.Text:=Edit2.Text;

oz:=ko/kv;

//ShowMessage(FloatToStr(oz));

if (oz<0.4) then

Label10.Caption:=FloatToStr(2);

if (oz>0.4) and (oz<0.65) Then

Label10.Caption:=FloatToStr(3);

if (oz>0.65) and (oz<0.87) Then

Label10.Caption:=FloatToStr(4);

if (oz>0.87)  Then

Label10.Caption:=FloatToStr(5);

zprot:=DateToStr(Date())+' '+TimeToStr(Time())+' '+Edit6.Text+' '+Label10.Caption+' '+Edit1.Text;

//ShowMessage(zprot);

Append(filp);

Writeln(filp,zprot);

CloseFile(filp);

label11.Caption:='';

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

label8.Caption:='';

label9.Caption:='';

label10.Caption:='';

label11.Caption:='';

Edit6.Text:='';

Edit2.Text:='';

Edit2.SetFocus;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

{Image2.Visible:=false;

Timer1.Enabled:=false}

end;

end.

1