Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Подскажите непрограммисту! Добавлено: 04.09.07 10:46  

Автор вопроса:  konst
С помощью самоучителя сделал себе нужный таймер, но не нашел - как вывести звук на динамик компьютера. Можно просто несколько "пиков", а лучше - простенькую мелодию. Прошу помочь конкретным ответом, а не отсылать к другим книгам. Если бы я собирался заниматься программированием, то так бы и поступил, ну а сейчас мне просто нужен этот таймер.

Ответить

  Ответы Всего ответов: 9  

Номер ответа: 1
Автор ответа:
 intel-DX



ICQ: 445091742 

Вопросов: 4
Ответов: 169
 Профиль | | #1 Добавлено: 04.09.07 12:43
простее всего это оператор Beep он выдает простой звук.

Ответить

Номер ответа: 2
Автор ответа:
 konst



Вопросов: 1
Ответов: 5
 Профиль | | #2 Добавлено: 04.09.07 12:50
>простее всего это оператор Beep он выдает простой звук.

А подробнее?

Ответить

Номер ответа: 3
Автор ответа:
 intel-DX



ICQ: 445091742 

Вопросов: 4
Ответов: 169
 Профиль | | #3 Добавлено: 04.09.07 12:57
просто напиши Beep и все.

Ответить

Номер ответа: 4
Автор ответа:
 konst



Вопросов: 1
Ответов: 5
 Профиль | | #4 Добавлено: 04.09.07 13:02
Спасибо!

Ответить

Номер ответа: 5
Автор ответа:
 Yanex



ICQ: 387761649 

Вопросов: 32
Ответов: 169
 Web-сайт: Progr.Do.am
 Профиль | | #5
Добавлено: 04.09.07 13:32
Не, так не пойдет. Нужно выдавать звук не колонками, а динамиком. Могу завтра послать пример. Только скажи мыло.

А вообще, в данном случае лучше уже использовать MIDI, т. к. звук из системного блока сейчас радует далеко не всех. :)

Ответить

Номер ответа: 6
Автор ответа:
 bi-lya



Вопросов: 1
Ответов: 125
 Профиль | | #6 Добавлено: 04.09.07 13:42
Пример из API-Guide - наслаждайтесь!
Private Const SND_APPLICATION = &H80         '  look for application specific association
Private Const SND_ALIAS = &H10000     '  name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000    '  name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_FILENAME = &H20000     '  name is a file name
Private Const SND_LOOP = &H8         '  loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4         '  lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2         '  silence not default, if sound not found
Private Const SND_NOSTOP = &H10        '  don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000      '  don't wait if the driver is busy
Private Const SND_PURGE = &H40               '  purge non-static events for task
Private Const SND_RESOURCE = &H40004     '  name is a resource name or atom
Private Const SND_SYNC = &H0         '  play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub CommandButton1_Click()
    
    PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC

End Sub

Ответить

Номер ответа: 7
Автор ответа:
 Yanex



ICQ: 387761649 

Вопросов: 32
Ответов: 169
 Web-сайт: Progr.Do.am
 Профиль | | #7
Добавлено: 04.09.07 13:45
Вопрос же был задан так: нужно с помощью встроенного динамика проиграть звук! WAV-ы, конечно, хорошо, но ведь нужен Beep-звук!

Ответить

Номер ответа: 8
Автор ответа:
 konst



Вопросов: 1
Ответов: 5
 Профиль | | #8 Добавлено: 04.09.07 13:56
Можно послать пример на ящик k_elecs@hotbox.ru

Ответить

Номер ответа: 9
Автор ответа:
 konst



Вопросов: 1
Ответов: 5
 Профиль | | #9 Добавлено: 04.09.07 14:00
Спасибо за помощь! Да, и звук нужен из встроенного динамика. А качество звука не существенно - лишь бы звуком оповестить об истечении времени.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам