10-sinf informatika 16. pdf

Birinchi tugrna bosilganda nirna qilish kerakligini ko'rsatish uchun uni ikki rnarta bosarniz va kursor turgan joyga quyidagi kodni kiritarniz:
If Forml.Width<600 then begin Forml.Width:=Forml.Width+16;
Forml.Height:=Forml.Height+9; End else begin
Button2.Visible:=True; Buttonl.Enabled:=False; end;
Ikkinchi tugrnani ikki rnarta bosib quyidagi dastur bo'lagini kiritarniz:
If Forml.Width>400 then begin Forml.Width:=Forml.Width-16;
Forml.Height:=Forml.Height-9; End else Button2.Visible:=False;


if Forml.Width<600 then Buttonl.Enabled:=True;
100

SAVOL VA TOPSHIRIQLAR

1. 
   Visible xossasi qanday vazifa bajaradi?
   
2. 
   Enabled xossasi qaysi obyektlarda uchraydi?
   
3. 
   Beshinchi ilovani shunday o'zgartiring-ki, uning oynasi bo'yi va eni mos ravishda 5 va 8 qadam bilan o'zgarsin.
   
4. 
   Beshinchi ilovani shunday o'zgartiring-ki, uning oynasi enining qiymati 500 dan 800 gacha bo'lsin.
   
5. 
   Beshinchi ilova tugmalardagi yozuvlami a->A va A->a ga o'zgartiring.
   

UYGA VAZIFA

1. 
   Visible xossasi qaysi obyektlarda uchraydi?
   
2. 
   Enabled xossasi qanday vazifa bajaradi?
   

1. 
   Delphida yangi ilova yarating va uni 04_01 papkaga saqlab qo'ying.
   
   1. 
      Ilova oynasiga uchta Label va uchta Button obyektini joylang.
      
   2. 
      Ulardan birinchilarining Enabled (faol) va Visible (ko'rinadigan) xossalarini o'zgartirmang. Ikkinchilarida Enabled (faol) xossalarini, uchinchilarida esa Visible (ko'rinadigan) xossalarini False (yolg'on) qilib o'mating.
      
   3. 
      Ilovani ishga tushirib, undagi o'zgarishlami kuzating.
      
   4. 
      Ilovani saqlang va uni yoping.
      
2. 
   Yangi ilova yarating va uni 04 02 papkaga saqlang.
   
   1. 
      Unga to'rtta Button obyektini ikki ustun qilib joylang.
      
   2. 
      Ulardan birinchisi ikkinchi ustundagilarining, ikkinchisi esa birinchi ustundagilarining faolligini, uchinchi va to'rtinchilari esa ko'rinmasligini har safar teskarisiga o'zgarsin.
      
   3. 
      Birinchi tugmani ikki marta bosib, uning protsedurasiga:
      

101

Button2.Enabled:=not Button2.Enabled; Button4.Enabled:=not Button4.Enabled; ikk:inchi tugrna protsedurasiga Buttonl.Enabled:=not Buttonl.Enabled; Button3.Enabled:=not Button3.Enabled; uchinchi tugrna protsedurasiga Button2.Visible:=not Button2.Visible; Button4.Visible:=not Button4.Visible; to'rtinchi tugrna protsedurasiga Button2.Visible:=not Button2.Visible; Button4.Visible:=not Button4.Visible; operatorlami kiriting.

4. 
   Ilovani ishga tushirib, to'g'ri ishlashini tekshiring.
   
5. 
   Ilovani saqlab, uni yoping.
   
1. 
   Oldingi darsdagi rnashqlami kornpyuterda bajaring.