Не проигрывается звуковой файл

@Matuan · Регистрация: 25.10.2014

Студворк — интернет-сервис помощи студентам

Добрый день.
Проблема в следующем.
Начал изучать программирование по книге: Лукин С.Н.-Visual Basic 6.0.
Создал калькулятор, картинку вставил, но звуковой файл не проигрывает.
Код ниже:

Visual Basic
1
2
3
4
5
6
Private Sub MMControl1_Done(NotifyCode As Integer)
DeviceType = "WaveAudio"
File Name = "C:\Windows\Media\Alarm01.wav"
Command = "Open"
Command = "Play"
End Sub

В книге написано, "Проверьте настройки вашей звуковой карты в программе «Микшер». Для этого в среде Windows нажмите Пуск  Программы  Стандартные  Развлечения  Регулятор громкости. В возникшем окне снимите флажки (галочки) выключения канала и установите максимальный уровень у каналов Wave (для WAV-файлов и MP3-файлов) и MIDI (для MID-файлов и RMI-файлов)." У меня винда 8.1, там такого нет и эти файлы не отметить.
Подскажите, что не так.
Помогите!!!!!!!!!!!

alsav22 · 25.10.2014, 23:20

Понятия не имею, как там в Basic, но в C++ обратные слеши двойными должны быть. Если так:

PureBasic
1
File Name = "C:\\Windows\\Media\\Alarm01.wav"

@Alex77755 · 26.10.2014, 08:16

из примеров:

Visual Basic
1
2
3
4
5
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
Dim x As Long
x = PlaySound("C:\123.wav", 0, &H1 Or &H10)
End Sub

Добавлено через 4 минуты
И вот ещё из примеров (не моё)

Проигрывание WAV-файлов
Я и сам долго искал как проигрывать файлы WAV из VBasic'a и вот все методы, которые я нашёл. Если кто-нибудь знает ещё что-то, присылайте, обазательно добавлю с указанием автора.

Пример 1: Для этого можно использовать API-функцию sndPlaySound:

Пишем в модуле:

Visual Basic
1
2
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ 
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Для вызова используем:

Visual Basic
1
Call sndPlaySound ("путь к файлу", 0)

Под вызовом подразумевается начало проигрывания желаемого WAV-файла.

Пример 2: Также можно использовать мультимедийный проигрыватель MMControl:

1.На форму вешаете ММСontrol1
("Project | Components | Microsoft Multimedia Control 5.0") и в FileName указываете нужный файл.

2. В Form_Load вписываете

Visual Basic
1
MMControl1.Command = "Open"

(открытие и приготовление к работе)

3. И всё! Только перед каждым пригрыванием надо гнать звук на начало.

Примечание: использовать MMControl1 для простого проигрывания файлов совсем неудобно. Другое дело, если Вы пишите что-то типа браузера. И ещё как Вы, может быть заметили, с помощью MMControl можно простматривать и видеоклипы (*.AVI) и слушать MIDI.

Может пункт 3 мешает тебе прослушать?

Dragokas · 26.10.2014, 21:40

Visual Basic
1
2
3
4
5
6
Private Sub MMControl1_Done(NotifyCode As Integer)
        MMControl1.DeviceType = "WaveAudio"
        MMControl1.FileName = "C:\Windows\Media\Alarm01.wav"
        MMControl1.Command = "Open"
        MMControl1.Command = "Play"
End Sub

не проверял.

@Matuan · 01.11.2014, 02:45 **[ТС]**

Не проигрывает.

@Matuan · 08.11.2014, 12:35 **[ТС]**

Файл не проигрывается. Возможно надо к другому устроитсву воспроизведения путь указать?

@dzug · 08.11.2014, 14:07

Попробуйте вот так:

Visual Basic
1
2
s = "C:\Windows\Media\Alarm01.wav"
  CreateObject("WScript.Shell").Run s

Это воспроизведение на устройстве по умолчанию..
У меня работает на VB6 .

@Matuan · 11.11.2014, 01:40 **[ТС]**

Вот код:

Visual Basic
1
2
3
4
5
6
7
Private Sub MMControl1_Done(NotifyCode As Integer)
   DeviceType = "WaveAudio"
   s = "C:\Windows\Media\Alarm01.wav"
   CreateObject("WScript.Shell").Run s
   Command = "Open"
   Command = "Play"
End Sub

Не играет. Где ошибка?

@Alex77755 · 11.11.2014, 08:52

Колонки включены?

Visual Basic
1
2
   Command = "Open"
   Command = "Play"

разве это было в примере выше?
Проверь путь! Скорей всего у тебя нет такого файла

@dzug · 11.11.2014, 09:57

Проигрывает на устройстве по УМОЛЧАНИЮ.. :black_eye.:

Visual Basic
1
2
3
4
Private Sub MM
      s = "C:\Windows\Media\Alarm01.wav"
   CreateObject("WScript.Shell").Run s
 End Sub

И правильно выше подсказали - проверь наличие файла по этому пути..

@Matuan · 28.11.2014, 02:14 **[ТС]**

Заработал этот код:

Visual Basic
1
2
3
4
Private Sub Form_Load()
s = "C:\Windows\Media\Alarm01.wav"
   CreateObject("WScript.Shell").Run s
End Sub

При запуске автоматически проигрывается этот файл. При проигрывании использует программу ту, что выставлена по умолчанию в Винде.

Спасибо всем кто помогал.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Matuan 0 / 0 / 0 Регистрация: 25.10.2014 Сообщений: 5
	01.11.2014, 02:45 [ТС]
	Не проигрывает. 0

@Matuan 0 / 0 / 0 Регистрация: 25.10.2014 Сообщений: 5
	08.11.2014, 12:35 [ТС]
	Файл не проигрывается. Возможно надо к другому устроитсву воспроизведения путь указать? 0

Не проигрывается звуковой файл

Решение