Конференция VBStreets

**Mirus** » 07.06.2003 (Сб) 14:31

Как сгенерировать звук(только не стандартный Windows)?

**Gemini** » 07.06.2003 (Сб) 17:57

В смысле?
можно просто проиграть его:

Код: Выделить всё: Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private sub Command1_click() dim rc& rc=sndPlaySound(File_Sound,0) end sub

**Mirus** » 07.06.2003 (Сб) 21:38

Нужно без использования музыкальных файлов

**Firestorm** » 08.06.2003 (Вс) 7:48

как это? midi чтоли? :lol:

**Mirus** » 08.06.2003 (Вс) 11:28

Через API.
Нужно что-то вроде Play как в QBasic и звук чтоб шел через колонки!

**Mirus** » 08.06.2003 (Вс) 11:33

Firestorm
А миди это не музыкальный файл?

**Urvin** » 08.06.2003 (Вс) 13:10

Код: Выделить всё: Public Declare function MessageBeep Lib "User32"(ByVal wType as Long) As Long

А еще поспотри в примерах программ - там есть исходники XO Player - там код более функционален.

**GoGosha** » 09.06.2003 (Пн) 9:27

Mirus писал(а):Firestorm
А миди это не музыкальный файл?

Была какая-то ф-ция, но она под 98 не пашет. Ещё есть какие-то непонятные мне ф-ции, как midiout...

**Mirus** » 09.06.2003 (Пн) 11:28

Спасибо за ответы!
В примере ХО есть все что мне нужно!

Звук через колонки.