С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/21: Рейтинг темы: голосов - 21, средняя оценка - 4.67
5 / 2 / 1
Регистрация: 01.11.2012
Сообщений: 121

Воспроизведение звукового сигнала через определенные промежутки времени

30.09.2013, 23:29. Показов 4276. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Понятия не имею как это делать(
помогёте?
В общем, суть программы такова:

Таймер. Текстовое поле. Кнопка.
Допустим переменная n это начальное время таймера.
В текстовое поле вводится число Z (от 1 до 1500).
k=n*Z
и вот через этот промежуток времени (k) раздается звуковой сигнал(не важно какой).

а, да, еще былоб не полохо еслиб время оставшееся отображалось где-нибудь
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.09.2013, 23:29
Ответы с готовыми решениями:

Выполнение действий через определенные промежутки времени
Помогите пожалуйста набросать таймер или что-то на него похожее =) Короче говоря должно совершатся действие с определенным...

"Будильник". Задается время включения звукового сигнала и интервал времени для таймера
помогите исправить код, не повторяет повтор сигнала через заданное время Задание: Создать программу «Будильник» Задавать время...

Как прервать воспроизведение звукового файла
Не срабатывает функция-оболочка fnStopPlaySound Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal...

7
Юзер с абсолютным слухом
 Аватар для Опан
709 / 489 / 195
Регистрация: 17.12.2010
Сообщений: 1,428
01.10.2013, 00:50
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Примерно так, но я написал теоретически, без проверки: (VB у меня сейчас не установлен)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim n: dim Z: dim k
 
Private Sub Command1_click()
n=10
Z=val(text1.text)
k=n*Z
timer1.interval=k
timer1.enabled=true
End Sub
 
Private Sub Timer1_Time()
Beep(1,1) ' Издать звук, но я точно не помню синтаксис
timer1.enabled=false
End Sub
0
3 / 3 / 1
Регистрация: 22.06.2013
Сообщений: 45
02.10.2013, 20:50
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от MrLimon Посмотреть сообщение
а, да, еще былоб не полохо еслиб время оставшееся отображалось где-нибудь
Набросал код, но почему-то оставшееся время не обновляется. Ни form1.refresh, ни DoEvents не помогают.
Может, кто подскажет, где ошибся?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private k As Long, Z As Integer
Private Const n As Long = 10
 
Private Sub Command1_Click()
    Dim sZ As String
    With Text1
        sZ = Trim(.Text): Z = Val(sZ)
        If sZ = "" Or Not IsNumeric(sZ) Or Z < 1 Or Z > 1500 Then
            MsgBox "Ââåäèòå êîððåêòíîå ÷èñëî (1 to 1500) ", vbExclamation, App.Title
            .SetFocus: .SelStart = 0: .SelLength = Len(sZ)
            Exit Sub
           Else
            k = n * Z
        End If
    End With
    Timer1.Enabled = True
    Command1.Enabled = False  'optinal
    
End Sub
 
Private Sub Form_Activate()
  Text1.SetFocus
End Sub
 
Private Sub Form_Load()
  Text1.Text = ""
  With Timer1
    .Interval = 1000: .Enabled = False
  End With
End Sub
 
Private Sub Timer1_Timer()
    Dim sFormCap As String
    Static lScnds As Long
    lScnds = lScnds + 1
    sFormCap = "Îñòàëîñü " & CStr(k - Z) & " ñåê."  'åñëè Âàøè äàííûå â ñåêóíäàõ
    Form1.Caption = App.Title & " - " & sFormCap
    If lScnds >= k Then Beep 2000, 100: Command1.Enabled = True: Timer1.Enabled = False 'âûáèðàéòå Âàøè ïàðàìåòðû
End Sub
Миниатюры
Воспроизведение звукового сигнала через определенные промежутки времени  
1
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
02.10.2013, 21:51
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Цитата Сообщение от chai_nick Посмотреть сообщение
Может, кто подскажет, где ошибся?
Visual Basic
1
  sFormCap = "Осталось " & CStr(k - lScnds) & " сек."  'если Ваши данные в секундах
1
3 / 3 / 1
Регистрация: 22.06.2013
Сообщений: 45
02.10.2013, 21:55
0
5 / 2 / 1
Регистрация: 01.11.2012
Сообщений: 121
05.10.2013, 09:28  [ТС]
почему он мне выдает оверфлоу если я ввожу 99999 в текст бокс

Visual Basic
1
2
3
4
5
6
7
If Text11.Text > 0 And Text1.Text < 9999 Then
lngCount = Val(Text11.Text) * 2
Timer1.Interval = 1000
Timer1 = True
else
label11.caption= "не корректное число"
End If
почему он игнорирует условие
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
05.10.2013, 09:40
Цитата Сообщение от MrLimon Посмотреть сообщение
If Text11.Text > 0 And Text1.Text < 9999 Then
Вы сравниваете значения в разных текстбоксах. Это так и задумано?
0
5 / 2 / 1
Регистрация: 01.11.2012
Сообщений: 121
05.10.2013, 10:05  [ТС]
Цитата Сообщение от SoftIce Посмотреть сообщение
Вы сравниваете значения в разных текстбоксах. Это так и задумано?
вот это да... 20 раз просмотрел... и прошляпил...

спасибо)

Добавлено через 6 минут
хм, а можно как-нибудь запустить виндоусовский калькулятор?)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.10.2013, 10:05
Помогаю со студенческими работами здесь

Деление звукового сигнала на два канала
Всем привет ! Петцольд в статье описал как реализовать выдачу сигнала на оба канала... А есть возможность пихать разные сигналы в...

Переход по ссылке через определенные промежутки времени
Подскажите плз, как сделать чтобы при нажатии галочки он переходил на один и тот же сайт каждые &quot;n&quot; минут и при этом сея ссылка...

Как воспроизводить mp3 через определенные промежутки времени
Допустим, есть кнопка button1. Как сделать так, что бы после нажатия на неё через определённые промежутки времени воспроизводился...

Скрипт, запрашивающий страницу через определенные промежутки времени
Я не спец по java script. Может быть подскажите функцию, которая через каждые, к примеру, 60 сек. Запрашивает у сервера страницу...

Замена слова в строке через определенные промежутки времени
Здравствуйте, вопрос возник. У меня есть абзац. Скажем &quot;Привет мама, я люблю тебя&quot;. Я хочу заменять слово &quot;Люблю&quot; через...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru