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


var  Form1: TForm1;  implementation



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

var 

Form1: TForm1; 



implementation 

 

 



 

 

{$R *.DFM} 



procedure TForm1.FormActivate(Sender: 

TObject);  



var 

SearchRec: TSearchRec;  




 

57 


begin 

Form1.MediaPlayer1.Play ; 

 

if FindFirst(SOUNDPATCH+'*.wav', faAnyFile, 

SearchRec) =0 then 



begin 

 

 



Form1.ListBox1.Items.Add(SearchRec.Name) ; 

 

while (FindNext(SearchRec) = 0) do 

Form1.ListBox1.Items.Add(SearchRec.Name); 

end;  

end; 

 

procedure TForm1.ListBoxlClick(Sender: 

TObject); 

begin 

 

Label2.Caption:=ListBox1.Items[ListBox1.itemlnde



x];  

 

procedure TForm1.MediaPlayerlClick(Sender: 

TObject; Button: TMPBtnType; 

var DoDefault: Boolean); begin 

if (Button = btPlay) and (Label2.Caption <> '') 

then  

begin 

 

with MediaPlayerl do begin 

FileName:=SOUNDPATCH+Label2.Caption;  

Open;  


end;  

end; 

end; 

end. 

Дыбысты  жазу 

Дыбыстық фрагментті алу үшін Windows-тың құрамындағы Звукозапись программасын 

пайдалануға боладыОл үшін Пуск | Программы | Стандартные | Развлечения | Звукозапись 

командаларын таңдак керек.

 

Звукозапись 

программасының диалогтық терезесі

WAV-файл  келесі  түрде  құрылады.    Алдымен  дыбыстың  қайнар  кӛзін  анықтау  керек.  Ол  үшін  

Параметры    менюінен  Свойства    командасын  алып  Регулятор  громкости  таңдау  керек.  Сонан  соң  

Запись айырғышын таңдап  Отображаемые регуляторы громкости  тізіміндегі керекті сигналдарды 

орнату үшін жалаушаларды таңдау керекЕнді дыбысты жазуға кӛшуге болады.  




 

58 


 



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




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

    Басты бет