Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

Постановка задачи

“Media Player” – программа, которая должна воспроизводить музыкальные композиции и видео-файлы. В Delphi есть универсальный компонент
MediaPlayer, который выполняет нужные нам функции. Так же на форме будет 2 кнопки для открытия файла и для выхода из программы.

Создания интерфейса

В свойстве Caption формы введём текст: ‘Media Player’, а в свойстве формы
Name введём имя формы: ‘MediaP’. В свойстве формы AutoSize нужно выставить
True, для то чтобы форма изменяла размер вместе с компонентами.
Переносим компонент MediaPlayer с закладки System на форму. Переносим 2 кнопки BitBtn с закладки Additional и компонент OpenDialog с закладки
Dialogs.

Описание процедур и функций

Одну кнопку называем: «Открыть файл», а вторую:«Закрыть».
Настраиваем Filter компонента OpenDialog1: Filter Name: ‘Видео-файлы и музыка’, Filter: ‘*.avi;*.mp3;*.wav’.
В кнопку «Открыть файл» вставляем следующий код: if opendialog1.Execute then // открытия окна выбора файла if opendialog1.FileName = '' then writeln ('Вы не выбрали файл!!!')

else begin // или mediaplayer1.FileName:=opendialog1.FileName; // занести путь к файлу mediaplayer1.Open;//открыть файл end;
Теперь в кнопку «Закрыть» нужно вставить оператор ‘Close;’.

Всё на этом создание программы «Media Player» закончен. Теперь можно скомпилировать и запустить программу. Сохраните этот проект.

– 16 –

«CD-Rom»

Постановка задачи

Так как нам нужно только открыть или закрыть лоток CD-Rom’а, то можно использовать только 2 кнопки, потому что при закрытии лотка CD-Rom’а можно и закрыть программу.

Создание интерфейса

В свойстве Caption формы введём текст: ‘CD-Rom’, а в свойстве формы Name введём имя формы: ‘CDRom’.
Перенесём 2 кнопки BitBtn на форму. Подпишим каждую кнопку, например так:
«Открыть CD» и «Закрыть CD». Выставим для каждой кнопки соответственную пиктограмму.

Описание процедур и функций

Чтобы работала программа нужно подключить модуль MMSystem в USES формы.
Для кнопки которая будет открывать лоток, нужен следующий код: mciSendString('Set cdaudio door open wait', nil, 0, handle);
Для кнопки которая будет закрывать лоток, нужен следующий код: mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Всё на этом создание программы «CD-Rom» закончен. Теперь можно скомпилировать и запустить программу. Сохраните этот проект.

«Напомнить о…»

Постановка задачи

Так как нам нужно чтобы через заданное время, выводилось какое либо сообщение, то нам нужно два компонента для выбора промежутка времени (часы и минуты), компонент для ввода нужного сообщения. Так как ещё будет звуковой сигнал, то проще всего будет использовать компонент MediaPlayer.
На форме будет писаться сколько осталось время.

Создание интерфейса

Окно для ввода сообщения и для настройки времени будут находиться внутри компонента GroupBox. Этот компонент нужно перетащить на форму с закладки
Standard. Для того чтобы можно было написать сообщение, будем использовать компонент Edit который находиться на той же странице, его нужно перетащить на компонент GroupBox1. Свойство формы AutoSize выставить True.
Теперь перенесём ещё один компонент GroupBox и в него вставим два компонента ComboBox, которые нужны для выбора времени. Перенесём на
GroupBox2 компонент CheckBox, который будет показывать воспроизвести аудио- файл или ненужно.
Перенесём на форму 4 кнопки BitBtn. Нужен компонент OpenDialog через который будет

- 17 - выбор аудио-файла, его можно найти на закладке Dialogs.
Нужно 3 компонента Timer. 2 Timer’а будут использоваться в зависимости нужно ли проигрывать аудио-файл или нет, а 3 для показа сколько время осталось. Для всех 3х таймеров в их свойствах Enabled нужно выставить
False.
Перенесём на форму MediaPlayer с закладки System в какой то компонент
GroupBox,что даст возможность не мешать размерам формы так как MediaPlayer не будет виден.
Когда всё сделать, то расположите все компоненты как показано на рис.2.4

Рис.2.4
Процесс создания интерфейса

Изменим надписи на компонентах.
В свойстве Caption формы введём текст: ‘Напомнить о…’, а в свойстве формы
Name введём имя формы: ‘Memory’.
Так как в GroupBox1 находиться компонент Edit1 и используется для создании сообщения, то в свойстве Caption компонента GroupBox1 можно ввести: ‘Напомнить о:’.
В свойстве Text, компонента Edit1, нужно стереть текст.

Рекомендуем скачать другие рефераты по теме: курсовая работа по менеджменту, реферат факторы.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки