Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#31: 2016-01-23 03:31:20 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2017-06-15 02:47:41
карма: 0

0
Ответов: 113
Рейтинг: 1
#32: 2016-01-23 09:55:53 ЛС | профиль | цитата
46.63.67.135 писал(а):

code_36852.txt
не удобно так! + лишние компоненты

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


Add(Edit,518480,392,406)
{
Left=100
Top=325
Width=175
Height=60
Font=[Courier New,36,1,0,204]
Text="0.00"
ClearAfterEnter=1
Point(onKeyDown)
Point(doPosition)
Point(doSetFocus)
Point(Position)
link(onChange,4050585:doFormatIP,[(447,412)(447,401)(240,401)(240,412)])
}
Add(InlineCode,4050585,252,406)
{
WorkPoints=#10:doFormatIP|
EventPoints=#8:onFormat|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|2: |39:type TIPAdr = array[ 0..3] of integer; |41:type TIPAdrOld = array[ 0..3] of integer;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|18: fIpAdr:TIPAdr;|24: fIpAdrOld:TIPAdrOld;|15: old:string;|9: public|23: onFormat:THI_Event;|49: procedure doFormatIP(var dt:TData; idx:word);|0:|5: end;|0:|14:implementation|0:|16:uses hiStr_Enum;|0:|33:procedure THiAsmClass.doFormatIP;|39:var i: integer; p: integer; s,f:string;|5:begin|20: s := ToString(dt);|23: if old = s then exit;|11: old := s;|19: Replace(s,' ','');|20: for i := 0 to 3 do|7: begin|41: fIpAdr[i] := str2int(fparse(s, '.'));|44: if fIpAdr[i] = 0 then fIpAdrOld[i] := 0;|28: if fIpAdrOld[i] = 0 then|12: begin |38: fIpAdr[i] := fIpAdr[i] div 10;|34: fIpAdrOld[i] := fIpAdr[i];|10: end;|21: case fIpAdr[i] of|22: 0..99: Continue;|39: else fIpAdr[i] := fIpAdr[i] div 10;|9: end; |4: |13: end; |86: f := int2str(fIpAdr[0]) + '.' + int2str(fIpAdr[1]); |47: old := f; _hi_onEvent(onFormat,f); |4:end;|0:|4:end.|
link(onFormat,518480:doText,[])
}
Add(Label,8197398,392,336)
{
Left=320
Top=320
Width=51
Height=17
Caption="Оценка 1"
}
Add(InfoTip,11612808,217,364)
{
Info=#16:ограничние ввода|
Width=113
Height=109
}

надо изменить в этом коде что-то , что бы цифра до запятой не была двузначной
карма: 0
well done turner
0
Ответов: 16884
Рейтинг: 1239
#33: 2016-01-23 11:30:15 ЛС | профиль | цитата
powerbatman писал(а):
меня вот удивляет
и меня тоже. Тема твоя, а ты её вроде не всю смотришь :
http://forum.hiasm.net/forum.html?q=3&p=283157#p283157
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:powerbatman
Ответов: 824
Рейтинг: 138
#34: 2016-01-23 11:50:43 ЛС | профиль | цитата
powerbatman писал(а):
меня вот удивляет , что даже самый продвинутые тут разработчики , не могут придумать правильное решение.
Да ну!?
А Вы правильно ставите задачу? Очень часто, из-за "бредовых" идей некоторых "программистов", люди, работающие с конечным продуктом, страдают. (в 1С постоянная лажа с вводом цифр)

Попробуйте сделать следующие:
Напишите на листе бумаги результат 5/2, не ставя символ "," или "."! И как оно?
Задайте себе вопрос! Как программе определить, что пользователь закончил вводить целую часть числа?
Введение с клавиатуры разделителя целой и дробной части - это стандарт! Причем от этого никуда не уйти.

Метод предположенный в code_36852.txt (запись целых и десятых в разных колонках) часто применяется в финансовой сфере, например в чеке на получение наличных, в бухгалтерии - авансовый отчет, ...
Я, полагаю, здесь нужно подойти с другой стороны, форматировать введенные данные после какого-то события однозначно определяющем окончание ввода. Если данные не соответствуют заданному формату выдать "error"...

карма: 1

0
Ответов: 113
Рейтинг: 1
#35: 2016-01-23 12:57:30 ЛС | профиль | цитата
Tad писал(а):
и меня тоже. Тема твоя, а ты её вроде не всю смотришь :
http://forum.hiasm.net/forum.html?q=3&p=283157#p283157



вот это идеально !


------------ Дoбавленo в 12.21:
sashaoli писал(а):
Да ну!?
А Вы правильно ставите задачу? Очень часто, из-за "бредовых" идей некоторых "программистов", люди, работающие с конечным продуктом, страдают. (в 1С постоянная лажа с вводом цифр)

Попробуйте сделать следующие:
Напишите на листе бумаги результат 5/2, не ставя символ "," или "."! И как оно?
Задайте себе вопрос! Как программе определить, что пользователь закончил вводить целую часть числа?
Введение с клавиатуры разделителя целой и дробной части - это стандарт! Причем от этого никуда не уйти.

Метод предположенный в code_36852.txt (запись целых и десятых в разных колонках) часто применяется в финансовой сфере, например в чеке на получение наличных, в бухгалтерии - авансовый отчет, ...
Я, полагаю, здесь нужно подойти с другой стороны, форматировать введенные данные после какого-то события однозначно определяющем окончание ввода. Если данные не соответствуют заданному формату выдать "error"...




хватит ругаться!!!!
карма: 0
well done turner
0
Ответов: 824
Рейтинг: 138
#36: 2016-01-23 15:45:05 ЛС | профиль | цитата
Я писал(а):
форматировать введенные данные после какого-то события однозначно определяющем окончание ввода.

