Жаттығу жұмыстары

Музыка тыңдауды және суреттер қарауды орындай алатын әмбебап қосымша құрыңыз. Қосымша төрт терезеден тұрады. /4.11-сурет(а,б,с,д)/

4.11-сурет. а) Унерверсал программа терезесі

4.11-сурет. б) Музыка терезесі

4.11-сурет. с) Суреттер терезесі

4.11-сурет. д) Анықтама терезесі

1.«Универсал - программа» /Form1/ терезедегі компоненттер қасиеттерінің және оқиғаларының мәндері:

Компоненттің аты	Қасиеттерінің мәндері, оқиғалары
Form1	Caption = 'Универсал-программа'
МainMenu1	N1: Caption = 'Тандау' N2: Caption = 'Музыка' OnClick = N2Click N3: Caption = 'Суреттер' OnClick = N3Click N4: Caption = 'Программа туралы' N5: Caption = 'Аныктама' OnClick = N5Click N6: Caption = 'Программадан шыгу' OnClick = N6Click
Animate1	Active = True FileName = 'D:\WINDOWS\clock.avi'

«Универсал- программа» терезесінің unit1 мәтіні:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::N2Click(TObject *Sender)

{

Form2->Show();

}

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

void __fastcall TForm1::N3Click(TObject *Sender)

{

Form3->Show();

}

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

void __fastcall TForm1::N6Click(TObject *Sender)

{

Form1->Close();

}

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

void __fastcall TForm1::N5Click(TObject *Sender)

{

Form4->Show();

}

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

2. «Музыка» /Form2/ терезедегі компоненттер қасиеттерінің және оқиғаларының мәндері:

Компоненттің аты	Қасиеттерінің мәндері, оқиғалары
Form2	Caption = 'Музыка'
MainMenu1	N1: Caption = 'Файл' N2: Caption = 'Ашу' OnClick = N2Click N3: Caption = 'Жyру' N4: Caption = 'Алга' OnClick = N4Click N5: Caption = 'Кейiн' OnClick = N5Click
Label1	Caption = 'Файл' Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold]
MediaPlayer1	System жапсырмасында орналасқан
OpenDialog1	Dialogs жапсырмасында орналасқан
Edit1	Text қасиеті тазаланады

«Музыка» терезесінің unit2 мәтіні:

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#include "Unit3.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

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

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm2::N2Click(TObject *Sender) // Файл ->

Ашу пунктінің коды

{

if (OpenDialog1->Execute())

{ Edit1->Text=OpenDialog1->FileName;

MediaPlayer1->FileName=OpenDialog1->FileName;

MediaPlayer1->Open();

}

}

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

void __fastcall TForm2::N4Click(TObject *Sender)

{

Form3->Show();

}

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

void __fastcall TForm2::N5Click(TObject *Sender)

{

Form1->Show();

}

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

3. «Суреттер» /Form3/терезедегі компоненттер қасиеттерінің және оқиғаларының мәндері:

Компоненттің аты	Қасиеттерінің мәндері, оқиғалары
Form3	Caption = 'суреттер'
MainMenu1	N1: Caption = 'Файл' N2: Caption = 'Ашу' OnClick = N2Click N3: Caption = 'Жyру' N4: Caption = 'Кейін' OnClick = N4Click N5: Caption = 'Программадан шығу' OnClick = N5Click
OpenPictureDialog1	Dialogs жапсырмасында орналасқан
Image1	Stretch = True

«Суреттер» терезесінің unit3 мәтіні:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

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

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm3::N4Click(TObject *Sender)

{

Form2->Show();

}

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

void __fastcall TForm3::N5Click(TObject *Sender)

{

Form1->Close();

}

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

void __fastcall TForm3::N2Click(TObject *Sender)

{

if (OpenPictureDialog1->Execute())

Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);

}

4. «Аныктама» / Form4/ терезедегі компоненттер қасиеттерінің және оқиғаларының мәндері:

Компоненттің аты	Қасиеттерінің мәндері, оқиғалары
Form4	Caption = 'Анықтама' BorderIcons = [biSystemMenu] biSystemMenu =true biMinimize=false biMaximize=false biHelp=false
Label1	Caption = 'Программа мәзірлермен (MainMenu жане PopupMenu компоненттери ) жумыс жасауды корсететин демонстрациялык програма болып табылады. Программада музыкалык файлдарды тындау ушин MediaPlayer, Image, OpenDialog, OpenPictureDialog компоненттери пайдаланылды.' WordWrap = True
PopupMenu1	Caption = 'Бул контекстик мәзір -PopupMenu'
Button1	Caption = 'КЕЙIН' PopupMenu = PopupMenu1 OnClick = Button1Click

«Анықтама» терезесінің unit4 мәтіні:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit4.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

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

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm4::Button1Click(TObject *Sender)

{

Form1->Show();

}

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