[Статья] Как заставить Вашу программу на VB работать быстрее?

Автор: Рут Глушкин, VBStreets

Прежде всего заставьте программу работать, а затем беспокойтесь о ее быстродействии.

Существует множество способов ускорения вашей VB программы. К сожалению, большинство из них не приводят к особо впечатляющим результатам. Даже если ваша программа работает с огромными коллекциями, преобразование их в массивы, возможно, спасет вам какой-то процент или два в процессе выполнения программы. С другой стороны, переписывание основных алгоритмов программы может сократить процесс выполнения в сотни раз.

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

1. Производя арифметические операции, оперируйте целыми числами и используйте целочисленные операторы, где это возможно. Используйте оператор "\" - целочисленного деления вместо "/" - деления с плавающей точкой. Используйте "* .5" вместо "/ 2", поскольку команда ассемблера "MUL" быстрее, чем "FDIV".

2. Где только это возможно, не применяйте квадратные корни, например:

гораздо быстрее, чем
3. Если Вам необходимо производить повторяющиеся вычисления как можно быстрее, наиболее эффективно создать таблицу значений функции, и просто заменять исходные данные на соответствующие результаты из этой таблицы. Например, если заранее указать в таблице x и y как координаты каждой точки на окружности на расстоянии 1-2 градуса, это будет достаточно точно и гораздо быстрее, чем вычислять их значения, используя функции SIN, COS и TAN.

4. Перепишите вашу программу на C++ или Delphi. (Это, конечно, не всегда возможно, но это - единственное решение, когда несмотря ни на что, ваша программа работает невыносимо медленно).

5. Установите у себя 5 или 6 версию VB. Программы, откомпилированные в VB с опцией Native, конечно, работают медленнее, чем программы, написанные на C++ или Delphi, но они намного быстрее, чем неоткомпилированные программы, создаваемые более ранними версиями VB.

6. Создавайте шаблоны. Пользуйтесь средствами контроля производительности для того, чтобы определить, где именно ваша программа проводит больше всего времени. Эти средства встроены в VB 4 и 5, и VB 6 Enterprise Edition. Не теряйте времени по улучшению того кода, который и так достаточно быстрый.

7. Распаковывайте графику. Всегда пользуйтесь файлами с расширением .bmp, а не запакованными .jpg или .gif файлами. Эти файлы хранятся в программе в запакованном виде, и требуется дополнительное время для их раскрытия.

8. Используйте Set your_form = Nothing, когда данная форма вам больше не нужна. Это экономит память и может сэкономить массу времени, когда у вас много форм, которые вы должны хранить в памяти. Если же у вас немного форм, гораздо эффективнее загружать их все в начале программы. Затем они будут появляться на экране быстрее, когда они вам понадобятся. Не закрывайте их до конца, вместо этого применяйте методы Hide/Show по мере необходимости.

9. Используйте массивы вместо коллекций. Массивы намного быстрее. Используйте коллекции только тогда, когда вам нужны их особые свойства, например, просмотр по ключу. Заранее определяйте массивы максимально возможного размера, чтобы не пришлось динамически выделять под них память в процессе выполнения программы - ReDim.

10. Если вам нужно обнулить все элементы динамического массива, используйте ReDim. Это займет больше времени, чем оставить массив в покое, но это гораздо быстрее, чем обнуление элементов массива в цикле.

11. Если вам нужно обнулить все элементы массива фиксированной длины, объявленного с применением Dim, используйте Erase. Это уничтожит динамический массив, но обнулит массив фиксированной длины.

12. Пользуйтесь функциями API MemCopy или RtlMoveMemory для копирования массивов вместо копирования их элементов в цикле.

13. Всегда указывайте определенные типы данных вместо Variant. Всегда объявляйте переменную вместе с ее типом. Если вы не укажете тип переменных, она по умолчанию будет Variant.

14. Всегда указывайте определенные типы объектов вместо объявления переменной типа Object. Будьте настолько точны, насколько это возможно.

Например,

Object - плохо
Control - лучше
TextBox - лучше всего.

