Delphi дің мультимедиялық мүмкіндіктері

МАЗМҰНЫ
КІРІСПЕ

1.Теориялық негізгі және ақпаратпен жабдықталуы
1.1. Delphi.дің мультимедиалық мүмкіндіктері ... ... ... ... ... ... ... ... ... 3
1.2.Win 32 парағының RichEdit, Page Control компоненттері ... ... ... ..4
1.3 Animate компоненті ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .7
1.4. Animate компоненттінің қасиеттері ... ... ... ... ... ... ... ... ... ... .9
1.5. System парағының компоненттері ... ... ... ... ... ... ... ... ... ... ... ... .. .10
1.6. MediaPlayer компоненті ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 13
2.Есепті шешу процесінің алгоритімі және программасы
2.1.Есептеу процесінің блоксхемасы ... ... ... ... ... ... ... ... ... ... ... ..14
2.2. Алгоритімдік тілде есепті шешу программасы ... ... ... ... ... ... ... 16
3. ЭЕМ.де есептерді шешу және талдау
3.1. ДЭЕМ.на программаны орнықтыру және оның интерфейсі ... ... ...17
3.2. Есептің сандық орындалуы ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .19
3.3. Есептің шешімінің нәтижесін талдау ... ... ... ... ... ... ... ... ... ... ... ... . 22
ҚОРЫТЫНДЫ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .23
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..24
ҚОСЫМША
Ақпараттық коммуникациялық технологиялардың қарқынмен дамып, күнделікті тұрмысқа енуіне байланысты соңғы кездері программалауға деген қызығушылықтың арта түскені белгілі.Қазіргі уақытта компьютерсіз қандайда бір жұмыс орындауды көз алдымызға елестету қиын.Бұл компьютермен жұмыс шстейтін адамға қандай да бір ұмтылысты тудыруы мүмкін.Программалау іскерлігін үйрену үшін нақты есептер шығарып, программасын жаза білу қажет.Ол үшін программалау тілі мен оны құру ортасын меңгеру керек. Объектілі бағдарланған программалау жүйелерінде программалаудағы негізгі ерекшелік алдымен программалау синтаксисі мен компоненттерді пайдалануды үйренуде болып табылады.
Менің курстық жұмысымда Delphi-дің мультимедиалық мүмкіндіктер жалпы толығымен қарастырылғалы отыр. Delphi ортасында мультимедиалық құралдарды пайдалануды жеңілдететін арнайы кластар қарастырылған . Delphi программистке экранға графикалық бейнелерді шығаратын программаларды жасауға мүмкіндік береді.Осы крустық жұмысымды бойынша програмамды қиындатып анимациялап қозғалыстарға келтіріуге, мультимедия көмегімен іске асыруға тырысамын.
Пайдаланылған әдебиеттер тізімі

1. В Фаронов. Объектно-риентированная среда Delphi. Версия 6. Учебное пособие. "Русская редакция", 2002.
2. Я. Н. Глинский, В. Е. Анохин, В. А. Ряжская – TURBO PASCAL 7.0 и Delphi. Учебное пособие. Москва – Санкт – Петербург-Киев. 2001.
3. Культин Н. Delphi 3. Программирование на Object Pascal. Санкт-
Петербург, 1998. -304 с.
4. Конопка Р. Создание оригинальных компонентов в среде ОеІрһі.Перс англ.Рей.К.:НИПФ «Диа Софт ЛТД», 1996. -152 с.
5. Орлик С.В. Секреты Delphi на примерах. М.: Бином, 1996. - 136 с.
6. Нурбекова Ж. Практикум решения задач на Delphi 5.O. Учебно-
методическое пособие. Павлодар, 2001. -106 с.
7. Халықова К.З. Паскаль тілінде программалау. Оқу құралы. Абай ат.ҚазҰПУ. Алматы, 2002. -2106.
8. Дудина И.П. Построние графиков функций в Delphi. Информатика и образование. №6, 2003, стр.27-31.
9. Давыдова Е.В., Скородумов И.А., Балаханов В.А. Создание базовых элементов интерфейса Windows программы в среде Delphi.
Информатика и образование. №4,5,6. 2002.
10. Халықова К.З., Ануарбекова Г.Ж. Object Pascal тілі. Delphi ортасы. Оқу әдістемелік құрал. – Алматы: Абай ат.ҚазҰПУ, 2008. – 220 бет.
11. Б. Д. Сыдықов, Ш. Т. Шекербекова, Н. И. Культин - Delphi ортасында бағдарламалау практикумы. Алматы, 2005
        
        МАЗМҰНЫ
