Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2020-01-06 12:24:14 ЛС | профиль | цитата
Слушай, nesco, чего я вспомнил...
Когда-то, в BitsToInt я вносил исправления, чтобы он понимал больше 32-х бит (возвращает при этом real).
Вот... А про IntToBits я тогда и позабыл.
Поэтому, предлагаю фикс (в аттаче).
Поверил на схеме нашего коллеги 3042:

Add(Button,5384408,574,119)
{
@Color=255
Left=5
Top=5
Width=165
Height=45
Caption="1"
Data=Integer(0)
link(onClick,11615677:doWork2,[])
AddHint(-51,9,21,13,Caption)
}
Add(Button,9501709,574,154)
{
@Color=255
Left=5
Top=60
Width=165
Height=45
Caption="2"
Data=Integer(1)
link(onClick,4489211:doWork2,[])
AddHint(-51,9,21,13,Caption)
}
Add(Button,345068,574,224)
{
@Color=255
Left=5
Top=160
Width=165
Height=45
Caption="4"
Data=Integer(48)
link(onClick,4796756:doWork2,[])
AddHint(-51,9,21,13,Caption)
}
Add(Button,9880169,574,259)
{
@Color=255
Left=5
Top=210
Width=165
Height=45
Caption="5"
Data=Integer(49)
link(onClick,4796756:doWork3,[(627,265)])
AddHint(-51,9,21,13,Caption)
}
Add(Button,16334480,574,189)
{
@Color=255
Left=5
Top=110
Width=165
Height=45
Caption="3"
Data=Integer(2)
link(onClick,8859863:doWork2,[])
AddHint(-51,9,21,13,Caption)
}
Add(LineBreak,11546986,798,189)
{
Caption="vis"
link(Out,1246265:doWork1,[])
Primary=[6552823,-14,-63]
}
Add(LineBreak,13155482,798,238)
{
Caption="vis"
link(Out,16595292:doWork1,[])
Primary=[4126784,-14,-105]
}
Add(LineBreak,13943601,798,294)
{
Caption="vis"
link(Out,9904003:doWork1,[])
Primary=[14423957,-21,161]
}
Add(LineBreak,9698646,798,343)
{
Caption="vis"
link(Out,16488555:doWork1,[])
Primary=[2898079,-21,119]
}
Add(ChildPanel,1246265,847,189)
{
}
BEGIN_SDK
Add(EditMulti,1407037,21,21)
{
WorkCount=1
link(doWork1,5337714:doVisible,[(59,27)(59,69)])
}
Add(Panel,5337714,98,56)
{
Left=195
Top=30
Width=170
Height=215
Visible=1
Point(doVisible)
}
Add(Label,3330816,168,98)
{
Left=60
Top=90
Width=22
Height=17
Caption="222"
}
END_SDK
Add(ChildPanel,16595292,847,238)
{
}
BEGIN_SDK
Add(EditMulti,15996227,21,21)
{
WorkCount=1
link(doWork1,14650263:doVisible,[(59,27)(59,69)])
}
Add(Panel,14650263,98,56)
{
Left=195
Top=30
Width=170
Height=215
Visible=1
Point(doVisible)
}
Add(Label,6723808,168,98)
{
Left=60
Top=90
Width=22
Height=17
Caption="333"
}
END_SDK
Add(ChildPanel,9904003,847,294)
{
}
BEGIN_SDK
Add(EditMulti,267168,21,21)
{
WorkCount=1
link(doWork1,14054324:doVisible,[(59,27)(59,69)])
}
Add(Panel,14054324,98,56)
{
Left=195
Top=30
Width=170
Height=215
Visible=1
Point(doVisible)
}
Add(Label,10547930,168,98)
{
Left=60
Top=90
Width=22
Height=17
Caption="444"
}
END_SDK
Add(ChildPanel,16488555,847,343)
{
}
BEGIN_SDK
Add(EditMulti,11663719,21,21)
{
WorkCount=1
link(doWork1,16337692:doVisible,[(59,27)(59,69)])
}
Add(Panel,16337692,98,56)
{
Left=195
Top=30
Width=170
Height=215
Visible=1
Point(doVisible)
}
Add(Label,15731849,168,98)
{
Left=60
Top=90
Width=22
Height=17
Caption="555"
}
END_SDK
Add(ChildPanel,15687527,847,119)
{
}
BEGIN_SDK
Add(EditMulti,1591142,21,21)
{
WorkCount=1
link(doWork1,12574307:doVisible,[(59,27)(59,69)])
}
Add(Panel,12574307,98,56)
{
Left=195
Top=30
Width=170
Height=215
Point(doVisible)
}
Add(Label,5176033,168,98)
{
Left=60
Top=90
Width=22
Height=17
Caption="111"
}
END_SDK
Add(MainForm,6445395,574,315)
{
Height=388
Position=1
}
Add(IntToBits,789990,728,119)
{
Count=50
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,15687527:doWork1,[])
link(onBit2,6552823:In,[])
link(onBit3,4126784:In,[])
link(onBit49,14423957:In,[])
link(onBit50,2898079:In,[])
}
Add(Math,4533655,658,119)
{
OpType=9
Op1=1
link(onResult,789990:doBits,[])
}
Add(HubEx,11615677,623,119)
{
link(onEvent,4533655:doOperation,[])
}
Add(HubEx,4489211,623,154)
{
Angle=3
link(onEvent,11615677:doWork3,[])
}
Add(HubEx,8859863,623,189)
{
Angle=3
link(onEvent,4489211:doWork3,[])
}
Add(HubEx,4796756,623,224)
{
Angle=3
link(onEvent,8859863:doWork3,[])
}
карма: 9

0
файлы: 1hiIntToBits.rar [597B] [497]