ЗАДЕРЖКА ПО ВРЕМЕНИ

[mongoloid]

КАК СДЕЛАТЬ ЗАДЕРЖКУ ПО ВРЕМЕНИ В VB? В С Я ЗНАЮ SLEEP А VB?

[alibek]

Тебе сюда

[Ruslan Demidow]

Тебе сюда

Оригинально! Это тонкий намёк на поиск?

[GSerg]

Нет. Это тонкий намёк, что если западает shift, то пора менять клаву.

[mongoloid]

Оригинально! Спасибо вам в помощи! так держать! С такими людьми как вы наша страна еще долго в говне будет!!!

[GSerg]

Мой юный друг.
В интернете существует ряд общепринятых правил, устоявшихся очень давно. В частности, текст, набранный заглавными буквами, обозначает крик. Да, нам действительно не нравится, когда кто-то входит и начинает ОРАТЬ. Помогать не хочется сразу.

[Ruslan Demidow]

Оригинально! Спасибо вам в помощи! так держать! С такими людьми как вы наша страна еще долго в говне будет!!!

Ну а с такими вопросами - тем более. И ты кстати тоже там будешь.

[Ruslan Demidow]

По поводу топика: это здесь

[Шурик]

афтар, поиском надо уметь пользоваца и не будешь в дерьме, урот

сорри, неудержался....

[Twister]

Шурик, ты злодей!

2 mongoloid

КАК СДЕЛАТЬ ЗАДЕРЖКУ ПО ВРЕМЕНИ В VB? В С Я ЗНАЮ SLEEP А VB?

В ВБ тоже:

Код: Выделить всё

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Declare Function SleepEx Lib "kernel32" Alias "SleepEx" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long

Ну, можешь еще пустой цикл...

[Шурик]

А можно его заполнить

[Twister]

Да, добавь две строчки:

Код: Выделить всё

Do
1 goto 2
2 goto 1
Loop

[Павлуша]

Тебе сюда

В этом списке первая клава как у меня...

[ism]

... наша страна еще долго в <censured> будет ...

И какая же это ВАША страна?
Лично я живу в Великой стране, а для того чтобы критиковать большого ума ненадо.

http://vbnet.ru/faq/showtopic.asp?id=185

ЗЫ
Пакие вопросы уже стандартом стали, а поиском пользоваться никто не желает

[mongoloid]

Мой юный друг.
В интернете существует ряд общепринятых правил, устоявшихся очень давно. В частности, текст, набранный заглавными буквами, обозначает крик. Да, нам действительно не нравится, когда кто-то входит и начинает ОРАТЬ. Помогать не хочется сразу.

Я конечно извиняюсь что орал! Но у меня были на то причины! А как видно когда человек просит помощи, кричит ПОМОГИТЕ! а в ответ над ним только поприкалывались! Причем это форум для новичков в VBA!
Жаль что в нынешнее время с такой ''радостью'' помогают людям!

[RayShade]

mongoloid

Три замечания за топик, не пользование поиском и нецензурные выражения.

[Ruslan Demidow]

Мой юный друг.
В интернете существует ряд общепринятых правил, устоявшихся очень давно. В частности, текст, набранный заглавными буквами, обозначает крик. Да, нам действительно не нравится, когда кто-то входит и начинает ОРАТЬ. Помогать не хочется сразу.

Я конечно извиняюсь что орал! Но у меня были на то причины! А как видно когда человек просит помощи, кричит ПОМОГИТЕ! а в ответ над ним только поприкалывались! Причем это форум для новичков в VBA!
Жаль что в нынешнее время с такой ''радостью'' помогают людям!

Помочь тебе всегда готовы (по крайней мере я).
Моя первая реплика относилась в большей степени не к тебе (если больше побудешь здесь - поймёшь... ).
Второе: разве линки данные здесь не прояснили ситуацию?
Третье: обычно (по крайней мере я, правда не всегда ), когда обращаются за помощью в решении вопроса, то или предоставляют хотя бы скелет кода или куски кода, которыми пытались решить задачу, ну или на крайняк сообщают своё видение решения задачи. Ты не сделал ни того, ни другого. Разрабатывать код за тебя никто не будет, а вот помочь (направить в нужном направлении) - это всегда пожалуйста. Но нужно отчего-то отталкиваться. Например от кода (своего или найденного в интернете). Ну в общем ты понял...
И не стоит обижаться на обитателей форума: здесь все хорошие, поверь.

[Aster]

Если вам нужно переждать несколько СЕКУНД

Код: Выделить всё

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

Если вам нужно переждать несколько МИНУТ

Код: Выделить всё

Public Sub Sleeping(NumberOfMinute As Double)
Dim FinishTime As Date
FinishTime = DateAdd("n", NumberOfMinute, Now)
Do Until FinishTime <= Now
DoEvents
Loop
End Sub

[Twister]

2 Aster
А Sleep или SleepEx не работает?