КІРІСПЕ
1.Теориялық негізгі және ақпаратпен жабдықталуы
1.1. Delphi-дің мультимедиалық мүмкіндіктері....................................3
1.2.Win 32 парағының RichEdit, Page Control ...
1.3 Animate ... Animate ... қасиеттері.........................................9
1.5. System парағының компоненттері.................................................. .10
1.6. MediaPlayer компоненті....................................................................13
2.Есепті шешу процесінің алгоритімі және программасы
2.1.Есептеу процесінің блоксхемасы..............................................14
2.2. Алгоритімдік тілде есепті шешу программасы ... ... ... шешу және ... ДЭЕМ-на программаны орнықтыру және оның интерфейсі...........17
3.2. Есептің сандық орындалуы.................................................................19
3.3. Есептің шешімінің нәтижесін талдау............................................... . 22
ҚОРЫТЫНДЫ.............................................................................................23
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР..............................................................24
ҚОСЫМША
КІРІСПЕ
Ақпараттық коммуникациялық ... ... ... күнделікті тұрмысқа енуіне байланысты соңғы кездері программалауға деген қызығушылықтың арта ... ... ... ... ... бір жұмыс орындауды көз алдымызға елестету қиын.Бұл компьютермен ... ... ... ... да бір ... ... ... іскерлігін үйрену үшін нақты есептер шығарып, программасын жаза білу қажет.Ол үшін программалау тілі мен оны құру ... ... ... ... ... программалау жүйелерінде программалаудағы негізгі ерекшелік алдымен программалау синтаксисі мен компоненттерді пайдалануды үйренуде болып табылады.
Менің ... ... ... ... ... жалпы толығымен қарастырылғалы отыр. Delphi ортасында мультимедиалық құралдарды пайдалануды жеңілдететін ... ... ... . Delphi ... экранға графикалық бейнелерді шығаратын программаларды жасауға мүмкіндік береді.Осы крустық жұмысымды бойынша програмамды қиындатып анимациялап ... ... ... ... іске ... ... ... және ақпаратпен жабдықталуы
1.1 Delphi-дің мультимедиалық мүмкіндіктері
Қазіргі замндағы көптеген Windows ортасында жұмыс істейтін программалар мультимедиялық болып табылады. ... ... ... мен ... ... қосуды,қолданылатын амалдарды, дыбыстық эффектілерді көрсетуге мүмкіндік береді. Мультимедиалық программаларға нақты мысал ретінде ойындар мен ... ... ... ... программалар жасау үшін екі компоненттің қызыметін пайдалануға болады.Олар мультимедиялық программамен жұмыс істеуге мүмкіндік береді:
* Animate -- Жәй ... ... ... ... (қолданушы файлды көшіру уақытында көрген кезде)
* MediaPlayer -- Аса қиын ... ... ... ... ... дыбысты, дыбысы бар анимацияны шығаруға және т.б.
1.2. Win 32 ... ... Page Control және ... компоненттері
Win32 парағы 32 разрядты Windows 95/98/NT/2000 операциялық жүйелерінің интерфейстік элементтерінен құралады.
Win 32 парағы
Бұл парақтың жиі ... ... ... ... Control- көп парақты панельдер жиынтығы.
RichEdit- форматталған мәтінге арналған көп ... ... ... - ... ... шамалардың мәнін басқаруда қолданылатын жылжытқыш.
Animate- қарапайым анимацияны шығаруға мүмкіндік беретін мультипликатор.
TreeView- пиктограммалардың тармақты құрылымымен байланысқан жиынтықтан тұратын ... ... ...
1.3 Animate ... парағында орналасқан Animate компоненті AVI (Audio-Video Interleaved- қозғалатын бейне және ... ... ... ... ... ... ... береді.
Сурет 7. Animate компонентінің белгішесі
Animate компоненті Windows стандартты видео клипін формада дыбысты орындауға мүмкіндік береді(файлдық көшірменің типі, файлдарды іздеу және ... ... ... файл .avi - Audio Video ... Бұл ... ... матрицалардың ізбасарлық кадрын көрсетеді. Олар дыбыстық Avi ... ғана ... ... алады.
Дыбысты орындалатын бейне мынадай екі қасиеттің бірімен беріледі
FileName немесе Common Avi.FileName проектілеу процесінде және дыбысты орындалатын файлдың атын ... беру ... ... CommonAVI қасиеті Windows-тағы стандартты мультипликацияны дыбысты орындау мүмкіндігін береді. Бұл қасит төмендегідей жүзеге асады:
Type TCommonAVI=(aviNone, aviFindFile, ... ... aviCopy File, ... ... ... ... типі Windows-та алдын ала анықталған файлдарды көшіру, файлдарды іздеу, файлдарды өшіру және т.б. Мультипликациялық типтердің ... ... ... ... ... ... қосымшада қарастырамыз.
Ал әзірге CommonAVI-дің мағынасын орнатсақ, мәселен, тең aviCopyFile деп. Бұл файлдық көшірмені стандартты бйнелеуге ... ... Animate ... ... ... ... ... клиптің қайталануы санын береді. Егер ол 0-ге тең болса (мәңгі үнсіз), онда Stop әдісі ... ... ... ... қайталанады. Бұл әдіс орындалу кезінде OnStop оқиғасы генерирленеді.OnStop-ты, мысалы, бейнені өшіруге - көрінбейтіндей етіп жасау үшін ... ... ... 0-ден үлкен мән берсек, онда клиптің қайталануы санын анықтайды. Animate компонентіндегі Active Қасиетін "true" деп ... ... ... ... ... асып, клип сан ретінде қайталанады.
Орындалған бейнені кадр бойынша көре аласыз. Ол үшін компонентте тышқанның оң жақ ... ... және ... ... NextFrame (келесі кадр) немесе PreviousFrame(алдындағы кадр) бөлімін таңдаңыз. Бұл сізге клиптің фрагментін таңдауға мүмкіндік ... егер сіз ... ... ... орындалуын қаламасаңыз. Клиптің фрагмент дыбысты орындау үшін StartFrame-дыбысты орындалудың бастапқы кадры, және StopFrame дыбысты орындалудың ... ... ... ... керек.
Төменде көрсетілгендей клиптың фрагментін дыбысты орындатуды
Play арқылы ... ... ... Play(FormFrame6ToFrame:word;Count:integer);
Кадрлық клиптің берілген ізбасар әдісін FromFrame-нан ToFrame-ға дейін кірсе, дыбысты орындалу бір рет Count ... Егер ... онда ... ... ... кадрдан басталады. ToFrame FromFrame-нен кем болмау керек және FrameCount(тек ... ... ... ... ... және ... ... толық сан мәнін көрсететін мағынадан үлкен болмауы керек . Егер Count=0 болса, онда stop ... ... ... ... ... береді.
Play - ң орындалуы StartFrame FormFrame-ге тең, StopFrame ToFrame-ге тең, Repetition Count-ке және true болатын Active-тың келесі орнатуына тең ... ... ... ... ... ашу және жабу ... орындалудың басы мен аяғын генерирлейтін OnClose OnOpen OnStart және OnStop ... ... Animate ... ... ... текстік қосымша құрсақ.... Осы қосымшада Animate компонентінің Visible қасиетін false-қа өзгертсек. Бұл файлдарды ... ... ... және т.б. оқиғалары болған кезде бейнелер шығу үшін қажет. Текстік қосымшада ... ... ... және ену ... басу ... мультипликация лы орындалатын оқиғаның басын және аяғын өзгертуге болады.
Сондықтан, дыбысты орындалу соңына дейін ... үшін ... ... 0-ге тең деп беру ... Active ... ... ... Сол сияқты бейне экранның центрінде пайда болу үшін AutoSize қасиетін false-қа, ал Center қасиетін ... ... Animate ... ... ... Win32 ... орналасқан.Ол кадрлары AVI-файлдарында орналасқан анимациямен жұмыс істеуге мүмкіндік береді. Десе де, AVI-файлында орналасқан анимацияны дыбыстық,эфект арқылы жылжытуға ... ... ... ... Windows Media ... арқылы көруге болады). Animate компаненті суреттің ойнатылуына ғана қолданылады.Ал толық дыбысы ... ... ... Media Player ... ... компоненті формаға әдеттегідей орнатылады.Қосқаннан кейін оның сәйкесінше ... ... ... Animate ... қасиеттері төменде келтірілген кестеде көрсетілген. Animate компаненті теқ қана ... ... үшін ғана ... FileName ... ... ... файл атын ... онда Delphi сізге қате туралы хабар береді. AVI-файлының ішіндегісін көргіңіз ... онда Windows- де ... ... ... ... ... орындаңыз. Нәтижесінде Қасиет терезесі ашылады, осы жерде файл туралы толық ақпарат берілген. Animate компоненті формаға қарапайым жолмен ... ... ... ... кейін оның қасиеттерінің мәндерін орнату керек.
Бұл компоненттің қасиеттері мен әдістері :
Name - компонент ... - ... ... ... ... файл аты ... - ... бейнеленуі басталатын кадр нөмірі
StopFrame - анимацияның бейнеленуі аяқталатын кадр нөмірі.
Activate - анимация кадрының бейнелену процесінің белсенді ету ... ... мәні true ... онда ... ... ... процесі белсенді болады.
Color - анимация жүргізілетін компонент түсінің фоны
Transparent - анимация белгіленген кезде түссіздіктің қолдану режимі.
Repetitions - ... ... ... ... әдісі бейнеклипті ойнатуды, Stop әдісі тоқтатуды жүзеге асырады.
Animate компоненті тек қана ... ... AVI ... ... мүмкіндік береді.
Бұл компонент арқылы ойналатын AVI файлдың кейбір шектеулері болады:
- оларда дыбыс болмау ... ... ... ... ... керек
- файл өлшемі 64 кб- тан аспау керек.
1.5. System ... ... ... Windows үшін ... DDE (Dinamic Data ... OLE (Object Linking and Embedding) мәліметтерімен алмасуды сүйемелдейтін компоненттер, таймер т.б. жүйелі сервистік элементтерге қол жеткізуге мүмкіндік ... ... ... - таймер. Бұл компонент уақыт аралығын есептеу қызметін атқарады.
PaintBox - ... ... ... ... ... бейнелерді салуға арналған тіктөртбұрышты бөлік құрады.
MediaPlayer - мультимедиалық құрылғыларды (CD-Rom, MIDI т.с.с.) басқару жұмыстарын атқарады.
OleContainer - OLE- ... ... ... ... ...
Timer компоненті қосымшада уақыт интервалын есептеуді жүзеге асырады. Таймер ... ... ... ... ... үшін ... ... мультипликацияны синхронизациялау, белгілі бір уақыт өткеннен кейін қандай да бір терезені жабу, белгілі бір уақыт өткеннен кейін экран ... ... ... да бір ... ... өткенде тестілеу программасын айыру т.с.с. Таймер- визуальды емес ... ... ... ... екі ... бар:
Interval- компонентті қосудың уақыт интервалын білдіреді. Ол миллисекундпен ... Бұл ... ... ... ... ... береді. Белгілі бір уақыт өткеннен кейін компоненттің OnTimer ... ... ... Timer ... Interval қасиетінің мәнін 5000-ге тең етіп қойып, OnTimer оқиға өңдеушісіне Close операторын жазсақ, онда 5 секунд ... ... ... ... жабылады.
Enabled - компонентті қосу мүмкіндігін беретін логикалық тип. Егер бұл қасиеттің мәні true болса, онда Timer ... ... және ... Interval = 0 ... Enabled = false ... онда ... компоненті жұмыс жасамайды.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=DateToStr(now);
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Edit2.Text:=TimeToStr(now);
end;
Timer компоненті арқылы ағымдық мерзім мен ... ...
- ... Edit ... өріс ... ... 10 секунд уақыт аралығында қолданушының қанша символ тергенін анықтайтын қосымша жасаңдар.
Шешуі: Таймердің Interval қасиетінің ... 10000- ға тең етіп ... да, ... ... интерфейсін жасаймыз.
Пернетақталық жаттықтырғыш жобасының интерфейсі
"Старт" батырмасының OnClick және Timer-дің OnTimer оқиға өңдеушілеріне төмендегідей код жазамыз. ... ... ... ... ... ...
Label3.Caption:='';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var k:integer;
begin ... ... ... ... ... '+inttostr(k)+' символ тердіңіз'
end;
Дайын қосымшаны орындату ... ... ... ... ... орындалуы
1.5. MediaPlayer компоненті
System парағында орналасқан MediaPlayer компоненті мультимедиалық ойнатқыш болып табылады. Ол неғұрлым күрделі анимациялық ... ... ... ... етілген бейнероликтерді және дыбыстық файлдарды ойнатуға мүмкіндік береді.
Сурет 7. MediaPlayer компоненті
MediaPlayer компонентін формаға қосу нәтижесінде формада қарапайым аудио немесе бейне ... ... ... тобы ... ... ... ... кестеде көрсетілген.
Кесте 1. MediaPlayer компонентінің батырмалары
MediaPlayer компонентінің негізгі қасиеттері:
Name - компонент аты. Компонент қасиеттеріне кіруге және плеермен жұмыс ... ... ... - ... ... ... компонентін көрсететін нақты құрылғыларды анықтаушы.
FileName - дыбыстық файлды ... ... ... асыруға мүмкіндік беретін файлдың аты.
AutoOpen - программаны, бейнероликті немесе дыбыстық файлды автоматты ашу қасиеті.
Display - ... ... ... ... ... ... видеоны көрсету үшін Panel компоненті қолданылады)
VisibleButtons - күрделі қасиет. Ол компоненттің көрінетін батырмаларын анықтайды. ... ... ... ... ... шешу ... ... және программасы
2.1. Есептеу процесінің блок-схемасы
2.2. Алгоритімдік тілде есепті шешу программасы
Есеп 1. Windows ... ... ... атты ... ... ... жасау. Ол үшін Win32 парағынан формаға Animate компонентін орналастырып, оның FileName қасиетіне c:\Windows\clock.avi файл атын көрсетіп және Active ... true мәні ... 7. ... ... ... ... 2. Animate компонентінде бейнеленген .avi типті анимациялық файл фрагменті және оны орындату және тоқтату жобасын құру.
Сурет 8. Анимациялық ... ... ... TForm1.BitBtn1Click(Sender: TObject);
begin
animate1.FileName:='c:\BART.avi';
animate1.Active:=true
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
animate1.Stop
end;
Есеп 3.Animate компоненті арқылы Windows-тың стандарт анимацияларын (клип) ойнатуға болады. ... ... үшін ... ... ... және бұл қасиет келесі мәндерді қабылдайды:
- aviNone- стандарт анимация жоқ
- ... ... ... ... файлдарды көшіру
- aviDeleteFile- файлды жою
- aviEmptyRecycle- қоржынды тазалау
- aviFindComputer- компьютерді іздеу
- aviFindFile- файлды іздеу
- aviFindFolder- ... ... ... ... ... ... стандарт анимацияларын жүзеге асыратын жоба жасаймыз.Ол үшін формаға Animate компонентін, анимацияны ойнату және тоқтатуды жүзеге асыратын ... және Стоп ... және ... компонентін алып, оның Caption қасиетіне Эффекты, Items қасиетіне 9 анимацияның аттарын теріледі.
Жоба коды төмендегіше құрылады:
Алдымен анимация аттары жоба кодының Const ... ... ... ... ... of TCommonAvi= (aviNone,aviCopyFile,aviCopyFiles,aviDeleteFile,aviEmptyRecycle,
aviFindComputer,aviFindFile,aviFindFolder,aviRecycleFile);
Const бөлімінде анықталған анимацияның атын CommonAVI қасиетінде таңдау және ... ... атын Label ... ... үшін RadioGroup компонентінің onClick оқиға өңдеушісіне келесі код жазылады.
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
Animate1.CommonAVI:=aviType[RadioGroup1.Itemindex];
Label1.Caption:=RadioGroup1.Items[RadioGroup1.ItemIndex];
end;
Старт және Стоп ... ... код ... ... TObject);
begin
Animate1.Play(1,animate1.FrameCount,0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Animate1.Stop
end;
Сурет 9 . Windows-тың стандарт анимацияларын ... ... ... ... ... ... Мұнда радиобатырмалар жол және баған бойынша орналасады. Панельдің сол жақ ... ... жазу Caption ... арқылы анықталады. Батырмалар саны Items қасиеті арқы таңдалады. Батырмаларды ... ... ... Columns ... ... ... ... индексі ItemIndex қасиеті арқылы анықталады. Бұл құралды қолданып ыңғайлы безендірілген тест программасын жасауға да болады. Жоғарыдағы мысалда Windows- тың ... ... ... осы ... ... оларды таңдағанда сәйкес анимацияның көрсетілуі RadioGroup1Click оқиға өңдеушісі арқылы ұйымдастырылған.
Есеп 4. MediaPlayer компонентін қолданып, аудиофайл шығаратын қосымша жасаймыз. Ол үшін ... ... ... Dialogs ... ... Standard ... Button компоненттерін орналастырамыз.
MediaPlayer,Button,OpenDialog
Open батырмасын екі рет шертіп, келесі кодты жазамыз:
Рrocedure TForm1.OpenClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName :=OpenDialog1.Filename;
MediaPlayer1.Open;
end;
end;
3. ЭЕМ-де есептерді шешу және ... ... ... ... және оның ... іске қосқан соң мына командалар орындалады.
ФАЙЛ NEW ... Win32 ... ... компонентін
1-суреттегідей етіп орналастырамыз.
1-сурет
3.Компоненттердің ішіне былай 2-суреттегідей, FileName қасиетіне c:\Windows\clock.avi файл атын ... ... Active ... true мәні ... ... ... алып , жұмысты іске қосу кнопкасын басамыз F9.
Сонда 1-суреттегідей Form1терезесі ашылады.
4-сурет
Есеп-2
1.Delphi-ді іске қосқан соң мына командалар орындалады.
ФАЙЛ NEW ... Win32 ... ... ... ... етіп ... ... компоненттер политрасынан:
BitBtn1, BitBtn2 компоненттерін
6-суреттегідей етіп орналастырамыз.
6-сурет
4. ... ... ... ... етіп ... белгілеп "Caption" арқылы "Старт" деп жазамыз.
BitBtn2-ді белгілеп "Caption" арқылы "Стоп" деп жазамыз.
7-сурет
5."Старт"-ты 2 рет шертеміз. Сонда процедура дайындамасында "процедура ... ... ... ... ... 2 рет ... ... процедура дайындамасында "процедура денесін" былай жазамыз:
Procedure TForm1.BitBtn1Click(Sender: TObject);
begin
animate1.Stop
end;
end.
7. Проектіні сақтап алып , жұмысты іске қосу кнопкасын басамыз F9.
Сонда 2-суреттегідей ... ... ... "Старт " батырмасын басамыз. Сонда
8-суреттегідей жауап шығады.Тоқтату үшін "Стоп "батырмасын басамыз.
8-сурет
Есеп-3
1.Delphi-ді іске қосқан соң мына ... ... NEW ... Win32 ... ... компонентін
9-суреттегідей етіп орналастырамыз.
9-сурет
3.Form1-ге "Standard " компоненттер политрасынан:
Label1,Button1,Button2, ... ... ... етіп орналастырамыз.
10-сурет
4. Компоненттердің ішіне былай 11-суреттегідей етіп жазамыз:
Label1-ді белгілеп "Caption" арқылы "Копирование ... " деп ... ... ... ... " деп ... "Caption" арқылы "Стоп " деп жазамыз.
RadioGroup1-ге "Caption" арқылы "Эффекты " , Items қасиетіне 9 анимацияның аттарын ... ... 2 рет ... ... процедура дайындамасында "процедура денесін" былай жазамыз.
Procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
Animate1.CommonAVI:=aviType[RadioGroup1.Itemindex];
Label1.Caption:=RadioGroup1.Items[RadioGroup1.ItemIndex];
end;
6. Старт және Стоп батырмаларына ... код ... ... ... ... ... ... алып , жұмысты іске қосу кнопкасын басамыз F9.
Сонда 2-суреттегідей Form1терезесі ашылады.
"Старт" батырмасын басып ... іске ... ... - дағы 9 ... ... ... ... шығады.Тоқтату үшін "Стоп "-ді басамыз.
12-сурет
Есеп-4
1.Delphi-ді іске қосқан соң мына командалар орындалады.
ФАЙЛ NEW ... System ... ... Dialogs ... ... Standard ... Button ... 13-суреттегідей орналастырамыз.
13-сурет
4. Button компонентін белгілеп Caption арқылы ішіне "Open" деп жазамыз.
5. ... екі рет ... ... кодты жазамыз:
Рrocedure TForm1.OpenClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName :=OpenDialog1.Filename;
MediaPlayer1.Open;
end;
end;
6. Проектіні сақтап алып , жұмысты іске қосу кнопкасын басамыз F9. ... ... ... ... ... ... ... шыққан терезеден аудиофайл таңдап алып іске қосамыз.
14-сурет
Қорытынды
Ақпараттық коммуникациялық технологиялардың қарқынмен дамып, күнделікті тұрмысқа енуіне байланысты соңғы кездері программалауға ... ... арта ... ... Қазіргі уақытта компьютерсіз қандай да бір жұмыс орындауды көз алдымызға елестету қиын. Бұл ... ... ... ... ... да бір ... ... мүмкін.
Есептеуіш техниканың қарқынмен дамуы тиімді программалық ... ... - ... ... ... ... жасалуына әкелді. Жылдам құру жүйесінің негізіне (RAD - Rapid Application Development - қосымшаларды жылдам құру ... ... ... мен оқиғалы объектілі бағдарланған программалау технологиясы алынған. Мұндай программалаудың мәні - ... ... ... ... көп ... өзі ... программистке диалог терезелерін құрастыру мен оқиға өңдеушіні құру жұмыстарын қалдырды. RAD ... ... Borland Delphi және Visual Basic ... ... ... құруға мүмкіндік береді: қарапайым бір терезелік қосымшалардан бастап, үлестірілген мәліметтер қорын ... ... ... Borland Delphi ... ... тілі Object Pascal тілі.
Программалау іскерлігін үйрену үшін нақты есептер ... ... жаза білу ... Ол үшін ... тілі мен оны құру ... ... керек. Объектілі бағдарланған программалау жүйелерінде программалаудағы негізгі ерекшелік алдымен программалау синтаксисі мен компоненттерді пайдалануды үйренуде ... ... ... ... ... дипломдық жұмыстың объектілі бағдарланған программалау жүйелерінің графикалық және мультимедиялық мүмкіндіктері берілген. Дипломдық жұмыс кіріспеден, үш тараудан, қорытындыдан, қосымшалардан және пайдаланылған ... ... ... ... ... В Фаронов. Объектно-риентированная среда Delphi. Версия 6. Учебное пособие. "Русская редакция", 2002.
* Я. Н. Глинский, В. Е. ... В. А. ... - TURBO PASCAL 7.0 и Delphi. ... ... ... - ... - ... 2001.
* Культин Н. Delphi 3. Программирование на Object Pascal. Санкт-Петербург, 1998. -304 с.
* Конопка Р. ... ... ... в ... ОеІрһі.Перс англ.Рей.К.:НИПФ , 1996. -152 с.
* Орлик С.В. Секреты Delphi на примерах. М.: Бином, 1996. - 136 ... ... Ж. ... ... ... на Delphi 5.O. ... ... Павлодар, 2001. -106 с.
* Халықова К.З. Паскаль тілінде программалау. Оқу құралы. Абай ... ... 2002. ... ... И.П. ... ... функций в Delphi. Информатика и образование. №6, 2003, стр.27-31.
* Давыдова Е.В., Скородумов И.А., Балаханов В.А. Создание базовых элементов интерфейса Windows ... в ... ... и образование. №4,5,6. 2002.
* Халықова К.З., Ануарбекова Г.Ж. Object Pascal ... Delphi ... Оқу ... ... - ... Абай ... 2008. - 220 бет.
* Б. Д. ... Ш. Т. Шекербекова, Н. И. Культин - Delphi ортасында бағдарламалау практикумы. ... 2005

Пән: Информатика
Жұмыс түрі: Реферат
Көлемі: 12 бет
Бұл жұмыстың бағасы: 600 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
WEBbrowser компонентін қолданып бағдарлама құру16 бет
Delphi-дің мультимедиалық мүмкіндіктері15 бет
Delphi-дің мультимедиалық мүмкіндіктері туралы12 бет
Балаларға үй жануарларымен, жабайы аңдарды таныстыру4 бет
Кәсіптік білім беру мекемелерінің сабақтарында оқытудың жаңа техникалық құралдарын қолдану ерекшеліктері24 бет
Мектепке дейінгі білім беру мекемелерінде педагогикалық технологияларды қолдану5 бет
Delphi ортасындағы графиканың мүмкіндіктері12 бет
Delphi ортасының мүмкіндіктері24 бет
DELPHI-дiң графикалық мүмкiндiктерi және қолданбалары64 бет
Delphi-дің графикалық мүмкіндіктерін қолдана отырып қозғалатын бағдарлама құру20 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь