10-sinf informatika 16. pdf

Qiziqarli fanlar ilovasi. Bayroqchalardan foydalanishni o'rganish uchun qiziqarli fanlar so'rovnornasi ilovasini ishlab chiqarniz. Bu ilova o'quvchilar orasida so'rovnorna o'tkazib, ularning qaysi fanlarga qiziqishlarini o'rganadi. Ilovani soddalashtirish uchun aniq va tabiiy fanlarning bir nechtasi bilan chegaralanarniz.

Delphida yangi ilova yaratarniz. Unga to'rtta CheskBox, ikkita Button va bitta Label obyektlarini quyidagi rasrnda ko'rsatilgandek qilib joylashtirarniz. Bova oynasi va undagi obyektlarning sarlavhalarini Caption xossalari yordarnida rasrndagidek qilib o'rnatarniz:

112

Ilova kodiga n: array[0..4] of integer; operatorini oldingi bandda ko' rsatilgan joyga kiritarniz (bitta oldingi rasrnga qarang).
Bu rnassiv elernentlariga boshlang'ich qiyrnatni berish uchun ilova oynasi Forrnl ni tanlayrniz (ilova oynasining boshqa obyektlardan bo'sh joyida sichqonchani bosarniz). Object inspector da Events (hodisalar) jildiga o'tib, undan OnCreate (yaratilayotganda) hodisasini toparniz va uning o'ng tornonidagi bo'sh katakchada sichqonchani ikki rnarta bosarniz.
Natijada ekranda dastur ilovasi oynasi va unda TForml.ForrnCreate protsedurasi paydo bo'ladi. Bu protsedurada begin dan oldin var i:integer; tavsiflash operatorini, undan keyin for i:=0 to 4 do n[i]:=0; sikl operatorini kiritarniz.
Endi ilova oynasida Buttonl ni ikki rnarta bosib, ekranning kursor turgan joyiga quyidagi dastur kodini kiritarniz.
n[O]:=n[O]+1;
if Checkbox I.Checked then n[1]:=n[1]+1; Checkbox 1.Checked:=False; if Checkbox2.Checked then n[2]:=n[2]+ 1; Checkbox2.Checked:=False; if Checkbox3.Checked then n[3]:=n[3]+ 1; Checkbox3.Checked:=False; if Checkbox4. Checked then n[4]:=n[4]+1; Checkbox4. Checked:=False;

113