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

if (Label1->Visible)

Label1->Visible = false;

else Label1->Visible = true;

}

}

// foydalanuvchi dastur oynani yopdi

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)

{

MediaPlayer1->Stop();

MediaPlayer1->Close();

}

// oldingi trek

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)

{

MediaPlayer1->Previous(); //joriy trek boshiga

MediaPlayer1->Previous();//oldingi trek boshiga

if (MCI_TMSF_TRACK(MediaPlayer1->Position)==1)

SpeedButton1->Enabled = false;

if (!SpeedButton3->Enabled)

SpeedButton3->Enabled = true;

TrackInfo();

Label2->Caption = "0:00";

}

// keyingi trek

void __fastcall TForm1::SpeedButton3Click(TObject *Sender)

{

MediaPlayer1->Next();

// agar oxirgi trekka kelinsa, unda Next tugmasini

// murojaatsiz qilish kerak

if (MCI_TMSF_TRACK(MediaPlayer1->Position) ==

MediaPlayer1->Tracks)

SpeedButton3->Enabled = false;

if(!SpeedButton1->Enabled)

SpeedButton1->Enabled=true;

TrackInfo();

Label2->Caption = "0:00";

}

// Play/Stop tugmasini bosish

void __fastcall TForm1::SpeedButton2Click(TObject *Sender)

{

if ( SpeedButton2->Tag == 0 ) {

// Play tugmasini bosish

MediaPlayer1->Play();

SpeedButton2 ->Glyph->Assign(bmStop) ;

SpeedButton2->Hint = "To’xtash";

SpeedButton2->Tag = 1;

//SpeedButton3->Enabled = true;// "keyingi trek"

// tugmasi murojaatli

MediaPlayer1->Notify = true;

Timer1->Enabled = true;

TrackInfo();

}

else {

// щелчок на кнопке Stop

SpeedButton2->Glyph->Assign(bmPlay);

SpeedButton2->Hint = "Tiklash";

SpeedButton2->Tag = 0;

MediaPlayer1->Notify = true;

MediaPlayer1->Stop();

Timer1->Enabled = false;

}

}

Video Player

Video Player dasturi, uning oyna va forma ko’rinishi 1.44 va 1.45 rasmlarda keltirilgan, AVI yoki MPG formatdagi videoroliklarni ko’rish imkon beradi. Kliplarni tanlash Eject (SpeedButton1) tugmasini bosish natijasida murojaatli bo’ladigan Faylni ochish standart oynasida amalga oshiriladi. SpeedButton2 tugmasi tiklash jarayonini faollashtirish uchun, hamda uni to’xtatish uchun kabi ishlatiladi. Tugma uchun rasmlar dastur resursidan yuklanadi. E’tibor beringki, dastur videorolik kadrlar o’lchamini aniqlaydi. Bu ekranni forma markaziga joylashtirish imkonini beradi, va agarda kadrlar o’lchami forma ish soxasi o’lchamidan oshib ketsa, masshtablashtirish bajariladi.