Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Дельфи бағдарламасында тест құру

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

  • Информатика

Поделитесь материалом с коллегами:

hello_html_10402d0f.gifhello_html_6092b9c2.gifhello_html_m1f6a974d.gifhello_html_m1b08fc29.gifDelphi бағдарламасында тест дайындау


Үлгі:


hello_html_m18a547e6.pnghello_html_m18f83788.png

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

hello_html_10238b3f.png



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







hello_html_m6d7b0e0d.png

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

hello_html_m5b0bcdc.png

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






hello_html_27e5f226.png


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





hello_html_m5e8fe908.png

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






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

hello_html_macb51ae.png


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



hello_html_2d273596.png








hello_html_mf724287.png















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

WordWrapTrue



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

Auto Size – false

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

Label2 Height – 100, Width - 300

Layout - tlCenter

Alignment - taCenter

WordWrapTrue



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

StretchTrue

Image Height – 285

Width - 300

ShowHint - True


hello_html_m2be2d453.png



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

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

hello_html_m5492ff93.png










hello_html_17af4903.png











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

hello_html_3f77ef51.png

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

hello_html_m3dcfdfcc.png

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

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


hello_html_13c0a862.png

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

Сұрақтар:

hello_html_m82d48a9.pnghello_html_m76387c3e.pnghello_html_m70f35a1e.pnghello_html_59b81b00.pnghello_html_m2beda12a.png

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

Код:


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

Выберите курс повышения квалификации со скидкой 50%:

Автор
Дата добавления 01.09.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров372
Номер материала ДA-024827
Получить свидетельство о публикации

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх