Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2008-07-16 13:13:56 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 06:26:51
карма: 0

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#2: 2008-07-16 13:58:16 ЛС | профиль | цитата
Посмотрите схему, может помочь с идеями:
http://hiasm.com/forum.html?q=3&p=5168#p5168
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 9906
Рейтинг: 351
#3: 2008-07-16 14:08:23 ЛС | профиль | цитата
code_9480.txt


карма: 9

0
файлы: 1code_9480.txt [1.4KB] [300]
Главный модератор
Ответов: 2999
Рейтинг: 396
#4: 2008-07-16 14:33:04 ЛС | профиль | цитата
Сравнение 2-х методов:

карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
файлы: 1counters.sha [2.7KB] [350]
Ответов: 9906
Рейтинг: 351
#5: 2008-07-16 16:22:37 ЛС | профиль | цитата
Nic, правильнее сравнивать так:

#sha
Add(MainForm,6975537,28,147)
{
Left=20
Top=105
Width=158
Height=101
link(onCreate,2092186:doStart,[])
}
Add(TimeCounter,2092186,126,161)
{
link(onStart,14648539:doWork3,[(165,167)])
link(onStop,8675709:doOperation,[])
}
Add(Edit,764973,504,217)
{
Left=45
Top=35
}
Add(Math,8675709,182,168)
{
@Hint=#7:Секунды|
OpType=3
Op2=1000
ResultType=0
link(onResult,7134436:doEvent1,[])
}
Add(Math,10245081,287,168)
{
@Hint=#6:Минуты|
OpType=7
Op2=60
ResultType=0
link(onResult,15319438:doOperation,[])
}
Add(Convertor,798494,392,217)
{
SymbolFill="0"
link(onResult,10576283:doString,[])
}
Add(Convertor,14505610,392,168)
{
SymbolFill="0"
link(onResult,601252:doValue,[])
}
Add(Hub,7134436,238,168)
{
link(onEvent1,10245081:doOperation,[])
link(onEvent2,6943931:doOperation,[(282,181)(282,223)])
}
Add(FormatStr,10576283,455,217)
{
Mask="%1:%2"
link(onFString,764973:doText,[])
link(Str1,601252:Value,[])
}
Add(Memory,601252,455,168)
{
}
Add(Timer,14965908,28,84)
{
link(onTimer,12148464:doEvent1,[])
}
Add(Edit,6142605,504,84)
{
Left=45
Top=10
ReadOnly=0
}
Add(Counter,8641740,182,84)
{
Max=59
Default=-1
link(onNext,3673286:doCase,[])
}
Add(Memory,5974650,455,21)
{
link(onData,16017569:doWork1,[(500,27)(500,69)(305,69)])
}
Add(Case,3673286,238,84)
{
DataOnTrue=String(00)
link(onNextCase,16017569:doWork2,[])
link(onTrue,10776471:doNext,[(282,97)(282,27)])
}
Add(Counter,10776471,294,21)
{
Max=59
Default=-1
link(onNext,5020031:doCompare,[])
}
Add(FormatStr,10270919,455,84)
{
Mask="%1:%2"
link(onFString,6142605:doText,[])
link(Str1,5974650:Value,[])
}
Add(StrMask,8517261,343,84)
{
Mask="#"
link(onFalse,9490838:doWork2,[])
link(onTrue,6159186:doStrCat,[])
link(Str,8641740:Count,[(349,74)(312,74)(312,126)(188,126)])
}
Add(StrCat,6159186,392,91)
{
Str1="0"
link(onStrCat,9490838:doWork3,[(438,97)])
}
Add(HubEx,9490838,434,77)
{
link(onEvent,10270919:doString,[])
}
Add(StrMask,5020031,343,21)
{
Mask="#"
link(onFalse,1567614:doWork2,[])
link(onTrue,55663:doStrCat,[])
}
Add(StrCat,55663,392,28)
{
Str1="0"
link(onStrCat,1567614:doWork3,[(438,34)])
}
Add(HubEx,1567614,434,14)
{
link(onEvent,5974650:doValue,[])
}
Add(HubEx,16017569,301,77)
{
link(onEvent,8517261:doCompare,[])
}
Add(Hub,12148464,77,84)
{
link(onEvent1,14648539:doWork2,[])
link(onEvent2,2092186:doStop,[(117,97)(117,174)])
}
Add(Math,15319438,336,168)
{
OpType=8
Op2=60
ResultType=0
link(onResult,14505610:doConvert,[])
}
Add(Math,6943931,336,217)
{
OpType=8
Op2=60
ResultType=0
link(onResult,798494:doConvert,[])
}
Add(HubEx,14648539,161,77)
{
link(onEvent,8641740:doNext,[])
}

карма: 9

0
Главный модератор
Ответов: 2999
Рейтинг: 396
#6: 2008-07-16 16:40:23 ЛС | профиль | цитата
Приблизительно на 10 минутах уже разница в секунду.
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 9906
Рейтинг: 351
#7: 2008-07-16 17:45:50 ЛС | профиль | цитата
А в "микросекундах" измерять не пробовал
карма: 9

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)