Вверх ↑
Ответов: 8895
Рейтинг: 823
#1: 2005-10-21 22:21:43 ЛС | профиль | цитата
CASPER_Y, примерчик:
[code:1]Add(Edit,5970129,350,91) {
Left=45
Top=30
Width=135
link(onChange,5463445:doWork1,[])
}
Add(MultiElement,11170251,406,42)
{
}
BEGIN_SDK
Add(EditMulti,6561079,3,3)
{
EventCount=2
WorkCount=1
Width=580
Height=151
link(doWork1,1347607:doCase,[(12,9)(12,34)])
}
Add(Case,1347607,21,28)
{
Value=Integer(123)
link(onNextCase,53719:doCase,[])
link(onTrue,6097543:doEvent10,[(64,41)(64,132)])
}
Add(Case,53719,70,28)
{
Value=Integer(456)
link(onNextCase,513281:doCase,[])
link(onTrue,6097543:doEvent9,[(112,41)(112,125)])
}
Add(Case,513281,119,28)
{
Value=Integer(789)
link(onNextCase,13178766:doCase,[])
link(onTrue,6097543:doEvent8,[(158,41)(158,118)])
}
Add(Case,2713778,266,28)
{
Value=String(абв)
link(onNextCase,947734:doCase,[])
link(onTrue,6097543:doEvent5,[(306,41)(306,97)])
}
Add(Case,947734,315,28)
{
Value=String(где)
link(onNextCase,5495788:doCase,[])
link(onTrue,6097543:doEvent4,[(355,41)(355,90)])
}
Add(Case,5495788,364,28)
{
Value=String(жзи)
link(onNextCase,7469427:doCase,[])
link(onTrue,6097543:doEvent3,[(408,41)(408,83)])
}
Add(Case,13178766,168,28)
{
Value=Integer(234)
link(onNextCase,6965756:doCase,[])
link(onTrue,6097543:doEvent7,[(209,41)(209,111)])
}
Add(Case,6965756,217,28)
{
Value=Integer(567)
link(onNextCase,2713778:doCase,[])
link(onTrue,6097543:doEvent6,[(261,41)(261,104)])
}
Add(Case,7469427,413,28)
{
Value=String(клм)
link(onNextCase,11539616:doCase,[])
link(onTrue,6097543:doEvent2,[(454,41)(454,76)])
}
Add(Case,11539616,462,28)
{
Value=String(ноп)
link(onNextCase,6561079:onEvent1,[(538,34)(538,9)])
link(onTrue,6097543:doEvent1,[(506,41)(506,69)])
}
Add(Hub,6097543,518,63)
{
InCount=10
OutCount=1
link(onEvent1,6561079:onEvent2,[(566,69)(566,16)])
}
END_SDK
Add(Message,11081740,490,119)
{
Caption="Есть такая партия!"
}
Add(Message,16023154,483,56)
{
Caption="Этого нет!"
}
Add(ChildPanel,5463445,406,91)
{
link(onEvent1,16023154:doMessage,[(460,97)(460,62)])
link(onEvent2,11081740:doMessage,[(464,104)(464,125)])
}
BEGIN_SDK
Add(EditMulti,10589189,3,3)
{
EventCount=2
WorkCount=1
link(doWork1,9671119:doValue,[(54,9)(54,20)])
}
Add(Panel,10837853,14,14)
{
Left=35
Top=105
Visible=1
Point(doColor)
}
Add(Memo,12998537,35,63)
{
Left=195
Top=105
Strings=#3:123|3:456|3:789|3:234|3:567|3:абв|3:где|3:жзи|3:клм|3:ноп|
}
Add(ArrayEnum,2747743,49,154)
{
link(onItem,10054741:doCompare,[(89,160)(89,104)])
link(onEndEnum,7391974:doEvent1,[])
link(Array,12998537:Array,[])
}
Add(Memory,9671119,105,14)
{
link(onData,2747743:doEnum,[(145,20)(145,50)(14,50)(14,160)])
}
Add(If_else,10054741,98,98)
{
link(onTrue,14562969:doEvent1,[(145,104)(145,104)])
link(Op2,11831012:Data1,[])
}
Add(Hub,14562969,147,98)
{
link(onEvent1,10589189:onEvent2,[(241,104)(241,16)])
link(onEvent2,284190:doNext,[])
}
Add(Counter,284190,196,105)
{
}
Add(If_else,3449020,196,161)
{
Op2=Integer(0)
link(onTrue,15371025:doData,[])
link(Op1,284190:Count,[])
}
Add(GetData,11831012,105,56)
{
link(Data,9671119:Value,[])
}
Add(DoData,15371025,245,161)
{
link(onEventData,10589189:onEvent1,[(290,167)(290,9)])
link(Data,11831012:Data2,[(251,95)(118,95)])
}
Add(Hub,7391974,105,161)
{
link(onEvent1,3449020:doCompare,[])
link(onEvent2,284190:doReset,[(185,174)(185,125)])
}
END_SDK
Add(VBJScript,3059926,406,140)
{
WorkPoints=#6:doWork|
EventPoints=#8:onEvent1|8:onEvent2|
Script=#0:|27:Function doWork(Data,Index)|19: Select Case Data|13: Case "абв"|22: Sys.onEvent2 Data|13: Case "где"|22: Sys.onEvent2 Data|13: Case "жзи"|22: Sys.onEvent2 Data|13: Case "клм"|22: Sys.onEvent2 Data|13: Case "ноп"|22: Sys.onEvent2 Data|11: Case 123|22: Sys.onEvent2 Data|11: Case 456|22: Sys.onEvent2 Data|11: Case 789|22: Sys.onEvent2 Data|11: Case 234|22: Sys.onEvent2 Data|11: Case 567|22: Sys.onEvent2 Data|12: Case Else|22: Sys.onEvent1 Data|13: End Select|0:|12:End Function|
}
[/code:1]
карма: 19

0