Как уменьшить использование ЦП

[Kiryusha]

Кто знает напишите, как сделать выбор приоритета.
У меня есть программа работающая с таблицами Excel так она помимо того, что работает порядка 20-30 минут еще и грузит 100% ЦП, так что приходится все эти 30 минут сидеть и тупо пялиться в монитор, ибо ничего другого уже не остается.

Кто знает, как это исправить подкиньте примерчик или ссылку.

Заранее сэнькс.

[Konst_One]

наверное стоит еще раз проверить алгоритм проги

[Kiryusha]

Что именно?
Прогу закидывать не буду, объясню принцип,

Там 2 вложенных цикла, которые и работают всё время.

Вобщем берется 1 число (минимум, который еще и помимо того ищется), и уменьшаем его, раскидывая его часть по максимумам, и так до тех пор, пока минимум, не станет меньше определенного числа, затем то же самое проделываем с максимумами. Всё очень муторно, но мне главное не время (!), а качаество, ибо графики не должны сильно разниться.

(Прога-то нелегальная)

[575-61]

Какой библиотекой или какам методом пользуешся, для использования EXсEL?
Если надо решить задачу, то VB и без EXсELа все может.
Нужна точная помощь, нужен код.

[Kiryusha]

делаю:

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

Dim objExcelDoc as object

set objExcelDoc=CreateObject("Excel.Application")


VB без EXCEL не подойдёт, я конечно думал, чтобы занести все данные из этой таблицы в ListView проработать его, а потом вернуть все данные в таблицу, но это не пройдёт, так как мне нужно где-то еще и все формулы хранить.

А насчёт уменьшения поглощения ЦП примерчик был бы не лишним.

[Konst_One]

ты экстремум функции что-ли считаешь, так вот для этого есть ряд математических приемов для ускорения данной операции. открой справочник по высшей математике и посмотри.

[Kiryusha]

ты экстремум функции что-ли считаешь

Нет.

Объясняю.
У фирмы, на которой я работаю есть главный босс - в Москве. Ну так вот у нас за месяц натекает до 600 000 фин. потерь. Если они увидят такие цифры, то нас всех нах.. распустят. Есть спец. люди, которым дают нашу таблицу, деньги (ок. 15 тыс. руб.) и те меняют факт, так, что он становится ближе к плану, следовательно уменьшаются потери, при этом график начальных значений факта и конечных не должны сильно отличаться, вот для этого и нужна моя прога. Причём есть еще определенные контрольные часы, где разница должна быть СОВСЕМ по минимуму.

Ну так вот, моя прога отсылает им вместо 600 000 всего 10-15 тыс. и предраться им практически не к чему.

[575-61]

1.Excel у Вас загружается даже не под управлением VB, а вашей программы - это не только замедляет процесс, но и происходит бесконечный пересчет в Excel (фоновый режим) - отключите функцию Recalc, а когда надо включите.
2.Если Вам необходимы вычисления, http://bbs.vbstreets.ru/viewtopic.php?t=20291

[Antonariy]

Добавь DoEvents во внутренний цикл. Быстрее работать точно не будет, зато проц разгрузится

[Kiryusha]

Нет, Recalc я отключаю и до конца про нее совсем забываю.

Я считываю из таблицы 3 числа делаю с ними всё что надо и кидаю их вновь в таблицу.

И к тому-же мне не важно время выполнения. Пусть она хоть весь день считает, мне нужно, чтобы параллельно с этой программой я мог хоть что-нибудь еще делать, а так это невозможно.

[575-61]

Создай *.Pif файл и отметь приоритет.

[Kiryusha]

Antonariy

А поподробнее о DoEvents...

Вот мой код:

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

    While FindMin(Rw, lngColumnOtklon, MR, 743) < -1 * Gran
        tmpChanges = Thousends(prcnt * .cells(MR, lngColumnOtklon))
        .cells(MR, Clmn).Value = .cells(MR, Clmn).Value - tmpChanges
        While tmpChanges <> 0
            If FindMax(Rw, lngColumnOtklon, MaxR, 743) > Gran Then
                tmpCh = Thousends(prcnt * FindMax(Rw, lngColumnOtklon, MaxR, 743))
                If tmpChanges + tmpCh <= 0 Then
                    .cells(MaxR, Clmn).Value = .cells(MaxR, Clmn).Value - tmpCh
                    tmpChanges = tmpChanges + tmpCh
                Else
                    .cells(MaxR, Clmn).Value = .cells(MaxR, Clmn).Value + tmpChanges
                    tmpChanges = 0
                End If
            Else
                Rw = Rw + 24
                If Val(.cells(Rw, Clmn).Value) = 0 Then
                    .cells(MR, Clmn).Value = .cells(MR, Clmn).Value + tmpChanges
                    GoTo 1
                End If
            End If           
        Wend
    Wend



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

