Реферат: Обзор элементов языка программирования
Тут с её использованием всё просто. Если имеется микрофон, то можно сразу записывать звук нажав на кнопку «Запись», который выделен красным цветом. Кнопка «Start» предназначена для воспроизведения записанного звука. Кнопка «Stop» останавливает запись и подготавливает его для воспроизведения.
Записанный звук сохраняется под расширением .WAV. Кнопка «Входы» предназначен для приёма и показа звука с одного из входов. Звук показывается на рабочей области программы кривыми линиями. Кривые линии - это диапазон звука.
19
Заключение
Выполняя нашу курсовую работу, мы задались целью выяснить, какие есть способы программирование звука и видео и по возможности внести что-то свое. Выяснив, что на данный момент существует несколько способов программирование звука, мы решили написать программу звука на языке Турбо Паскаль.
В этой курсовой работе мы описали в основном 3 программы: speaker1, speaker2 и zvuko_zapis.
В основу разработанной программы звука на языке Турбо Паскаль заложена программа speaker1 предназначенная для генерации последовательности прямоугольных звуковых импульсов и его улучшенный вариант - программа speaker2. Учтено, что манипуляции с мышью не должно приводить к прерывистому звучанию динамика, и использовано вещественное значение частоты, а также программа zvuko_zapis, предназначенный для записи звука и приёма и показа звука с одного из входов.
Также рассмотрена работа DirectShow, для чего он предназначен и как он воспроизводит видео форматы.
Рассмотрев много языков программирования, которые позволяют осуществлять программирование звука и видео, мы остановили свой выбор на языке Турбо Паскаль.
Выполненное работа дает возможность использование программу, как преподавателям, так и студентам, для этого достаточно лишь установить данную программу на компьютер.
20
Приложения
Приложение А
Текст программы speaker 1
Листинг :
Program speaker 1;
Uses crt;
Const
Speaker_port = %61;
Var
Portval : byte;
Begin
Portval := port[speaker_port] and $FC;
While not KeyPressed do
begin
Port[speaker_port] := portval or 2;
Delay(5);
Port[speaker_port] := portval;
Delay(5);
End;
ReadKey;
End.
21