Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
 
Dragokas
Эксперт WindowsАвтор FAQ
15974 / 6791 / 818
Регистрация: 25.12.2011
Сообщений: 10,503
Записей в блоге: 16
#1

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

08.01.2015, 17:13. Просмотров 6576. Ответов 19
Метки нет (Все метки)

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

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

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

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

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

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

Visual Basic
If a * a + b * b = 4 Then ...
гораздо быстрее, чем
Visual Basic
If Sqr(a * a + b * b) = 2 Then ...
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. То есть:

Visual Basic
If Len(my_string) = 0 Then ... гораздо быстрее, чем:
If my_string = "" Then
18. Используйте With для длинных последовательностей указаний свойств объектов, повторяемых несколько раз. Это выполняется быстрее, чем если вы повторите серии объектов в каждой отдельной команде.

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

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

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

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

Visual Basic
Form2.Image1.Picture = LoadPicture("yourfile.bmp")
выполняется в десятки раз медленнее, чем
Visual Basic
Form2.Image1.Picture = Form1.Image1.Picture
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, используйте:
Visual Basic
Line (x1, y1)-(x2, y2), , B
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 гораздо быстрее:

Visual Basic
Declare Function CharLower Lib "user32" _
Alias "CharLowerA" (ByVal lpsz As String) As String
 
Declare Function CharUpper Lib "user32" _
Alias "CharUpperA" (ByVal lpsz As String) As String
43. Используйте временные переменные для многократного обращения к сложным выражениям. Например, вам нужно присвоить различные значения объекту
SelectedEmployee.NextOfKin.HomeInformation.Address. Вместо того, чтобы обращаться к этому длинному выражению несколько раз, используйте:

Visual Basic
Dim addr As AddressInfo
Set addr = SelectedEmployee.NextOfKin.HomeInformation.Address
addr.Street = txtStreet.Text
addr.City = txtCity.Text
addr.State = txtState.Text
addr.Phone = txtPhone.Text
Команда With дает такое же ускорение, поэтому вы можете использовать:
Visual Basic
With SelectedEmployee.NextOfKin.HomeInformation.Address
.Street = txtStreet.Text
.City = txtCity.Text
.State = txtState.Text
.Phone = txtPhone.Text
End With
44. При вызове процедуры или функции, где это возможно, передавайте параметры ByRef, а не ByVal. Когда вы используете ByRef, программа передает только небольшой адрес переменной. Когда же вы используете ByVal, программа должна создать новую копию передаваемой переменной. Обычно гораздо быстрее передать адрес, чем создать копию переменной. Однако, когда вы формируете вызов функций, относящихся к разным процессам, ByVal выполняется быстрее. При таком вызове, VB должен в любом случае запаковать значение переменной для передачи ее другому процессу. Если вы используете ByRef, VB должен затем распаковать результат, и это отнимает больше времени.

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

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

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

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

Visual Basic
Dim txt As String
txt = AddText1(txt)
txt = AddText2(txt)
txt = AddText3(txt)
будет выполняться медленнее, чем следующий:
Visual Basic
Dim txt As String
Dim txt1 As String
Dim txt2 As String
Dim txt3 As String
AddText1(txt1)
AddText2(txt2)
AddText3(txt3)
txt = txt1 & txt2 & txt3
В первом примере, процедуры AddText должны манипулировать длинными строками. Во втором примере они работают с относительно короткими строками.

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

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

Например, этот код:
Visual Basic
i = 1
Do While i
выполняется значительно медленнее, чем этот:
Visual Basic
i_max = SlowFunction()
i = 1
Do While i
Примечание: цикл For не пересчитывает свои границы каждый раз. Когда цикл For начинается, система определяет граничные значения и запоминает их. Она не будет пересчитывать их каждый виток цикла. Следовательно, нижеследующий код выполняется достаточно быстро:
Visual Basic
For i = 1 To SlowFunction()
total = total + i
Next i
6
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2015, 17:13
Здравствуйте! Я подобрал для вас темы с ответами на вопрос [Статья] Как заставить Вашу программу на VB работать быстрее? (VB):