15. Никогда не очищайте коллекцию, удаляя ее элементы. Уничтожайте их, используя Set элемент = Nothing.

16. Объявляйте объект и выделяйте под него память на отдельных строках кода. Строка "Dim obj As New MyClass" выполняется медленнее, чем две отдельных строки "Dim obj As MyClass" "Set obj = New MyClass".

17. Для проверки строки нулевой длины "" используйте функцию Len. То есть:

18. Используйте With для длинных последовательностей указаний свойств объектов, повторяемых несколько раз. Это выполняется быстрее, чем если вы повторите серии объектов в каждой отдельной команде.

19. Применяйте как можно меньше операций с переменными типа String, эти операции медленные.

20. Упорядочивайте команды внутри Select Case таким образом, чтобы наиболее часто встречающиеся значения были вначале.

21. Ощущаемое быстродействие гораздо важнее фактического. Представьте себе, что вы нажали на кнопку, и в течение 10 секунд ничего не происходит. Эти 10 секунд покажутся вам часом. Добавьте ProgressBar, и тогда пользователь даже не заметит, что прошло 10 секунд.

22. Когда у вас в программе множество динамически меняющихся картинок, поместите их все в невидимые Images на первую загружаемую форму, а затем загружайте их по мере необходимости. Никогда не работайте с файлами. Строка

выполняется в десятки раз медленнее, чем
23. Если вам нужно производить множество операций с файлами или с переменными типа String, всегда добавляйте знак $ после имени команды, например, Mid$ вместо Mid, потому что Mid работает с параметрами типа Variant, в то время, как Mid$ работает с параметрами типа String, что в 3 раза быстрее.

24. Чтобы создать ощущение, что ваша программа выполняется быстро, показывайте первую форму как можно быстрее. Вставьте команду Show в процедуру Form1_Load(), чтобы она появилась на экране до окончания выполнения долгих начальных настроек и вычислений. Помещайте в процедуру каждой формы Load как можно меньше кода для того, чтобы она появлялась как можно быстрее. Если требуется много времени для загрузки начальной формы, создайте дополнительную форму с ProgressBar и загружайте ее немедленно. Эта форма должна быть на экране все время выполнения начальных настроек, она убирается с экрана в конце процедуры Form1_Load().

25. Распределяйте функции и процедуры по модулям. Когда одна процедура вызывает другую, загружается весь модуль второй процедуры. Если одна процедура вызывает несколько процедур из разных модулей, все эти модули загружаются в память. Если же все процедуры находятся в одном модуле, они все загружаются одновременно.

26. Не тратьте память бездумно. Иногда вы можете заставить вашу программу выполняться быстрее, используя больше памяти, но иногда применение большей памяти сильно замедляет вашу программу. В частности, если вы используете так много памяти, что ваша программа требует больше оперативной памяти, чем есть в системе, система будет загружать программу постранично, что сильно замедлит ее выполнение.

27. Для сокращения требуемой оперативной памяти присваивайте Form1.AutoRedraw = False.

Но для ускорения сложных графических операций присваивайте Form1.AutoRedraw = True.

28. Присваивайте Object.ClipControls = False, где это возможно (прочтите Help для более подробной информации).

29. Для изменения местоположения контролек используйте команду Move вместо изменений значений Left и Top.

30. Если вам нужно изменить серию свойств, связанных с внешним видом (Appearance) объекта, вначале сделайте его невидимым, и только по завершении всех операций, сделайте его снова видимым.

31. Кэшируйте свойства, которые вы применяете много раз. Например, если ваша программа несколько раз обращается к свойству txtLastName.Left, поместите это значение в переменную, и работайте с ней. Обращение к переменной намного быстрее, чем к свойствам объекта.

32. Для того, чтобы нарисовать прямоугольник, вместо четырех команд Line, используйте:
33. Вместо PictureBoxes применяйте, где это возможно, Images, поскольку Image требует гораздо меньше памяти.

34. Используйте Frames для хранения других объектов вместо PictureBoxes, так как Frame требует меньше памяти.

