{

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\\6565.mp3";

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 2:

deltatime(200);

break;

case 3:

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

MediaPlayer1->Open();

MediaPlayer1->Play();

break;

case 4:

deltatime(200);

break;

case 5:

MediaPlayer1->FileName = "data\\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\\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\\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\\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 а також проблеми, які виникають при цьому. Результатом цього є програма яка реалізує процес навчання програмування на даній мові програмування.

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

Література

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

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

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

Страницы: 1, 2, 3, 4