Разработка мультимедиа. Курсовая работа (т). Информационное обеспечение, программирование.

🛑 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Информационное обеспечение, программирование

Вы можете узнать стоимость помощи в написании студенческой работы.


Помощь в написании работы, которую точно примут!

Похожие работы на - Разработка мультимедиа

Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе


Скачать Скачать документ
Информация о работе Информация о работе

Нужна качественная работа без плагиата?

Не нашел материал для своей работы?


Поможем написать качественную работу Без плагиата!

Компьютеры были изобретены много лет назад, но мы
начали использовать их совсем недавно. Технический прогресс постоянно
развивается. Люди создают новые компьютерные технологии. Компьютер стал
неотъемлемой частью нашей повседневной жизни. Многие люди используют компьютеры
на работе, в школе и дома, но мы еще не осознали все преимущества и недостатки
компьютера.


Компьютеры помогают нам облегчить нашу жизнь. Мы можем
решить многие проблемы, используя компьютер. Мы можем купить одежду, еду и даже
автомобиль. Это устройство заменило печатную машину, кино и проигрыватель .
Мы можем рисовать картины при помощи специальных программ, производить точные
математические операции, или заниматься дизайном. Компьютеры используются в
каждой научной сфере. Они помогают развивать физику, химию, биологию,
математику и другие области науки.


Поэтому я решил сделать программу, благодаря которой
можно расслабиться сидя за компьютером. В этой программе можно слушать любимую
музыку и смотреть любимые фильмы, которые находятся у Вас на компьютере. Именно
поэтому я назвал ее «Мультимедиа» .









Создание аудио- и видео проигрывателя




В проект включено несколько форм. Вот перечень с их
описанием:


Форма для проигрывания аудио файлов

Форма для проигрывания видео файлов

Форма, содержащая данные о программе

Форма для регистрации, изменения и удаления пользователей

DEFINE PAD _3tg14hdbk OF _MSYSMENU PROMPT "Мультимедиа" COLOR SCHEME 3


DEFINE PAD _3tg14hdbl OF _MSYSMENU PROMPT "Сервис" COLOR SCHEME
3PAD _3tg14hdbm OF _MSYSMENU PROMPT "Выход" COLOR SCHEME 3


ON PAD _3tg14hdbk OF _MSYSMENU ACTIVATE POPUP мультимеди


ON PAD _3tg14hdbl OF _MSYSMENU ACTIVATE POPUP сервисSELECTION PAD
_3tg14hdbm OF _MSYSMENU Quit


DEFINE POPUP мультимеди MARGIN RELATIVE SHADOW COLOR SCHEME 4


DEFINE BAR 1 OF мультимеди PROMPT "Аудио проигрыватель"BAR 2 OF
мультимеди PROMPT "Видео проигрыватель"SELECTION BAR 1 OF мультимеди
Do form sys(5)+"\Kursovaya\Programm\demoaudio.scx"SELECTION BAR 2 OF
мультимеди Do form sys(5)+"\Kursovaya\Programm\demovideo.scx"


DEFINE POPUP сервис MARGIN RELATIVE SHADOW COLOR SCHEME
4


DEFINE BAR 1 OF сервис PROMPT "Справка"BAR 2
OF сервис PROMPT "О программе"SELECTION BAR 1 OF сервис do form sys(5)+"\Kursovaya\Programm\spravka.scx"SELECTION
BAR 2 OF сервис do form sys(5)+"\Kursovaya\Programm\o_programme.scx"



У меню администраторов появляется дополнительный пункт
«ADMIN», в котором администраторы могут регистрировать, изменять и удалять
пользователей.SYSMENU TOSYSMENU AUTOMATIC


DEFINE PAD _3tg14g2at OF _MSYSMENU
PROMPT "Мультимедиа" COLOR SCHEME 3


