Мультимедианың екі программасы

Дыбыстық сигналдарды ТMediaPlayer компонентін қолданбай шығару

mb_IconAsterisk, mb_IconExclamation, mb_IconHand, mb_IconQuestion, mb-Ok.

$FFFFFFFF параметрімен хабарласу дыбыстық картаны елемейді және жүйелік динамиктен қысқа дыбыстық сигнал шығарады. Хабарлама жасағаннан кейін функция басқаруды программаға береді және дыбысты асинхронды түрде шығарады.

Мұндай жағдайда PlaySound API-функциясының мүмкіндіктері өте бай, ол кез келген дыбыстық клиптерді шығара алады.

Функцияны хабарлау:
function PlaySound(pszSound: PChar: hmod: HINST: fdwSound:Cardinal):Boolean;

Функция параметрлері төменде сипатталған:

• 
  pszSound - Ойнатылатын файл аты;
  
• 
  hmod -программаның данасы, егер дыбыс ресурстық файлдан алынса(кері жағдайда 0-ге ие болады);
  
• 
  fdwSound - ойнатуды анықтайтын параметр; оның мәні төмендегілерге ие болуы мүмкін:
  
  • 
    SND_ASYNC–Дыбыс асинхронды шығарылады(оған хабарласқаннан кейін функция басқаруды қайтарады);
    
  • 
    SND_LOOP–дыбыс функция pszSound =0 параметрімен шақырылғанша шығарылады;
    
  • 
    SND_NOSTOP–егер құрылғы бос болмаса, функция дыбысты шығаруға тырысады; кері жағдай ешқандай дыбыс шығарылмайды(егер құрылғы бос болмаса, бірақ бұл параметр көрсетілмеген болса, онда функция алдындағы дыбыстын ойнатылуын тоқтатады және келесінің ойнатылуын бастайды)
    
  • 
    SND_NOWAIT–Егер құрылғы бос болмаса, онда функция жаңа дыбысты шығармайды;
    
  • 
    SND_PURGE–Берілген тапсырма үшін баолық дыбыстардың ойнатылуын тоқтатады;
    
  • 
    SND_SYNC–дыбысты синхронды шығарады және басқаруды тек оны ойнатып болғаннан кейін қайтарады.
    

1. 
   Информатика: Базовый курс Учебник/ под ред. Н.В. Макаровой. – СПб, Питер, 2001 г.
   
2. 
   Информатика: Практикум по технологии работы на компьютере. 3-е изд./ под ред. Н.В. Макаровой. – М.: Финансы и статистика, 2002
   
3. 
   Балапанов Е.К., Бөрібаев Б.Б., Дәулеткулов А. 30 сабақ информатикадан. Алматы: Жағамбек, 1999
   
4. 
   Информатика. для вузов. Под ред. Симоновича С.В. СПб, Питер, 2000 г.
   
5. 
   Информатика:Учеб. Пособие для стед. Пед. Вузов/ А.В.Могилев, Н.И. Пак, Е.К. Хеннер; - М.: Изд.центр «Академия»,2000г.
   
6. 
   Острейковский В.А. Информатика. Учебное пособие М, Высшая школа, 1999 г.
   

1. 
   Графикалық құралдары пайдалануға арналған кластарды атаңдар.
   
2. 
   Сызық қандай кластың көмегімен құралады?
   
3. 
   Толтыру қандай кластың көмегімен құралады?
   
4. 
   Қаламның қандай қасиеттері бар?
   
5. 
   Графикалық бетке мәтін қалай шығарылады?
   

Терезеде файлдармен жұмыс істеуге арналған: файлды ашу, сақтау, жаңа терезе құру, жұмысты аяқтау әрекеттерінен тұратын File және көшіру, қиып алу, буфердегіні қою мен өшіру әрекеттерінен тұратын Edit және терезенің орналасуын басқаратын Windows меню командаларын құрайық. Терезе екі түрлі жағдайда орналасатын болсын: cascade және tile.

Ол үшін екі форма терезесін пайдаланамыз. Бірінші форма терезесіне MainMenu1, OpenDialog1 компоненттерін орналастырамыз. Сонымен бірге, File және Windows меню командаларын құрамыз. Мұндағы File: New, Open, Save, Exit командаларынан, ал Windows: cascade және tile командаларынан тұратын болса. Ал екінші форма терезесіне: SaveDialog1, RichEdit1 және MainMenu компоненттерін орналастырамыз (OpenDialog1 және SaveDialog1 компоненттері бетінде орналасқан). Бұл терезеде де екі меню командасы болады: File және Edit. Мұндағы File менюінің ішінде Сut, Copy, Paste, Delete командалары, ал Edit менюінің ішінде командалары орналасқан.

Алдымен бірінші форманың қасиеттерін тағайындайық. Объектілер тармағы терезесінен Form1–ді екпінді жасап, объектілер инспекторы терезесінен төмендегі қасиеттерді өзгертеміз:

FormStyle	fsMDIForm
WindowsMenu	Windows1
GroupIndex	9

