Ko’rildi” O’quv ishlari bo’yicha direktor o’rinbosari: A. Niyozov

YODDA SAQLANG !
Bayroqcha o‘rnatilgan bo‘lsa, unga mos amal bajariladi, tushirilgan bo‘lsa bajarilmaydi. SAVOL VA TOPSHIRIQLAR
1. Bayroqchalar qanday vazifa bajaradilar?
2. Ilovaga bayroqchalar qaysi obyekt yordamida kiritiladi?
3. Bayroqchalarning o‘rnatilganligi qaysi xossasi yordamida tekshiriladi?
4. Global o‘zgaruvchilar qayerda tavsiflanadi?
5. O‘zgaruvchilarga boshlang‘ich qiymatlarni qayerda berish mumkin?
6. Faol o‘quvchilar so‘rovnomasi o‘tkazuvchi ilova yarating.
7. Mohir o‘qituvchilar so‘rovnomasini o‘tkazuvchi ilova yarating.
UYGA VAZIFA :
1. Global va lokal o‘zgaruvchilar bir-biridan nima bilan farq qiladi?

Qiziqarli fanlar so’rovnomasini o’tkazish ilovasi

Global o’zgaruvchini dasturga kiritish
var
Form1: TForm1;
n: array[0..4] of integer;
OK tugmasiga quyidagi protsedurani kiritamiz:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
n[0]:=n[0]+1;
i:= Radiogroup1.Itemindex; if i>=0 then n[i+1]:=n[i+1]+1;
Radiogroup1.Itemindex:=-1;
end;


Natijalar tugmasiga quyidagi protsedurani kiritamiz:
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:='Qatnashchilar: '+Inttostr(n[0]);
Label1.Caption:=Label1.Caption+'Matematika:' + Inttostr(n[1]);
Label1.Caption:=Label1.Caption+'Fizika:' + Inttostr(n[2]);
Label1.Caption:=Label1.Caption+'Kimyo:' + Inttostr(n[3]);
end;
Radiogroup boshqarish obyekti xossalari


Belgisi- o’ngdan 3-

Items – variantlar

Itemindex - variant indeksi

Columns – ustunlar

Caption – nom berish

Dasturda berilishi-Radiogroup1.Itemindex

Radiogroup2.Itemindex