Как вариант code_36853.txt
------------ Дoбавленo в 15.09:
Чего-то выше, я, много "нагородил"
Add(MainForm,2953706,238,63)
{
Width=311
Height=163
Point(onKeyDown)
link(onKeyDown,1435135:doCompare,[])
}
Add(Edit,5821213,84,63)
{
Left=20
Top=5
Width=115
Text="0,00"
Alignment=1
ClearAfterEnter=1
Point(onKillFocus)
Point(doColor)
Point(doSetFocus)
Point(onSetFocus)
Point(doSelectAll)
link(onEnter,6749064:doWork2,[])
link(onKillFocus,6749064:doWork3,[])
link(onSetFocus,5821213:doSelectAll,[(123,90)(123,111)(74,111)(74,97)])
}
Add(Edit,7535181,84,177)
{
Left=20
Top=30
Width=115
Text="0,00"
Alignment=1
ClearAfterEnter=1
Point(doColor)
Point(doSetFocus)
Point(doSelectAll)
Point(onKillFocus)
Point(onSetFocus)
link(onEnter,7438632:doWork2,[])
link(onKillFocus,7438632:doWork3,[])
link(onSetFocus,7535181:doSelectAll,[(123,204)(123,230)(74,230)(74,211)])
}
Add(MultiElementEx,6749064,140,70)
{
@IsLib=True
link(onEvent1,5821213:doText2,[(179,76)(179,55)(74,55)(74,76)])
link(Data,5821213:Text,[(146,61)(131,61)(131,121)(90,121)])
link(onEvent,5821213:doColor,[(186,83)(186,139)(60,139)(60,83)])
link(onTimer,5821213:doSetFocus,[(179,90)(179,132)(67,132)(67,90)])
}
BEGIN_SDK
Add(EditMultiEx,7661923,21,21)
{
WorkCount=#7:doWork2|7:doWork3|
EventCount=#8:onEvent1|7:onEvent|7:onTimer|
DataCount=#4:Data|
Width=454
Height=179
link(doWork2,2184768:doWork1,[(66,27)])
link(doWork3,2184768:doWork2,[])
}
Add(RE_Check,10426314,95,70)
{
Expression="((-)?\d+(\.|,)?(\d)?(\d)?)?"
MakeExt(Expression,,Expression)
link(onMatch,8365158:doReplace,[])
link(onDismatch,16087428:doEvent1,[(151,83)(151,132)])
link(Str,15499504:Var2,[])
}
Add(Hub,4802727,347,70)
{
link(onEvent1,7661923:onEvent1,[(368,76)(368,27)])
link(onEvent2,6341415:doData,[])
}
Add(DoData,6341415,375,77)
{
Data=Integer(16777215)
link(onEventData,700273:doWork2,[])
}
Add(GetDataEx,15499504,95,49)
{
Angle=3
link(Data,7661923:Data,[(27,54)])
}
Add(DoData,2008149,375,126)
{
Data=Integer(9145343)
link(onEventData,700273:doWork3,[(425,132)])
}
Add(HubEx,700273,421,77)
{
Angle=3
link(onEvent,7661923:onEvent,[(425,34)])
}
Add(Hub,16087428,165,126)
{
link(onEvent1,2008149:doData,[])
link(onEvent2,5618354:doTimer,[])
}
Add(Timer,5618354,193,133)
{
Interval=25
Enable=1
AutoStop=1
link(onTimer,7661923:onTimer,[(368,139)(368,167)(431,167)(431,41)])
}
Add(HubEx,2184768,62,28)
{
Angle=1
link(onEvent,10426314:doCheck,[(66,76)])
}
Add(ConvertorEx,5984772,203,70)
{
Mode=15
link(onResult,2975901:doTrim,[])
}
Add(Replace,16672316,298,70)
{
SubStr="."
DestStr=","
link(onReplace,4802727:doEvent1,[])
}
Add(Replace,8365158,158,70)
{
SubStr=","
DestStr="."
link(onReplace,5984772:doConvert,[])
link(Str,15499504:Var3,[(164,54)])
}
Add(Trim,2975901,252,70)
{
Char=" "
Mode=1
link(onTrim,16672316:doReplace,[])
}
END_SDK
Add(If_else,1435135,287,84)
{
Op2=Integer(13)
link(onTrue,10528607:doPress,[])
}
Add(KeyEvent,10528607,343,84)
{
Code=9
}
Add(MultiElementEx,7438632,154,184)
{
elink(6749064)
link(onEvent1,7535181:doText2,[(193,190)(193,167)(74,167)(74,190)])
link(Data,7535181:Text,[(160,173)(146,173)(146,222)(90,222)])
link(onEvent,7535181:doColor,[(200,197)(200,160)(67,160)(67,197)])
link(onTimer,7535181:doSetFocus,[(193,204)(193,237)(67,237)(67,204)])
}
Add(Edit,16736484,86,278)
{
Left=20
Top=55
Width=115
Text="0,00"
Alignment=1
ClearAfterEnter=1
Point(doColor)
Point(doSetFocus)
Point(doSelectAll)
Point(onKillFocus)
Point(onSetFocus)
link(onEnter,10736639:doWork2,[])
link(onKillFocus,10736639:doWork3,[])
link(onSetFocus,16736484:doSelectAll,[(125,305)(125,331)(76,331)(76,312)])
}
Add(MultiElementEx,10736639,147,285)
{
elink(6749064)
link(onEvent1,16736484:doText2,[(186,291)(186,272)(74,272)(74,291)])
link(Data,16736484:Text,[(153,278)(139,278)(139,320)(92,320)])
link(onEvent,16736484:doColor,[(193,298)(193,265)(67,265)(67,298)])
link(onTimer,16736484:doSetFocus,[(186,305)(186,342)(67,342)(67,305)])
}
Add(Edit,4684327,86,383)
{
Left=20
Top=80
Width=115
Text="0,00"
Alignment=1
ClearAfterEnter=1
Point(doColor)
Point(doSetFocus)
Point(doSelectAll)
Point(onKillFocus)
Point(onSetFocus)
link(onEnter,14639144:doWork2,[])
link(onKillFocus,14639144:doWork3,[])
link(onSetFocus,4684327:doSelectAll,[(125,410)(125,436)(76,436)(76,417)])
}
Add(MultiElementEx,14639144,147,390)
{
elink(6749064)
link(onEvent1,4684327:doText2,[(186,396)(186,377)(74,377)(74,396)])
link(Data,4684327:Text,[(153,383)(139,383)(139,425)(92,425)])
link(onEvent,4684327:doColor,[(193,403)(193,370)(67,370)(67,403)])
link(onTimer,4684327:doSetFocus,[(186,410)(186,447)(67,447)(67,410)])
}
Add(Edit,6450974,261,173)
{
Left=155
Top=5
Width=115
Text="0,00"
Alignment=1
ClearAfterEnter=1
Point(doColor)
Point(doSetFocus)
Point(doSelectAll)
Point(onKillFocus)
Point(onSetFocus)
link(onEnter,4963690:doWork2,[])
link(onKillFocus,4963690:doWork3,[])
link(onSetFocus,6450974:doSelectAll,[(300,200)(300,226)(251,226)(251,207)])
}
Add(MultiElementEx,4963690,322,180)
{
elink(6749064)
link(onEvent1,6450974:doText2,[(361,186)(361,167)(249,167)(249,186)])
link(Data,6450974:Text,[(328,173)(314,173)(314,215)(267,215)])
link(onEvent,6450974:doColor,[(368,193)(368,160)(242,160)(242,193)])
link(onTimer,6450974:doSetFocus,[(361,200)(361,237)(242,237)(242,200)])
}
Add(Edit,2217913,261,278)
{
Left=155
Top=30
Width=115
Text="0,00"
Alignment=1
ClearAfterEnter=1
Point(doColor)
Point(doSetFocus)
Point(doSelectAll)
Point(onKillFocus)
Point(onSetFocus)
link(onEnter,4378922:doWork2,[])
link(onKillFocus,4378922:doWork3,[])
link(onSetFocus,2217913:doSelectAll,[(300,305)(300,331)(251,331)(251,312)])
}
Add(MultiElementEx,4378922,322,285)
{
elink(6749064)
link(onEvent1,2217913:doText2,[(361,291)(361,272)(249,272)(249,291)])
link(Data,2217913:Text,[(328,278)(314,278)(314,320)(267,320)])
link(onEvent,2217913:doColor,[(368,298)(368,265)(242,265)(242,298)])
link(onTimer,2217913:doSetFocus,[(361,305)(361,342)(242,342)(242,305)])
}
Add(Edit,428581,261,383)
{
Left=155
Top=55
Width=115
Text="0,00"
Alignment=1
ClearAfterEnter=1
Point(doColor)
Point(doSetFocus)
Point(doSelectAll)
Point(onKillFocus)
Point(onSetFocus)
link(onEnter,11985173:doWork2,[])
link(onKillFocus,11985173:doWork3,[])
link(onSetFocus,428581:doSelectAll,[(300,410)(300,436)(251,436)(251,417)])
}
Add(MultiElementEx,11985173,322,390)
{
elink(6749064)
link(onEvent1,428581:doText2,[(361,396)(361,377)(249,377)(249,396)])
link(Data,428581:Text,[(328,383)(314,383)(314,425)(267,425)])
link(onEvent,428581:doColor,[(368,403)(368,370)(242,370)(242,403)])
link(onTimer,428581:doSetFocus,[(361,410)(361,447)(242,447)(242,410)])
}
карма: 1

