VBNet - Форум - Чёртов Timer!

Вопрос: Чёртов Timer! Добавлено: 25.12.03 23:24

Автор вопроса: Монах

Блин, как же я замучался с этим таймером! Мне нужно сделать в таймере несколько действий, а я не знаю как делать паузы между действиями в таймере! Подскажите кто знает плиззззз!

Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: AASoft Вопросов: 86 Ответов: 920	Профиль \| \| #1	Добавлено: 25.12.03 23:53
	GetTickCount API... Ответить

Номер ответа: 2
Автор ответа:

StrikeR

ICQ: 151819

Вопросов: 32
Ответов: 110

Web-сайт: www.highlight.ee
Профиль | | #2

Добавлено: 26.12.03 03:23

Mozno eshjo i tak (konechno-eto marazmo, no vsjo taki...):

Declarations:

dim a

Form_load

a=0

timer1_timer

a=a+1

select case a

case 1

msgbox "Bla-bla-bla"

case 10

msgbox "bla-bla"

case 23

msgbox ""

' i t.d

end select

Ответить

Номер ответа: 3
Автор ответа:

Ra$cal

ICQ: 8068014

Вопросов: 18
Ответов: 817

Web-сайт: www.rascalspb.narod.ru
Профиль | | #3

Добавлено: 26.12.03 11:25

А не пробовал использовать Sleep. Очень хорошая вещь

Ответить

Номер ответа: 4
Автор ответа:

Scuder

ICQ: 143518458

Вопросов: 12
Ответов: 37

Профиль | | #4

Добавлено: 26.12.03 14:36

Есть ещё очень симпатиШная функция.. Всё время у меня в модулях висит:

Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function

Usage: Delay 0.1 'Десятая доля секунды

Ответить

Номер ответа: 5
Автор ответа:

Svetlana

ICQ: 262385618

Вопросов: 43
Ответов: 205

Профиль | | #5

Добавлено: 26.12.03 18:19

Scuder , взгляни.. как похожи.. тоже всегда использую..

Sub SleepVB(Seconds)
    Dim Start
    Start = Timer
    Do While Timer < Start + Seconds
         DoEvents
    Loop
End Sub

SleepVB(0.1) 'Десятая доля секунды

Ответить

Номер ответа: 6 Автор ответа: Монах Вопросов: 26 Ответов: 35	Профиль \| \| #6	Добавлено: 26.12.03 20:23
	Спасибо народ!!! Ответить

Номер ответа: 7
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #7

Добавлено: 30.12.03 12:21

Не понял...

А чем вам

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

не катит? Охота загрузить машину?

Ответить

Страница: 1 |