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



Дата17.06.2018
өлшемі0,51 Mb.
Delphi бағдарламасында тест дайындау
Үлгі:

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







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





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



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



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





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



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

Каталог: uploads -> doc -> 12dc
doc -> Сабақ тақырыбы: Шерхан Мұртаза «Ай мен Айша» романы Сабақ мақсаты: ҚР «Білім туралы»
doc -> Сабақтың тақырыбы Бала Мәншүк ( Мәриям Хакімжанова) Сілтеме
doc -> Ана тілі №2. Тақырыбы: Кел, балалар, оқылық Мақсаты
doc -> Сабақ жоспары «Сәулет және дизайн» кафедрасының арнаулы пән оқытушысы, ҚР «Еуразиялық Дизайнерлер Одағының» мүшесі: Досжанова Галия Есенгелдиевна Пәні: Сурет және сұңғат өнері
doc -> Сабақ Сабақтың тақырыбы : Кіріспе Сабақтың мақсаты : «Алаштану» курсының мектеп бағдарламасында алатын орны, Алаш қозғалысы мен Алашорда үкіметі тарихының тарихнамасы мен дерекнамасына қысқаша шолу
doc -> Тәрбие сағаттың тақырыбы: Желтоқсан жаңғырығы
doc -> Сабақтың тақырыбы : Әбунасыр Әл- фараби Сабақтың мақсаты
doc -> Сабақ жоспары Тақырыбы: Үкілі Ыбырай Мектеп:№21ом мерзімі
12dc -> Сынып жетекшісінің қызметі Сынып жетекшісі
12dc -> Қазталов аудандық балалар жасөспірімдер туризмі және экология орталығы


Достарыңызбен бөлісу:


©engime.org 2017
әкімшілігінің қараңыз

    Басты бет