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

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

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

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

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

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

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

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

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

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

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

Код:
unit Unit1;

interface

uses

type

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

public

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

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)

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

end.

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