10-sinf informatika 16. pdf

4. Ko'pburchak diagonallari ilovasini avtomatlashtirish. Avvalgi darsda yaratilgan muntazam N burchakning diagonallari nomli ilova ishini avtomatlashtiramiz. Undagi tugmani bosganimizda ilova avtomatik tartibiga o'tsin va har sekundda ko'pburchakning burchaklari sonini bittaga oshirib, uning barcha diagonallarini chizib chiqsin. Tugma yana bir marta
141

bosilganda avtomatik tartibdan chiqib, kutish tartibiga o'tsin. Tugma yana bir marta bosilganda ilova o'z ishini davom ettirsin.

Ilovani Delphi ga qayta yuklab, unga Timer obyektini joylaymiz. Uning Enabled xossasining qiymatini yolg'onga o'tkazamiz. Buttonl tugmasining sarlavhasini Start ga o'zgartiramiz. Bu tugmani ikki marta bosib, hosil bo'lgan protseduraga quyidagi ikki operatomi kiritamiz:
Forml.Timerl.Enabled:=not Forml.Timerl.Enabled; if Forml. Timerl.Enabled =True then Forml.Buttonl.Caption:='Stop' else Forml.Buttonl.Caption:='Start'
Birinchi qatordagi operator Timerl ning faolligini Enabled xossasi yordamida teskarisiga o'zgartiradi. lkkinchi operator esa tugmadagi yozuvni Enabled qiymatiga qarab Stop yoki Start qilib o'zgartiradi.
Timer1 ni ikki marta bosib, uning protsedurasiga quyidagi uch operatomi kiritamiz:
Forml.SpinEditl.Value:=forml.SpinEditl.Value+l; if Forml.SpinEditl.Value>40
then Forml.SpinEditl.Value:=3; diagonallar;
Bu operatorlardan birinchisi SpinEditl ning qiymatini bittaga oshiradi. Keyingi operator bu qiymat 40 dan oshib ketsa, uni 3 ga teng qilib qayta aniqlaydi. Uchinchi operator berilgan ko'pburchakning tomonlari va diagonallarini chizib chiqadi.

Ilovani ishga tushirib, undagi tugmani bosamiz. Ekrandagi ko'pburchaklaming diagonallarini chizilishini kuzatamiz. Kerak paytda tugmani yana bir marta bosib, ilova ishini to'xtatib turamiz va ekrandagi ko'pburchak diagonallarini batafsil ko'rib chiqamiz. So'ng tugmani yana bir marta bosib, keyingi ko'pburchaklaming chizilishini tiklaymiz.