Анимация және графиктерді көрсететін компоненттермен жұмыс Орындау уақыты: 2 сағат Рейтинг: 1 балл

Жұмыстың мақсаты:

Жұмысты қамтамасыз етуші анимация және графика компоненттер үшін оқиғаны өңдеушіні құрып және оларды қойып үйрену.

Орындалу тәртібі:

1-кезең. Delphi бағдарламасын жүктеу және жобаны құру

7. Delphi бағдарламасын жүктеңіз.

8. Терезе тақырыбына «Компоненты для отображения графики и анимации» деп беріңіз.

2-кезең. Көпбетті блокнотпен TPageControl жұмыс

1. Көпбетті блокнотты құруды қамтамасыз ететін палитрада екі басқару элемент компоненттері бар. Бұлар TTabControl және TpageControl компоненттері.

Формаға TPageControl компонентін (панель Win32) орнатыңыз, Align қасиетінен AlClient белгісін беріңіздер.

2. Компонент TPageControl компоненті бірін-бірі жасыратын бірнеше тақталар TTabSheet класында болуы мүмкін. Әрбір тақташа өзімен байланысты закладкасын таңдайды және компоненттерге орналастырылған өзінің терімдері болуы мүмкін.

3. Құрылушы кезеңіне жаңа тақта қосу үшін, тышқанның оң жақ батырмасын компонентке шертіп және New Page таңдаңыз.

3-кезең.TPaintBox компонентімен жұмыс

1. Жаңа беттің тақырыпшасын орнату үшін Caption қасиетін қолданыңыз. Бірінші бет үшін тақырыбын - TPaintBox орнатыңыз.

2. Панельге TBitBtn (Additional панелінен)батырмасын орнатыңыз. Buttons немесе Demos\Doc\Graphex каталогынан Pencil.bmp пиктограммасын батырмаға (Glyph қасиеті) суреттеңіз.Тақырып батырмасына– Нарисовать.

3. Панельге тағыда бір TBitBtn батырмасын орналастырыңыз. Buttons каталогынан Clear.bmp пиктограммасын батырмаға суреттеңіз.Тақырып батырмасына – Стереть.

4. Формаға TPaintBox (System панелінен) компонентін орналастырыңыз. Align қасиетінен AlClient мағынасын беріңіз.

4. TPaintBox компоненті– өз бетімен бейнелеулердің сурет салуына арналған терезе. Канва қасиетінің құрамында Canvas компоненті бар, графикалық құралдар –Font қасиетінде Pen және Brush. Канва бойынша қызыл түсті эллипсті суреттелетін, Нарисовать батырмасы үшін оқиға өңдеушісін құрыңыз. Эллипсте Delphi жазуы міндеті түрде болу керек.

5. Өңдеушіге бүтін түрдегі екі өзгерткішті суреттеңіз: var x, y : integer;

6. Қызыл түске бояу үшін міндетті түрде келесі оператор жазыңыз: PaintBox1.Canvas.Brush.Color := clRed; Барлық қасиеттер және суреттеу әдісі Canvas қасиетіндегі TPaintBox компонентіне жатады. Операторды қысқарту үшін алдыңғы оператордың орнына қосылу операторына жазыңыз: With PaintBox1.Canvas Do

7. Түсті беретін қаламға операторлар жақшаларды ашып және операторды жазыңыз:

begin Brush.Color := clRed;

8. Канва геометриялық фигураларды суреттейтін әдістерін құрайды. Контейнердің барлық аймағын алатын эллипсті салыңыз. Операторды енгізіңіз

Ellipse(0,0,Width,Height);

9. Font : TFont қасиеті канваның шрифтін анықтайды. Шрифттің биіктігін анықтаңыз және операторды енгізіңіз.

Font.Size := Height div 5;

10. Шрифттің түсін беріңіз:

Font.Color := clWhite;

11. TPaintBox компонентіне шыққан мәтінді нүктенің координатын анықтаңыз. Операторды енгізіңіз:

x := (Width – TextWidth (‘Delphi’)) div 2;

y := (Height – TextHeight(‘D’)) div 2;

