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

1.43-rasm. Compact Disk Player dastur formasi

// Play/Stop tugmalar uchun rasmlar

Graphics::TBitmap *bmPlay; // Play

Graphics::TBitmap *bmStop; // Stop

// эти макросы обеспечивают перевод интервала времени

// выраженного в миллисекундах, в минуты и секунды

#define MINUTE(ms) ((ms/1000)/60)

#define SECOND(ms) ((ms/1000)%60)

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

bmPlay = new Graphics::TBitmap();

bmStop = new Graphics::TBitmap();

// Play/Stop tugmalar uchun rasmlarni yuklash

bmPlay->LoadFromResourceID((int)HInstance,101);

bmStop->LoadFromResourceID((int)HInstance,102);

// rasmni tasvirlash

SpeedButton2->Glyph->Assign(bmPlay);

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

MediaPlayer1->Notify=true; //Notify xodisasiga ruxsat

}

// joriy trek xaqida ma’lumotlarni Label1 ga chiqarish

void __fastcall TForm1::TrackInfo()

{

int ms; // jaranglayotgan trek vaqti, msek

AnsiString st;

Track = MCI_TMSF_TRACK(MediaPlayer1->Position);

MediaPlayer1->TimeFormat = tfMilliseconds;

ms = MediaPlayer1->TrackLength[Track];

MediaPlayer1->TimeFormat = tfTMSF;

st = IntToStr(SECOND(ms));

if (st.Length()==1)

st = "0" + st;

st="Trek "+IntToStr(Track)+". Davomiyligi "+

IntToStr(MINUTE(ms)) + ":" + st;

Label1->Caption = st;

}

// pleyer xolati o’zgarishi

void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)

{