DEFINE PAD _3tg14g2au OF _MSYSMENU PROMPT
"Сервис" COLOR SCHEME 3PAD _3tg14g2av OF _MSYSMENU PROMPT
"Admin" COLOR SCHEME 3PAD _3tg14g2aw OF _MSYSMENU PROMPT
"Выход" COLOR SCHEME 3


ON PAD _3tg14g2at OF _MSYSMENU
ACTIVATE POPUP мультимеди


ON PAD _3tg14g2au OF _MSYSMENU ACTIVATE POPUP
сервисPAD _3tg14g2av OF _MSYSMENU ACTIVATE POPUP adminSELECTION PAD _3tg14g2aw
OF _MSYSMENU Quit


DEFINE POPUP мультимеди MARGIN RELATIVE SHADOW COLOR SCHEME
4


DEFINE BAR 1 OF мультимеди PROMPT "Аудио
проигрыватель"BAR 2 OF мультимеди PROMPT "Видео
проигрыватель"SELECTION BAR 1 OF мультимеди Do form
Sys(5)+"\Kursovaya\Programm\demoaudio.scx"SELECTION BAR 2 OF
мультимеди Do form Sys(5)+"\Kursovaya\Programm\demovideo.scx"


DEFINE POPUP сервис MARGIN RELATIVE SHADOW COLOR SCHEME
4


DEFINE BAR 1 OF сервис PROMPT "Справка"BAR 2
OF сервис PROMPT "О программе"SELECTION BAR 1 OF сервис do form
sys(5)+"\Kursovaya\Programm\spravka.scx"SELECTION BAR 2 OF сервис do
form sys(5)+"\Kursovaya\Programm\o_programme.scx"


DEFINE POPUP admin MARGIN RELATIVE
SHADOW COLOR SCHEME 4


DEFINE BAR 1 OF admin PROMPT
"Пользователи"SELECTION BAR 1 OF admin Do form
sys(5)+"\Kursovaya\Programm\registr.scx"









Форма DemoAudio.scx (см. рис.1) проигрывает
музыку, которую Вы выбрали у себя на компьютере.




*** ActiveX Control Event ***button,
shift, x, y.Parent.Timer1.Enabled = .f.interval.MouseUp


*** ActiveX Control Event ***button,
shift, x, y.Parent.Timer1.Enabled = .t.interval.Change


*** ActiveX Control Event
***this.Parent.oMedia(this.value)()volume.Scroll


*** ActiveX Control Event
***.Parent.oMedia.SetVolume(this.value)cmdopen.ClicklcFile= GETFILE("MP3|WMA|WAV")!EMPTY(lcFile)this.Parent.Open(lcFile,
thisform.HWnd).SetVolume(750).value = 0.max = .oMedia.GetSize().Play().Enabled
= .t.


.Timer1.Enabled =
.t.cmdpause.Clickthis.Parent


.Timer1.Enabled =
.f.cmdstop.Clickthis.Parent


.Interval.value =
0timer1.Timer.Parent.interval.value = this.Parent.oMedia.GetPosition()


Форма DemoVideo.scx (см. рис.2) показывает
видео, который Вы выбрали у себя на компьютере.







PROCEDURE
vfpplayer1.cmdOpen.ClicklcFile, lnDestWidth, lnDestHeight=
GETFILE('AVI,WMV')!EMPTY(lcFile)this.Parent


.oMedia.Open(lcFile, thisform.HWnd)


* Получить размеры виде кадра= 0= 0


.oMedia.GetVideoDimension(@lnDestWidth, @lnDestHeight)


* Определение фактических размеров области вывода видео=
lnDestHeight / thisform.Shape1.Height = lnDestWidth / thisform.Shape1.Width


lnKoeff = MAX(lnKVert, lnKHor)lnKoeff
< 1= 1= lnDestWidth / lnKoeff= lnDestHeight / lnKoeff


* Вычисляем новые значения координат левой верхней
точки


