Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сделать секундомер ? / 8 сообщений из 8, страница 1 из 1
17.09.2004, 13:38:10
    #32699817
Kwazimoda
Kwazimoda
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать секундомер ?
Как сделать секундомер ?
Нужно определить время в течении которого выполняется запрос к SQL-server, подскажите, пож-та, как по уму это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 13:42:11
    #32699826
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать секундомер ?
посмотри в конфе по сиквелу - там профайлером часто пользуются
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 13:46:47
    #32699839
Kwazimoda
Kwazimoda
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать секундомер ?
Забыл уточнить, это из под Аксеса.
Я имел ввиду как организовать секундомер на VBA ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 13:56:05
    #32699878
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать секундомер ?
ну например запусти запрос в цикле - 10/100/1000 раз по ситуации
при этом точности хватит с запасом
Код: plaintext
1.
2.
3.
4.
5.
6.
?time
 13 : 51 : 58  
?time
 13 : 52 : 05  
?time
 13 : 52 : 12
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 13:59:11
    #32699885
ищ
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать секундомер ?
объяви в модуле формы
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

а результат возьми так

Dim t As Long
t = timeGetTime
---процесс
MsgBox timeGetTime - t
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 14:40:39
    #32699974
Kwazimoda
Kwazimoda
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать секундомер ?
ищобъяви в модуле формы
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
а результат возьми так
Dim t As Long
t = timeGetTime
---процесс
MsgBox timeGetTime - t
Результат получается в виде какой-то хрени 174221, a как это перевести в такой формат минуты:секунды ?
А чем лучше эта функция от просто Time или Now ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 15:24:55
    #32700063
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать секундомер ?
1 дели на 1000 и на 60
будут тебе сек и мин
2 лучше тем,что считает миллисек(см MSDN) не надо многократных прогонов запроса
Билл
timeGetTime
The timeGetTime function retrieves the system time, in milliseconds. The system time is the time elapsed since Windows was started.

DWORD timeGetTime(VOID);
Parameters
This function does not take parameters.

Return Values
Returns the system time, in milliseconds.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2004, 16:46:54
    #32700264
Евгений12345
Евгений12345
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать секундомер ?
Или так...
Код: plaintext
1.
2.
3.
4.
Dim t As Double
t = Timer
 'Процесс... 
t = (Timer - t) *  1000 
MsgBox "Время в миллисек.: " & t
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как сделать секундомер ? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 299ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1671713]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 28ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 198ms
total:  299ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]