Инфоурок / Информатика / Другие методич. материалы / Дельфи бағдарламасында тест құру
Обращаем Ваше внимание: Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии (2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации).

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Законы экологии», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

ПРИЁМ ЗАЯВОК ТОЛЬКО ДО 21 ОКТЯБРЯ!

Конкурс "Законы экологии"

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

библиотека
материалов

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% скидки при обучении на курсах профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 25 октября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru

Общая информация

Номер материала: ДA-024827

Похожие материалы