0
файлы: 1code_36853.txt [8KB] [600]
Ответов: 113
Рейтинг: 1
#37: 2016-01-23 16:16:32 ЛС | профиль | цитата
sashaoli писал(а):
Чего-то выше, я, много "нагородил"


да отличная идея!
карма: 0
well done turner
0
Ответов: 871
Рейтинг: 322
#38: 2016-01-23 16:51:23 ЛС | профиль | цитата
Один знак до точки, два после. Вывод = ввод

code_36855.txt
карма: 1

0
файлы: 1code_36855.txt [1.1KB] [335]
Ответов: 113
Рейтинг: 1
#39: 2016-01-25 09:57:22 ЛС | профиль | цитата
kamakama писал(а):
Один знак до точки, два после. Вывод = ввод

code_36855.txt




а вот это даже интересно , и кстати удобно , вот напимер


Add(MultiElement,608686,378,154)
{
link(onEvent1,12186761:doSetFocus,[])
}
BEGIN_SDK
Add(EditMulti,5397677,21,21)
{
EventCount=2
WorkCount=3
DataCount=1
Height=354
link(doWork1,8759959:doEvent1,[(53,27)(53,48)])
link(doWork2,16301824:doEvent2,[(44,34)(44,146)])
link(doWork3,16301824:doEvent3,[(35,41)(35,153)])
}
Add(Case,4397022,126,42)
{
@Hint=#2:->|
Value=Integer(39)
DataOnTrue=Integer(0)
link(onTrue,16301824:doEvent1,[(194,55)(194,139)])
}
Add(Case,15460935,126,84)
{
@Hint=#2:<-|
Value=Integer(37)
DataOnTrue=Integer(0)
link(onTrue,5397677:onEvent2,[(240,97)(240,34)])
}
Add(Hub,8759959,91,42)
{
link(onEvent1,4397022:doCase,[])
link(onEvent2,15460935:doCase,[(115,55)(115,90)])
}
Add(Hub,16301824,203,133)
{
InCount=3
link(onEvent1,5397677:onEvent1,[(236,139)(236,27)])
}
END_SDK
Add(Edit,5089080,273,133)
{
Left=40
Top=25
Width=115
Height=55
Font=[Times New Roman,36,0,0,204]
Text=""
MaxLenField=4
Point(doPosition)
Point(onKeyDown)
Point(doSetFocus)
Point(Position)
link(onChange,2198913:doLength,[(327,139)(327,103)(147,103)(147,202)])
link(onKeyDown,6582122:doEvent1,[])
}
Add(MultiElementEx,2198913,273,196)
{
link(onStrCat,12639593:doCompare,[(317,202)(317,181)(176,181)(176,146)])
link(Data,5089080:Text,[])
link(onTrue,608686:doWork2,[(341,209)(341,167)])
}
BEGIN_SDK
Add(EditMultiEx,4286165,21,21)
{
WorkCount=#8:doLength|
EventCount=#8:onStrCat|9:onTrue=->|
VarCount=#13:Result=result|
DataCount=#4:Data|
link(doLength,5635638:doLength,[(35,27)(35,90)])
link(Result,10351811:Var2,[])
}
Add(Length,5635638,49,84)
{
link(onLength,6376207:doEvent1,[])
link(Str,12304426:Var1,[(55,54)])
}
Add(If_else,8422743,140,84)
{
Op2=Integer(1)
link(onTrue,12368510:doStrCat,[])
}
Add(StrCat,12368510,189,84)
{
Str2="."
link(onStrCat,4286165:onStrCat,[(250,90)(250,27)])
link(Str1,12304426:Var2,[])
}
Add(GetDataEx,12304426,189,49)
{
link(Data,16642874:Var2,[])
}
Add(GetDataEx,10351811,21,30)
{
link(Data,4286165:Data,[])
}
Add(If_else,149869,140,133)
{
Op2=String(4)
link(onTrue,4286165:onTrue,[(288,139)(288,34)])
}
Add(GetDataEx,16642874,189,30)
{
Angle=3
link(Data,10351811:Var3,[])
}
Add(Hub,6376207,98,84)
{
link(onEvent1,8422743:doCompare,[])
link(onEvent2,149869:doCompare,[(126,97)(126,139)])
}
END_SDK
Add(MultiElementEx,12639593,189,133)
{
link(onEvent1,5089080:doText,[])
link(onEventData,5089080:doText2,[])
link(onEventData1,5089080:doPosition,[])
}
BEGIN_SDK
Add(EditMultiEx,860731,21,21)
{
WorkCount=#8:doEvent1|9:doCompare|
EventCount=#8:onEvent1|11:onEventData|12:onEventData1|
Height=256
link(doEvent1,47777:doEvent1,[(57,27)(57,55)])
link(doCompare,5544610:doEvent1,[(42,34)(42,174)])
}
Add(Hub,5544610,77,168)
{
link(onEvent1,860731:onEventData,[(256,174)(256,34)])
link(onEvent2,3067210:doData,[(109,181)(109,202)])
}
Add(DoData,3067210,126,196)
{
Data=Integer(2)
link(onEventData,860731:onEventData1,[(284,202)(284,41)])
}
Add(DoData,4929115,182,56)
{
link(onEventData,860731:onEvent1,[(240,62)(240,27)])
}
Add(Case,7653056,119,98)
{
Value=String(46)
link(onTrue,6173479:doWork3,[(165,111)])
}
Add(Hub,47777,70,49)
{
link(onEvent1,10947873:doCase,[])
link(onEvent2,7653056:doCase,[(102,62)(102,104)])
}
Add(HubEx,6173479,161,56)
{
link(onEvent,4929115:doData,[])
}
Add(Case,10947873,119,49)
{
Value=String(8)
link(onTrue,6173479:doWork2,[])
}
END_SDK
Add(Hub,6582122,322,147)
{
link(onEvent1,12639593:doEvent1,[(349,153)(349,124)(177,124)(177,139)])
link(onEvent2,608686:doWork1,[])
}
Add(MultiElement,15206922,665,154)
{
link(onEvent1,10155362:doSetFocus,[])
link(onEvent2,9180565:doWork2,[(709,167)(709,93)(77,93)(77,167)])
}
BEGIN_SDK
Add(EditMulti,6252611,21,21)
{
EventCount=2
WorkCount=3
DataCount=1
Height=354
link(doWork1,14549881:doEvent1,[(53,27)(53,48)])
link(doWork2,753329:doEvent2,[(44,34)(44,146)])
link(doWork3,753329:doEvent3,[(34,41)(34,153)])
}
Add(Case,43061,126,42)
{
@Hint=#2:->|
Value=Integer(39)
DataOnTrue=Integer(0)
link(onTrue,753329:doEvent1,[(194,55)(194,139)])
}
Add(Case,14355461,126,84)
{
@Hint=#2:<-|
Value=Integer(37)
DataOnTrue=Integer(0)
link(onTrue,6252611:onEvent2,[(240,97)(240,34)])
}
Add(Hub,14549881,91,42)
{
link(onEvent1,43061:doCase,[])
link(onEvent2,14355461:doCase,[(115,55)(115,90)])
}
Add(Hub,753329,203,133)
{
InCount=3
link(onEvent1,6252611:onEvent1,[(236,139)(236,27)])
}
END_SDK
Add(Edit,12186761,560,133)
{
Left=160
Top=25
Width=115
Height=55
Font=[Times New Roman,36,0,0,204]
Text=""
MaxLenField=4
Point(doPosition)
Point(onKeyDown)
Point(doSetFocus)
Point(Position)
link(onChange,5412504:doLength,[(614,139)(614,103)(434,103)(434,202)])
link(onKeyDown,10046739:doEvent1,[])
}
Add(MultiElementEx,5412504,560,196)
{
link(onStrCat,11900114:doCompare,[(604,202)(604,181)(463,181)(463,146)])
link(onTrue,15206922:doWork2,[(628,209)(628,167)])
link(Data,12186761:Text,[])
}
BEGIN_SDK
Add(EditMultiEx,11324899,21,21)
{
WorkCount=#8:doLength|
EventCount=#8:onStrCat|9:onTrue=->|
VarCount=#13:Result=result|
DataCount=#4:Data|
link(doLength,11342263:doLength,[(35,27)(35,90)])
link(Result,13805499:Var2,[])
}
Add(Length,11342263,49,84)
{
link(onLength,12458761:doEvent1,[])
link(Str,6503079:Var1,[(55,54)])
}
Add(If_else,7192174,140,84)
{
Op2=Integer(1)
link(onTrue,12463588:doStrCat,[])
}
Add(StrCat,12463588,189,84)
{
Str2="."
link(onStrCat,11324899:onStrCat,[(250,90)(250,27)])
link(Str1,6503079:Var2,[])
}
Add(GetDataEx,6503079,189,49)
{
link(Data,3549614:Var2,[])
}
Add(GetDataEx,13805499,21,30)
{
link(Data,11324899:Data,[])
}
Add(If_else,8764275,140,133)
{
Op2=String(4)
link(onTrue,11324899:onTrue,[(288,139)(288,34)])
}
Add(GetDataEx,3549614,189,30)
{
Angle=3
link(Data,13805499:Var3,[])
}
Add(Hub,12458761,98,84)
{
link(onEvent1,7192174:doCompare,[])
link(onEvent2,8764275:doCompare,[(126,97)(126,139)])
}
END_SDK
Add(MultiElementEx,11900114,476,133)
{
link(onEvent1,12186761:doText,[])
link(onEventData,12186761:doText2,[])
link(onEventData1,12186761:doPosition,[])
}
BEGIN_SDK
Add(EditMultiEx,16367680,21,21)
{
WorkCount=#8:doEvent1|9:doCompare|
EventCount=#8:onEvent1|11:onEventData|12:onEventData1|
link(doEvent1,15524598:doEvent1,[(49,27)(49,48)])
link(doCompare,10764883:doEvent1,[(42,34)(42,139)])
}
Add(Hub,10764883,77,133)
{
link(onEvent1,16367680:onEventData,[(256,139)(256,34)])
link(onEvent2,2828663:doData,[(109,146)(109,167)])
}
Add(DoData,2828663,126,161)
{
Data=Integer(2)
link(onEventData,16367680:onEventData1,[(284,167)(284,41)])
}
Add(DoData,15962597,189,49)
{
link(onEventData,16367680:onEvent1,[(238,55)(238,27)])
}
Add(Case,7460706,126,91)
{
Value=String(46)
link(onTrue,5840273:doWork3,[(172,104)])
}
Add(Hub,15524598,77,42)
{
link(onEvent1,9180699:doCase,[])
link(onEvent2,7460706:doCase,[(109,55)(109,97)])
}
Add(HubEx,5840273,168,49)
{
link(onEvent,15962597:doData,[])
}
Add(Case,9180699,126,42)
{
Value=String(8)
link(onTrue,5840273:doWork2,[])
}
END_SDK
Add(Hub,10046739,609,147)
{
link(onEvent1,11900114:doEvent1,[(636,153)(636,124)(464,124)(464,139)])
link(onEvent2,15206922:doWork1,[])
}
Add(MultiElement,14525542,945,154)
{
link(onEvent1,7662582:doSetFocus,[(1000,160)(1000,236)(123,236)(123,300)])
link(onEvent2,608686:doWork3,[(989,167)(989,80)(365,80)(365,174)])
}
BEGIN_SDK
Add(EditMulti,16380525,21,21)
{
EventCount=2
WorkCount=3
DataCount=1
Height=354
link(doWork1,2610064:doEvent1,[(53,27)(53,48)])
link(doWork2,3747584:doEvent2,[(44,34)(44,146)])
link(doWork3,3747584:doEvent3,[(36,41)(36,153)])
}
Add(Case,11283732,126,42)
{
@Hint=#2:->|
Value=Integer(39)
DataOnTrue=Integer(0)
link(onTrue,3747584:doEvent1,[(194,55)(194,139)])
}
Add(Case,2420379,126,84)
{
@Hint=#2:<-|
Value=Integer(37)
DataOnTrue=Integer(0)
link(onTrue,16380525:onEvent2,[(240,97)(240,34)])
}
Add(Hub,2610064,91,42)
{
link(onEvent1,11283732:doCase,[])
link(onEvent2,2420379:doCase,[(115,55)(115,90)])
}
Add(Hub,3747584,203,133)
{
InCount=3
link(onEvent1,16380525:onEvent1,[(236,139)(236,27)])
}
END_SDK
Add(Edit,10155362,840,133)
{
Left=280
Top=25
Width=115
Height=55
Font=[Times New Roman,36,0,0,204]
Text=""
MaxLenField=4
Point(doPosition)
Point(onKeyDown)
Point(doSetFocus)
Point(Position)
link(onChange,15308626:doLength,[(894,139)(894,103)(714,103)(714,202)])
link(onKeyDown,13464218:doEvent1,[])
}
Add(MultiElementEx,15308626,840,196)
{
link(onStrCat,15805781:doCompare,[(884,202)(884,181)(743,181)(743,146)])
link(onTrue,14525542:doWork2,[(908,209)(908,167)])
link(Data,10155362:Text,[])
}
BEGIN_SDK
Add(EditMultiEx,14565451,21,21)
{
WorkCount=#8:doLength|
EventCount=#8:onStrCat|9:onTrue=->|
VarCount=#13:Result=result|
DataCount=#4:Data|
link(doLength,16246346:doLength,[(35,27)(35,90)])
link(Result,6011223:Var2,[])
}
Add(Length,16246346,49,84)
{
link(onLength,9169338:doEvent1,[])
link(Str,2988907:Var1,[(55,54)])
}
Add(If_else,9310216,140,84)
{
Op2=Integer(1)
link(onTrue,10193811:doStrCat,[])
}
Add(StrCat,10193811,189,84)
{
Str2="."
link(onStrCat,14565451:onStrCat,[(250,90)(250,27)])
link(Str1,2988907:Var2,[])
}
Add(GetDataEx,2988907,189,49)
{
link(Data,5350322:Var2,[])
}
Add(GetDataEx,6011223,21,30)
{
link(Data,14565451:Data,[])
}
Add(If_else,1714296,140,133)
{
Op2=String(4)
link(onTrue,14565451:onTrue,[(288,139)(288,34)])
}
Add(GetDataEx,5350322,189,30)
{
Angle=3
link(Data,6011223:Var3,[])
}
Add(Hub,9169338,98,84)
{
link(onEvent1,9310216:doCompare,[])
link(onEvent2,1714296:doCompare,[(126,97)(126,139)])
}
END_SDK
Add(MultiElementEx,15805781,756,133)
{
link(onEvent1,10155362:doText,[])
link(onEventData,10155362:doText2,[])
link(onEventData1,10155362:doPosition,[])
}
BEGIN_SDK
Add(EditMultiEx,3433826,21,21)
{
WorkCount=#8:doEvent1|9:doCompare|
EventCount=#8:onEvent1|11:onEventData|12:onEventData1|
link(doEvent1,8141117:doEvent1,[(49,27)(49,55)])
link(doCompare,11625686:doEvent1,[(42,34)(42,160)])
}
Add(Hub,11625686,77,154)
{
link(onEvent1,3433826:onEventData,[(256,160)(256,34)])
link(onEvent2,15061584:doData,[(109,167)(109,188)])
}
Add(DoData,15061584,126,182)
{
Data=Integer(2)
link(onEventData,3433826:onEventData1,[(284,188)(284,41)])
}
Add(DoData,2630240,189,56)
{
link(onEventData,3433826:onEvent1,[(241,62)(241,27)])
}
Add(Case,7776156,126,98)
{
Value=String(46)
link(onTrue,4241063:doWork3,[(172,111)])
}
Add(Hub,8141117,77,49)
{
link(onEvent1,12153869:doCase,[])
link(onEvent2,7776156:doCase,[(109,62)(109,104)])
}
Add(HubEx,4241063,168,56)
{
link(onEvent,2630240:doData,[])
}
Add(Case,12153869,126,49)
{
Value=String(8)
link(onTrue,4241063:doWork2,[])
}
END_SDK
Add(Hub,13464218,889,147)
{
link(onEvent1,15805781:doEvent1,[(916,153)(916,124)(744,124)(744,139)])
link(onEvent2,14525542:doWork1,[])
}
Add(MultiElement,9180565,91,154)
{
link(onEvent1,5089080:doSetFocus,[])
}
BEGIN_SDK
Add(EditMulti,11486558,21,21)
{
EventCount=2
WorkCount=3
DataCount=1
Height=354
link(doWork1,3081455:doEvent1,[(53,27)(53,48)])
link(doWork2,10126275:doEvent2,[(44,34)(44,146)])
link(doWork3,10126275:doEvent3,[(36,41)(36,153)])
}
Add(Case,3572003,126,42)
{
@Hint=#2:->|
Value=Integer(39)
DataOnTrue=Integer(0)
link(onTrue,10126275:doEvent1,[(194,55)(194,139)])
}
Add(Case,3837359,126,84)
{
@Hint=#2:<-|
Value=Integer(37)
DataOnTrue=Integer(0)
link(onTrue,11486558:onEvent2,[(240,97)(240,34)])
}
Add(Hub,3081455,91,42)
{
link(onEvent1,3572003:doCase,[])
link(onEvent2,3837359:doCase,[(115,55)(115,90)])
}
Add(Hub,10126275,203,133)
{
InCount=3
link(onEvent1,11486558:onEvent1,[(236,139)(236,27)])
}
END_SDK
Add(MultiElement,8528587,378,294)
{
link(onEvent1,9159553:doSetFocus,[])
link(onEvent2,15206922:doWork3,[(422,307)(422,174)])
}
BEGIN_SDK
Add(EditMulti,9024198,21,21)
{
EventCount=2
WorkCount=3
DataCount=1
Height=354
link(doWork1,2608338:doEvent1,[(53,27)(53,48)])
link(doWork2,3815935:doEvent2,[(44,34)(44,146)])
}
Add(Case,10273767,126,42)
{
@Hint=#2:->|
Value=Integer(39)
DataOnTrue=Integer(0)
link(onTrue,3815935:doEvent1,[(194,55)(194,139)])
}
Add(Case,2189872,126,84)
{
@Hint=#2:<-|
Value=Integer(37)
DataOnTrue=Integer(0)
link(onTrue,9024198:onEvent2,[(240,97)(240,34)])
}
Add(Hub,2608338,91,42)
{
link(onEvent1,10273767:doCase,[])
link(onEvent2,2189872:doCase,[(115,55)(115,90)])
}
Add(Hub,3815935,203,133)
{
InCount=2
link(onEvent1,9024198:onEvent1,[(236,139)(236,27)])
}
END_SDK
Add(Edit,7662582,273,273)
{
Left=400
Top=25
Width=115
Height=55
Font=[Times New Roman,36,0,0,204]
Text=""
MaxLenField=4
Point(doPosition)
Point(onKeyDown)
Point(doSetFocus)
Point(Position)
link(onChange,14517805:doLength,[(327,279)(327,243)(147,243)(147,342)])
link(onKeyDown,4690836:doEvent1,[])
}
Add(MultiElementEx,14517805,273,336)
{
link(onStrCat,885280:doCompare,[(317,342)(317,321)(176,321)(176,286)])
link(onTrue,8528587:doWork2,[(341,349)(341,307)])
link(Data,7662582:Text,[])
}
BEGIN_SDK
Add(EditMultiEx,298519,21,21)
{
WorkCount=#8:doLength|
EventCount=#8:onStrCat|9:onTrue=->|
VarCount=#13:Result=result|
DataCount=#4:Data|
link(doLength,6466909:doLength,[(35,27)(35,90)])
link(Result,7991495:Var2,[])
}
Add(Length,6466909,49,84)
{
link(onLength,16604689:doEvent1,[])
link(Str,10412233:Var1,[(55,54)])
}
Add(If_else,13671902,140,84)
{
Op2=Integer(1)
link(onTrue,7177498:doStrCat,[])
}
Add(StrCat,7177498,189,84)
{
Str2="."
link(onStrCat,298519:onStrCat,[(250,90)(250,27)])
link(Str1,10412233:Var2,[])
}
Add(GetDataEx,10412233,189,49)
{
link(Data,7717714:Var2,[])
}
Add(GetDataEx,7991495,21,30)
{
link(Data,298519:Data,[])
}
Add(If_else,11988128,140,133)
{
Op2=String(4)
link(onTrue,298519:onTrue,[(288,139)(288,34)])
}
Add(GetDataEx,7717714,189,30)
{
Angle=3
link(Data,7991495:Var3,[])
}
Add(Hub,16604689,98,84)
{
link(onEvent1,13671902:doCompare,[])
link(onEvent2,11988128:doCompare,[(126,97)(126,139)])
}
END_SDK
Add(MultiElementEx,885280,189,273)
{
link(onEvent1,7662582:doText,[])
link(onEventData,7662582:doText2,[])
link(onEventData1,7662582:doPosition,[])
}
BEGIN_SDK
Add(EditMultiEx,3358696,21,21)
{
WorkCount=#8:doEvent1|9:doCompare|
EventCount=#8:onEvent1|11:onEventData|12:onEventData1|
Height=326
link(doEvent1,7526853:doEvent1,[(53,27)(53,62)])
link(doCompare,16263212:doEvent1,[(42,34)(42,195)])
}
Add(Hub,16263212,77,189)
{
link(onEvent1,3358696:onEventData,[(256,195)(256,34)])
link(onEvent2,14482580:doData,[(109,202)(109,223)])
}
Add(DoData,14482580,126,217)
{
Data=Integer(2)
link(onEventData,3358696:onEventData1,[(284,223)(284,41)])
}
Add(DoData,3402414,189,63)
{
link(onEventData,3358696:onEvent1,[(234,69)(234,27)])
}
Add(Case,3317254,126,105)
{
Value=String(46)
link(onTrue,10730389:doWork3,[(172,118)])
}
Add(Hub,7526853,77,56)
{
link(onEvent1,5048328:doCase,[])
link(onEvent2,3317254:doCase,[(109,69)(109,111)])
}
Add(HubEx,10730389,168,63)
{
link(onEvent,3402414:doData,[])
}
Add(Case,5048328,126,56)
{
Value=String(8)
link(onTrue,10730389:doWork2,[])
}
END_SDK
Add(Hub,4690836,322,287)
{
link(onEvent1,885280:doEvent1,[(349,293)(349,264)(177,264)(177,279)])
link(onEvent2,8528587:doWork1,[])
}
Add(MultiElement,15857296,679,294)
{
link(onEvent2,14525542:doWork3,[(928,307)(928,174)])
link(onEvent3,10026280:doEvent1,[(744,314)(744,412)])
}
BEGIN_SDK
Add(EditMulti,13474458,21,21)
{
EventCount=3
WorkCount=3
DataCount=1
Height=354
link(doWork1,12637753:doEvent1,[(53,27)(53,48)])
link(doWork2,6401807:doEvent2,[(44,34)(44,146)])
link(doWork3,6401807:doEvent3,[(34,41)(34,153)])
}
Add(Case,1221383,126,42)
{
@Hint=#2:->|
Value=Integer(39)
DataOnTrue=Integer(0)
link(onTrue,6401807:doEvent1,[(194,55)(194,139)])
}
Add(Case,5795263,126,84)
{
@Hint=#2:<-|
Value=Integer(37)
DataOnTrue=Integer(0)
link(onTrue,13474458:onEvent2,[(240,97)(240,34)])
}
Add(Hub,12637753,91,42)
{
OutCount=3
link(onEvent1,1221383:doCase,[])
link(onEvent2,5795263:doCase,[(115,55)(115,90)])
link(onEvent3,16483511:doCase,[(115,62)(115,181)])
}
Add(Hub,6401807,203,133)
{
InCount=3
link(onEvent1,13474458:onEvent1,[(236,139)(236,27)])
}
Add(Case,16483511,126,175)
{
@Hint=#2:<-|
Value=Integer(13)
DataOnTrue=Integer(0)
link(onTrue,13474458:onEvent3,[(289,188)(289,41)])
}
Add(Message,7274244,133,238)
{
}
END_SDK
Add(Edit,9159553,574,273)
{
Left=520
Top=25
Width=115
Height=55
Font=[Times New Roman,36,0,0,204]
Text=""
MaxLenField=4
Point(doPosition)
Point(onKeyDown)
Point(doSetFocus)
Point(Position)
link(onChange,1995533:doLength,[(628,279)(628,243)(448,243)(448,342)])
link(onKeyDown,8272847:doEvent1,[])
}
Add(MultiElementEx,1995533,574,336)
{
link(onStrCat,13202090:doCompare,[(618,342)(618,321)(477,321)(477,286)])
link(onTrue,15857296:doWork2,[(642,349)(642,307)])
link(Data,9159553:Text,[])
}
BEGIN_SDK
Add(EditMultiEx,13878929,21,21)
{
WorkCount=#8:doLength|
EventCount=#8:onStrCat|9:onTrue=->|
VarCount=#13:Result=result|
DataCount=#4:Data|
link(doLength,5752892:doLength,[(35,27)(35,90)])
link(Result,12265142:Var2,[])
}
Add(Length,5752892,49,84)
{
link(onLength,8718638:doEvent1,[])
link(Str,5461357:Var1,[(55,54)])
}
Add(If_else,4658855,140,84)
{
Op2=Integer(1)
link(onTrue,8277279:doStrCat,[])
}
Add(StrCat,8277279,189,84)
{
Str2="."
link(onStrCat,13878929:onStrCat,[(250,90)(250,27)])
link(Str1,5461357:Var2,[])
}
Add(GetDataEx,5461357,189,49)
{
link(Data,11319394:Var2,[])
}
Add(GetDataEx,12265142,21,30)
{
link(Data,13878929:Data,[])
}
Add(If_else,10261495,140,133)
{
Op2=String(4)
link(onTrue,13878929:onTrue,[(288,139)(288,34)])
}
Add(GetDataEx,11319394,189,30)
{
Angle=3
link(Data,12265142:Var3,[])
}
Add(Hub,8718638,98,84)
{
link(onEvent1,4658855:doCompare,[])
link(onEvent2,10261495:doCompare,[(126,97)(126,139)])
}
END_SDK
Add(MultiElementEx,13202090,490,273)
{
link(onEvent1,9159553:doText,[])
link(onEventData,9159553:doText2,[])
link(onEventData1,9159553:doPosition,[])
}
BEGIN_SDK
Add(EditMultiEx,14855830,21,21)
{
WorkCount=#8:doEvent1|9:doCompare|
EventCount=#8:onEvent1|11:onEventData|12:onEventData1|
Height=354
link(doEvent1,14394213:doEvent1,[(45,27)(45,62)])
link(doCompare,152736:doEvent1,[(42,34)(42,202)])
}
Add(Hub,152736,70,196)
{
link(onEvent1,14855830:onEventData,[(256,202)(256,34)])
link(onEvent2,1251860:doData,[(102,209)(102,230)])
}
Add(DoData,1251860,119,224)
{
Data=Integer(2)
link(onEventData,14855830:onEventData1,[(284,230)(284,41)])
}
Add(DoData,8619833,182,63)
{
link(onEventData,14855830:onEvent1,[(268,69)(268,27)])
}
Add(Case,3790834,119,105)
{
Value=String(46)
link(onTrue,13173702:doWork3,[(165,118)])
}
Add(Hub,14394213,70,56)
{
link(onEvent1,9468257:doCase,[])
link(onEvent2,3790834:doCase,[(102,69)(102,111)])
}
Add(HubEx,13173702,161,63)
{
link(onEvent,8619833:doData,[])
}
Add(Case,9468257,119,56)
{
Value=String(8)
link(onTrue,13173702:doWork2,[])
}
END_SDK
Add(Hub,8272847,623,287)
{
link(onEvent1,13202090:doEvent1,[(650,293)(650,264)(478,264)(478,279)])
link(onEvent2,15857296:doWork1,[])
}
Add(Label,9265457,973,406)
{
Left=650
Top=25
Width=91
Height=58
Font=[Courier New,36,1,0,0]
Caption="0.0"
}
Add(MathParse,3700996,826,406)
{
DataCount=5
MathStr="%1 + %2 + %3 + %4 + %5"
link(onResult,9265457:doText,[])
link(X1,2198913:Result,[(832,251)(279,251)])
link(X2,5412504:Result,[(839,251)(566,251)])
link(X3,15308626:Result,[])
link(X4,14517805:Result,[(853,387)(279,387)])
link(X5,1995533:Result,[(860,387)(580,387)])
}
Add(Button,16087017,693,413)
{
Left=655
Top=100
Width=80
Height=30
Hint="А можно просто нажать Enter"
Caption="Enter"
link(onClick,10026280:doEvent2,[])
}
Add(Hub,10026280,777,406)
{
InCount=2
link(onEvent1,3700996:doCalc,[])
}

