Mashg'ulot yakuni. Uyga vazifa berish
3-Таълим технологиялари Развитие отрасли в экономике РФ, 1702978840, 1702890998, 15-Amaliy mashg’ulot Zamonaviy multimedia tizimlari, 12314
1. Ranglar palitrasi. Piksellar xossasi yordamida qizil va yashil ranglarni turli ulushda aralashtirishdan hosil bo‘ladigan 65536 ta rangli piksellarni ekranda tasvirlaydigan ilova yaratamiz. Ilovaga Image (256×256) va Button obyektlarini quyidagi rasmda ko‘rsatilgandek joylaymiz. Button tugmasini ikki marta bosib, dastur kodiga quyidagi protsedurani kiritamiz: procedure TForm1.Button1Click(Sender: TObject); var i,j,rang:integer; begin for i:=0 to 255 do for j:=0 to 255 do begin rang:=RGB(i,j,0); Image1.Canvas.Pixels[i,j]:=rang; end; end; Ilovani ishga tushirib, qizil va yashil ranglarning aralashib, sariq rang hosil bo‘lishini ko‘ramiz: 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 larni joylaymiz. Timer obyektini ikki marta bosib uning protsedurasini quyidagicha to‘ldiramiz: procedure TForm1.Timer1Timer(Sender: TObject); var n:integer; begin n:=SpinEdit1.Value; if not CheckBox1.Checked then Image1.Canvas.Rectangle(-3,-3,Image1.Width+3,Image1.Height+3); x:=x+dx*n; if x>Image1.Width then begin x:=2*Image1.Width-x; dx:=-dx;end; if x<0 then begin x:=-x; dx:=-dx;end; y:=y+dy*n; if y>Image1.Height then begin y:=2*Image1.Height-y; dy:=-dy;end; if y<0 then begin y:=-y; dy:=-dy;end; Image1.Canvas.Ellipse(x-10,y-10,x+10,y+10); end; Beshinchi satrda CheckBox1 da bayroqcha o‘rnatilganligi tekshiriladi. Agar bu bayroqcha o‘rnatilmagan bo‘lsa, oltinchi satrda koptokning oldingi holati butun rasmni o‘chirib tashlash bilan yo‘qotiladi: Download 4.88 Mb.
|