Neo писал(а):
Конвертнуть его из hex в чисто, а там IntToBits?Ну да, на выходе получишь текстовую строку бит
------------ Дoбавленo в 23.29:
Вот так
Add(MainForm,2953706,91,105)
{
}
Add(Edit,9878053,147,105)
{
Left=25
Top=20
Width=130
Cursor=1
Text="C1"
}
Add(Edit,15096420,259,161)
{
Left=25
Top=50
Width=130
Cursor=1
Text=""
}
Add(Convertor,5378753,147,161)
{
Mode=5
link(onResult,13578312:doConvert,[])
link(Data,9878053:Text,[])
}
Add(Convertor,13578312,203,161)
{
Mode=8
Digits=8
link(onResult,15096420:doText,[])
}
Add(Button,11937388,91,161)
{
Left=60
Top=85
TabOrder=-1
link(onClick,5378753:doConvert,[])
}
Neo, на тебе простенький декодер
Add(MainForm,2953706,49,105)
{
}
Add(Edit,9878053,147,105)
{
Left=25
Top=20
Width=130
Cursor=1
Text="C1"
}
Add(Edit,15096420,308,161)
{
Left=25
Top=50
Width=130
Cursor=1
Text=""
}
Add(Convertor,5378753,147,161)
{
Mode=5
link(onResult,13578312:doConvert,[])
link(Data,9878053:Text,[])
}
Add(Convertor,13578312,203,161)
{
Mode=8
Digits=8
link(onResult,11649690:doValue,[])
}
Add(Button,11937388,49,161)
{
Left=80
Top=185
TabOrder=-1
link(onClick,10512:doEvent1,[])
}
Add(Copy,7336375,259,217)
{
Position=1
Count=1
link(onCopy,9398123:doGetString,[])
link(Str,10966963:Var2,[])
}
Add(Hub,10512,98,161)
{
OutCount=5
link(onEvent1,5378753:doConvert,[])
link(onEvent2,7336375:doCopy,[(140,174)(140,223)])
link(onEvent3,8593631:doCopy,[(133,181)(133,286)])
link(onEvent4,10814685:doOperation,[(125,188)(125,349)])
link(onEvent5,15232845:doCopy,[(119,195)(119,440)])
}
Add(Edit,723009,560,280)
{
Left=105
Top=80
Width=130
Cursor=1
Text=""
}
Add(Label,6695033,217,112)
{
Left=25
Top=105
Width=72
Height=17
Caption="Делитель:"
Alignment=1
}
Add(Label,3714793,210,105)
{
Left=25
Top=80
Width=72
Height=17
Caption="Делимое:"
Alignment=1
}
Add(Edit,10548693,560,182)
{
Left=105
Top=105
Width=130
Cursor=1
Text=""
}
Add(StrList,9398123,399,175)
{
Strings=#5:14400|4:3600|0:|
Point(onGetString)
Point(doGetString)
Point(String)
link(onGetString,10548693:doText,[])
}
Add(Copy,8593631,294,280)
{
Position=2
Count=6
link(onCopy,831421:doConvert,[])
link(Str,15929105:Var2,[])
}
Add(GetDataEx,10966963,259,196)
{
link(Data,11649690:Value,[])
}
Add(Convertor,831421,357,280)
{
Mode=7
Digits=8
link(onResult,10638689:doValue,[])
}
Add(Memory,10638689,413,280)
{
link(onData,723009:doText,[])
}
Add(Math,10814685,413,343)
{
OpType=3
link(onResult,16498877:doOperation,[])
link(Op1,10638689:Value,[])
link(Op2,9398123:String,[])
}
Add(Memory,11649690,259,161)
{
link(onData,15096420:doText,[])
}
Add(Edit,16341233,560,343)
{
Left=105
Top=130
Width=130
Cursor=1
Text=""
}
Add(Label,16728277,203,98)
{
Left=25
Top=130
Width=72
Height=17
Caption="Результат:"
AutoSize=1
Alignment=1
}
Add(Label,14119245,196,91)
{
Left=245
Top=130
Width=39
Height=17
Caption="мсек"
AutoSize=1
}
Add(Math,16498877,462,343)
{
OpType=2
Op2=1000
link(onResult,13848227:doOperation,[])
}
Add(Copy,15232845,329,434)
{
Position=8
Count=1
link(onCopy,14128774:doGetString,[])
link(Str,15929105:Var3,[(335,201)])
}
Add(GetDataEx,15929105,294,196)
{
Angle=3
link(Data,10966963:Var3,[])
}
Add(StrList,14128774,413,392)
{
Strings=#5:пауза|7:импульс|0:|
Point(onGetString)
Point(doGetString)
Point(String)
link(onGetString,1898733:doText,[])
}
Add(Label,1898733,560,399)
{
Left=300
Top=130
Width=70
Caption=""
AutoSize=1
}
Add(Math,13848227,511,343)
{
OpType=35
Op2=0.01
link(onResult,16341233:doText,[])
}