Проигрыватель музыкальных дисков
- Категория
- Информатика
- Тип
- реферат
- Страницы
- 6 стр.
- Дата
- 13.10.2009
- Формат файла
- .rtf — Rich Text Format (Wordpad)
- Архив
- 21148.zip — 7.55 kb
- proigryvatel-muzykalnyx-diskov_21148_1.rtf — 35.8 Kb
- Readme_docus.me.txt — 125 Bytes
Текст работы
Проигрыватель музыкальных дисков Alena Alena
Проигрыватель музыкальных дисков
Владимир Коробицын
Вставка этикеток. Извлечение текущей даты из компьютера. Управление приложением с клавиатуры. Многооконность приложения.
Если Вы хотите изготовить приложение собственного проигрывателя музыкальных компакт-дисков, то Ваш компьютер должен быть оснащен устройством чтения оптических CD-дисков и музыкальной картой. Если музыкальная карта отсутствует, то прослушивать записи придется посредством головных телефонов.
Создайте папку Lesson31. Поместите в нее файл поддержки мультимедийных объектов Mx. Запустите Visual Basic. Окно формы Form1 окрасьте, например, в темно-серый цвет. Добавьте в проект Вашего приложения файл Mx. Для этого в меню File (Файл) выберите команду Add File ... (Добавить файл …) и через появившееся окно загрузите файл поддержки Mx. В окне объектов появится значок мультимедийных объектов. Щелкните по кнопке с этим значком и поместите объект MMControl1 на форму Вашего приложения. В окне свойств объекта MMControl1 для свойств BackVisible, StepVisible, RecordVisible установите значение False (Ложь), так как эти кнопки в проигрывателе использоваться не будут
. В процедуру Form_Load, которая вызывается сразу после загрузки приложения, впишите программный код:
Sub Form_Load ( )
MMControl1.DeviceType = "CDAudio"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
Первая строка программного кода активизирует устройство чтения компакт-дисков, следующая строка открывает первую музыкальную запись, и последняя строка заставляет воспроизводить мелодии с диска по порядку.
В устройство для CD-дисков поместите музыкальный компакт-диск. Запустите
приложение. Проигрыватель начнет