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

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 ортасында бағдарламалау (Әдістемелік құрал).