Реферат Розробка тестового додатку "Компоненти меню Delphi"

рівню

score: array [1 .. N_ANSWERS] of integer;// очки за вибір відповіді

summa: integer;// набрано очок

vopros: integer;// номер поточного питання

otv: integer;// номер обраного відповіді

// встановлення форми в початковий стан

Продовження додатка 1

Procedure ResetForm (frm: Tform1);

var

i: integer;

begin

form1.label2.visible: = false;

form1.Save1.Visible: = false;

form1.Gauge1.Visible: = false;

Form1.Memo1.Visible: = false;

for i: = 1 to N_ANSWERS do

begin

answer [i]. width: = frm.ClientWidth-answer [i]. left-5;

answer [i]. Visible: = false;

selector [i]. Visible: = false;

end;

frm.Label5.width: = frm.ClientWidth-frm.Label5.left-5;

frm.Image1.Visible: = false;

end;

// Визначення досягнутого рівня

procedure Itog (summa: integer; frm: TForm1);

var

i: integer;

buf: string;

begin

Form1.label2.visible: = true;

form1.Save1.Visible: = true;

Form1.Gauge1.Visible: = true;

Form1.Label5.font.size: = 11;

buf: ='';

str (summa: 5, buf);

В 

Продовження додатка 1

buf: = 'Результати вашого тестування' + chr (13) + 'Ви відповіли правильно на: '+ buf +' з 10 питань ';

i: = 1;

while (summa

i: = i +1;

buf: = buf + chr (13) + mes [i];

frm.Label5.Caption: = buf;

if buf = ',' then

buf: = 'Результати вашого тестування' + chr (13) + 'Ви набрали:' + buf + 'балів';

Form1.memo1.Lines.Add (buf);

if summa = 10 then// умова відображення діаграми

Form1.gauge1.progress: = 100;

if summa = 9 then

Form1.Gauge1.Progress: = 90;

if summa = 8 then

Form1.gauge1.progress: = 80;

if summa = 7 then

Form1.gauge1.progress: = 70;

if summa = 6 then

Form1.gauge1.progress: = 60;

if summa = 5 then

Form1.gauge1.progress: = 50;

if summa = 4 then

Form1.gauge1.progress: = 40;

if summa = 3 then

Form1.gauge1.progress: = 30;

if summa = 2 then

Form1.gauge1.progress: = 20;

if summa = 1 then

Form1.gauge1.progress: = 10;

Продовження додатка 1

if summa = 0 then

Form1.gauge1.progress: = 0;

end;

procedure TForm1.FormCreate (Sender: TObject);

var

i: integer;

begin

// створимо п'ять міток для виведення питань і альтернативних відповідей

for i: = 1 to N_ANSWERS do

begin

answer [i]: = TLabel.Create (self);

Form1.Label5.font.size: = 12;

Form1.Label5.Font.name: = 'System';

answer [i]. Parent: = Form1; ...