Определить время работы цикла

@Веди · Регистрация: 04.07.2012

Студворк — интернет-сервис помощи студентам

привет друзья
как определить время работы цикла
что-то вроде этого:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load()
 
  Print testTimer(1000)
 
End Sub
 
Private Function testTimer(ByVal count As Integer) As Timer
    Dim arr As New DinamicArray
    Dim start As Timer: start = Time
    For i = 0 To count
      arr.add ("testTimer")
    Next i
    Dim fin As Timer: fin = Time
    testTimer = fin - start
End Function

@Sur_L · 19.05.2019, 23:29

Сообщение от Веди

как определить время работы цикла

Можно воспользоваться АПИ GetTickCount.

Остап Бонд · 20.05.2019, 01:25

А штатный Timer не вариант для крутого Веди?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
AutoRedraw = True
Print testTimer(10000)
End Sub
 
Private Function testTimer(ByVal count As Long) As Single 'Timer
Dim start!
start = Timer
For i = 0 To count
  Debug.Print i
Next i
testTimer = Timer - start
End Function

Сообщение от Веди

Dim start As Timer

Это верх фантазии!

@Веди · 20.05.2019, 08:59 **[ТС]**

так что поможет кто?

@Catstail · 20.05.2019, 10:36

Visual Basic
1
Private declare GetTickCount lib "kernel32.dll" () As long

Функция возвращает к-во системных тиков от старта ОС. Фиксируешь в начале цикла, в конце, берешь разность.

Остап Бонд · 21.05.2019, 07:06

Catstail, , крутому Веди поможет гильотина, других путей не вижу, к сожалению.

@Веди · 21.05.2019, 09:38 **[ТС]**

Catstail, у меня почему то это объявление красное
"Expected Sub, Function"

@The trick · 21.05.2019, 09:57

Веди, чем код из 3 поста не устраивает?

Остап Бонд · 21.05.2019, 09:59

Веди, Function попробуйте вставить куда нибудь в первой строке. И гугл - яндекс откройте наконец...

@Веди · 21.05.2019, 10:00 **[ТС]**

разобрался спасибо

Остап Бонд · 21.05.2019, 10:04

Наздоровье, киса!

@Веди · 21.05.2019, 10:55 **[ТС]**

The trick, ceкунды не устраивают

@The trick · 21.05.2019, 10:58

Сообщение от Веди

The trick, ceкунды не устраивают

Ну умножь на 1000 и получишь в мс. Точность что GetTickCount что Timer одинакова. Если нужна более высокая точность то только высокочастотные счетчики.

Остап Бонд · 21.05.2019, 11:02

Веди, В Timer сотые (почти, 1/64 секунды), все остальные способы дадут лишь иллюзию точности.

@Веди · 21.05.2019, 11:04 **[ТС]**

The trick, зато теперь я знаю 2 способа

Остап Бонд · 21.05.2019, 11:07

И Вам спасибо, Крысотуля!

@Catstail · 21.05.2019, 11:22

Веди, я слово "function" пропустил:

Visual Basic
1
Private function declare GetTickCount lib "kernel32.dll" () As long

@The trick · 21.05.2019, 11:27

Сообщение от Остап Бонд

Веди, В Timer сотые (почти, 1/64 секунды), все остальные способы дадут лишь иллюзию точности.

Нет. GetTickCount и Timer (который базируется на GetLocalTime) имеют одинаковую точность зависящую от частоты системного таймера. Точность можно повысить за счет использования функции timeBeginPeriod до 1 мс, а если использовать недокументированную NtSetTimerResolution то еще выше. Стоит отметить что системный таймер - вещь глобальная и изменение в одном процессе скажется на все процессы.
Самые точные это QueryPerformanceCounter которые имеют очень высокую частоту и имеют наносекундную точность.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

Определить время работы цикла

Решение

Решение

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	20.05.2019, 08:59 [ТС]
	так что поможет кто? 0

Остап Бонд Заблокирован
	21.05.2019, 07:06
	Catstail, , крутому Веди поможет гильотина, других путей не вижу, к сожалению. 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	21.05.2019, 09:38 [ТС]
	Catstail, у меня почему то это объявление красное "Expected Sub, Function" 0

@The trick Модератор 10048 / 3894 / 883 Регистрация: 22.02.2013 Сообщений: 5,847 Записей в блоге: 79
	21.05.2019, 09:57
	Веди, чем код из 3 поста не устраивает? 0

Остап Бонд Заблокирован
	21.05.2019, 09:59
	Веди, Function попробуйте вставить куда нибудь в первой строке. И гугл - яндекс откройте наконец... 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	21.05.2019, 10:00 [ТС]
	разобрался спасибо 0

Остап Бонд Заблокирован
	21.05.2019, 10:04
	Наздоровье, киса! 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	21.05.2019, 10:55 [ТС]
	The trick, ceкунды не устраивают 0

Остап Бонд Заблокирован
	21.05.2019, 11:02
	Веди, В Timer сотые (почти, 1/64 секунды), все остальные способы дадут лишь иллюзию точности. 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	21.05.2019, 11:04 [ТС]
	The trick, зато теперь я знаю 2 способа 0

Остап Бонд Заблокирован
	21.05.2019, 11:07
	И Вам спасибо, Крысотуля! 0