Mirsaid Aripov, Nurillo Otaxanov

11.8-listing. Harakatlanayotgan aylana

var

x,y: byte;  aylana markazining koordinatalari

dx: byte;  x koordinatasining surilishi

 o`chirish va yangi joyda aylana chizish

procedure Ris;

begin

 aylanani o`chirish

form1.Canvas.Pen.Color:=form1.Color;

form1.Canvas.Ellipse(x, y, x  30, y  30);

x : x  dx;

 aylanani yangi joydan chizish

form1.Canvas.Pen.Color : clBlack;

form1.Canvas.Ellipse(x, y, x  30, y  30) ;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Ris;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

x : 0; y : 10; dx : 5;

timer1.Interval : 50;

 OnTimer xodisasining ro`y berishi -0.5 sek

form1.canvas.brush.color : form1.color;

end;

Ushbu dasturda asosiy vazifani Ris protsedurasi bajaradi. U aylanani o`chiradi va yangi pozitsiyadan chizadi. Aylanani o`chirish uchun uni fon rangi bilan bir hil rangda qayta chiziladi.

Formaga Ris protsedurasini davriy chaqirish uchun ko`rinmaydigan Timer (taymer) komponentasi kiritilgan. Uning nishoni System qurollar panelida joylashgan. Timer komponetasining hususiyatlari 11.9-jadvalda keltirilgan. Bu komponenta novizual bo`lgani uchun formaning ixtiyoriy joyiga o`rnatish mumkin.

Timer komponentasi OnTimer xodisasini qayd qiladi. Bu xodisa millisekundlarda o`lchanadi va Interval hususiyati bilan aniqlanadi. Enabled hususiyati dasturga taymerni "ishga tushirish" yoki "to`xtatib qo`yish" ga ruxsat beradi. Agar Enabled - False bo`lsa, OnTimer xodisasi ro`y bermaydi.

OnTimer hodisasi yuqoridagi dasturda Timer1Timer protsedurasi bilan qayta ishlanadi. U o`z navbatida Ris protsedurasini ishga tushiradi. Dasturda Ris protsedurasini davriy ravishda, vaqti-vaqti bilan ishga tushirish mexanizmi qo`llangan.

Eslatma: x va y o`zgaruvchilar (aylana markazining koordinatalari) va dx (aylananing surilishi) Ris protsedurasidan tashqarida, global o’zgaruvchi sifatida e`lon qilingan. Shuning uchun ularni initsializatsiya qilish lozim (dasturda global o`zgaruvchilar initsializatsiyasi FormActivate protsedurasida amalga oshiriladi).