Курсовая работа: Програма контролю знань з дисципліни "Системне програмування та операційні системи"

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ShowOcinka;

end;

procedure TForm5.Timer1Timer(Sender: TObject);

begin

if Label5.Caption<>'0:00:00' then

begin

ProgressBar1.Position:=ProgressBar1.Position+1;

a1:=StrToTime('0:00:01');

a:=a-a1;

Label5.Caption:=TimeToStr(a);

end

else begin ShowOcinka; end; end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

if (CheckBox1.Checked=false) and (CheckBox2.Checked=false) and (CheckBox3.Checked=false)

and(CheckBox4.Checked=false) then MessageDlg('Ви не oбрали жoднoї вiдпoвiдi!', mtInformation, [mbOk], 0)

else

begin

if (CheckBox1.Checked=DBCheckBox1.Checked) and (CheckBox2.Checked=DBCheckBox2.Checked)

and (CheckBox3.Checked=DBCheckBox3.Checked) and (CheckBox4.Checked=DBCheckBox4.Checked)

then begin

k:=k+1;

Gauge1.Progress:=Gauge1.Progress+trunc(100/StrToInt(Form2.Edit1.Text))

end;

i:=i+1;

Label1.Caption:='Питання № '+IntToStr(i);

Label9.Caption:=IntToStr(k);