35. Неважные объекты помещайте в массивы. Например, множество форм содержат множество Labels. Поместите их все в один массив. Массив, содержащий 10 объектов, требует меньше памяти, чем 10 отдельных объектов.

36. Выполняйте длинные вычисления на фоне выполнения других операций, используя Timer.

37. Используйте комментарии и значимые имена переменных. Длинные комментарии и имена переменных, а также пустые строки не увеличивают размера вашей программы, так что нет никакого вреда в их применении.

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

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

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

41. Используйте функции API FindFirstFile, FindNextFile, и FindClose для быстрого поиска файлов и папок. Но помните, что не всегда обращение к функциям API быстрее. Это всегда сложнее, и иногда весьма рискованно, чем применение стандартных функций VB.

42. Функции UCase$ и LCase$ позволяют вам осушествлять сравнения вне зависимости от регистра текста, но нижеследующие функции API гораздо быстрее:

43. Используйте временные переменные для многократного обращения к сложным выражениям. Например, вам нужно присвоить различные значения объекту
SelectedEmployee.NextOfKin.HomeInformati on.Address. Вместо того, чтобы обращаться к этому длинному выражению несколько раз, используйте:

Команда With дает такое же ускорение, поэтому вы можете использовать:
44. При вызове процедуры или функции, где это возможно, передавайте параметры ByRef, а не ByVal. Когда вы используете ByRef, программа передает только небольшой адрес переменной. Когда же вы используете ByVal, программа должна создать новую копию передаваемой переменной. Обычно гораздо быстрее передать адрес, чем создать копию переменной. Однако, когда вы формируете вызов функций, относящихся к разным процессам, ByVal выполняется быстрее. При таком вызове, VB должен в любом случае запаковать значение переменной для передачи ее другому процессу. Если вы используете ByRef, VB должен затем распаковать результат, и это отнимает больше времени.

45. Для вычисления степеней используйте оператор "*" вместо "^".

Например, A = B * B быстрее, чем A = B ^ 2.

46. Если вам нужно сформировать длинную строку, формируйте ее по частям, и затем собира йте все части воедино. Например, у вас есть процедуры AddText1, AddText2, и т.д., которые добавляют текст к переменной типа String.

Тогда этот код:

будет выполняться медленнее, чем следующий:
В первом примере, процедуры AddText должны манипулировать длинными строками. Во втором примере они работают с относительно короткими строками.

47. Запоминайте промежуточные результаты математических вычислений.

Например, этот код:
выполняется быстрее, чем следующий:
48. Не вставляйте в цикл проверку со значением, возвращаемым функцией.

Например, этот код:
выполняется значительно медленнее, чем этот:
Примечание: цикл For не пересчитывает свои границы каждый раз. Когда цикл For начинается, система определяет граничные значения и запоминает их. Она не будет пересчитывать их каждый виток цикла. Следовательно, нижеследующий код выполняется достаточно быстро:

9

Нда... Хотел сам такую статью написать, но "заболтал"...

Что же касается приведенных выше советов, то некоторые из них вполне тривиальны (особенно прикольно выглядит совет №4). Есть и небесспорные (например, нумеруя строки как в старых версиях Бэйсика, вы получаете возможность в обработчике ошибок использовать функцию ERL - номер ошибочной строки).

Ну, и есть, что добавить.

49. Не используйте variant-переменные, как параметры циклов. Вообще быстрее всего использовать для параметров циклов тип long (совет для новичков);

50. Если алгоритм требует наращивания строки, велик соблазн написать так:

но гораздо быстрее будет создать большой буфер A$ и помещать в него символы, используя mid$:

51. Избегайте использовать GoSub (устаревшая, но поддерживаемая возможность). Вызов GoSub выполняется значительно медленнее, чем вызов процедуры или функции;

52. Правило "бутылочного горлышка" - основное "торможение" любой программы вызывает одно-два узких места. Из нужно найти и ускорить. Оптимизировать остальной код большого смысла не имеет.

53. Чистка циклов

Рациональнее вынести за пределы цикла вычисление индексного выражения, не зависящего от параметра цикла:


