Звук в VB 6

[Andervers]

Как сделать, чтоб динамик пищял, желательно в Power Point, но и на простой VB будет хорошо

[Димитрий]

Добавьте следующий код:

Код: Выделить всё

Option Explicit
'Функция генерирует звуковой сигнал
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'dwFred - частота звука
'dwDuration - продолжительность сигнала в миллисекундах

Private Sub cmdGen_Click()
'Генерируем звук
Beep srlChastota.Value, srlTime.Value
End Sub

Автор статьи: Хованский Ян (web: yansoft.by.ru)

[GSerg]

Только добавляя, учитывайте, что работать на винде ниже 2000 не будет

[Andervers]

Спасибо, спасибо, но вопрос - это для Power Point или просто для VB?

[Димитрий]

Это API функция может быть использована везде (в современных языках)

[Andervers]

Добавьте следующий код:

Код: Выделить всё

Option Explicit
'Функция генерирует звуковой сигнал
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'dwFred - частота звука
'dwDuration - продолжительность сигнала в миллисекундах

Private Sub cmdGen_Click()
'Генерируем звук
Beep srlChastota.Value, srlTime.Value
End Sub

Автор статьи: Хованский Ян (web: yansoft.by.ru)

Я VB только учусь, так что обьясните - dwFred и dwDuration - их заменять или ставить = или dwDuration 12??? У меня не получилось(

[Димитрий]

Этот код конечно сразу не заработает.
Необходимо сделать кнопку cmdGen и два скрола (полоса прокрутки)
srlChastota srlTime. Принажатии кнопки динамик запищит.
Если Вам нужно вставить звук по другому событию, то в коде просто вставте Beep 300, 150
Где dwFred- частота звука =300Гц (37-20000)
dwDuration - продолжительность сигнала в миллисекундах =150 (0-10000)
Кстати API функции объявляются в блоке модуля и лутше:
Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

[Andervers]

Как сделать, чтобы при нажатии на кнопку пищял динамик, желательно прерывистые?? Суть в том, что я делаю проект про BIOS, нужно показать звуковые сигналы.

[Igor_123]

Сделай в звуковом редакторе нужные звуки и дай поинту на исполнение и не мучай себя
"Сеня! Береги руку" (с) "Брилиантовая рука"

Удачи

[Andervers]

А если всё-же помучать себя?? К тому же до следующего года время есть, наверняка успею, если поможете

[Igor_123]

Ну тады добро пожаловать в наш клуб "МаздоСадо"

[Димитрий]

Что-то типа

Код: Выделить всё

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Public Declare Function GetTickCount Lib "kernel32" () As Long

Function Dinamik(Chast As Long, Tim As Long, Paus As Long, Chis As Long)
Dim i As Long, SStime As Long
    For i = 1 To Chis
        Beep srlChastota.Value, srlTime.Value
        SStime = GetTickCount
        Do While GetTickCount - SStime < Paus: DoEvents: Loop
    Next
End Function

[Igor_123]

А что значит это

Код: Выделить всё

srlChastota.Value, srlTime.Value

[Rombo]

2Igor_123: http://bbs.vbstreets.ru/viewtopic.php?t=15397#112897

а можно как-нибудь проиграть WAV файлу, внедренную в этот же офисный файл?

[Igor_123]

Как внедрить не знаю, а в меню "Вставка"->"Фильмы и звук"->...

Вау!!! у меня в 2003 офисе есть даже записать звук

[Димитрий]

Внедрённый файл воспроизвести можно так:
Worksheets(1).OLEObjects(1).Verb

Для интересующихся можно посмотреть, как звучит игра на Excel:
http://www.geocities.co.jp/SiliconValle ... ommand.LZH