Как заставить программу работать с консолью? - Visual Basic
Как сделать что бы моя прога работала с консолью(то есть могла посылать запросы в консоль и читать их от туда)?

Как заставить программу работать через прокси? - Visual Basic
Кто нибудь имеет примерчик как заставить готовую прогу (типа чата) работать с возможностью прокси? А то машины к инету через проксю...

Как заставить программу, написанную на VB6 работать вэ VB5? - Visual Basic
Esli kto znaet kak zastavit' programmu, napisanuu na VB6 rabotat' v VB5, prishlite pozaluista otvet na: nikolayf@hotmail.com s pometkoi...

Как заставить работать РС динамик из VB - Visual Basic
Как ?

Как заставить работать Call Stack? - Visual Basic
пункт меню, вызывапющий call stack есть, но disable. Что нужно доустановить/изменить чтобы он заработал

Как заставить кнопку 'X' работать на свертывание? - Visual Basic
Как заставить кнопку 'X' у формы работать на свертывание?

19
Dragokas
Эксперт WindowsАвтор FAQ
15974 / 6791 / 818
Регистрация: 25.12.2011
Сообщений: 10,503
Записей в блоге: 16
23.04.2016, 19:39  [ТС] #16
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
Catstail
Модератор
22642 / 11011 / 1785
Регистрация: 12.02.2012
Сообщений: 18,173
24.04.2016, 09:44 #17
Dragokas, хоть вопрос и не ко мне, выскажу свое оценочное мнение. Мне кажется:

1) Exit Sub должно быть быстрее
2) операции > и <> по скорости одинаковы
3) GetMem быстрее
1
The trick
Модератор
7196 / 2428 / 741
Регистрация: 22.02.2013
Сообщений: 3,476
Записей в блоге: 74
24.04.2016, 10:33 #18
Цитата Сообщение от 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
Dragokas
Эксперт WindowsАвтор FAQ
15974 / 6791 / 818
Регистрация: 25.12.2011
Сообщений: 10,503
Записей в блоге: 16
14.05.2017, 18:10  [ТС] #19
Что будет быстрее для разбиения числа (в идеале нужно Currency) на байты (тип byte) - GetMem1 либо побитовый "И" ?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Private Declare Function GetMem1 Lib "msvbvm60.dll" (src As Any, dst As Any) As Long
 
Private Sub Form_Load()
    Dim l As Long
    Dim b As Byte
    
    l = -1
    b = CByte(((l And &HFF000000) \ &H1000000) And &HFF&)
    
    Debug.Print Hex(b)
    b = 0
 
    GetMem1 ByVal VarPtr(l) + 3, b
    
    Debug.Print Hex(b)
End Sub
Конечно, учитывая специфику бейсика, где Currency нельзя написать как операнд оператора "И", выбор очевиден.
Но, можно ли написать (способна ли) ассемблерную вставку с использованием одной инструкции с оператором "И", которая работала бы быстрее GetMem1 ?

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

Так что вопрос, наверное, отпал сам собой.
0
The trick
Модератор
7196 / 2428 / 741
Регистрация: 22.02.2013
Сообщений: 3,476
Записей в блоге: 74
14.05.2017, 20:12 #20
Dragokas, быстрее всего будет GetMem8 в 8-ми байтовый массив, и потом уже обращаться к нужным байтам.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2017, 20:12
Привет! Вот еще темы с ответами:

как файл *.exe заставить работать - Visual Basic
ЗДраствуйте! Проблема вот в чем : прога написана на VB6 , exe-файл нужно установить на комп, где не установлен VB, при загрузке файл...

Как WebBrowser заставить работать через Proxy - Visual Basic
Как WebBrowser заставить работать через Proxy.

Как заставить работать в ListBox колесо мыши? - Visual Basic
Коллеги! Как заставить работать в ListBox колесо мыши? Спасибо

Как заставить Мою ActivX работать только с моими приложениями? - Visual Basic
Есть AcitvX, который выполняет ряд задач. По причинам безопасности надо предотвратить возможность работы с ним от потенциального взломщика...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Yandex
Объявления
14.05.2017, 20:12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru