Меню Закрыть

Таймер в visual basic

Здесь я расскажу Вам, как сделать таймер на 20 минут(или на сколько захотите). Поставьте на форму 3 таймера и текстовое поле. Код:

димон , а нафиг три тамера тут можно было и с одним

димон, у тебя какойто урок не правильный.
ты хоть свою идею проверил??
и интервал на каждый таймер какой ставить?

димон, вот тебе правильный код с одним таймером!!
Dim cnt
Private Sub FormLoad()
Timer1.Interval = 1000
End Sub
Private Sub Timer1
Timer()
cnt = cnt + 1
Text1 = cnt
If Fix(cnt / 60) = 1 Then Text1 = "": cnt = 0 ‘ здесь 1 минуту
End Sub

Dim cnt As Integer

Private Sub FormLoad()
With Me
cnt = cnt + (0): Text1.Text = (0)
Timer1.Interval = (1000)
End With
End Sub

Private Sub Timer1Timer()
cnt = cnt + (1)

If (cnt = (10)) Then
cnt = (0)
End If

Text1.Text = (cnt)
End Sub

юр, а зачем ты всё в скобки ставишь.

Так читабильность кода быстрее.

ты в этом уверен.

Ну только не всегда и не везде, в зависимости от кода.

а как и от куда ты об этом узнал

Когда-то я тестил на время запуска свои проги, ну не только в скобках дело и во многом другом.

юр, а у тебя скайп есть.

Да.
Ну по вечерам меня дома не бывает.

юр, а логин скайпа какой??
мне очень нужно с тобой связаться!!
сегодня или завтра с утра!!

Можешь ща, только в аську.

неееа мне позвонить надо по скайпу так легче

А по какому поводу!?

Читайте также:  Смартфон мейзу про 6 плюс

Юр. а что это обозначает
Option Explicit
и для чего это

кто знает как делать 3D на vb6
ВЫЛОЖИТЕ СТАТЬЮ ПРО 3D НА VB6 .

Option Explicit проверяет была ли объявлена переменная, если нет то плучите ошибку. Например:
a="sss"’Ошибка пременная а не объявлена

я уже это понял. но я думал она ещё для чего то нужна

Дп она нужна только для объявления переменных.

а можно ли в picture узнать какой цвеь у каждого пикселя??
если можно то ка?

Пиздец классная тема, автору респект .

Карим, ты шутишь.

Таймер даже не правильно сделан. я его переделывал.

автор, я тут не пойму к чему тут 3 таймера.
и как у тебя палучаеться 20 мин?
интервал таймерев какой.

нет брат .
это чей код??
. Private Sub FormLoad()
Dim cnt
Timer1.Interval = 1000
End Sub
Private Sub Timer1
Timer()
cnt = cnt + 1
Text1 = cnt
If Fix(cnt / 60) = 1 Then Text1 = "": cnt = 0 ‘ здесь 1 минуту
Dim oMess As Object, vConf As String
Set o_Mess = CreateObject("CDO.Message")
.

Аааа это твой . Я вчера под кайфом перевернул одно дело , этот кусочек кода спас меня . Респект тебе ,за код))

да не зачто
карим а что задело??
и как мой кусочек код спас тебя .
не понятно 0_о

карим, я не знаю чем тебе помог это код он же очень простой
я сделал на много круче таймер при его завершение комп выключаеться

Мне нужно было написать майлбомбер, так как на многих серверах запрещено отправить больше 1 сообщение в минуту , а таймер же получает значение до 1 мин , пришлось вежливо попросить таймера с твоим кодом , работать на 1.5 мин

Мне нужно было написать майлбомбер, так как на многих серверах запрещено отправить больше 1 сообщение в минуту , а таймер же получает значение до 1 мин , пришлось вежливо попросить таймера с твоим кодом , работать на 1.5 мин

Читайте также:  Моргает экран телевизора samsung

почему не получается добавить статью?
и где вообще Падре?

напиши ему на мыло

а он не отвечает , ты когда статью добавил?

Возвращает значение типа Single, представляющее количество секунд, прошедших после полночи. Returns a Single representing the number of seconds elapsed since midnight.

Синтаксис Syntax

Timer Timer

Примечания Remarks

В Windows функция Timer возвращает дробные части секунды. In Windows, the Timer function returns fractional portions of a second. На компьютерах Macintosh разрешающая способность таймера равна одной секунде. On the Macintosh, timer resolution is one second.

Пример Example

В этом примере функция Timer используется для приостановки приложения. This example uses the Timer function to pause the application. В этом примере также используется функция DoEvents для передачи в другие процессы во время паузы. The example also uses DoEvents to yield to other processes during the pause.

См. также See also

Поддержка и обратная связь Support and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь. Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Применение функции Timer в VBA Excel для приостановки выполнения приложений и тестирования кодов на время исполнения. Примеры использования.

Описание функции Timer

На сайте разработчика сказано, что в Windows функция Timer возвращает дробные части секунды. О порядке дробной части там информации нет. Попробуем выяснить это сами, запустив в редакторе VBA Excel подпрограмму со строкой
MsgBox "Timer = " & Timer :

Исходя из результата, отображенного в информационном окне MsgBox, будем считать, что функция Timer возвращает сотые доли секунды. Во время экспериментов с процедурой Vremya из Примера 2 результат вычисления разницы между двумя значениями функции Timer достигал шести знаков после запятой, и один раз – семи.

Читайте также:  Умные часы no 1 f5gr

Примеры использования в VBA Excel

Пример 1
Присвоение значения функции Timer переменной:

Пример 2
Код VBA Excel для приостановки приложений:

  • Start – переменная, в которую записывается первоначальное значение таймера.
  • Pause – время в секундах (до сотых значений), на которое следует приостановить программу.

Функция DoEvents во время выполнения цикла передает управление операционной системе для обработки других событий. По рекомендации разработчиков не следует использовать DoEvents в тех случаях, когда

  • приостановленная процедура может быть запущена повторно из другой части вашего кода;
  • другие приложения могут обратиться к приостановленной процедуре.

Код для приостановки приложений можно использовать как отдельную подпрограмму, вставляя ее имя с указанием интервала в нужные места других процедур:

Проверяем работоспособность подпрограммы StopSub:

Точный или почти точный результат будет только при использовании в качестве аргумента целых секунд, в том числе и в примере кода, предложенного разработчиком.

Такой способ приостановки приложений можно использовать в VBA Excel при создании бегущей строки.

Пример 3
Функцию Timer можно использовать для замера времени выполнения процедуры. Мы ее уже использовали для определения времени выполнения подпрограммы StopSub:

Замените MySub на имя вашей процедуры и запустите код в редакторе VBA Excel. Информационное окно MsgBox покажет время выполнения подпрограммы.

Рекомендуем к прочтению

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*

code

Adblock detector