A C++ Builder oynasining System komponentalar palitrasidan Media Player

---

C++ Builder dasturlash tilida Multimediyali ilovalar yaratish 
C++ Builder dasturlash tilida Media Player dasturini ishlab chiqish uchun
biz yangi oynani ochamiz va bir necha amallar ketma-ketligini bajaramiz.
a)  C++ Builder oynasining System komponentalar palitrasidan Media
Player piktogrammasini tanlaymiz. Natijada ekranda quyidagi oyna 
hosil bo‘ladi. 
Biz ushbu hosil bo‘lgan oyna ustiga sichqonchaning chap tugmasini 2 
marta chertamiz va natijada ushbu piktogrammaning dasturlash maydoni 
ochiladi. Biz shu dasturlah maydoniga quyidagi kodni kiritamiz 
void __fastcall TForm1::MediaPlayer1Click(TObject *Sender, 
TMPBtnType Button, bool &DoDefault) 
b) Dasturni kiritib bo‘lganimizdan so‘ng keying amallarni bajarishga
o‘tamiz. b) biz Standart komponentalar palitrasidan 2 marotaba 
Scroll Bar piktogrammasini tanlaymiz. Natijada ekranda quyidagi
oyna hosil bo‘ladi. 
Biz 1-Scroll Bar piktogrammasi dasturlash maydoniga quyidagi
kodlarni kiritamiz. 
TForm1::ScrollBar1Scroll(TObject *Sender, 
TScrollCode ScrollCode, int &ScrollPos) 
{ MediaPlayer1->Position = ScrollBar1->Position; 
MediaPlayer1->Play();} 
 
 

---

 
2-Scroll Bar piktogrammasi dasturlash maydoniga quyidagi kodlarni
kiritamiz 
TForm1::ScrollBar2Scroll(TObject *Sender, 
TScrollCode ScrollCode, int &ScrollPos) 
{ MediaPlayer1-> volume = ScrollBar2->Position;} 
c) Endi Win3.1 komponentalar palitrasiga o‘tib Directory List Box va 
File List Box  piktogrammasini tanlaymiz. 
 
Dastlab Directory List Box piktogrammasining dasturlash maydoniga
quyidagi kodlarni kiritamiz: 
void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender){} 
File List Box piktogrammasining dasurlash maydoniga maydoniga
quyidagi kodlarni kiritamiz. 
TForm1::FileListBox1DblClick(TObject *Sender){ 
AnsiString s; 
s = DirectoryListBox1->Directory; 
if (s[s.Length()] != '\\') 
s += "\\"; 
s += FileListBox1->Items->Strings[FileListBox1->ItemIndex]; 

---

MediaPlayer1->FileName = s; 
MediaPlayer1->DeviceType = dtAutoSelect; 
MediaPlayer1->Open(); 
MediaPlayer1->Play(); 
ScrollBar1->Max = MediaPlayer1->Length; 
ScrollBar1->Position = 0; 
d) Keyingi amallar ketma-ketligi quyidagicha amalga oshiriladi. Ya’ni 
Win3.1 komponentalar palitrasiga o‘tib Drive Combo Box  
piktogrammasini tanlaymiz.  

 
Drive Combo Box  piktogramasining dasturlash maydoniga quyidagi kodlarni
kiritamiz. 
TForm1::DriveComboBox1Change(TObject *Sender) { } 
e) Keyingi amallar ketma-ketligi quyidagicha amalga oshiriladi. Ya’ni 
Win3.1 komponentalar palitrasiga o‘tib Filter Combo Box  
piktogrammasini tanlaymiz. 

 
Filter Combo Box piktogrmmasining dasturlash maydonchasiga quyidagi
kodlarni kiritamiz. 
TForm1::FilterComboBox1Change(TObject *Sender) { } 
 
 
 

---

f) Keyingi amallar ketma-ketligi quyidagicha amalga oshiriladi. Ya’ni 
Win 32 komponentalar palitrasiga o‘tib Progress Bar 
piktogrammasini tanlaymiz. 
 
g) Keyingi amallar ketma-ketligi quyidagicha amalga oshiriladi. Ya’ni
Win 32 komponentalar palitrasiga o‘tib Track Bar
piktogrammasini tanlaymiz. 
Track Bar piktogrammasining dasturlash maydonchasiga quyidagi kodlarni
kiritamiz. 
TForm1::TrackBar1Change(TObject *Sender){ } 
h) Keyingi amallar ketma-ketligi quyidagicha amalga oshiriladi. Ya’ni 
System komponentalar palitrasiga o‘tib Timer piktogrammasini
tanlaymiz.  
 
Timer piktogrammasining dasturlash maydonchasiga qyidagi kodlarni
kiritamiz. 
TForm1::Timer1Timer(TObject *Sender) 
{ ScrollBar1->Position = MediaPlayer1->Position;} 
 
 
 

---

 
Barcha amallarni bajarib bo‘lganimizdan keyin dasturni to‘liq saqlab
bo‘lib, uni ishga tushiramiz. Tayyor bo‘lgan dastur quyidagicha ko‘rinishga
ega 
Bu Multimediali dastur ilovasi .mp3 kengaytmali fayllarni o‘qishga
mo‘ljallangan.