Вверх ↑
Ответов: 4622
Рейтинг: 746
#1: 2014-05-26 14:20:48 ЛС | профиль | цитата
Перевод полученной строки в нормальный вид (до 9 знаков, можно увеличить Str_Enum.To): code_33665.txt Результат умножить на 1000.
И да:
sla8a писал(а):
Самое главное: не читайте что пишет Rysik.


[offtop]Тот же вариант, но с MathParse

Add(MainForm,2953706,21,105)
{
}
Add(Edit,587375,217,154)
{
Left=15
Top=20
Width=355
Text="05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0D 0A"
}
Add(Label,7970420,560,252)
{
Left=15
Top=80
Width=34
Height=17
Caption="Result"
link(Text,741186:Var3,[(566,173)])
}
Add(Button,9278579,63,210)
{
Left=15
Top=50
link(onClick,7636573:doEvent1,[])
}
Add(Replace,4664711,217,217)
{
SubStr=" "
link(onReplace,8400652:doEnum,[])
link(Str,587375:Text,[])
}
Add(Str_Enum,8400652,273,217)
{
Delimiter=""
To=9
Step=2
link(onEnum,12168318:doConvert,[])
link(onEndEnum,7970420:doText,[(380,230)(380,258)])
}
Add(Convertor,12168318,399,217)
{
Mode=1
link(onResult,13147422:doCalc,[])
}
Add(Memory,8830238,476,119)
{
Default=Integer(0)
}
Add(Hub,7636573,140,210)
{
link(onEvent1,8830238:doClear,[(180,216)(180,132)])
link(onEvent2,4664711:doReplace,[])
}
Add(GetDataEx,741186,476,168)
{
link(Data,8830238:Value,[])
}
Add(InfoTip,16042837,399,42)
{
Info=#44:result = result + (onResult*10^(NumSubStr-1)|
Width=239
}
Add(MathParse,13147422,476,217)
{
DataCount=3
MathStr="%1 + (%2*10^(%3-1))"
ResultType=0
link(onResult,8830238:doValue,[(539,223)(539,105)(464,105)(464,125)])
link(X1,741186:Var2,[])
link(X3,8400652:NumSubStr,[(496,204)(318,204)(318,268)(279,268)])
}
[/offtop]
карма: 26

0
файлы: 1code_33665.txt [1.6KB] [418]