Енді бірінші форма терезесіне меню командаларын құруды қарастырайық. Ол үшін алдымен MainMenu1 компонентін екпінді жасап, объектілер инспекторы терезесіндегі Items қасиетінің оң жақ бағанындағы жолды тышқанмен жылдам екі рет белгілейміз. Нәтижесінде Form1.MainMenu1 сұхбат терезесі ашылады. Курсорды Caption қасиетінің оң жақ бағанындағы жолға келтіріп, менюдің атын File деп жазамыз. File сөзі сұхбат терезесіндегі менюдің үстіне жазылады. Егер меню командаларын жалғастырып жазатын болсақ, онда курсорды тұрған орнында қалтырып, Caption қасиетіне менюдің аттарын жалғастырып жаза береміз. Ал менюдің ішкі командаларын құру қажет болса, курсорды File сөзінің астына түсіреміз, меню командасы жазылатын орын қара көк түспен ерекшеленеді. Курсорды объектілер инспекторы терезесіндегі Caption қасиетіне келтіріп, ішкі командалары дәл осындай ретпен орналастырамыз: New, Open, Save, Exit. Бұл терезедегі екінші меню Windows командасы оның ішкі: cascade және tile командаларын да осындай тәсілмен құрамыз. Бұдан кейін OpenDialog1 компонентін екпінді жасап, DefaultExt қасиетіне ашылатын файлдардың затын көрсету қажет:

DefaultExt	*.doc;*.txt;*.dat;*.*;*.rtf
Filter	File of word (*.doc)│*.doc│File of word (*.rtf)│*.rtf│File of text (*.txt)│*.txt│File of dat (*.dat)│*.dat│All files (*.*)│*.*

Одан кейін Объектілер инспекторы терезесіндегі Filter қасиетінің оң жағындағы үш нүктені (...) курсормен жылдам екі рет белгілеу арқылы ашылған Filter Editor сұхбат терезесіне (4.7-сурет) фильтрдің аты мен ашылатын файлдардың затын көрсетіп, ОК батырмасын басу қажет.

Енді Form2 терезесі үшін тағайындалатын қасиеттерді қарастырайық. Ол үшін объектілер тармағы терезесінен –ні екпінді жасап, объектілер инспекторы терезесінен төмендегі қасиеттерді өзгерту қажет:

FormStyle

fsMDIChild

Ал, RichEdit1 компоненті үшін төмендегі қасиет тағайындалады:

Align

AllClient

Бірінші және екінші форманың сыртқы көрінісі 4.8-суретте келтірілген.

Жоғарыда келтірілген компоненттерді орналастырып, қасиеттерін тағайындап болғанннан кейін программалар коды терезесіне көшіп, төмендегі программа мәтінін енгіземіз:

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Dialogs, Menus;

type

TForm1=class(TForm)

OpenDialog1:TOpenDialog;

file1:TMenuItem;

new1:TMenuItem;

open1:TMenuItem;

exit1:TMenuItem;

windows1:TMenuItem;

cascade1:TMenuItem;

tile1:TMenuItem;

procedure new1Click(Sender; TObject);

procedure open1Click(Sender; TObject);

procedure FormClick(Sender; TObject);

private

{Private declarations}

public

End;

var

Form1:TForm1;

procedure TForm1.open1Click(Sender; TObject);

begin

with TForm2.Create(self) do

richEdit1.Lines.LoadFormFile(opendialog1.fileName);

end;

procedure TForm1.cascade1Click(Sender; TObject);

cascade;

procedure TForm1.tile1Click(Sender; TObject);

begin

tile;

begin

end;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Dialogs, Menus, StdCtrls, ComCtrls;

type

TForm2=class(TForm)

RichEdit1:TRichEdit;

MainMenu1:T MainMenu;

file1:TMenuItem;

new1:TMenuItem;

open1:TMenuItem;

save1: TMenuItem;

exit1:TMenuItem;

cut1: TMenuItem;

cut2: TMenuItem;

copy1: TMenuItem;

paste1: TMenuItem;

delete1: TMenuItem;

procedure open1Click(Sender; TObject);

procedure new1Click(Sender; TObject);

procedure save1Click(Sender; TObject);

procedure close1Click(Sender; TObject);

procedure cut1Click(Sender; TObject);

procedure copy1Click(Sender; TObject);

procedure paste1Click(Sender; TObject);

procedure delete1Click(Sender; TObject);

private

{Private declarations}

public

end;

var

Form2:TForm2;

procedure TForm2.open1Click(Sender; TObject);

begin

TForm1.Open1Click(Sender);

procedure TForm2.new1Click(Sender; TObject);

begin

TForm1.New1Click(Sender);

procedure TForm2.save1Click(Sender; TObject);

begin

if Savedialog1.Execute then

Form2.Caption:=savedialog1.fileName;

end;

procedure TForm2.close1Click(Sender; TObject);

begin

Action:=caFree;

procedure TForm2.cut1Click(Sender; TObject);

begin

RichEdit1.CutToClipboard;

procedure TForm2.Copy1Click(Sender; TObject);

begin

RichEdit1.CopyToClipboard;

procedure TForm2.paste1Click(Sender; TObject);

begin

RichEdit1.PasteFromClipboard;

procedure TForm2.delete1Click(Sender; TObject);

begin

RichEdit1.ClearSelection;

Программаны орындағанда файлдармен жұмыс істеуге арналған терезе ашылады. Оның көрінісі 4.9-суретте келтірілген.