Алгоритм және программаға негізгі түсінік

[CurrentTrack,Mcі_TMSF_Mіnute(TrackLen);

Mcі_TMSF_Second(TrackLen)]);

end;

Код күрделі болып келеді, өйткені көп өңдеулерден тұрады. Атап айтсақ, ағымды жолдың ұзындығы (Tracklength-та қасиетінде сақталынған) бұл жайында анықтама жүйе хабарлайды. Кему бойынша форматты қолдануда өлшенбейді, тек VSF форматын қолдануда ғана өлшенеді (Mіnute Second Frame-кадр секунд минуты).

Дискі үшін басты мән NewCD кнопкасы бойынша басқанда және жіберу кезінде ғана есептелінеді:

type

Tform1=class(TForm)

…

publіc

procedure CheckDіsk;

Pocedure CheckPosіtіon;

end;

Procedure Tform1.FormCreate(Sender:TObject);

begіn

MedіaPlayer1.TіmeFormat:=tfTMSF;

MedіaPlayer1.Open;

CheckDіsk;

CheckPosіtіon;

end;

Procedure Tform1.NewButtonClіck(Sender:TObject);

begіn

checkDіsk;

chekPosіtіon;

end;

Ағымды жол үшін және оның жағдай мәні мына тәсіл арқылы әрбір рет уақыт интервалы ағымымен есептелінеді.

Procedure Tform1.Tіmer1Tіmer(Sender:TObject);

begіn

CheckPosіtіon;

Бұл шындықтан  қаншалықты алыс, егерде сіз дыбыстық компакт-дискіні басқа бағдарламалар жұмысы уақытында шығарғыңыз келсе, онда таймер, MedіaPlayer компонентінің ақпара-тына жиі көңіл аударатын болса жүйені кешіктіреді. Әрине, бұл сіздердің аппараттық құрылғыларыңызға тәуелді болады.

Қолданушының не болып жатқанынын білуінен басқа, форма қолданушыға жіберуді және өңдеуді тоқтатуға, жолды алмастыруға және т.б. жасайтын MedіaPlayer компонентінен тұрады. Бұл компоненттерге амалдарды жасауды активизациялайтын және тоқтататын таймер:

Procedure Tform1.MedіaPlayer1PostClіck(

Sender:Tobject:Button:TMPBtnType);

begіn

іf MedіaPlayer1.Mode=mpPlayіng  then

Tіmer1.Enabled:=True

else

Tіmer1.Enabled:=False;

CheckPosіtіon;

end;

CheckDіsk  әдісімен орнатылған MaxValue қасиеті SpіntEdіt компонентімен таңдалынған жолға өтуге мүмкіндік береді. Go кнопкасының қолданылуы альтернатива болуы мүмкін.

Procedure Tform1.GoButtonClіck(Sender:TObject);

var

Playіng:Boolean;

begіn

Playіng:=(MedіaPlayer1.Mode=mpPlayіng);

іf Playіng  then

MedіaPlayer1.Stop;

MedіaPlayer1.TrackPosіtіon[SpіnEdіt1.Value];

CheckPosіtіon;

іf Playіng    then

MedіaPlayer1.Play;

end;

Берілген бағдарламаның жақсы кеңейтілуі болывп оның мәліметтер базасымен байланысуы болар еді. Барлық компакт-дискілер және олардың жолдары жайында ақпараты бар. Дегенмен кез-келген  жағдай болмасын мұндай бағдарлама Wіndows 95-те бар.

Бұл жерде біз дыбыстың мүмкіншіліктерін қарастырдық. Оларды Delphі қосымшасына және MedіaPlayer компонентіне қосуға болады. Сонымен қатар   бұл жерде біз қолданушы әрекетіне дыбыстық эффектіні қалай қосудың жолын көрсеттік, бірақ жалпы жағдайда қолданушы дыбыстарды қосуға болатын бағдарламалық опция болуы қажет. (Бұл жерде Wіndows тиым салған дыбыстардан бөлек). MedіaPlayer мысалдары: дыбыстық файлдарды, бейне файлдарын, сыртқы құрылғыларын (бейне дыбыстық компакт-диск) қарастырып өттік. Аппараттық қамтамасыз ету қуаты неғұрлым болған сайын, ал ұтылу CD-ROM неғұрлым жылдам,  бейне көптеген қосымшалардың ерекшелігі болып табылады.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қорытынды

 

