Звук по окончанию макроса.

[sergiksergik]

Подскажите как сделать что бы по окончанию выполнения макроса прозвучал звук.
Видел здесь тему что можно использовать динамик встроенный. Как сделать?

Спасибо...

[tolikman]

не обязательно динамик, если стоят дрова на звук то прозвучит стандартный звук windows:
просто

Beep

[sergiksergik]

Ну а если нет динамиков внешних....?

[EducatedFool]

Видел здесь тему что можно использовать динамик встроенный. Как сделать?

Так там же есть пример кода...
http://www.programmersforum.ru/showp...05&postcount=3

Многое зависит от того, какая ОС установлена.
http://www.programmersforum.ru/showp...86&postcount=8

[sergiksergik]

Я читал и раньше эту тему.... но не знаю что именно добавить в конец макроса.. что бы по окончанию сигналило...

[EducatedFool]

1) В стандартный модуль добавьте строку

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

2) В конец макроса поставьте команду Beep 100, 100
(ну или Beep 440, 500 - попробуйте разные значения частоты и длительности)

PS: Если в стандартный модуль Вы помимо строки Declare Function Beep...
добавите макрос

Sub beeps(melody As String, Optional ByVal BeepTime As Integer = 200)
    mr = "qazwsxedcrfvtgbyhnujmik,ol.p;/['"
    For i = 1 To Len(melody)
        DoEvents: nextlen = 1: letter = Mid$(melody, i, 1): nota = InStr(1, mr, letter)
        If IsNumeric(letter) And letter > 0 Then
            nextlen = letter: i = i + 1: nota = InStr(1, mr, Mid$(melody, i, 1))
        End If
        If nota > 0 Then
            tone = 220 * (2 ^ ((nota - 1) / 12)): a = Beep(tone, nextlen * BeepTime)
        Else
            a = Beep(30000, nextlen * BeepTime / 5)
        End If
    Next
End Sub

то сможете легко воспроизводить целые мелодии:

Sub BeepH2(): beeps "k,k", 100: End Sub

Sub melody1(): speed = 150
    beeps "5 5 3jnybt tybtftdx2d", speed: beeps "5 5 3jnybt tybtftdx2d", speed
    beeps "5 5 nnnyc3 ct2j nyc2 ty2btff ftf2t", speed: beeps "5 5 nnnyc3 ct2j nyc2 ty2btff ftf3 yb2t", speed
End Sub

В данном случае раскладка клавиатуры соответствует клавишному ряду баяна
(обратите внимание на строку mr = "qazwsxedcrfvtgbyhnujmik,ol.p;/['")

[sergiksergik]

Огромное спасибо....