lnTop = thisform.Shape1.Top + 0.5 *
(thisform.Shape1.Height - lnHeight)= thisform.Shape1.Left + 0.5 *
(thisform.Shape1.Width - lnWidth)


* Устанавливаем новые размеры окна для видео


.oMedia.SetVideoRect(lnLeft, lnTop,
lnWidth, lnHeight)


Форма o_programme.scx (см. рис.3) показывает
данные о программе.







Top = 0= 0= 373= 600= .T.= "О программе"= RGB(240,240,240)=
"Form1"OBJECT label1 AS label WITH ;


FontCharSet = 204, ;= 0, ;= 0, ;=
"О программе:", ;= 27, ;= 24, ;= 12, ;= 146, ;=
"Label1"OBJECT command1 AS commandbutton WITH ;= 336, ;= 504, ;= 27,
;= 84, ;= "Закрыть", ;=
"Command1"OBJECT edit1 AS editbox WITH ;= "", ;= 1, ;= 0,
;= 276, ;= 24, ;= .T., ;= 48, ;= 564, ;= RGB(240,240,240), ;= RGB(240,240,240),
;= RGB(255,255,255), ;= RGB(255,255,255), ;


Value = [Программа создана при помощи книги
"Visual Foxpro 9 - Клепинин и Агафонова".] + CHR(13) + [В этой
программе Вы сможете слушать музыку и смотреть видео. ] + CHR(13) + [Эта
программа не требует никаких навыков и умений, необходимо только
зарегестрироваться и наслаждаться любимыми музыкой и видео, находящихся у Вас
на компьютере.], ;


ControlSource = "", ;= .F.,
;= "Edit1"command1.Click.Release()


В форме registr.scx (см. рис.4) можно не только
зарегистрировать пользователей, но также их изменять и удалять.




PROCEDURE LoadDELETE off=SYS(5)NOT
USED('rega')F1+"\Kursovaya\dbfs\rega.dbf" exclusive IN 0 rega c


PROCEDURE cmdsave.Click=SYS(5)NOT
USED('rega')F1+"\Kursovaya\dbfs\rega.dbf" exclusive IN 0 rega
c=2BLANK=thisform.pageframe1.Pagedit.text2.valueLogin WITH
thisform.pageframe1.pagedit.text1.ValuePass WITH
thisform.pageframe1.pagedit.text2.Valueadm WITH
thisform.pageframe1.pagedit.text3.Value =0


thisform.pageframe1.pagedit.Enabled=.F..pageframe1.paglist.Enabled=.T..pageframe1.ActivePage=1.CmdAppendblank.Enabled=.T..CmdEditblank.Enabled=.T..CmdDelblank.Enabled=.T.cmdcansel.Click.CmdAppendblank.Enabled=.T..CmdEditblank.Enabled=.T..CmdDelblank.Enabled=.T..pageframe1.pagedit.Enabled=.F..pageframe1.paglist.Enabled=.T..pageframe1.ActivePage=1=0cmdappendblank.Click=2.CmdAppendblank.Enabled=.F..CmdEditblank.Enabled=.F..CmdDelblank.Enabled=.F..pageframe1.pagedit.Enabled=.T..pageframe1.paglist.Enabled=.F..pageframe1.ActivePage=2.pageframe1.pagedit.text1.Value="".pageframe1.pagedit.text2.Value=0.pageframe1.pagedit.text3.Value=0cmdeditblank.Click=1.CmdAppendblank.Enabled=.F..CmdEditBlank.Enabled=.F..CmdDelblank.Enabled=.F..pageframe1.paglist.Enabled=.F..pageframe1.pagedit.Enabled=.T..pageframe1.ActivePage=2.pageframe1.pagedit.text1.Value=rega.login.pageframe1.pagedit.text2.Value=rega.pass.pageframe1.pagedit.text3.Value=rega.admcmddelblank.ClickDELETE
onnRetMsgBox,nRecno=0=0