Выигрыш будет тем больше, чем больше витков выполняет цикл и чем сложнее индексное выражение.

5

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

4

Сообщение от Dragokas 5. Установите у себя 5 или 6 версию VB. Программы, откомпилированные в VB с опцией Native, конечно, работают медленнее, чем программы, написанные на C++ или Delphi, но они намного быстрее, чем неоткомпилированные программы, создаваемые более ранними версиями VB.

Это неверно.

Сообщение от Dragokas Распаковывайте графику. Всегда пользуйтесь файлами с расширением .bmp, а не запакованными .jpg или .gif файлами. Эти файлы хранятся в программе в запакованном виде, и требуется дополнительное время для их раскрытия.

Это было актуально может в 98 году, но сейчас уже нет. При использовании bmp размер файла будет расти очень сильно.

Сообщение от Dragokas Используйте Set your_form = Nothing, когда данная форма вам больше не нужна. Это экономит память и может сэкономить массу времени, когда у вас много форм, которые вы должны хранить в памяти.

Для выгрузки формы целесообразнее использовать Unload.

Сообщение от Dragokas Заранее определяйте массивы максимально возможного размера, чтобы не пришлось динамически выделять под них память в процессе выполнения программы - ReDim.

Мой совет - выделять память порциями по 100 - 10000 элементов в зависимости от задачи.

Сообщение от Dragokas Если вам нужно обнулить все элементы динамического массива, используйте ReDim. Это займет больше времени, чем оставить массив в покое, но это гораздо быстрее, чем обнуление элементов массива в цикле.

Сообщение от Dragokas Если вам нужно обнулить все элементы массива фиксированной длины, объявленного с применением Dim, используйте Erase. Это уничтожит динамический массив, но обнулит массив фиксированной длины.

Еще быстрей будет RtlZeroMemory.

Сообщение от Dragokas Пользуйтесь функциями API MemCopy или RtlMoveMemory для копирования массивов вместо копирования их элементов в цикле.

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

Сообщение от Dragokas Всегда указывайте определенные типы объектов вместо объявления переменной типа Object. Будьте настолько точны, насколько это возможно.

Для таких целей обычно придумывается интерфейс, вместо медленного IDispatch (Object).

Сообщение от Dragokas Объявляйте объект и выделяйте под него память на отдельных строках кода. Строка "Dim obj As New MyClass" выполняется медленнее, чем две отдельных строки "Dim obj As MyClass" "Set obj = New MyClass".

Также добавлю что это не одно и тоже как многие думают.

Сообщение от Dragokas Используйте With для длинных последовательностей указаний свойств объектов, повторяемых несколько раз. Это выполняется быстрее, чем если вы повторите серии объектов в каждой отдельной команде.

Неправда, разницы в скорости нет.

Сообщение от Dragokas Когда у вас в программе множество динамически меняющихся картинок, поместите их все в невидимые Images на первую загружаемую форму, а затем загружайте их по мере необходимости. Никогда не работайте с файлами.

Тогда уж загружать предварительно в массив StdPicture'ов, это будет еще быстрее. А читать можно к примеру из PropertyBag'а.

Сообщение от Dragokas Распределяйте функции и процедуры по модулям. Когда одна процедура вызывает другую, загружается весь модуль второй процедуры. Если одна процедура вызывает несколько процедур из разных модулей, все эти модули загружаются в память. Если же все процедуры находятся в одном модуле, они все загружаются одновременно.

Неправда, EXE проецируется полностью и ничего не подгружается. Если речь идет о работе в IDE, то да, только не загрузка а компиляция.

Сообщение от Dragokas Не тратьте память бездумно.

Странно такое слышать после

Сообщение от Dragokas Заранее определяйте массивы максимально возможного размера

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

Неправда.

Сообщение от Dragokas Убирайте неиспользуемые переменные и участки кода, так как они остаются в программе, и увеличивают как ее размер, так и выделяемую под нее оперативную память.

Неправда. Неиспользуемые переменные и процедуры вообще не попадают в скомпилированный файл (не говорю о методах).

