 |
| Главная |
| Программы |
| Статьи |
| Разное |
| Форум |
| Контакты |
Звук через внутренний динамик
В этой статье я расскажу вам о том, как выдавать звуковой сигнал через
внутренний динамик. Для этого мы воспользуемся API функцией Beep. Ну что,
перейдём к делу:
1. Создайте новый проект.
2. На созданную вместе с проектом форму добавьте две метки (lbl1,
lbl2) , две горизонтальные полосы прокрутки (srlChastota и srlTime) и одну
кнопку (cmdGen):
| Имя элемента управления: | Свойство: | Значение: |
|---|---|---|
| lbl1 | Caption | Частота звука: |
| lbl2 | Caption | Продолжительность звука: |
| srlChastota | Min | 37 |
| srlChastota | Max | 32767 |
| srlTime | Min | 0 |
| srlTime | Max | 10000 |
| cmdGen | Caption | &Сгенерировать сигнал |
3 Добавьте следующий код:
| CODE NOW! |
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 |
Вот и всё! Вы создали программу для генерации звука из системного динамика.
| отсутствуют |
| :: Последние обновления :: |
| 04.09.2011 Долгожданный релиз VB Decompiler. Масса улучшений декомпиляции Native Code. Значительно расширенна и обновлена справочная система на русском и английском языках. |
| 20.12.2010 DotFix Software поздравляет наших клиентов и посетителей сайта с наступающим Новым Годом и рождеством! Желаем приятно провести праздники и успехов в новом году! |
| 28.11.2010 Выпущена новая версия защиты DotFix NiceProtect. Основные изменения коснулись обфускатора Delphi программ. Теперь имеется полная поддержка Tab и Page контролов на формах, что обеспечивает максимальную совместимость обфускации с Delphi XE программами. |
| 21.10.2010 Обновлен декомпилятор Visual Basic программ до версии 8.1. Декомпиляция P-Code программ становится все более идеальной, также проделана большая работа по улучшению анализа Native Code и .NET приложений. |
| 16.09.2009 Полностью обновлен движок сайта! Теперь все ссылки имеют читаемый понятный вид, разного рода глюки на страницах убраны. И теперь сайт полноценно работает на второй версии нашего движка. |
Движок сайта: DotFix Engine v0.2 Администрация сайта: |