nRetMsgBox=MESSAGEBOX("удалить
текущую запись?",4+32+256,"удаление")


IF
nRetMsgBox=6!EOF()EOF()BOTTOMEOF()TOP.REFRESH()cmdexit.ClickUSED([regs])rega


Форма spravka.scx (см. рис.5) выдает справку по
пользованию всего приложения.




Top = 2= 24= 371= 612= .T.= "Справка"= "Form1"OBJECT
command1 AS commandbutton WITH ;= 336, ;= 504, ;= 27, ;= 96, ;= "Закрыть", ;= "Command1"OBJECT
edit1 AS editbox WITH ;= 1, ;= 0, ;= 276, ;= 24, ;= .T., ;


Top = 48, ;= 576, ;= RGB(240,240,240), ;= [Для того
чтобы можно было слушать музыку, необходимо: 1) В верхнем контекстном меню
выбрать строчку "МУЛЬТИМЕДИА"] + CHR(13) + [2) Далее в появившемся
меню выбрать строчку "АУДИО ПРОИГРЫВАТЕЛЬ"] + CHR(13) + [3) Затем в
появившейся программе нажать на кнопку "ОТКРЫТЬ" и выбрать нужный Вам
файл.] + CHR(13) + [Для того чтобы можно было смотреть видео, необходимо:] +
CHR(13) + [1) В верхнем контекстном меню выбрать строчку
"МУЛЬТИМЕДИА"] + CHR(13) + [2) Далее в появившемся меню выбрать
строчку "ВИДЕО ПРОИГРЫВАТЕЛЬ"] + CHR(13) + [3) Затем в появившейся
программе нажать на кнопку "ОТКРЫТЬ" и выбрать нужный Вам файл.] +
CHR(13) + [Если Вы хотите зарегистрироваться еще раз или зарегистрировать
друзей, знакомых или родных обращайтесь к администратору.] + CHR(13) + [***Для
того чтобы зарегистрировать, изменить или удалить пользователя(ей), нужно:] +
CHR(13) + [1) В верхнем контекстном меню выбрать строчку "ADMIN"] +
CHR(13) + [2) В появившемся меню выбрать строчку "ПОЛЬЗОВАТЕЛИ"] +
CHR(13) + [3) Затем в появившемся окне можно регистрировать, изменять или
удалять пользователя(ей)] + CHR(13) + [***Действие доступно только для
администратора] + CHR(13) + [Для того чтобы выйти из программы, необходимо:] +
CHR(13) + [В верхнем контекстном меню нажать на строчку "ВЫХОД"], ;


ControlSource = "", ;=
"Edit1"OBJECT label1 AS label WITH ;


FontCharSet = 204, ;= 0, ;= 0, ;=
"Справка", ;= 27, ;= 24, ;=
12, ;= 91, ;= 1, ;= "Label1"Loadcommand1.Click


Форма vxod.scx (см. рис.6) определяет кем будет
вновь вошедший и взависимости от того, кем он будет (администратор или
пользователь) и будет выводиться соответствующее меню.



PROCEDURE form1.Load=SYS(5)NOT
USED([Rega])F2+"\Kursovaya\dbfs\rega.dbf" exclusive IN 0regaregaon
login + STR(pass) To loginidxORDER TO
loginidxform1.UnloadUSED([rega])regacommand1.Click=SYS(5)


* Ввод переменных=ALLTRIM(thisform.Text1.value)=ALLTRIM(thisform.text2.value)
IF SEEK
(Log1,"rega")VAL(Parol)<>rega.pass


WAIT WINDOW ('неверный пароль!') AT 15, 73 NOWAIT.Release()


IF rega.adm=0WINDOW ('Добро пожаловать!') AT 15, 73
NOWAITF1+"\Kursovaya\Programm\polmen.prg".Release()rega.adm=1


