powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как заставить пищать системный динамик?
6 сообщений из 6, страница 1 из 1
Как заставить пищать системный динамик?
    #33141789
LAVix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет, всем!
Кто нибудь знает как заставить пищать системный динамик на материнке из VFox. Работаю на VFox 6.0.
...
Рейтинг: 0 / 0
Как заставить пищать системный динамик?
    #33141811
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
chr(7)
...
Рейтинг: 0 / 0
Как заставить пищать системный динамик?
    #33141820
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Declare Sleep In kernel32 Integer dwMilliseconds  
  Declare Integer Beep In kernel32 Integer dwFreq, Integer dwDur  
 
  = Beep1( 100 )  
  = Beep1( 300 )  
  = Beep1( 200 )  
  = Beep1( 300 )  
  = Beep1( 400 )  
  = Beep1( 100 )  
  = Beep1( 300 )  
  = Beep1( 1000 )  
Procedure  Beep1 (lnFreq)  
  	= Beep(lnFreq,  50 )  
  	= Sleep ( 20 )  
endproc 
...
Рейтинг: 0 / 0
Как заставить пищать системный динамик?
    #33142049
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2LAVix
иногда бывает что динамик не подключен поэтому не пишит

SET BELL ON
SET BELL TO 'C:\WINDOWS\DING.WAV', 0
?? CHR(7)

http://www.sql.ru/forum/actualthread.aspx?tid=56761&hl=%e4%e8%ed%e0%ec%e8%ea
...
Рейтинг: 0 / 0
Как заставить пищать системный динамик?
    #33142416
LAVix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я сделал как посоветовали leaf и alexmed.
А насчет примера PaulWist хочу попробовать - спасибо.
...
Рейтинг: 0 / 0
Как заставить пищать системный динамик?
    #33144051
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi LAVix!

Если под Win9x и имеется звуковая карта, то Beep работать не будет - придётся использовать MessageBeep.

CHR(7) не пищит спикером, а выводит сигнал на звуковую карту.

Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как заставить пищать системный динамик?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]