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

union TVolume{

unsigned long Volume;

struct{

Word Left;

Word Right;

};

} volume;

// dastur ishining boshlanishi

void __fastcall TForm1::FormCreate(TObject *Sender)

{

PlayList("");

// установить движок регулятора громкости в

// соответствии с текущем уровнем, установленным в

//системе

waveOutGetVolume(0,&volume.Volume);

TrackBar1->Position = - volume.Left;

ListBox1->Color = (TColor)RGB(56,176,222);

}

//ko’rsatilgan katalogda joylashgan MP3-fayllar

//ro’yxatini shakllantirish

void __fastcall TForm1::PlayList(String path)

{

/* SearchRec tuzilmasi izlash shartini qanoatlantirgan fayllar xaqida ma’lumotlardan tashkil topgan*/

TSearchRec SearchRec;

ListBox1->Clear();

// MP3-fayllar ro’yxatini shakllantirish

if(FindFirst(path + "*.mp3", faAnyFile,SearchRec)!= 0)

{

// tanlangan katalogda MP3-fayllar yo’q

SpeedButton2->Enabled = false;

SpeedButton3->Glyph

->LoadFromResourceID((int)HInstance,103);

SpeedButton4->Enabled = false;

Label1->Caption="";

return;

}

// katalogda MP3 kengaytmali fayl mavjud

// bu fayl nomini ro’yxatga qo’shamiz

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

//xozircha katalogda wav kengaytmali boshqa fayl bor

while (FindNext(SearchRec)==0)

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

ListBox1->ItemIndex = 0;

Label1->Caption=ListBox1->Items->Strings

[ListBox1->ItemIndex];

SpeedButton2->Enabled = false;