10-sinf informatika 16. pdf

2. Koptok ilovasi. Timer obyektidan birinchi navbatda animatsion harakat yaratish uchun foydalaniladi. Bu qanday amalga oshirilishini ko'rish uchun yangi ilova yaratamiz. Unga yetarlicha katta Image obyektini, bittadan Timer, CheckBox va SpinEdit lami joylaymiz.
Ilova oynasining Image egallagan qismida koptok harakatlansin. Koptok devorga urilganda orqasiga qaytsin. Uning harakati tezligini SpinEdit dagi qiymat belgilab bersin va u o'zgarishi bilan koptok tezligi ham o'zgarsin. CheckBox da bayroqcha o'matilgan bo'lsa, koptokning harakatlangandagi izi ham ko'rinib tursin, aks holda faqat koptokning joriy holati ekranga chiqarilsin. Koptokning holati sekundiga 20 marta (50 millisekund interval bilan) yangilab turilsin.
CheckBox ning sarlavhasini izi bilan deb o'zgartiramiz, Checked xossasini rost qilib o'matamiz. SpinEdit ning maksimal qiymatini 10 ga teng qilib olamiz. Timer ning Interval xossasini 50 ga tenglaymiz.
Ilovada koptokning joriy holatini saqlash uchun ikkita: x, y; koptok
harakatining joriy yo'nalishini saqlash uchun yana ikkita: dx, dy o'zgaruvchilar kerak bo'ladi. Ulami tavsiflovchi var x,y,dx,dy:integer; operatorini dastur kodi oynasida var Forml: TForml; dan keyinga joylaymiz. Bu o'zgaruvchilarga boshlang'ich qiymatlar berish uchun Forml ning boshqa obyektlardan bo'sh qismini ikki marta bosamiz. Dastur oynasida paydo bo' lgan TForm1.FormCreate protsedurasiga x:=0;y:=0;dx:=2;dy:=1; operatorlarini kiritamiz.
Timer obyektini ikki marta bosib uning protsedurasini quyidagicha to' ldiramiz:
procedure TForml.TimerlTimer(Sender: TObject);
150

var n:integer; begin n:=SpinEditl.Value;

if not CheckBoxl.Checked then Imagel.Canvas.Rectangle(-3,-
3,Imagel.Width+3,Imagel.Height+3); x:=x+dx*n; if x>Imagel.Width then
begin x:=2*Imagel.Width-x; dx:=-dx;end; if xif y>Imagel.Height then
begin y:=2*Imagel.Height-y; dy:=-dy;end; if yImagel.Canvas.Ellipse(x-10,y-10,x+lO,y+lO); end;