карма: 0
well done turner
0
Разработчик
Ответов: 26071
Рейтинг: 2122
#40: 2016-01-25 14:11:15 ЛС | профиль | цитата
kamakama писал(а):
Один знак до точки, два после. Вывод = ввод

А че, проще нельзя

Add(MainForm,15768930,301,91)
{
Width=264
Height=135
Position=1
}
Add(Edit,5089080,350,154)
{
Left=45
Top=40
Text=""
DataType=4
MaxLenField=4
Point(doPosition)
Point(Position)
link(onChange,9182205:doCompare,[])
link(onEnter,5925598:doText,[(395,167)(395,209)])
}
Add(Label,5925598,455,203)
{
Left=160
Top=45
Caption="x.xx"
}
Add(StrMask,9182205,406,154)
{
Mask="#"
link(onTrue,7822997:doStrCat,[])
}
Add(StrCat,7822997,455,161)
{
Str2="."
link(onStrCat,1799320:doEvent1,[(506,167)(506,146)(256,146)(256,167)])
}
Add(Hub,1799320,266,161)
{
link(onEvent1,5089080:doText2,[])
link(onEvent2,1369744:doData,[])
}
Add(DoData,1369744,301,168)
{
Data=Integer(2)
link(onEventData,5089080:doPosition,[])
}
карма: 22

1
Голосовали:Konst
40
Сообщение
...
Прикрепленные файлы
(файлы не залиты)