Сообщение от Dragokas Используйте функции API FindFirstFile, FindNextFile, и FindClose для быстрого поиска файлов и папок. Но помните, что не всегда обращение к функциям API быстрее. Это всегда сложнее, и иногда весьма рискованно, чем применение стандартных функций VB.

Если речь не идет о юникодных каталогах, то смысла нет.

Сообщение от Dragokas Функции UCase$ и LCase$ позволяют вам осушествлять сравнения вне зависимости от регистра текста, но нижеследующие функции API гораздо быстрее:

Нужно использовать StrComp.

Сообщение от Dragokas Например, этот код: Visual Basic 1 2 3 4 5 Xsquare = x * x Ysquare = y * y a = 2 * Xsquare + 3 * Ysquare b = 3 * Xsquare + 5 * Ysquare If a + b > 50 Then ... выполняется быстрее, чем следующий: Visual Basic 1 2 3 If 2 * x * x + 3 * y * y + _ 3 * x * x + 5 * y * y > 50 _ Then ...

Неправда, VB6 оптимизирует выражения.

6

Сообщение от The trick Мой совет - выделять память порциями по 100 - 10000 элементов в зависимости от задачи.

- присоединяюсь!

2

Немного от себя.
Для ускорения вызова API функций нужно использовать библиотеки типов, после этого функции добавляются в таблицу импорта.
Для ускорения вызовов методов COM объектов, также следует использовать библиотеки типов, если конечно это возможно, и вообще всегда стараться выполнять раннее связывание вместо использования позднего связывания.
Используйте числа с фиксированной запятой для ускорения вычисления каких либо значений:
Пример: FixedPointTest.rar
Для ускорения некоторых расчетов можно воспользоваться свойствами компилятора, например чтобы использовать арифметику без ошибки - переполнений:
Вот во что скомпилируется функция Test:
Функция MakeTrue вообще не попадет в EXE, если она объявлена в обычном модуле.
Пример: IDEOptimize.rar
Для того, чтобы ускорить вызов функций, нужно объявлять их в стандартном модуле. Если объявлять их в других модулях, то они превращаются в методы объектов и дополнительно передается 2 параметра, а также после каждого вызова идет проверка возвращаемого значения, что дополнительно требует времени.
Пример: CallOptimize.rar
PS. Позже еще напишу.

4

Сообщение от The trick Для того, чтобы ускорить вызов функций, нужно объявлять их в стандартном модуле. Если объявлять их в других модулях, то они превращаются в методы объектов

- Вы имеете в виду, в модулях форм? Или смысл в том, что функции желательно объявлять в том же модуле (bas), где и вызвать?

0

Сообщение от Catstail Вы имеете в виду, в модулях форм?

Любой объект в дереве проектов является модулем. В любом объектном модуле кроме стандартного (.bas) модуля (формы, классы, страницы свойств, контролы и т.д.) объявленная функция является методом того объекта в котором объявлена. А как известно метод объекта первым параметром принимает указатель на объект (ObjPtr), а последним указатель на возвращаемое значение, т.е. у нас автоматически функция, к примеру, имеющая 3 параметра превращается в функцию имеющую 5 параметров. Реально возвращаемое значение является HRESULT, которое представляет код ошибки. Если метод будет публичным, то после каждого вызова дополнительно будет вызываться проверка этого HRESULT'а, что также требует времени.

Сообщение от Catstail Или смысл в том, что функции желательно объявлять в том же модуле (bas), где и вызвать?

Это не имеет значения.

3

Для копирования данных от 1 до 8 байт используйте функции GetMem и PutMem, которые намного быстрее чем RtlMoveMemory (CopyMemory). Также, к примеру, передавая в качестве значения параметра этих функций элемент массива (как обычно делают), это вызывает блокировку и разблокировку (__vbaAryLock, __vbaAryUnlock) массива каждый раз при вызове функции что требует дополнительного времени. Быстрее будет если передавать указатель на элемент полученный через VarPtr:

Вложения

GetMemOptimize.rar (10.3 Кб, 61 просмотров)

3

48. Не вставляйте в цикл проверку со значением, возвращаемым функцией. Например, этот код: Visual Basic 1 2 i = 1 Do While i выполняется значительно медленнее, чем этот: Visual Basic 1 2 3 i_max = SlowFunction() i = 1 Do While i

Что-то не понял?! По ходу опечатка?
В примере абсольтно одинаковые циклы.
До начала цикла задаётся значение i.
видимо где-то до Loop идёт наращивание.
Какое отношение ко времени работы цикла имеет переменная i_max вычисляемая до цикла?

0

Да. Там у них опечатка.
Объедините, пожалуйста, этих два кусочка кода вместе.

0

Сообщение от The trick Используйте числа с фиксированной запятой для ускорения вычисления каких либо значений: b(i) = (b(i) * z) \ &H100 b(i) = b(i) * 0.5

Это в том случае, если результатом операции должно быть целое число. Но тогда достаточно просто b(i) = b(i) \ 2

Если же результат записывается в переменную с плавающей запятой, то операция умножения будет быстрее операции деления:

1

Сообщение от Dragokas Это в том случае, если результатом операции должно быть целое число. Но тогда достаточно просто

Например с 0.7 такое не прокатит (я имею в виду \2).

Сообщение от Dragokas Если же результат записывается в переменную с плавающей запятой, то операция умножения будет быстрее операции деления:

Ты можешь хранить результат также с фиксированной точкой, просто в данном примере это не нужно. А при выводе написать b(i) / &H100

1

Сообщение от The trick Например с 0.7 такое не прокатит (я имею в виду \2).

Ну да.
( x * 7 ) \ 10

И ты используешь 16-ричные числа в делителе, это (выравнивание) тоже имеет какой-то особый смысл с точки зрения скорости ?

0

Сообщение от Dragokas И ты используешь 16-ричные числа в делителе, это (выравнивание) тоже имеет какой-то особый смысл с точки зрения скорости ?

Наглядность. Отдаю 8 бит под дробные значения. Хотя может в некоторых ситуациях это даже быстрее т.к. такие деления компилируются в сдвиги.

1

The trick, можно для тебя, как спеца в этих штуках, оставить такие задачки ?
Что быстрее:

1) Exit For или Exit Sub (Function),
если подразумевается, что после выхода из цикла подпрограмма завершается.

2) Операция "var > 0" или операция "var <> 0"

3) GetMem4 ByVal VarPtr(bData(0)), ByVal VarPtr(lData)
или
lData = bData(0) + bData(1) * 256&

0

Dragokas, хоть вопрос и не ко мне, выскажу свое оценочное мнение. Мне кажется:

1) Exit Sub должно быть быстрее
2) операции > и <> по скорости одинаковы
3) GetMem быстрее

1

Сообщение от Dragokas Exit For или Exit Sub (Function), если подразумевается, что после выхода из цикла подпрограмма завершается.

Одно и тоже.

Сообщение от Dragokas Операция "var > 0" или операция "var <> 0"

Одно и тоже.

Сообщение от Dragokas GetMem4 ByVal VarPtr(bData(0)), ByVal VarPtr(lData) или lData = bData(0) + bData(1) * 256&

Второй вариант быстрее.

3

Что будет быстрее для разбиения числа (в идеале нужно Currency) на байты (тип byte) - GetMem1 либо побитовый "И" ?

Конечно, учитывая специфику бейсика, где Currency нельзя написать как операнд оператора "И", выбор очевиден.
Но, можно ли написать (способна ли) ассемблерную вставку с использованием одной инструкции с оператором "И", которая работала бы быстрее GetMem1 ?

Добавлено через 4 минуты
В принципе тут разница только в том, что для GetMem1 затраты уйдут на (по примеру выше):
- получить адрес, +3, скопировать участок памяти.
- вариант с ASM наверное будет ещё сложнее.

Так что вопрос, наверное, отпал сам собой.

0

Dragokas, быстрее всего будет GetMem8 в 8-ми байтовый массив, и потом уже обращаться к нужным байтам.

2