На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Как сделать таймер...
    Как сделать такой таймер: в текстовое поле 1 вводятся ЧАСЫ, в текстовое поле 2 вводятся МИНУТЫ и в текстовое поле 3 вводятся СЕКУНДЫ? Или в текстовое поле 1 вводятся ЧАСЫ, а в текстовое поле 2 вводятся МИНУТЫ:СЕКУНДЫ?
      иди на сайт www.vbcode.com там всяких таймеров навалом, и куча всяких других прог
        А в чём проблема-то?
        Создай объект таймер и всё...
        Во тебе пример (здесь поля "часы", "минуты", "секунды" называются соответственно Text1, Text2 и Text3, кнопка старта - Command1, а таймер - Timer1):
        Private Counter As Long, Min As Long, Sec As Integer
        Private Sub Command1_Click()
        Min = Val(Text1) * 60 + Val(Text2)
        Sec = Val(Text3)
        Counter = 0
        Timer1.Interval = 60000 ' миллисекунд в 1 минуте
        Timer1_Timer ' а вдруг минут ноль! :)
        Timer1.Enabled = True
        End Sub
        Private Sub Timer1_Timer()
        If Counter > Min Then
        ' Процедура по таймеру
        Call MsgBox("Оно работает!", vbExclamation, "Урря!")
        Else
        If Counter = Min Then
        Timer1.Enabled = False
        Timer1.Interval = Sec * 1000
        Timer1.Enabled = True
        End If
        Counter = Counter + 1
        End If
        End Sub
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0202 ]   [ 16 queries used ]   [ Generated: 1.05.24, 16:52 GMT ]