Дельфи бағдарламасында тест құру

Delphi бағдарламасында  тест  дайындау

Үлгі:

          

Тест  құру  тәртібі:

Ø  Form1 (форма) терезесін  белсенді  етіп,   Объект  инспекторы  терезесіндегі  Caption  қасиетін  таңдап,  Интерактивті  тест  деп  өзгертеміз.  (Ескерту:  бұл  бағдарламада  қазақша  әріп  терілмейді).  Формаға  стандартты  терезе  қалпын  келтіреміз.  Ол  үшін   Объект  инспекторы  терезесіндегі  biMaximize  қасиетінен  False,  Border Style  қасиетінен  bs Single таңдаймыз.

Ø  Win32  парақшасынан PageContol  батырмасын  таңдаймыз.

                       

Формаға  тіктөртбұрыш  саламыз.  Сол  төртбұрыштыны  ерекшелеп,  тышқанның  оң  жақ  батырмасын  шертіп,  шыққан  жанама  менюден  New Page  командасын  3 рет таңдаймыз.  Сол  уақытта  үш  парақша  (TabSheet1, TabSheet2, TabSheet3)  пайда  болады.

      

TabSheet1-ді белсенді  етіп, Объект  инспекторы  терезесіндегі  Caption  қасиетін  таңдап,  негізгі  деп  өзгертеміз. (Дәл  осындай  әрекетпен  TabSheet2-ні  тест  деп, TabSheet3-ті  программа  туралы  деп  өзгертеміз.)

Ø  Additional  парақшасынан  BitBtn батырмасын  таңдап,  төртбұрыш  саламыз.

НЕГІЗГІ  парақшасын  дайындау

Ø  Standart  парақшасынан  Label1, Label2;  Additional  парақшасынан  Image  батырмасын  таңдап,  формаға  саламыз.

BitBtn1,  Label1, Label2,  Image  қасиеттері:

                  Caption – Выход (Шығу)

                  Kind –  bkClose

BitBtn1     Font -  өз бетімен таңдау

Height – өз бетімен таңдау

Width – өз бетімен таңдау

                   Caption – Интерактивті  тест

                   Auto Size –  false

                   Font -  Georgia (шрифт түрін, түсін, өлшемін таңдау)

 Label1      Height – 90, Width - 560

Layout - tlCenter

Alignment - taCenter

WordWrap – True

 

                 Caption – Кім  білгір?

                 Auto Size –  false

                 Font -  Georgia (шрифт түрін, түсін, өлшемін таңдау)

 Label2     Height – 100, Width - 300

Layout - tlCenter

Alignment - taCenter

WordWrap – True

 

                 Picture… – Load…(сурет орнату)

                 Stretch –  True

 Image      Height – 285

                 Width - 300

                 ShowHint - True

ПРОГРАММА  ТУРАЛЫ  парақшасын  дайындау

1.      Енді  Программа  туралы  парақшасын  белсенді  етіп,  Standart  парақшасынан  (Memo 1)  батырмасын  таңдап,  жұмыс  аймағына  тіктөртбұрыш  саламыз.  Оның  Объект  инспекторы  терезесіндегі  Lines  қасиетінен  TStrings...  өрісін  таңдағанда,  String List Editor  терезесі  ашылады.  Шыққан  терезедегі  Мemo1-ді  өшіріп,  мәтін  тереміз  де,  OK  батырмасын  басамыз.

ТЕСТ  парақшасын  дайындау

Additional  парақшасынан  ScrollBox  батырмасын  таңдап,  жұмыс  аймағына  тест  орналасатын  аймақты  саламыз.

Standart  парақшасынан  Radiogroup батырмасын  таңдап,  бірінші  сұраққа  арналған  төртбұрыш  саламыз.    Radiogroup1 белгісін  белгілеп,  оның  Caption  қасиетіне  1-ші  сұрақты  жазамыз.  Items  қасиетінен  TString  таңдап,  шыққан  терезеге  сұрақтың  жауаптарын  жазамыз,  Ok батырмасын  шертеміз.

(Егер  сұрақтың  құрылымында  сурет  кездесетін  болса,  онда  Additional  парақшасынан  Image  батырмасын  таңдап,  оның  Stretch  қасиетін True деп,  Picture… – Load…(сурет орнату)  таңдаймыз.)

Дәл  осындай  әрекетпен  төрт  рет  қайталаймыз.

Сұрақтар:

ТЕСТ ТУРАЛЫ парақшасының  төменгі  жағына нәтиже  шығаруға  Button батырмасын; жауаптар үшін  Label3,  Label4   қосамыз. 

Код:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, jpeg, Buttons, ComCtrls;

type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    BitBtn1: TBitBtn;

    Image1: TImage;

    Image2: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Memo1: TMemo;

    ScrollBox1: TScrollBox;

    RadioGroup1: TRadioGroup;

    RadioGroup2: TRadioGroup;

    RadioGroup3: TRadioGroup;

    RadioGroup4: TRadioGroup;

    RadioGroup5: TRadioGroup;

    Button1: TButton;

    Label3: TLabel;

    Label4: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

    procedure ScrollBox1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  ball:integer;

  type  ansvers = array [1..5,0..3] of byte;

  const otv:ansvers=((0,1,0,0),(0,0,1,0),(0,0,1,0),(0,1,0,0),(1,0,0,0));

  implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

ball:=otv [1,radiogroup1.ItemIndex]+

          otv [2,radiogroup2.ItemIndex]+

          otv [3,radiogroup3.ItemIndex]+

           otv [4,radiogroup4.ItemIndex]+

           otv [5,radiogroup5.ItemIndex];

           label3.Caption:='5 сурактын'+IntToStr(ball)+'-не дурыс жауап бердiн';

           if ball=5

           then label4.Caption:= 'Жарайсын. Оте жаксы'

           else

               if (ball=3) or (ball=4)

               then label4.Caption:='Жаксы'

                else  label4.Caption:='Канагаттанарлык'

end;

end.

Пайдаланылған  әдебиеттер:

1.       Ғаламтор  сайттары.

2.      Delphi  ортасында  бағдарламалау (Әдістемелік  құрал).