Проблемы со звуком

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
SeT
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 362
Зарегистрирован: 29.12.2004 (Ср) 13:11

Проблемы со звуком

Сообщение SeT » 09.02.2005 (Ср) 15:51

:(Люди, кто знает! Помогите пожалуйста! Мне нужно как-то восроизвести данные, находящиеся в переменной as byte. Подскажите ПОЖАЛУЙСТА, как это сделать! :?:
01000100
Причиняет боль 0010
Виртуальная любовь 00100
Индустрия снов 0010

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 09.02.2005 (Ср) 16:04

А действительно, как...
Наверное, sndPlaySound с флагом SND_MEMORY? :)
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

_Hiser_
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 12
Зарегистрирован: 28.01.2005 (Пт) 11:34
Откуда: Барнаул

Сообщение _Hiser_ » 09.02.2005 (Ср) 16:13

Ты уточни, что у тебя в этом массиве находится :?:
Если массив байтов файла WAVE то тебе нужно:
sndPlaySound, константы SND_.
Например: :arrow:
Код: Выделить всё
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long

Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4

Private Buff() As Byte

Private Sub Form_Load()
sndPlaySound Buff(0), SND_ASYNC Or SND_MEMORY
End Sub

SeT
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 362
Зарегистрирован: 29.12.2004 (Ср) 13:11

Сообщение SeT » 10.02.2005 (Чт) 16:13

Спасибо за код. Домой приду попробую, завтра скажу. Если что - рассыплюсь в благодарностях
01000100
Причиняет боль 0010
Виртуальная любовь 00100
Индустрия снов 0010

SeT
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 362
Зарегистрирован: 29.12.2004 (Ср) 13:11

Сообщение SeT » 11.02.2005 (Пт) 13:32

Мда-а-а-а. Не работаетс. Пишет типа несовпадение типов. Подскажите ламеру, как с этим справиться. :cry:
01000100
Причиняет боль 0010
Виртуальная любовь 00100
Индустрия снов 0010

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 11.02.2005 (Пт) 14:09

В коде Hiser в декларации sndPlaySound в "ByVal lpszSoundName As Any" лишний ByVal, его надо убрать.
Изображение


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 178

    TopList