Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: DirectMusic8 или Directsound8 Добавлено: 24.12.02 23:42  

Автор вопроса:  Matrix | Web-сайт: delta-net.narod.ru

Кто-нить юзал директ мюзики или саунд? Объясните чайнику как там енто всё делается... Вобщем надо звуки опред.  частоты генерировать... Слышал что через ето делается...

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Last_Santa



ICQ: 200700724 

Вопросов: 38
Ответов: 329
  Web-сайт: localhost
 Профиль | | #1 		Добавлено: 25.12.02 01:24
Если хо чешь могу прислать офф копию сайта по Директу в ВБ там вроде есть то что тебе нужно

Ответить

Номер ответа: 2
Автор ответа:
 SeMa



ICQ: 166433794 

Вопросов: 9
Ответов: 143
  Профиль | | #2 Добавлено: 25.12.02 05:40

Dim dsnd As DirectSound
Dim test As DirectSoundBuffer
Private Sub Form_Load()
Set dx = New DirectX7
InitSound
PlayPanned test, 320
End Sub
Private Sub InitSound()
Set dsnd = dx.DirectSoundCreate("")
dsnd.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL
Dim bufferDesc As DSBUFFERDESC
Dim waveFormat As WAVEFORMATEX
bufferDesc.lFlags = DSBCAPS_CTRLPAN
On Error Resume Next
Set test = dsnd.CreateSoundBufferFromFile("c:\sb\tst1.wav", bufferDesc, waveFormat)
End Sub

Sub PlayPanned(hSo As DirectSoundBuffer, x As Integer)
If bRevStereo = True Then
hSo.SetPan 10000 - 20000 * (x / 640)
Else
hSo.SetPan 20000 * (x / 640) - 10000
End If
'hSo.Play 0
hSo.Play DSBPLAY_LOOPING
End Sub

Ответить

Номер ответа: 3
Автор ответа:
 SeMa



ICQ: 166433794 

Вопросов: 9
Ответов: 143
  Профиль | | #3 Добавлено: 25.12.02 05:48

Сорри пропустил

Dim dx As DirectX7

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам