Программа кодының терезесі. Delphi ортасы программист жұмысының ӛте жоғары тиімділігін қамтамасыз ететін орта



Pdf көрінісі
бет102/122
Дата27.03.2022
өлшемі1,24 Mb.
#28970
түріПрограмма
1   ...   98   99   100   101   102   103   104   105   ...   122
Байланысты:
Дәріс (2)

Листинг:

uses 

Windows, Messages, SysUtils, 

Classes, Graphics, Controls,  

Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls; 



type 

TForm1 = class(TForm) 

Label1: TLabel; Panel1: TPanelButton1: 

TButtonMediaPlayer1: TMediaPlayer; procedure 

ButtonlClick(Sender: TObject); 

procedure FormCreate(Sender: TObject);  

private 

{ Private declarations ) public 

{ Public declarations } end; 

var 

Form1: TForm1 ; 



implementation 

($R *.DFM} 



procedure TForm1.ButtonlClick(Sender: TObject); 

begin 

MediaPlayer1.Play;  



end; 

procedure TForm1.FormCreate(Sender: TObject); 

begin 

MediaPlayer1.DisplayRect:=Rect(0,0,60,60); 



end; 

end. 

 

Анимацияны құру  

Мысал:  

 

 Дельфи храмының эскизі 



 

1  


 

2  


 


 

60 


 

 



 

5  



 

6  


 

7 ... 


 

37 


Бұл есепті шешу үшін Macromedia Flash 5 программасын қолдануға болады. 

 

Movie  терезесі 

 

 Movie Propertiesтерезесіндегі мінездемелер



Бірінші  кадрды  жәй  ғана  салу  керек.  Ол  үшін  :  қарындаш,  ӛшіргіш  сияқты  стандартты 

құралдарды пайдаланса жеткілікті. . 

Келесі  кадрды  құру  үшін  Insert  менюінен      Keyframe  командасын  таңдау  керек.  Нәтижесінде 

алдыңғы кадрге келесі кадр қосылады. Енді екінші кадрды салуға болады. Тура осылайша келесі кадрлер 

құрылады.  

Шығарылатын  анимация  дыбыспен  байланысуы  үшін  алдыменен  сәйкес  дыбыстық  файлды 

қолдануға мүмкіншілік алк керек. Ол үшін  File менюінен  Import  командасын таңдап алу керек те оны 

дыбыстық файлдың проектіне қосу керек.: 




 

61 


 



Достарыңызбен бөлісу:
1   ...   98   99   100   101   102   103   104   105   ...   122




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет