Инвертор?

Вверх ↑

Форумы Помощь по пакетуИнвертор? ← Ctrl1Ctrl →

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

Ответов: 19

Рейтинг: 1

#1: 2015-06-05 22:26:42 ЛС | профиль | цитата

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

карма: 1

Ответов: 16884

Рейтинг: 1239

#2: 2015-06-05 22:43:01 ЛС | профиль | цитата

code_35796.txt
------------ Дoбавленo в 22.43:
Или так


Add(Button,2672038,105,217)
{
 Left=95
 Top=55
 Caption="0"
 Data=Integer(0)
 link(onClick,6885612:doOn,[(173,223)(173,202)])
}
Add(Button,6455486,105,175)
{
 Left=95
 Top=95
 Caption="1"
 Data=Integer(1)
 link(onClick,6885612:doReset,[(171,181)(171,195)])
}
Add(Label,2478409,266,182)
{
 Left=280
 Top=115
}
Add(Switch,6885612,196,182)
{
 DataOn=Integer(1)
 DataOff=Integer(0)
 Point(doOn)
 link(onSwitch,2478409:doText,[])
}

и ещё куча вариантов.

карма: 25

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

файлы: 1 code_35796.txt [515B] [217]

Голосовали: Japonamat

Ответов: 19

Рейтинг: 1

#3: 2015-06-05 22:52:26 ЛС | профиль | цитата

Первый отлично работает, второй не пробовал даже. Большое русское мерси

А то вечер бился безрезультатно, уже голова не работает.

карма: 1

Ответов: 1343

Рейтинг: 31

#4: 2015-06-06 06:46:36 ЛС | профиль | цитата

Add(ChanelToIndex,16473468,287,28)
{
}
Add(IndexToChanel,15493158,238,28)
{
 link(onEvent1,16473468:doWork2,[(278,34)(278,41)])
 link(onEvent2,16473468:doWork1,[(278,41)(278,34)])
}

карма: 2

Голосовали: Tad

Ответов: 1535

Рейтинг: 176

#5: 2015-06-06 08:43:28 ЛС | профиль | цитата

Add(Math,2520519,308,245){
 OpType=6
 Op2=1
}

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 1343

Рейтинг: 31

#6: 2015-06-06 12:05:14 ЛС | профиль | цитата

code_35801.txt

пока как то так
(1000000 интерраций)
ser_davkin ~ 190000
Tad ~ 170000
Rysik ~ 37000

ждём IC

карма: 2

файлы: 1

code_35801.txt [1.7KB] [194]

Ответов: 824

Рейтинг: 138

#7: 2015-06-06 12:56:05 ЛС | профиль | цитата

Rysik писал(а):

ждём IC

Add(MainForm,2953706,364,126)
{
 Width=294
 Height=153
 Caption="Invertor"
}
Add(InlineCode,6652260,364,168)
{
 WorkPoints=#8:doInvert|
 EventPoints=#8:onInvert|
 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|15:   {Data point}|23:    //______:THI_Event;|16:   {Event point}|23:    onInvert:THI_Event;|14:   {Var point}|51:    //procedure ______(Var Data:TData; Index:Word);|15:   {Work point}|53:    procedure doInvert(Var Data:TData; Index:Word);  |5: end;|0:|16:implementation  |0:|31:procedure THiAsmClass.doInvert;|14:var b:Integer;|5:begin|21:  b:=ToInteger(Data);|11:  case b of|32:    0: _hi_onEvent(onInvert, 1);|32:    1: _hi_onEvent(onInvert, 0);|7:   end;|2:  |4:end;|0:|4:end.|
 link(onInvert,934059:doText,[])
}
Add(Button,4628638,245,140)
{
 Left=25
 Top=35
 Caption="Push 0"
 Data=Integer(0)
 link(onClick,4859970:doWork1,[(340,146)])
}
Add(Button,2914909,245,189)
{
 Left=25
 Top=70
 Caption="Push 1"
 Data=Integer(1)
 link(onClick,4859970:doWork3,[(340,195)])
}
Add(Label,934059,434,168)
{
 Left=135
 Top=55
}
Add(HubEx,4859970,336,168)
{
 link(onEvent,6652260:doInvert,[])
}

карма: 1

Ответов: 8926

Рейтинг: 823

#8: 2015-06-06 13:04:32 ЛС | профиль | цитата

Rysik писал(а):

ждём IC

"Читатель ждёт уж рифмы РОЗЫ.
На, вот, возьми её скорей!"
code_35802.txt

карма: 19

файлы: 1

code_35802.txt [2.3KB] [290]

Ответов: 1535

Рейтинг: 176

#9: 2015-06-06 13:18:41 ЛС | профиль | цитата

Rysik писал(а):

Rysik ~ 37000

А, Вы уверены, что подключили свою схему перед началом теста?

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 1343

Рейтинг: 31

#10: 2015-06-06 13:37:24 ЛС | профиль | цитата

ser_davkin писал(а):

А, Вы уверены, что подключили свою схему перед началом теста?

[flood]

, как это оно отсоединилось

[/flood]

карма: 2

Ответов: 16884

Рейтинг: 1239

#11: 2015-06-06 14:33:36 ЛС | профиль | цитата

code_35803.txt

------------ Дoбавленo в 14.33:
Rysik, проверь
По моей проверке (время в микросекундах):

ser_davkin	Math (XOR)	244979
Rysik	IndexToChanel+ChanelToIndex	325827
Tad	IntToBits	221749
Tad	IC	85453
sashaoli	IC	116843
Леонид	IC	155124

карма: 25

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

файлы: 1

code_35803.txt [903B] [197]

Ответов: 1328

Рейтинг: 69

#12: 2015-06-11 22:21:21 ЛС | профиль | цитата

Еще вариант:

code_35833.txt

карма: 2

Ответов: 16884

Рейтинг: 1239

#13: 2015-06-12 07:28:32 ЛС | профиль | цитата

Konst, Error

карма: 25

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

Ответов: 1328

Рейтинг: 69

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

Tad писал(а):

Konst, Error

еще раз и теперь 2 варианта )

code_35839.txt

карма: 2

файлы: 2

code_35833.txt [708B] [279], code_35839.txt [1KB] [268]

Ответов: 1535

Рейтинг: 176

#15: 2015-06-13 12:45:24 ЛС | профиль | цитата

Konst, IndexToChanel+ChanelToIndex уже был.
Вот ещё пара вариантов, что пришли в голову сами по себе:

Add(StrList,5984913,357,231)
{
 Strings=#1:1|1:0|
 Point(doGetString)
 Point(onGetString)
}
Add(MultiSetParam,13438061,357,294)
{
 Parameters=#1:1|1:0|
 Count=1
}

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Форумы Помощь по пакетуИнвертор? ← Ctrl1Ctrl →


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