48411 (Проектування користувальницького інтерфейсу в C++ Builder), страница 3
Описание файла
Документ из архива "Проектування користувальницького інтерфейсу в C++ Builder", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48411"
Текст 3 страницы из документа "48411"
if ( (pixelformat = ChoosePixelFormat(hdc, ppfd)) == 0 )
{
MessageBox(NULL, "ChoosePixelFormat failed", "Error", MB_OK);
return FALSE;
}
if (SetPixelFormat(hdc, pixelformat, ppfd) == FALSE)
{
MessageBox(NULL, "SetPixelFormat failed", "Error", MB_OK);
return FALSE;
}
return TRUE;
}
void TForm2::DrawScene()
{
glClear( GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT );
glPushMatrix();
latitude += latinc;
longitude += longinc;
polarView( radius, 0, latitude, longitude );
glIndexi(RED_INDEX);
glCallList(CONE);
glIndexi(BLUE_INDEX);
glCallList(GLOBE);
glIndexi(GREEN_INDEX);
glPushMatrix();
glTranslatef(0.8F, -0.65F, 0.0F);
glRotatef(30.0F, 1.0F, 0.5F, 1.0F);
glCallList(CYLINDER);
glPopMatrix();
glPopMatrix();
SwapBuffers(ghDC);
}
GLvoid TForm2::resize( GLsizei width, GLsizei height )
{
GLfloat aspect;
glViewport( 0, 0, width, height );
aspect = (GLfloat) width / height;
glMatrixMode( GL_PROJECTION );
glLoadIdentity();
gluPerspective( 45.0, aspect, 3.0, 7.0 );
glMatrixMode( GL_MODELVIEW );
}
GLvoid TForm2::createObjects()
{
GLUquadricObj *quadObj;
glNewList(GLOBE, GL_COMPILE);
quadObj = gluNewQuadric ();
gluQuadricDrawStyle (quadObj, GLU_LINE);
gluSphere (quadObj, 1.5, 16, 16);
glEndList();
glNewList(CONE, GL_COMPILE);
quadObj = gluNewQuadric ();
gluQuadricDrawStyle (quadObj, GLU_FILL);
gluQuadricNormals (quadObj, GLU_SMOOTH);
gluCylinder(quadObj, 0.3, 0.0, 0.6, 15, 10);
glEndList();
glNewList(CYLINDER, GL_COMPILE);
glPushMatrix ();
glRotatef ((GLfloat)90.0, (GLfloat)1.0, (GLfloat)0.0, (GLfloat)0.0);
glTranslatef ((GLfloat)0.0, (GLfloat)0.0, (GLfloat)-1.0);
quadObj = gluNewQuadric ();
gluQuadricDrawStyle (quadObj, GLU_FILL);
gluQuadricNormals (quadObj, GLU_SMOOTH);
gluCylinder (quadObj, 0.3, 0.3, 0.6, 12, 2);
glPopMatrix ();
glEndList();
}
GLvoid TForm2::initializeGL(GLsizei width, GLsizei height)
{
GLfloat maxObjectSize, aspect;
GLdouble near_plane;
glClearIndex( (GLfloat)BLACK_INDEX);
glClearDepth( 1.0 );
glEnable(GL_DEPTH_TEST);
glMatrixMode( GL_PROJECTION );
aspect = (GLfloat) width / height;
gluPerspective( 45.0, aspect, 3.0, 7.0 );
glMatrixMode( GL_MODELVIEW );
near_plane = 3.0;
maxObjectSize = 3.0F;
radius = near_plane + maxObjectSize/2.0;
latitude = 0.0F;
longitude = 0.0F;
latinc = 6.0F;
longinc = 2.5F;
createObjects();
}
void TForm2::polarView(GLdouble radius, GLdouble twist, GLdouble latitude,
GLdouble longitude)
{
glTranslated(0.0, 0.0, -radius);
glRotated(-twist, 0.0, 0.0, 1.0);
glRotated(-latitude, 1.0, 0.0, 0.0);
glRotated(longitude, 0.0, 0.0, 1.0);
}
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
/* Timer1->Enabled = false;
*/
if (ghRC)
wglDeleteContext(ghRC);
if (ghDC)
ReleaseDC(Handle, ghDC);
MediaPlayer1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
ghDC = GetDC(Handle);
if (!bSetupPixelFormat(ghDC))
Close();
ghRC = wglCreateContext(ghDC);
wglMakeCurrent(ghDC, ghRC);
initializeGL(ClientRect.Right, ClientRect.Bottom);
MediaPlayer1->Open();
MediaPlayer1->Play();
ProgressBar1->Position = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
MediaPlayer1->Close();
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormResize(TObject *Sender)
{
resize(ClientRect.Right, ClientRect.Bottom);
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Timer2Timer(TObject *Sender)
{
ProgressBar1->Position++;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
int step=0;
TForm3::nextstep(){
switch(step){
case 0:
deltatime(300);
break;
case 1:
MediaPlayer1->FileName = "data\\765888.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
break;
case 2:
deltatime(1000);
break;
case 3:
Shape3->Visible=true;
deltatime(300);
break;
case 4:
MediaPlayer1->FileName = "data\\9564334.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
break;
case 5:
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;
Shape3->Visible=false;
/* Label10->Visible = false;
Label11->Visible = false;
Label12->Visible = false;
Label14->Visible = false;
Label15->Visible = false;
Label16->Visible = false;*/
Label10->Visible = true;
Label11->Visible = true;
Label12->Visible = true;
Label14->Visible = true;
deltatime(300);
break;
case 6:
MediaPlayer1->FileName = "data\\533677.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
break;
case 7:
deltatime(400);
break;
case 8:
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;
deltatime(300);
break;
case 9:
Shape2->Visible=true;
deltatime(300);
break;
case 10:
MediaPlayer1->FileName = "data\\822567.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
break;
case 11:
deltatime(400);
break;
case 12:
Shape2->Visible=false;
deltatime(300);
break;
case 13:
MediaPlayer1->FileName = "data\\6345676.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
break;
case 14:
deltatime(400);
break;
case 15:
Label1->Visible = false;
Label3->Visible = false;
Label4->Visible = false;
Label5->Visible = false;
Label8->Visible = false;
Label9->Visible = false;
Label13->Visible = false;
deltatime(300);
break;
case 16:
MediaPlayer1->FileName = "data\\123423.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
break;
case 17:
deltatime(300);
break;
case 18:
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;
deltatime(300);
break;
case 19:
MediaPlayer1->FileName = "data\\908976.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
break;
case 20:
deltatime(300);
break;
case 21:
Label2->Visible = false;
Label4->Visible = false;
Label6->Visible = false;
Label7->Visible = false;
Label8->Visible = false;
Label9->Visible = false;
deltatime(300);
break;
case 22:
MediaPlayer1->FileName = "data\\444555.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
break;
case 23:
deltatime(300);
break;
case 24:
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;
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();