Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как издать звуковой сигнал простейшим способом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как издать звуковой сигнал простейшим способом (VBA+Excel+Sound)
Как издать звуковой сигнал простейшим способом
SGerman Дата: Среда, 29.06.2016, 14:30 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 4 ±
Замечаний: 20% ±

Excel 2003
Здравствуйте !
Есть ли простой способ выдать звуковое предупреждение пользователю, например, сигнализируя о его неверных действиях ?
Beep, оказываеся, не работает в XP и выше. Нагуглил как это делают другие, но там используются библиотеки API и звуковые файлы. А если просто заставить звучать системный динамик ?

Спасибо за помощь.

Мудрость приходит со старостью. Но иногда старость приходит одна :)
 
Ответить
СообщениеЗдравствуйте !
Есть ли простой способ выдать звуковое предупреждение пользователю, например, сигнализируя о его неверных действиях ?
Beep, оказываеся, не работает в XP и выше. Нагуглил как это делают другие, но там используются библиотеки API и звуковые файлы. А если просто заставить звучать системный динамик ?

Спасибо за помощь.
Автор - SGerman
Дата добавления - 29.06.2016 в 14:30
Kamikadze_N Дата: Среда, 29.06.2016, 14:36 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация: 6 ±
Замечаний: 0% ±

Excel 2010
Если речь идет о Спикере, то[vba]
Код
Shell "Cmd.exe /c echo " & Chr(7), vbHide
[/vba]
 
Ответить
СообщениеЕсли речь идет о Спикере, то[vba]
Код
Shell "Cmd.exe /c echo " & Chr(7), vbHide
[/vba]
Автор - Kamikadze_N
Дата добавления - 29.06.2016 в 14:36
SGerman Дата: Среда, 29.06.2016, 14:51 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 4 ±
Замечаний: 20% ±

Excel 2003
>Kamikadze N

Замечательно ! Просто как все гениальное :)
Если б еще можно было задать тональность.

Спасибо за концептуальную подсказку

Мудрость приходит со старостью. Но иногда старость приходит одна :)
 
Ответить
Сообщение>Kamikadze N

Замечательно ! Просто как все гениальное :)
Если б еще можно было задать тональность.

Спасибо за концептуальную подсказку
Автор - SGerman
Дата добавления - 29.06.2016 в 14:51
Udik Дата: Среда, 29.06.2016, 15:33 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Цитата SGerman, 29.06.2016 в 14:30, в сообщении № 1
там используются библиотеки API и звуковые файлы

так можно API только с динамиком, первый параметр частота, второй - длительность мс
в стандартный модуль
[vba]
Код

#If VBA7 And Win64 Then
Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

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

#End If
Public Sub test3()
    Debug.Print "test3"
    Beep 3000, 3000
End Sub

[/vba]
К сообщению приложен файл: API_Beep.xlsb (14.0 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщение
Цитата SGerman, 29.06.2016 в 14:30, в сообщении № 1
там используются библиотеки API и звуковые файлы

так можно API только с динамиком, первый параметр частота, второй - длительность мс
в стандартный модуль
[vba]
Код

#If VBA7 And Win64 Then
Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

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

#End If
Public Sub test3()
    Debug.Print "test3"
    Beep 3000, 3000
End Sub

[/vba]
Автор - Udik
Дата добавления - 29.06.2016 в 15:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как издать звуковой сигнал простейшим способом (VBA+Excel+Sound)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!