DirectX DirectSound

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
cg_ck
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 118
Зарегистрирован: 11.06.2003 (Ср) 12:02
Откуда: Riga(Latvia)

DirectX DirectSound

Сообщение cg_ck » 16.06.2005 (Чт) 1:12

Код: Выделить всё
Dim dx As New DirectX7
Dim ds As DirectSound

Dim dsbuffer1 As DirectSoundBuffer
Dim dsbuffer2 As DirectSoundBuffer


Sub InitSound()
'On Local Error Resume Next

Set ds = dx.DirectSoundCreate("")

If Err.Number <> 0 Then
End If

ds.SetCooperativeLevel Form1.hWnd, DSSCL_NORMAL


Dim bufferDesc As DSBUFFERDESC
Dim waveFormat As WAVEFORMATEX

bufferDesc.lFlags = DSBCAPS_CTRLPAN

Set dsbuffer1 = ds.CreateSoundBufferFromFile("Beat004.wav", bufferDesc, waveFormat)
If Err.Number <> 0 Then
End If

Set dsbuffer2 = ds.CreateSoundBufferFromFile("c:\Beat005.wav", bufferDesc, waveFormat)
If Err.Number <> 0 Then
End If
End Sub


Sub PlayPanned(Buffer As DirectSoundBuffer, Position As Integer)Buffer.SetPan Position
Buffer.Play 0Sub



Private Sub Command1_Click()
    InitSound
    'PlayPanned dsbuffer1, 0
End Sub

Private Sub Command2_Click()
    PlayPanned dsbuffer1, 0
End Sub



Вылетает после
Set dsbuffer1 = ds.CreateSoundBufferFromFile("Beat004.wav",
со словами:
File name or class name not found during Automation operation


Ссылка на стоатью?
[url]
http://vbstreets.ru/VB/Articles/65565.aspx
[/url]

В чём собственно проблема может быть?
Ходит по лесу хомяк, хищный маленький дурак...

GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 16.06.2005 (Чт) 7:19

А у тебя "Beat004.wav", есть ? Если нету то для примера попробуй ну скажем C:\WINDOWS\Media\chimes.wav .
الفيجوال بيسك الرابح

GM
programador
programador
 
Сообщения: 1427
Зарегистрирован: 24.06.2003 (Вт) 15:56
Откуда: 194.67.52.100

Сообщение GM » 16.06.2005 (Чт) 9:28

Я имею ввиду если ты вводиш "Beat004.wav". То это значит что этот файл находится в текущей директории твоей проги. Лучше уточни этот путь. Или дело не втом :roll:
الفيجوال بيسك الرابح

cg_ck
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 118
Зарегистрирован: 11.06.2003 (Ср) 12:02
Откуда: Riga(Latvia)

Сообщение cg_ck » 16.06.2005 (Чт) 12:13

Насколько я был слеп и глуп. Спасибо!
Ходит по лесу хомяк, хищный маленький дурак...


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

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

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

    TopList