WAIT WINDOW ('Добро пожаловать, администратор!') AT 15, 73
NOWAITF1+"\Kursovaya\Programm\admmen.prg".Release()


ENDIF WINDOW ('Такой пользователь не обнаружен! Обратитесь к администратору.') AT 15,
73 NOWAIT


Класс vfpmci.vcx (см. рис.7) предназначен для
воспроизведения звука и видео в приложении.




PROTECTED status= 0lload= .F.=
"vfpmci"docmdtcMCICommandlcRetMsg= SPACE(80).Status =
mciSendString(tcMCICommand, @lcRetMsg, 80, 0)this.Status != 0= SPACE(160)


= mciGetErrorString(this.Status,
@lcRetMsg, 160)


= MESSAGEBOX(ALLTRIM(lcRetMsg), 64,
"MCI")""alltrim(lcRetMsg)open


LPARAMETERS tcFileName, tHWNDlcCMDVARTYPE(tcFileName)
= "C" .and. FILE(tcFileName)


* Проверить, загружен ли в настоящий момент


* аудио или видеофайл; если да, то закрыть его.


IF this.lLoad .DoCMD("CLOSE
mediafile")= IIF(VARTYPE(tHWND) = "N", tHWND, 0)


* Если значение HWND формы передано методу, то видео
будет выводиться


* в окне формы; иначе - в отдельном окне. При
воспроизведении аудиофайла


* MCI игнорирует параметр STYLE= 'OPEN "' +
tcFileName + '" ALIAS mediafile STYLE '


IF tHWND = 0= lcCMD +
"Overlapped"= lcCMD + "child parent " + LTRIM(STR(tHWND))=
lcCMD + " WAIT".DoCMD(lcCMD)this.Status = 0.lLoad = .t.playthis.lLoad.DoCMD("PLAY
mediafile")stopthis.lLoad .DoCMD("CLOSE mediafile").lLoad =
.f.pausethis.lLoad this.DoCMD("STATUS mediafile MODE") =
"playing".DoCMD("PAUSE mediafile")getsizelcRetMsg, lnSize=
0this.lLoad = this.DoCMD("STATUS mediafile LENGTH")this.Status = 0=
VAL(lcRetMsg)lnSizegetpositionlcRetMsg, lnPosition= 0this.lLoad =
this.DoCMD("STATUS mediafile POSITION")this.Status = 0=
VAL(lcRetMsg)lnPositiongetvideodimensiontnWidth, tnHeightlcRetMsgthis.lLoad =
this.DoCMD('WHERE mediafile destination')this.Status = 0=
VAL(GETWORDNUM(lcRetMsg, 3, " "))= VAL(GETWORDNUM(lcRetMsg, 4, "
"))setvolumetnVolumeVARTYPE(tnVolume) = "N"tnVolume < 0=
0tnVolume > 1000= 1000this.lLoad .DoCMD("SETAUDIO mediafile volume to
" + LTRIM(STR(tnVolume)))setposition


LPARAMETERS tnPositionlcCMD, lnSizeVARTYPE(tnPosition) =
"N"this.lLoad = "SEEK mediafile to "CASE tnPosition = -1
&& В начало
файла= lcCMD +
"start"tnPosition = -2 && В конец файла=
lcCMD + "end"tnPosition >= 0 && На заданную позициюtnPosition <= this.GetSize()= lcCMD +
LTRIM(STR(tnPosition))= lcCMD + LTRIM(STR(this.GetSize()))


= INKEY(0.5)setvideorecttnLeft,
tnTop, tnWidth, tnHeightVARTYPE(tnLeft) + VARTYPE(tnTop) + VARTYPE(tnWidth) +
VARTYPE(tnHeight) = "NNNN"


* Получить HWND для окна, в котором выводится видео


lcRetMsg = this.DoCMD('STATUS
mediafile window handle wait')


* Изменить положение и размеры окна, в котором
выводится видео


lnDestHwnd = VAL(lcRetMsg)SetWindowPos(lnDestHwnd, 0, tnLeft, tnTop,
tnWidth, tnHeight, 0) = 0


= MESSAGEBOX("Ошибка при изменении размеров окна для видео",
64, "MCI")


ENDIF readythis.lLoad this.DoCMD("STATUS mediafile
READY") = "true".t.


RETURN .f.Destroy.Stop()InitLong
mciSendString IN WinMM.DLL String, String @, Long, LongLong SetWindowPos IN
User32.dll ;, Long, Long, Long, Long, Long, LongLong mciGetErrorString IN
WinMM.DLL Long, String, Long


Теперь, когда все формы сделаны, необходимо создать
проект, после чего создать файл с расширением .app, в котором и будет
запускаться все наше приложение.


Открываем Visual Fox Pro , после чего в верхнем
контекстном меню выбираем « File - New» (см. рис. 8). В появившемся окне
выбираем « Proekt» и нажимаем на кнопку « New File» (см. рис. 9),
после этого в открывшемся окне выбираем путь сохранения проекта и нажимаем на
кнопку « Сохранить» (см. рис. 10). Далее появляется окно, в которое Мы
должны будем добавить все нужные нам файлы, а это формы, классы, программы,
таблицы и т.д. После добавления можно создавать само приложение, а именно файл
с расширением .app. Для этого нам всего лишь надо нажать на кнопку « Build…»
(см. рис. 11), после чего появится окно, где нам надо выбрать пункт «Application
(app)» , затем нажать на кнопку «ОК» (см. рис. 12). Далее появиться
окно сохранения приложения, необходимо указать путь и нажать на кнопку «Сохранить»
(Аналогично рисунку 10).


Если Вы все сделаете правильно, то приложение должно
превосходно работать.









Я закончил свой проект, хоть он мне и давался с
трудом. Основная сложность - разработка форм, классов, переменных, исправление
ошибок и д.т. Но благодаря своим усилиям и помощи учителя, мой проект выглядит
неплохо. В ходе всей моей проделанной работы я научился делать проекты, меню,
создавать формы и, в конце концов, делать аудио- и видео проигрыватели.







1.     Книга «Visual Foxpro 9 - Клепинин, Агафонова»



Похожие работы на - Разработка мультимедиа Курсовая работа (т). Информационное обеспечение, программирование.
Современные Космические Обсерватории Реферат
Доклад по теме Принципы юридической ответственности
Отчет по практике по теме Программные продукты, применяемые на ООО 'Ротекс'
Курсовая Работа На Тему Внешняя Политика России: Исторический Анализ Начала Xx Века
Эсс Немцы
Курсовая Работа База Данных Автопредприятия
Контрольная Работа Номер 2 Динамика
Реферат: Софизмы
Чс Природного Характера Реферат
Контрольная работа по теме Пригородные и дворцово-парковые комплексы Санкт-Петербурга
Курсовая Работа На Тему Республика Беларусь Как Пример Открытой Экономики (Факторный Анализ)
Реферат Массовая Культура Культура Народная
Реферат: Контрабанда наркотических средств
Культура Делового Общения По Телефону Реферат
Контрольная работа по теме Гидравлический расчет двухтрубной гравитационной системы водяного отопления
Контрольная работа: Орнамент. Скачать бесплатно и без регистрации
Дипломная работа по теме Формы культурно-досуговой деятельности по приобщению детей среднего школьного возраста к культуре Сибирского казачества
Эссе На Тему Опера
Контрольная работа: Теория "Художественной воли", формальный метод А. Ригля
Контрольная работа по теме Проблема креативности личности
Реферат: Розвиток техніки мовчазного читання Розробка і систематизація вправ для вироблення навички чита
Сочинение: Человек целый мир По повести Л.Н. Толстого Детство
Похожие работы на - Сущность феномена "фирменная марка" (брэнд): к онтологии маркетинга