VBNet - Форум - Ускорение работы... Кто что знает

Вопрос: Ускорение работы... Кто что знает Добавлено: 27.01.04 15:19

Автор вопроса: dNW

Вообщем изпользую я в программе microsoft script control 1.0 , и когда я обращаюсь к нему в больших циклах ( 4000 шагов ), а то и не в одном цикле он невероятно тормозит работу писюка. Что мне с ним делать?

Ответить

Ответы Всего ответов: 10

Номер ответа: 1
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #1

Добавлено: 27.01.04 15:26

A как ты обращаешься и что делаешь?

Код в студию!!!

Ответить

Номер ответа: 2
Автор ответа:

NeForm@t

ICQ: 252999255

Вопросов: 36
Ответов: 247

Web-сайт: g--k.newmail.ru
Профиль | | #2

Добавлено: 27.01.04 15:47

если ты обращаешься к внешнему компоненту то можно поставить doevents после обращения(или до) - не всегда но помогает

Ответить

Номер ответа: 3
Автор ответа:

dNW

Вопросов: 30
Ответов: 683

Профиль | | #3

Добавлено: 27.01.04 16:10

private function evalY(x as double)

Dim Fn As String, Xfixed As String
Fn = Replace$(LCase$(Text1.Text), ",", ".")
If Left$(Fn, 1) = "-" Then Fn = "-1*" & Mid$(Fn, 2, Len(Text1.Text))
Xfixed = Replace$(X, ",", ".")
ScriptControl1.ExecuteStatement "x=" & Xfixed
Y = ScriptControl1.Eval(Fn)

end function

sub Graph()

For X = -20 To 20 Step V
EvalY (X)
Y1 = Y
X1 = X
X2 = X + V
EvalY (X2)
Form2.Picture1.Line (X1 * n, -Y1 * n)-(X2 * n, -Y * n)
Next X

end sub

Это прогррамма для отображения графиков функций ( из кода я думаю видно

Ответить

Номер ответа: 4
Автор ответа:

NeForm@t

ICQ: 252999255

Вопросов: 36
Ответов: 247

Web-сайт: g--k.newmail.ru
Профиль | | #4

Добавлено: 27.01.04 16:22

а чему у тебя равно V?

Ответить

Номер ответа: 5 Автор ответа: boevik Хранитель чата ICQ: 137392264 Вопросов: 8 Ответов: 557	Web-сайт: www.hypertech.ru Профиль \| \| #5	Добавлено: 27.01.04 16:23
	а если контроль поменять на reference на библиотеку microsoft script control , будет быстрее или нет? Ответить

Номер ответа: 6 Автор ответа: dNW Вопросов: 30 Ответов: 683	Профиль \| \| #6	Добавлено: 27.01.04 16:24
	Эи! NeForm@t ! а за DoEvents спасибо! неплохо помогло, (но можно и лучше ) Ответить

Номер ответа: 7
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #7

Добавлено: 28.01.04 09:23

Запускай в отдельном треде. Я нашел где-то прогу, которая рисует в двух пикчерах одновременно в разных thread'ах. Могу намылить.

Ответить

Номер ответа: 8
Автор ответа:

dNW

Вопросов: 30
Ответов: 683

Профиль | | #8

Добавлено: 28.01.04 18:44

To Neform@t : V равно 0.06

to LamerOnLine : Замыль , посмотрим ( hammer@ipex.ru ) Всем спасибо!

Ответить

Номер ответа: 9
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #9

Добавлено: 29.01.04 00:34

2 LamerOnLine

Если прогу не выбивает после компиляции то и мне намыль: cyraxua@hotmail.com

А то я ещё не видел рабочих примеров с потоками на VB6 (если это конечно для VB6).

Ответить

Номер ответа: 10
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #10

Добавлено: 29.01.04 08:46

Меня, кстати, тоже удивило, но, представь себе - не вылетает. Правда, при запуске в среде VB программа не завершается (остается висеть в процессах пока не остановишь ее из самого VB), но после компиляции у меня все нормально работало.

Намылить смогу только завтра, исходники дома

Ответить

Страница: 1 |