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 bahongiz '+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 mumkin.
Mavzu yuzasidan topshiriqlar:
1. Delphi dasturida 10 ta test savollari blankini tayyorlang.
2. Testni .exe formatda nashr qiling.
3. AutoPlay dasturida pedagogik dasturiy vositalar fanidan elektron majmua tayyorlang.
4. Elektron majmuaga test topshiriqlari, video, rasm kabi ma’lumotlar joylashni mustaqil
o’rganing.
5. Elektron majmuani didaktik materiallar bilan boyiting.
|
