48411 (Проектування користувальницького інтерфейсу в C++ Builder), страница 4
Описание файла
Документ из архива "Проектування користувальницького інтерфейсу в C++ Builder", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48411"
Текст 4 страницы из документа "48411"
}
//---------------------------------------------------------------------------
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
#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
#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 С.