Вычисление первой цифры с конца.

Вверх ↑

Форумы Помощь по пакетуВычисление первой цифры с конца. ← Ctrl123Ctrl →

Этот топик читают: Гость

Ответов: 16884

Рейтинг: 1239

#16: 2010-06-19 11:34:47 ЛС | профиль | цитата

nesco, все работает нормально - у меня коротнуло

------------ Дoбавленo в 11.34:
CriDos, тестить, тоже уметь надо

Демонстрация абсурда.

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

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1

тест.png [4.1KB] [297]

Разработчик

Ответов: 26300

Рейтинг: 2146

#17: 2010-06-19 11:38:41 ЛС | профиль | цитата

Tad писал(а):

тестить, тоже уметь надо

А у меня все одинаково показывает, по 2 каждый
------------ Дoбавленo в 11.38:
Tad, че ты хочешь выдавить, в данном случае, с FTCG, когда остальные коды заточены, специально, под эти задачи

карма: 22

Ответов: 16884

Рейтинг: 1239

#18: 2010-06-19 11:43:44 ЛС | профиль | цитата

Tad писал(а):

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

Вот я и говорю:

Tad писал(а):

тестить, тоже уметь надо

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 2

тест2.png [4.1KB] [285], тест3.png [4.1KB] [320]

Разработчик

Ответов: 26300

Рейтинг: 2146

#19: 2010-06-19 11:48:48 ЛС | профиль | цитата

Tad, да, интересный эффект. А почему так (если FTCG стоит первым, то показывает худший результат), это надо спросить начальника транспортного цеха

карма: 22

Ответов: 16884

Рейтинг: 1239

#20: 2010-06-19 11:57:31 ЛС | профиль | цитата

nesco писал(а):

А почему так

Тестить нужно каждый блок отдельно в своей форме, тогда получаются примерно верные результаты. Тестить все блоки в одной форме - дохлый номер (и не только в HiAsm). Почему так ? А черт его знает.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Разработчик

Ответов: 26300

Рейтинг: 2146

#21: 2010-06-19 12:02:17 ЛС | профиль | цитата

Tad писал(а):

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

Скорее, не в форме, а каждый в своем потоке

карма: 22

Ответов: 16884

Рейтинг: 1239

#22: 2010-06-19 12:10:10 ЛС | профиль | цитата

Тоже ничего не даст, особенно если в микросекундах. Даже подсчет тиков процессора дает верный результат только при "машинных кодах" и без применения OC. Все остальное примерно +- километр.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 1841

Рейтинг: 370

#23: 2010-06-19 12:19:55 ЛС | профиль | цитата

хм, добавил временные промежутки между тестами а также каждый тест теперь запускается в новом потоке но результат также не стабилен

TEST 2


Add(Copy,12365343,556,198)
{
 Position=1
 Count=1
 Direction=1
 link(onCopy,6971897:In,[])
 link(Str,11783434:Var1,[(562,164)])
}
Add(Button,8955814,228,191)
{
 Left=17
 Top=8
 Width=118
 Height=32
 Caption="Тест"
 link(onClick,5379034:doEvent1,[])
}
Add(TimeCounter,16140193,392,198)
{
 Precision=1
 link(onStart,12365343:doCopy,[])
 link(onStop,10838574:doEvent1,[])
}
Add(LineBreakEx,3679000,512,205)
{
 Caption="2"
}
Add(Memo,2522967,764,280)
{
 Left=163
 Width=169
 Height=49
 Align=3
}
Add(Str_Enum,15413255,545,284)
{
 Delimiter=""
 To=1
 Direct=1
 link(onEnum,15411786:In,[])
 link(String,3128006:Var1,[(551,251)])
}
Add(TimeCounter,10877699,391,284)
{
 Precision=1
 link(onStart,15413255:doEnum,[])
 link(onStop,11786205:doEvent1,[])
}
Add(LineBreakEx,7664810,507,291)
{
 Caption="2"
}
Add(FTCG_Tools,1936569,545,378)
{
 link(onCopy,7152441:In,[])
 link(SrcStr,3128006:Var2,[(551,326)(688,326)])
}
BEGIN_SDK
  Add(EditMultiEx,1696576,21,21)
  {
   WorkCount=#7:doValue|
   EventCount=#6:onCopy|
   DataCount=#6:SrcStr|
   Width=223
   Height=102
   link(doValue,4773792:doLength,[(57,27)(57,69)])
  }
  Add(FT_Copy,10016266,140,63)
  {
   CharCount=1
   link(onCopy,1696576:onCopy,[(219,69)(219,27)])
  }
  Add(FT_Length,4773792,93,63)
  {
   link(onLength,10016266:doCopy,[])
   link(SrcStr,1696576:SrcStr,[(99,42)(27,42)])
  }
