OddEven - HiAsm

Вверх ↑

Форумы КомпонентыOddEven ← Ctrl12Ctrl →

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

Разработчик

Ответов: 26069

Рейтинг: 2121

#16: 2010-08-24 19:38:38 ЛС | профиль | цитата

olDjeka писал(а):

А так не пойдёт?

Гы. Отлично. А ведь верно -- нечетность определяется наличием 0-го бита. Плюс от меня.

карма: 22

Ответов: 16884

Рейтинг: 1239

#17: 2010-08-24 19:39:42 ЛС | профиль | цитата

nesco, сравнивать нужно по честному.
Сравнивалось со схемами, выложенными Ivann, т.е. Button, Едит и Message x 2 - обязательны.

Да и на выходе у меня число (четные уходят в одну сторону, нечетные в другую)

карма: 25

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

Разработчик

Ответов: 26069

Рейтинг: 2121

#18: 2010-08-24 19:42:08 ЛС | профиль | цитата

Tad писал(а):

Сравнивалось со схемами, выложенными Ivann, т.е. Button, Едит и Message x 2 - обязательны

А какого ты сравнил схему Assasin-a

Да пес с ним, я не претендую на самую короткую схему. Тут уже есть лидеры

карма: 22

Ответов: 16884

Рейтинг: 1239

#19: 2010-08-24 19:44:16 ЛС | профиль | цитата

nesco писал(а):

Да пес с ним, я не претендую на самую короткую схему. Тут уже есть лидеры

Да и для меня этот разговор совершенно лишний.

Мне нужно было направить четные и нечетные по разным потокам с минимальными затратами.
Вот и поделился опытом.

карма: 25

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

Ответов: 3349

Рейтинг: 233

#20: 2010-08-24 19:49:31 ЛС | профиль | цитата

Tad, такой же размер и на стандартных компонентах.

------------ Дoбавленo в 19.49:


Add(InlineCode,7330169,224,168)
{
 WorkPoints=#6:doTest|
 EventPoints=#6:onTrue|7:onFalse|
 DataPoints=#3:int|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|20:   onTrue:THI_Event;|21:   onFalse:THI_Event;|17:   int:THI_Event;|45:   procedure doTest(var dt:TData;Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doTest;|5:begin|96:if (ReadInteger(dt, int) mod 2) = 0 then _hi_OnEvent(onTrue, dt) else _hi_OnEvent(onFalse, dt); |4:end;|0:|4:end.|
}

карма: 1

Разработчик

Ответов: 4697

Рейтинг: 426

#21: 2010-08-24 19:56:42 ЛС | профиль | цитата

[flood]

Ivann писал(а):

Tad, такой же размер и на стандартных компонентах.

Ivann жжет[/flood]

карма: 10

Мой сайт, Мои рассказы

Ответов: 215

Рейтинг: 45

#22: 2010-08-24 20:03:39 ЛС | профиль | цитата

нечетность определяется наличием 0-го бита

Ну, так операция число and 1 как раз этот бит и проверяет

карма: 0

Ответов: 16884

Рейтинг: 1239

#23: 2010-08-24 20:16:17 ЛС | профиль | цитата

Ivann, ну-ну
code_20211.txt
------------ Дoбавленo в 20.16:
lev,

Tad писал(а):

Да и на выходе у меня число (четные уходят в одну сторону, нечетные в другую)

карма: 25

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

файлы: 1

code_20211.txt [1014B] [286]

Ответов: 3349

Рейтинг: 233

#24: 2010-08-24 20:24:39 ЛС | профиль | цитата

Tad, подумаешь
------------ Дoбавленo в 20.24:


Add(InlineCode,7330169,217,273)
{
 WorkPoints=#6:doTest|
 EventPoints=#6:onTrue|7:onFalse|
 DataPoints=#3:int|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|20:   onTrue:THI_Event;|21:   onFalse:THI_Event;|17:   int:THI_Event;|45:   procedure doTest(var dt:TData;Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doTest;|5:begin|148:if (ReadInteger(dt, int) mod 2) = 0 then _hi_CreateEvent(dt,@onTrue, ReadInteger(dt, int)) else _hi_CreateEvent(dt,@onFalse, ReadInteger(dt, int)); |4:end;|0:|4:end.|
 link(onTrue,4271572:doAdd,[])
 link(onFalse,10630644:doAdd,[(262,286)(262,335)])
 link(int,13628945:Text,[])
}
Add(Button,15438455,154,273)
{
 Left=140
 Top=225
 link(onClick,7330169:doTest,[])
}
Add(Edit,13628945,217,217)
{
 Left=25
 Top=225
 Width=105
 Text=""
}
Add(ListBox,4271572,280,273)
{
 Left=10
 Top=10
 Width=85
 Height=200
}
Add(ListBox,10630644,280,329)
{
 Left=110
 Top=10
 Width=90
 Height=200
}