12. TextOut әдісі(x, y : integer; const Text: string); үшбұрыштың сол жақ үстінгі жағында (x, y) нүктесінде орналасқан мәтінді қамтитын мәтіндік жолды Text енгізіңіз. Енгізіңіз

TextOut(x, y, ‘Delphi’);

end;

13. Форма терезесіне ауысып, BitBtn2 батырмасы үшін оқиғаны өңдеуші OnClick құрыңыз. Өңдеуші суреттеу үшін контейнерді тазалауға арналған. Refresh әдісін қолдана отырып, бейнені қайта салуына тура келеді, яғни өткен жағдайдағы компонент қайта қалпына келеді. Операторды енгізіңіз PaintBox1.Refresh;

14. Қосымшаны орындауға жіберіңіз. Нарисовать батырмасын, содан соң Стереть басыңыз.

4-кезең. TAnimate компонентімен жұмыс

1. Canvas қасиеті көп компоненттеріне ие, соның ішінде формада. На канва компонентіне геометриялық фигураларды, мәтінді салуға болады және бөлек нүктелерден әр түрлі оюларды және растрлық бейнелерді суреттеулерді құрастыруға болады.

Көпбетті блкнотты New Page командасымен закладка құру үшін контексттік мәзірден TPageControl (закладкаға шертіңіз) компонентін алыңыз.

2. Беттің тақырыбына TAnimate белгісіне енгізіңіз.

3. TAnimate (панель Win32) компоненті AVI форматтағы бейнеклиптерді ойнатады. TAnimate компонентін блокноттың екінші бетіне апарыңыз.

4. FileName қасиеті AVI-файлды компонентімен байланыстырады. Стандартты анимацияны қолдану үшін мүмкіндік беретін CommonAVI қасиеті констант тізімінен тұрады. CommonAVI компонент қасиетінен AVIDeleteFile белгісін таңдаңыз.

5. TProgressBar (панель Win32) компоненті бейнелерді ұзақ уақыт бойына жүретін процесті үшін арналған. Формаға компонентті орнатыңыз және оның Visible қасиетінен False белгісіне орнатыңыз.

6. TTimer (панель System) компоненті нақтылы уақыт ішінде аралықтарды санап шығуына арналған. Формаға компоненті апарыңыз және Enabled қасиетінен False қасиетін орнатыңыз.

7. Оның Interval қасиеті миллисекундтағы уақыт аралығын,яғни таймердің қосылуынан бастап енуіне дейінгі OnTimer оқиғасы өтуі қажет. Interval қасиетін 100 тең етіп орнатыңыз.

8. Форманың ортасына стандартты Нажмите батырмасын орнатыңыз және оған OnClick өңдеушіні құрыңыз.

9. Операторды енгізіңіз:

Для запуска видеоклипа Animate1.Active := True;

Для получения изображения компонента ProgressBar1 ProgressBar1.Show;

Для включения таймера Timer1.Enabled := True;

10. Enabled қасиетінен True белгісі орнаған кезде Таймер қосылады. Enabled қасиеті False белгісі болмайынша, қосылған таймер бүкіл уақыт бойы OnTimer оқиғасын шақыра береді. Timer1 компонентіне өңдеуші оқиға OnTimer орнатыңыз. Компонентті ерекшелеп алыңыз және Events вкладкасынан OnTimer жолына екі рет шертіңіз.

11. Position қасиетінен TProgressBar компоненті бейненің ауқымдық белгісінен тұрады.

Оператор енгізіңіз ProgressBar1.Position := ProgressBar1.Position + 1;

12. Position қасиеті максиалды ауқымына жеткенде бейнеклип жұмысы тоқтауы тиіс.

Операторды енгізіңіз:

if ProgressBar1.Position >= ProgressBar1.Max then

begin Timer1.Enabled := False;

ProgressBar1.Hide;

Animate1.Stop;

end;

13. Қосымшаны жүктеңіз. Батырмаға басыңыз. TAnimate компонент жұмысына назар аударыңыз және бағдарламаны аяқтаңыз.

5-кезең.TMediaPlayer компонентімен жұмыс

