Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
 Аватар для timsc1
15 / 15 / 2
Регистрация: 27.11.2011
Сообщений: 714

Отсчет времени при аудиозаписи

20.01.2013, 14:32. Показов 1123. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте! Сделал прогу для записи с микрофона. Проблема в том, что не могу сделать отсчет времени записи. Применяю таймер, а оно не работает. Помогите пожалуйста!!!! Спасибо!!!! Рисунок прилагаю.
VB 2008
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim s, m, n As Integer
        Timer1.Enabled = True
        tb.Enabled = True
        If Button1.Text = "Stop" And tb.Value <> 200 Then
            tb.Value += 1
            m = m + 1
            l2.Text = m
            l1.Text = s
            If m = 10 Then
                s = s + 1
                m = 0
            End If
        End If
    End Sub
Миниатюры
Отсчет времени при аудиозаписи  
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.01.2013, 14:32
Ответы с готовыми решениями:

Вывести на label обратный отсчёт времени до определенной даты и времени
Здравствуйте, необходимо вывести на lable обратный отсчёт от текущий даты до 05.09.2020 01:01, после это запустить отсчёт заново. ...

Отсчет времени с возможностью прерывания
VB 2010 Express Здрям! При нажатии кнопки min5 работает нормально, при min25 - наглухо зависает. Ставил на форме флажок, чтобы...

Отсчет определеного количества времени
Доброе время суток! в общем пишу программку для детей, чтобы не могли долго седеть в играх и интернете прошу помочь сижу туплю вот над...

3
1652 / 715 / 47
Регистрация: 11.03.2012
Сообщений: 1,855
Записей в блоге: 1
20.01.2013, 15:06
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Class Form1
    Dim s, m, n As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Button1.Text = "Stop" And tb.Value <> 200 Then
            tb.Value += 1
            m = m + 1
            Label1.Text = (s & ":" & m)
            If m = 10 Then
                s = s + 1
                m = 0
            End If
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 100
        Timer1.Start()
        Button1.Text = "Stop"
        tb.Enabled = True
    End Sub
End Class
0
 Аватар для timsc1
15 / 15 / 2
Регистрация: 27.11.2011
Сообщений: 714
20.01.2013, 18:46  [ТС]
чего-то время не идёт, не считает...
0
1652 / 715 / 47
Регистрация: 11.03.2012
Сообщений: 1,855
Записей в блоге: 1
20.01.2013, 18:50
timsc1, Все считает.. Просто у кого-то напутано все.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.01.2013, 18:50
Помогаю со студенческими работами здесь

Обратный отсчет в заданной строке времени
Захотел сделать что то на подобии таймера. То есть за установленное время должно произойти событие. У меня 3 поля в которых я задаю: час,...

Таймер - сделать отсчет времени в формате "mm:ss"
Как сделать сделать отсчет времени в формате &quot;mm:ss&quot; например с 05:00 до 00:00? чет не получается у меня никак(( Help) делал так,...

Условие на отсчет времени при выборе значения в поле со списком
Ребята, дайте совет, возможно ли задать такое условие: Допустим, есть таблица, в которой одно из полей содержит информацию об этапе...

В окне показать обратный отсчет времени и при достижении 0 показать рисунок взрыва
Ребята,помогите пожалуйста )) на javascript :)

Отсчет времени
есть временной диапазон (пример) от 25-MAY-12 11.35.02.000000000 PM до 27-JUN-12 02.35.13.000000000 AM надо перевести...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
1С: Программный отбор элементов справочника Номенклатура по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника Сотрудники по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru