Реферат: Записная книжка на Delphi 7
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, нужно стереть текст.
Так как в GroupBox2 находятся два компонента ComboBox которые используется для установки времени, а компонент CheckBox1 для воспроизведения файла, то в свойстве Caption компонента GroupBox2 можно ввести: ‘Настройки’. В свойстве Caption компонента CheckBox1 можно ввести: ‘Воспроизвести аудио-файл’.