title: Kalit so‘zlar - Qarshi davlat universiteti international scientific and practical conference on algorithms and current...
text: 392
  Object Inspektor
  oynasining
  Captions
  bandiga “
  Test
  ” deb yoziladi. Bu ishni yana bir marta
  takrorlab “
  Yordam
  ” nomli ikkinchi tabshet hosil qilinadi. Ikkinchi tabshet test haqida
  ma’lumot yozish uchun kerak bo‘ladi. Formaga
  Standart
  tabshetidan bitta
  Label
  joylashtiriladi.
  Label
  belgilangan holda,
  Object Inspektor
  oynasining
  Captions
  bandiga test
  nomi kiritiladi (2-rasm).
  2-rasm. PageControlga ikkita tabshet va Label joylashtirish.
  Additional
  tabshetidan bitta
  ScrollBox,
  PageControl
  ichiga joylanadi. Bu
  ScrollBox
  test
  savollari ko‘payib ketgan paytda vertikal suzuvchi oyna hosil qilish uchun kerak.
  ScrollBox
  belgilangan holda
  Object
  Inspektor
  oynasidan
  Align
  bandi
  alTop
  tanladi. Savollar blankini
  joylashtirish uchun
  Standart
  tabshetidan
  RadioGroup,
  ScrollBox
  ichiga joylashtiriladi.
  RadioGroup
  belgilanib
  Object
  Inspektor
  oynasining
  Caption
  bandiga test savol kiritiladi.
  Items
  bandiga javoblar to‘rtta satrga kiritiladi (3-rasm).
  3-rasm. RadioGroup joylashtirish.
  Bu yerda to‘g‘ri javoblar qaysi variantda berilayotganiga e’tibor qaratish talab etiladi va
  ularni oddiy bloknotga qayd qilib borish kerak. Masalan: ((1,0,0,0),(0,0,1,0)) mana bunday
  ko‘rinishda. Bu yerda birinchi to‘rttalik birinchi savolni, har bittta bir va nollar esa
  variantlarning to‘g‘ri yoki noto‘g‘ri ekanini bildiradi. Berilgan misolda ikkita savol va
  birinchi savolga birinchi variant to‘g‘ri, ikkinchi savolga uchinchi variant to‘g‘ri ekani
  ko‘rsatilgan. Demak, shu tartibda barcha savollarni joylab bo‘lgach Standart tabshetidan
  bitta Button va Label joylashtiriladi. Tugma ustiga sichqoncha tugmasi ikki marta bosiladi.
  Ochilgan Unit1.pas oynasiga quyidagicha kod kiritiladi.
  ball:=otv[1,radiogroup1.ItemIndex]+otv[2,radiogroup2.ItemIndex];
  label2.Caption:=‘Sizning bahoyingiz’+IntToStr(ball);
  Bu yerda ikkita savol uchun kod yozilgan. Agar savollar soni ko‘p bo‘lsa har bir savol
  uchun bitta otv[N,radiogroupN.ItemIndex] qo‘shib boriladi.
  Bu koddan yuqoriroqda
  var
  Form1: TForm1;
  dan keyin
  ball:integer;
  type answers=array[1..2,0..4] of byte;
  const otv:answers=((1,0,0,0),(0,1,0,0));
  kodini kiritish kerak. Bu yerda massiv ikkita savol va har bir savol uchun to‘rtta
  variantga moslangan. Yordam tabshetiga Label joylashtirib testga qisqacha izoh yozish ham
  mumkin.