Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Звук системника. Excel VBA
 
#1
01.12.2009 10:38:41
Подскажите пожалуйста:  
У меня выполняется макрос в файле Excel, надо что бы по окончании выполнения макроса системник издавал звук (beep).    
 
Excel VBA это умеет делать? Есть код?
Работать надо не 12 часов, а головой.
 
 
 
#2
01.12.2009 10:43:58
{quote}{login=Leanna}{date=01.12.2009 10:38}{thema=Звук системника. Excel VBA}{post}Подскажите пожалуйста:  
У меня выполняется макрос в файле Excel, надо что бы по окончании выполнения макроса системник издавал звук (beep).    
 
Excel VBA это умеет делать? Есть код?{/post}{/quote}  
Великое дело клавиша F1 (Help)  
Откройте проект VBA, нажмите F1 и поищите что-нить по слову Beep....
 
 
 
#3
01.12.2009 10:56:06
beep работает далеко не во всех компах, видимо надо что-то в биосе включать
 
 
 
#4
01.12.2009 11:01:53
я например во всех своих системниках бипер выдираю
 
 
 
#5
01.12.2009 11:03:02
если вы именно про звук биоса когда оперативка погорела или еще что)
 
 
 
#6
01.12.2009 11:06:22
в глобальных переменных объявлеям  
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long  
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long  
 
а там где нужно поиграть музычку пишем так  
Call sndPlaySound("C:\Windows\Media\tada.wav", 1)
 
 
 
#7
01.12.2009 11:35:59
Посмотрите пример файла с проигрыванием звука через динамик PC:  
http://excelvba.ru/XL_Files/Sample__01-12-2009__13-34-22.zip  
 
пример взят из этой темы: http://www.programmersforum.ru/showthread.php?p=223005  
Там же есть пояснения, почему звук воспроизводится не на всех системах.  
 
Обратите внимание, что код в моём примере может проигрывать через PC-spaeker целые мелодии:  
 
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
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#8
01.12.2009 11:43:07
Почитайте ещё тему, аналогичную Вашей:  
http://www.programmersforum.ru/showthread.php?t=54571
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#9
01.12.2009 18:01:13
Nothing ... Netbook MSI U100
 
 
 
#10
12.10.2011 18:50:26
да это проще простого  
например, чтобы был басовый звук нужно ввести код:  
Beep 100, 100  
а чтобы был высокий:  
beeps 100, 100  
а вместо 100 можно ввести любые цифры
 
 
 
Страницы: 1
Читают тему
Наверх