R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

1.37-rasm. Windows ohanglari dasturi Windows/Media katalogida

joylashgan ovozli fayllarni eshitishga imkon beradi

Fayllar ro’yxati dastur ishining boshlanishida shakllantiriladi. Agar uzluksiz ulagichi tanlangan bo’lsa, unda joriy fayl eshitilgandan keyin avtomatik ravishda keyingisi o’qilib ketadi. Dastur formasi 1.38-rasmda keltirilgan.


MediaPlayer1

Label2

ListBox1

ComboBox1


1.39-rasm. Windows ohanglari dastur formasi

String SoundPath;

// dastur ishining boshlanishi

void __fastcall TForm1::FormCreate(TObject *Sender)

{

wchar_t *wd; // Windows katalogi

wd = (wchar_t*)AllocMem(MAX_PATH);

GetWindowsDirectory(wd,MAX_PATH);

SoundPath = wd;

// ovoz fayllari Media qism katalogida joylashgan

SoundPath = SoundPath + "\\Media\\" ;

// ovoz fayllar ro’yxatini shakllantirish

TSearchRec sr;

if (FindFirst(SoundPath + "*.wav",faAnyFile, sr)== 0)

{

// WAV kengaytmali faylni topildi

ListBox1->Items->Add(sr.Name); // ro’yxatga fayl

// nomini qo’shish

// WAV kengaytmali fayl yana bormi?

while (FindNext(sr) == 0)

ListBox1->Items->Add(sr.Name);

}

if (FindFirst(SoundPath + "*.mid", faAnyFile,sr)==0)

{

// MID

ListBox1->Items->Add(sr.Name); // ro’yxatga fayl

// nomini qo’shish

// MID kengaytmali fayl yana bormi?

while (FindNext(sr) == 0 )

ListBox1->Items->Add(sr.Name);

}

if (FindFirst(SoundPath+ "*.rmi",faAnyFile, sr)==0)

{

// RMI kengaytmali faylni topildi

ListBox1->Items->Add(sr.Name); // ro’yxatga fayl

// nomini qo’shish

// RMI kengaytmali fayl yana bormi?

while (FindNext(sr) == 0 )

ListBox1->Items->Add(sr.Name);

}

// birinchi faylni tiklash

if ( ListBox1->Items->Count != 0)

{

Label2->Caption = ListBox1->Items->Strings[1];

ListBox1->ItemIndex = 0;

MediaPlayer1->FileName=SoundPath+ListBox1->

Items->Strings[1];

MediaPlayer1->Open();

MediaPlayer1->Play();

}

}

// ro’yxat elementiga bosish

void __fastcall TForm1::ListBox1Click(TObject *Sender)

{

if((CheckBox1->Checked)&&(MediaPlayer1->Mode==

mpPlaying))

return;

Label2->Caption=ListBox1->Items->

Strings[ListBox1->ItemIndex];

MediaPlayer1->FileName = SoundPath + Label2->Caption;

MediaPlayer1->Open();