1. Көпбетті блкнотты New Page командасымен закладка құру үшін контексттік мәзірден TPageControl (закладкаға шертіңіз) компонентін алыңыз. Беттің тақырыбына TmediaPlayer белгісіне енгізіңіз.

2. TMediaPlayer компоненті өзімен бірге батырмалар терімдері әр түрлі мультимедиялық құрылғыларды басқару үшін арналған. Блокноттың үшінші бетіне TMediaPlayer компонентін орнатыңыз.

3. Бұл компонент мультимедиялық құрылғылармен басқаруға мүмкіндік береді. DeviceType қасиеті басқару үшін құрылғының түрін анықтайды. Бұл қасиеттің тізім белгілерін ашыңыз, мазмұнымен танысыңыз және dtAutoSelect (түрін автоматты түрде анықтайды)белгісін орнатыңыз.

4. TListBox компонентін формаға орнатыңыз. Оның Items қасиетіне белгілерін енгізіңіз: Ding, Chord, Ctmelogy, Chimes.

5. Бұл аттар стандартты дауысты Windows файылдары. MediaPlayer1 көмегімен дәл осы сөздер тыңдалынады. MediaPlayer1 компоненті үшін OnClick өңдеуші оқиғасын құрыңыз.

6. Тізім бойынша тыңдалатын файлы ат бойынша анықталады. Егер тізімнен бір элемент таңдалмаса, онда ойнатқыш жұмыс жасамайды.

Операторды енгізіңіз if ListBox1.ItemIndex <0 then Exit;

7. Стандартты дауысты файлдар ауқымды wav болады. Файл атын анықтаңыз

MediaPlayer1.FileName := ListBox1.Items[ListBox1.ItemIndex]+’.wav’;

8. Назар аударыңыз, процедура тақырыбынан анықтауға болатын және қай компоненттен қандай батырма басылған туралы Button параметрі орналасқан. Әрбір батырмада өзінің аты орналасқан. btPlay – іске қосылатын батырмасы. Теріңіз

if Button = btPlay then begin MediaPlayer1.Open; MediaPlayer1.Play; end;

9. Open файл әдісі үшін воспроизведения ашылады, ал Play әдісі воспроизведение wav-файлын белсенді етеді. Пауза және Стоп батырмалары үшін де ұқсас операторлар сияқты қолдануға болады. Енгізіңіз

if Button = bt Pause then MediaPlayer1.Pause; if Button = btStop then MediaPlayer1.Stop;

10. Бағдарламаны орындауға жіберіңіз. Бірінші файлдағы тізімді тышқанмен ерекшелеп және Play батырмасына басыңыз.Қосымшаны жабыңыз.

6-кезең.TShape компонентімен жұмыс

1. Көпбетті блкнотты New Page командасымен закладка құру үшін контексттік мәзірден TPageControl (закладкаға шертіңіз) компонентін алыңыз. Беттің тақырыбына Tshape белгісіне енгізіңіз.

2. TShape (панель Additional) компоненті жай ғана фигураларды салады. Tshape компонентін жаңа бетке орналастырыңыз.

3. TUpDown (панель Win32) компонентін жаңа бетке орналастырыңыз.

4. Бұл компонент сандық ауқымды бақылау үшін арналған. Max қасиетінен максимальды белгісі орнатылады. Бұл белгісін 5 тең етіп орналастырыңыз.

5. UpDown компонентіне шерткен кезде OnClick оқиғасы пайда болады. OnClick ( UpDown компонентіне екі рет шерту арқылы болады) өңдеуші оқиғасын құрыңыз.

6. Shape қасиеті фигураның түрін анықтайды. Ол константамен беріледі. Position қасиетінен байланысты UpDown1 компоненті Shape1 компонентінде фигураның түрін өзгертеді. Операторды енгізіңіз:

case UpDown1.Position of

0: Shape1.Shape := stRectangle;

1: Shape1.Shape := stSquare;

2: Shape1.Shape := stRoundRect;

3: Shape1.Shape := stRoundSquare;

4: Shape1.Shape := stEllipse;

5: Shape1.Shape := stCircle;

end;