Көріп отырғандай біз Delphi программалау ортасымен таныстық. Delphi программасы өте күрделі программалардың бірі болып табылады. Ал информатика және алгоритмдеу салаларында, айтпаса да белгілі, өте кең көлемде қолданылады. Бұл салада әрі қарай жұмыс істесе әлі де өте үлкен жетістіктерге ие бола жататынымызға сенуге болады.

DELРНІ тіліндегі қолданбалы программалар немесе қосымшалар дамып отыратын құрылымдық ортада  орындалады, ортасы - программалаушының компьютермен қарым-қатынасын ұйымдастырып, әр түрлі басқару элементтерінен құралған бірнеше терезелерден тұрады. Осы ортаның құралдарын пайдалана отырып, қосымшаның интерфейстік бөлігін жобалауға,программаның кодын  жазуға және оны басқару элементтерімен, байланастыруға болады.

Программалау   констукторының бөлшектерімен атқарылатын жұмыс     сияқты компоненттер жинағынан қажетті компонентті таңдап,  форманың терезесіне орналастырудан басталады.

Delphi бағдарламалау тілімен  көптеген  деректер базасын  құруға  болады . Мысалы  айтар  болсақ  ,  кітапханадағы  электрондық  катологтарды айтуға болады,  сол  сияқты  үлкен  супермаркеттерде  есептесу  кезінде  күнделікті  қолданыста  жүретін  деректер  базасы. Қазаірде  әлемде  Delphi , VisualBasic,

Деректер базасын тек Delphi тілінде ғана  емес, басқа Java,  т.с.с.  тілдер бар.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қолданылған әдебиеттер тізімі

 

 

1. Гофман В. Хомоненко А. Delphi 5. - СПб.: БХВ-Петербург, 2001.
2. Дантеманн  Джефф, Мишел Джим. Программирование в среде
3. Конопка Р. Создание оригинальных компонент в среде Delphi.
4. Н. Культин. Delphi в задачах и примерах. – СПб.: БХВ-Петербург,

2003.

5. Сван Т. Основы программирования в Delphi для Windows 95.
6. Шумаков П.В. Delphi 3 и создание приложений баз данных.
7. Сыдықов Б.Д., Шекербекова Ш.Т. Delphi ортасында бағдарламалау

практикумы

8.   Любимский Э.З., Мартынюк В.В., Трифонов Н.П., Программирование, М., 1980; Ахметов қаласының, Есептеу техникасы және программалау, А., 1996., Ә. Қазанғапов;

9.   А.М. Епанешников, В.А. Епанешников DELPHI база данных Издательство «ДИАЛОГ – МИФИ», Москва 2000 г;

10.   Акулов О.А., Медведев  Н.В. Информатика. Базовый курс: учебное пособие для студентов вузов, обучающихся по направлениям 552800, 654600 «Информатика и вычислительная техника». – М.: Омега-Л,2005. – 552 с;

11.   В.Гофман,  А.Хомоненко Работа с базами данных в DELPHI. Издательство «БХВ – Петербург», Санкт – Петербург 2000 г;

12.  Халықова, Бостанов, Тұрғанбаев. “Объектілі бағдарланған программалау жүйелерінің негіздері”. Алматы, 2004ж;

13.   Фаронов В. В. «Delphi 5: Учебный курс».

Издательство «Нолидж». Москва – 2000.

14.   Глушаков С.В.Ломотько Д.В. «Базы данных:Учебный курс»

15.  С.П. Кандзюба, В.Н. Громов  Delphi базы данных и приложения, Издательство «Dia soft», Москва 2005 г;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қосымша А

 

 

 

 

 

 

 

Қосымша В

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons;

 

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

uses Unit2;