[Konst_One]

DoEvents в цикл добавляй, как тебе уже посоветовали

[Kiryusha]

575-61
А что за pif файл?

Примерчик брось.

[575-61]

1.В файловом менеджере щелкни правой кнопкой мышки.
2.Выбери СВОЙСТВА
3.Зайди на вкладку Программа
4.Напиши имя своей программы, и т.п.
5.Зайди на вкладку РАЗНОЕ
6.Поставь ползунок в нужное (приоритетное) положение.
Удачи!

[Antonariy]

While tmpChanges <> 0
DoEvents
If FindMax(Rw, lngColumnOtklon, MaxR, 743) > Gran Then

[Kiryusha]

Файловый менеджер?

Насколько я знаю то, о чём ты говоришь можно сделать в Диспетчере задач, но это нежелательно, если ты только не знаешь как это можно сделать программно.

[Antonariy]

1.В файловом менеджере щелкни правой кнопкой мышки.
2.Выбери СВОЙСТВА
3.Зайди на вкладку Программа
4.Напиши имя своей программы, и т.п.
5.Зайди на вкладку РАЗНОЕ
6.Поставь ползунок в нужное (приоритетное) положение.
Удачи!

Аналогично: TaskManages -> Процессы -> правый клик -> приоритет.
Однако не советую этого делать.

[Kiryusha]

Попробовал с DoEvents.

Ощутимой разницы чегой-то не заметил.

Еще какие предложения?

[575-61]

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

[Antonariy]

Если есть циклы в FindMax, поставь DoEvents в самый вложенный. Так же интересно, что происходит после GoTo 1. Может там тоже циклы есть?

[Kiryusha]

Ok. БОЛЬШОЕ ВСЕМ СПАСИБО!!!

Теперь всё путём!

Кстати посмотрите тему "о почтовом ящике", может кто что знает???

[tyomitch]

Создай *.Pif файл и отметь приоритет.

Pif-файлы можно создавать только для досовских прог.
Т.ч. твой совет не в тему.

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

И что же такого страшного, расскажи, в изменении приоритета запущенного процесса

[575-61]

Ну незнаю, я учился на 2 или баран.
1.В момент работы программы, стек ...., а изменяя приоритет, рушится старый и создается новый-в этот переходный момент теряется часть кодов (буферизация) не всегда, но бывает.
2.Pif файл это просто шеловская загрузка (виндовс также стоит в шеле) ну а приоритет задается между шелами (command.com)
Если я неправ, извините -посоветуйте или дайте мне урок.

[Antonariy]

1.Чушь
2.Чушь полная

1 Ничего не теряется, просто операционка чаще или реже подсовывает процу процесс, у которого поменяли приоритет.
2. Шелл умер вместе с досом, а в пифе - параметры запуска консоли.

[MOV]

Как ее отключить? Не вижу нихже
Это я про Recalc

[575-61]

В VB или в VBA?

[Twister]

2 Kiryusha

По собственному опыту знаю, что постоянное обращение к ячейкам экселя СИЛЬНО замедляет работу. Советую тебе работать не с отдельными ячейками, а с Range - т.е. выделяешь БОЛЬШОЙ Range, копируешь его в вариантный массив и работаешь с массивом. Запись в таблицу осуществляй аналогично.

[HotKitten]

Кто знает напишите, как сделать выбор приоритета.

вот код глянь, из проги выдернул, вроде ничего не забыл

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

Public Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long
Public Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Public Declare Function GetCurrentThread Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Public Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Public GraphPoints(0 To 99) As Long

'использование
    SetThreadPriority GetCurrentThread, THREAD_BASE_PRIORITY_MAX
    SetPriorityClass GetCurrentProcess, HIGH_PRIORITY_CLASS

[ReMAG]

А может просто использовать Sleep
Я когда-то так делал регулируемую загрузку проца...