Конференция VBStreets

**Штуша-Кутуша** » 23.03.2003 (Вс) 12:33

Как сделать П-и-и-и-и, а не Дзынь-дзынь (Beep) не прибегая к
проигрованию wav-файла? Вообше -то это возможно простыми
средствами?

**goro** » 23.03.2003 (Вс) 12:51

Может быть это поможет...

Код: Выделить всё: Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Form_Activate() 'KPD-Team 1999 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim Cnt As Long For Cnt = 0 To 5000 Step 10 'play a tone of 'Cnt' hertz, for 50 milliseconds Beep Cnt, 50 Me.Caption = Cnt DoEvents Next Cnt End Sub

**moderator** » 23.03.2003 (Вс) 12:54

Ну вот, а я только хотел ответить :wink:

**goro** » 23.03.2003 (Вс) 13:13

Мысли гениев схожи... :wink:

**Штуша-Кутуша** » 23.03.2003 (Вс) 16:20

Спасибо!!! Даже более чем ожидал - и частоту задать можно!.

**GoGosha** » 23.03.2003 (Вс) 16:50

goro писал(а):Может быть это поможет...
Код: Выделить всё
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Form_Activate() 'KPD-Team 1999 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim Cnt As Long For Cnt = 0 To 5000 Step 10 'play a tone of 'Cnt' hertz, for 50 milliseconds Beep Cnt, 50 Me.Caption = Cnt DoEvents Next Cnt End Sub

А как то-же самое под 98-ой?

**moderator** » 23.03.2003 (Вс) 19:50

goro писал(а):Мысли гениев схожи...

Неужто?

**goro** » 23.03.2003 (Вс) 20:41

moderator писал(а):
goro писал(а):Мысли гениев схожи...

Неужто?

Так говорят.

**goro** » 23.03.2003 (Вс) 20:49

GoGosha писал(а):
goro писал(а):Может быть это поможет...
Код: Выделить всё
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Form_Activate() 'KPD-Team 1999 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim Cnt As Long For Cnt = 0 To 5000 Step 10 'play a tone of 'Cnt' hertz, for 50 milliseconds Beep Cnt, 50 Me.Caption = Cnt DoEvents Next Cnt End Sub

А как то-же самое под 98-ой?

В 98 эта функция не работает. Она включена в 2000/ХР, как я помню :wink:

**Хой** » 24.03.2003 (Пн) 2:26

goro писал(а):Мысли гениев схожи...

Боюсь что гениев из API-Guide!!! :twisted:

**GSerg** » 24.03.2003 (Пн) 9:10

Ну и для тех, у кого W98

Конференция VBStreets

Генерация звукового сигнала.

Генерация звукового сигнала.

Кто сейчас на конференции