END_SDK
Add(LineBreakEx,14330268,481,385)
{
 Caption="2"
}
Add(TimeCounter,1703438,396,378)
{
 Precision=1
 link(onStart,1936569:doValue,[])
 link(onStop,8163994:doStrCatDlm,[])
}
Add(Hub,5379034,272,191)
{
 link(onEvent1,8709495:doWork,[(296,197)(296,185)])
 link(onEvent2,311599:doStart,[])
}
Add(LineBreakEx,16106924,722,280)
{
 Caption="2"
 Type=1
 link(OnEvent,2522967:doAdd,[])
}
Add(StrCatDelim,8163994,438,385)
{
 Str1="FTCG: "
 Str2=" Microsecond"
 Point(Delimiter)
 link(onStrCatDlm,14330268:doWork,[])
}
Add(StrCatDelim,3950711,465,291)
{
 Str1="Str_Enum: "
 Str2=" Microsecond"
 Point(Delimiter)
 link(onStrCatDlm,7664810:doWork,[])
}
Add(StrCatDelim,5270555,468,205)
{
 Str1="Copy: "
 Str2=" Microsecond"
 Point(Delimiter)
 link(onStrCatDlm,3679000:doWork,[])
}
Add(LineBreakEx,8674807,709,296)
{
 Caption="clear"
 Type=1
 link(OnEvent,2522967:doClear,[(758,302)(758,293)])
}
Add(LineBreakEx,8709495,305,179)
{
 Caption="clear"
}
Add(LineBreak,13494310,350,205)
{
 Caption="1"
 link(Out,16140193:doStop,[])
 Primary=[6971897,250,-7]
}
Add(LineBreak,13610099,349,291)
{
 Caption="1"
 link(Out,10877699:doStop,[])
 Primary=[15411786,240,-7]
}
Add(LineBreak,2226505,355,385)
{
 Caption="1"
 link(Out,1703438:doStop,[])
 Primary=[7152441,233,-7]
}
Add(Hub,10838574,436,205)
{
 link(onEvent1,5270555:doStrCatDlm,[])
 link(onEvent2,11149036:doStart,[(462,218)(462,254)(289,254)(289,290)])
}
Add(Hub,11786205,434,291)
{
 link(onEvent1,3950711:doStrCatDlm,[])
 link(onEvent2,2781217:doStart,[(460,304)(460,344)(291,344)(291,384)])
}
Add(Memory,16261041,682,112)
{
 Default=String(0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001)
}
Add(GetDataEx,11783434,682,159)
{
 link(Data,16261041:Value,[])
}
Add(GetDataEx,3128006,682,246)
{
 link(Data,11783434:Var2,[])
}
Add(Thread,311599,308,198)
{
 Delay=200
 FastStop=0
 link(onExec,16140193:doStart,[])
}
Add(Thread,11149036,301,284)
{
 Delay=500
 FastStop=0
 link(onExec,10877699:doStart,[])
}
Add(Thread,2781217,303,378)
{
 Delay=500
 FastStop=0
 link(onExec,1703438:doStart,[])
}

------------ Дoбавленo в 12.19:
даже бывают такие скачки


Copy: 49 Microsecond
Str_Enum: 9 Microsecond
FTCG: 7 Microsecond

карма: 1

Альтернативная сборка HiAsm 4.

Ответов: 16884

Рейтинг: 1239

#24: 2010-06-19 12:26:47 ЛС | профиль | цитата

CriDos, не парься - всё это туфта. Для твоего случая применим любой компонент - и Str_Enum и Copy.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 1841

Рейтинг: 370

#25: 2010-06-19 12:38:43 ЛС | профиль | цитата

Только что провёл эксперимент:
Загрузил безопасный режим (без драйверов и т.п.)
и протестировал на выше указанной программе "TEST2", вот результаты:


Copy: 4 Microsecond
Str_Enum: 6 Microsecond
FTCG: 5 Microsecond

Copy: 5 Microsecond
Str_Enum: 5 Microsecond
FTCG: 5 Microsecond

Copy: 5 Microsecond
Str_Enum: 5 Microsecond
FTCG: 6 Microsecond

Copy: 5 Microsecond
Str_Enum: 5 Microsecond
FTCG: 5 Microsecond

Copy: 6 Microsecond
Str_Enum: 6 Microsecond
FTCG: 5 Microsecond

карма: 1

Альтернативная сборка HiAsm 4.

Ответов: 16884

Рейтинг: 1239

#26: 2010-06-19 12:51:30 ЛС | профиль | цитата

CriDos, все понятно.
Осталось добавить предупреждение : "Перед запуском программы, перезапустите Windows в безопасном режиме"

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Администрация

Ответов: 15295

Рейтинг: 1519

#27: 2010-06-19 14:08:45 ЛС | профиль | цитата

у вас операционки в реальном режиме времени работают, чтобы измерять время с точностью до микросекунд? Как верно было замечено:

Tad писал(а):

Демонстрация абсурда.

и ничего более

карма: 27

https://hiasm.com

Ответов: 93

Рейтинг: 1

#28: 2010-06-23 21:52:05 ЛС | профиль | цитата

на code_18936.txt

Пишет hiasm. Ошибка: Str_Enum не найден.

code_19034.txt
------------ Дoбавленo в 21.52:
Вычисление длины строки там из другой оперы. Что-то незаладилась схема при поиске с позиции...

карма: 0

файлы: 1

code_19034.txt [1.5KB] [119]

Ответов: 16884

Рейтинг: 1239

#29: 2010-06-23 22:45:51 ЛС | профиль | цитата

raph писал(а):

Пишет hiasm. Ошибка: Str_Enum не найден.

raph, могло бути гiрше (укр.)

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 93

Рейтинг: 1

#30: 2010-06-24 18:55:43 ЛС | профиль | цитата

перевожу с укр.
code_19044.txt

карма: 0

файлы: 1

code_19044.txt [663B] [141]

Форумы Помощь по пакетуВычисление первой цифры с конца. ← Ctrl123Ctrl →


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