Проектування користувальницького інтерфейсу в C++ Builder (стр. 4 из 4)

Label3->Visible = true;

Label4->Visible = true;

Label5->Visible = true;

Label6->Visible = true;

Label7->Visible = true;

Label8->Visible = true;

Label9->Visible = true;

Label13->Visible = true;

Label10->Visible = false;

Label11->Visible = false;

Label12->Visible = false;

Label14->Visible = false;

deltatime(1500);

break;

case 25:

Label1->Visible = false;

Label2->Visible = false;

Label3->Visible = false;

Label5->Visible = false;

Label6->Visible = false;

Label7->Visible = false;

Label8->Visible = false;

Label9->Visible = false;

Label13->Visible = false;

deltatime(300);

break;

case 26:

MediaPlayer1->FileName = "data\444777.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 27:

deltatime(300);

break;

case 28:

MediaPlayer1->FileName = "data\8349244.avi";

MediaPlayer1->Open();

MediaPlayer1->Play();

Label4->Visible = false;

break;

case 29:

Close();

break;

}

}

TForm3::deltatime(int delta){

Timer1->Interval = delta;

Timer1->Enabled = true;

}

void __fastcall TForm3::FormActivate(TObject *Sender)

{

Label1->Visible = true;

Label2->Visible = true;

Label3->Visible = true;

Label4->Visible = true;

Label5->Visible = true;

Label6->Visible = true;

Label7->Visible = true;

Label8->Visible = true;

Label9->Visible = true;

Label13->Visible = true;

Label10->Visible = false;

Label11->Visible = false;

Label12->Visible = false;

Label14->Visible = false;

step=0;

nextstep();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Timer1Timer(TObject *Sender)

{

Timer1->Enabled = false;

step++;

nextstep();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::BitBtn1Click(TObject *Sender)

{

MediaPlayer1->Close();

Timer1->Enabled = false;

deltatime(10);

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Timer2Timer(TObject *Sender)

{

nextstep();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::MediaPlayer1Notify(TObject *Sender)

{

step++;

nextstep();

}

//---------------------------------------------------------------------------

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

{

MediaPlayer1->Close();

Timer1->Enabled = false;

step=1000;

}

//---------------------------------------------------------------------------

int t=1;

void __fastcall TForm3::BitBtn3Click(TObject *Sender)

{

if(t)

{

MediaPlayer1->Notify = false;

MediaPlayer1->Pause();

}

else

{

MediaPlayer1->Resume();

MediaPlayer1->Notify = true;

}

//Timer1->Enabled = false;

}

//---------------------------------------------------------------------------

Лістинг 4. (Unit4.cpp)

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

//---------------------------------------------------------------------------

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

TForm4::deltatime(int delta){

Timer1->Interval = delta;

Timer1->Enabled = true;

}

int step=0;

TForm4::nextstep(){

switch(step){

case 0:

deltatime(200);

break;

case 1:

MediaPlayer1->FileName = "data&bsol;6565.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 2:

deltatime(200);

break;

case 3:

MediaPlayer1->FileName = "data&bsol;555.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 4:

deltatime(200);

break;

case 5:

MediaPlayer1->FileName = "data&bsol;4567.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 6:

Close();

break;

}

}

void __fastcall TForm4::Timer1Timer(TObject *Sender)

{

Timer1->Enabled = false;

step++;

nextstep();

}

//---------------------------------------------------------------------------

void __fastcall TForm4::FormActivate(TObject *Sender)

{

step=0;

nextstep();

}

//---------------------------------------------------------------------------

void __fastcall TForm4::MediaPlayer1Notify(TObject *Sender)

{

step++;

nextstep();

}

//---------------------------------------------------------------------------

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

{

MediaPlayer1->Close();

Timer1->Enabled = false;

step=1000;

}

//---------------------------------------------------------------------------

void __fastcall TForm4::BitBtn1Click(TObject *Sender)

{

MediaPlayer1->Close();

Timer1->Enabled = false;

deltatime(10);

}

//---------------------------------------------------------------------------

int t=1;

void __fastcall TForm4::BitBtn3Click(TObject *Sender)

{

if(t)

{

MediaPlayer1->Notify = false;

MediaPlayer1->Pause();

}

else

{

MediaPlayer1->Resume();

MediaPlayer1->Notify = true;

}

}

//---------------------------------------------------------------------------

Лістинг 5. (Unit5.cpp)

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

//---------------------------------------------------------------------------

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

int step=0;

TForm5::nextstep(){

switch(step){

case 0:

deltatime(300);

break;

case 1:

MediaPlayer1->FileName = "data&bsol;89674.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 2:

deltatime(300);

break;

case 3:

Image3->Visible = true;

deltatime(300);

break;

case 4:

MediaPlayer1->FileName = "data&bsol;888777.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 5:

deltatime(200);

break;

case 6:

Image3->Visible = false;

deltatime(400);

break;

case 7:

Label1->Visible = true;

Label2->Visible = true;

Label3->Visible = true;

deltatime(200);

break;

case 8:

MediaPlayer1->FileName = "data&bsol;876.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

}

}

TForm5::deltatime(int delta){

Timer1->Interval = delta;

Timer1->Enabled = true;

}

void __fastcall TForm5::FormActivate(TObject *Sender)

{

Label1->Visible = false;

Label2->Visible = false;

Label3->Visible = false;

Label4->Visible = false;

Label5->Visible = false;

Label6->Visible = false;

Label7->Visible = false;

Label8->Visible = false;

Label9->Visible = false;

Label13->Visible = false;

Label10->Visible = false;

Label11->Visible = false;

Label12->Visible = false;

Label14->Visible = false;

Image1->Visible = false;

Image2->Visible = false;

step=0;

nextstep();

}

//---------------------------------------------------------------------------

void __fastcall TForm5::Timer1Timer(TObject *Sender)

{

Timer1->Enabled = false;

step++;

nextstep();

}

//---------------------------------------------------------------------------

void __fastcall TForm5::BitBtn1Click(TObject *Sender)

{

MediaPlayer1->Close();

Timer1->Enabled = false;

deltatime(10);

}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

void __fastcall TForm5::MediaPlayer1Notify(TObject *Sender)

{

step++;

nextstep();

}

//---------------------------------------------------------------------------

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

{

MediaPlayer1->Close();

Timer1->Enabled = false;

step=1000;

}

//---------------------------------------------------------------------------

int t=1;

void __fastcall TForm5::BitBtn3Click(TObject *Sender)

{

if(t)

{

MediaPlayer1->Notify = false;

MediaPlayer1->Pause();

}

else

{

MediaPlayer1->Resume();

MediaPlayer1->Notify = true;

}

//Timer1->Enabled = false;

}

//---------------------------------------------------------------------------

Результат роботи програми

Розроблена нами програма має досить простий інтерфейс та фактично буде являти собою простий док – вьюєр скомпонованих документів, які містять інформацію для навчання.

Скрін 1. Загальний графічний інтерфейс програми.

Скрін 2. Приклад уроку по Borland C++ Builder в розробленій нами програмі

Висновки

В нашій роботі були проаналізовані питання відносно теоретичної основи побудови програм з простим інтерфейсом користувача в середовищі Borland C++ Builder а також проблеми, які виникають при цьому. Результатом цього є програма яка реалізує процес навчання програмування на даній мові програмування.

Дана програма має досить простий інтерфейс та алгоритмічну структуру.

Література

[1]Касаткин А.И., Вальвачев А.Н. Профессиональное прогрпммирование на языке Си. Мн., 1992. 240 С.

[2]Бруно Бабэ. Просто и ясно о Borland C++. М., 1996. 400 С.

[3]Справочник по классам Borland C++ 4.0. К., 1994. 256 С.