Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2008-08-18 23:13:11 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 18:47:36
карма: 0

0
Ответов: 5446
Рейтинг: 323
#2: 2008-08-19 00:28:57 ЛС | профиль | цитата
Примерно так:

#sha
Add(Message,1969194,626,107)
{
Message="Число недопустимо"
Caption="Уккщк!"
Icon=1
link(onMessage,1935832:doStop,[(670,113)(670,133)(443,133)(443,153)])
}
Add(Edit,7069364,539,91)
{
Left=90
Top=20
Text="131"
}
Add(Button,1047304,406,140)
{
Left=30
Top=20
link(onClick,1935832:doEnum,[])
}
Add(StrList,3142278,441,49)
{
Strings=#6:657564|3:745|3:765|3:879|5:25345|3:864|6:667543|3:787|4:6454|2:67|
}
Add(ArrayEnum,1935832,455,140)
{
link(onItem,2206679:doCompare,[])
link(Array,3142278:Array,[])
}
Add(If_else,2206679,532,140)
{
link(onTrue,1969194:doMessage,[(584,146)(584,113)])
link(onFalse,10406087:doMessage,[(597,153)(597,160)])
link(Op2,7069364:Text,[])
}
Add(Message,10406087,630,154)
{
Message="Такого числа нет"
Caption="Результат"
}
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#3: 2008-08-19 00:56:10 ЛС | профиль | цитата
Или так

Add(Edit,8876997,217,35)
{
Left=30
Top=25
Text="0"
link(onChange,13293061:doEvent1,[])
}
Add(StrList,14302881,203,91)
{
Strings=#6:657564|3:745|3:765|3:879|5:25345|3:864|6:667543|3:787|4:6454|2:67|
Point(StrToFind)
Point(doGetIndex)
Point(Index)
link(StrToFind,8876997:Text,[])
}
Add(If_else,16325734,224,175)
{
Op2=Integer(-1)
link(onTrue,7973164:doData,[(264,181)(264,167)])
link(onFalse,7410265:doData,[(264,188)(264,209)])
link(Op1,14302881:Index,[])
}
Add(Hub,13293061,266,35)
{
link(onEvent1,14302881:doGetIndex,[(390,41)(390,256)(191,256)(191,139)])
link(onEvent2,16325734:doCompare,[(379,48)(379,247)(212,247)(212,181)])
}
Add(Label,16635677,329,182)
{
Left=180
Top=25
}
Add(DoData,7973164,273,161)
{
Data=String(Такого числа нет)
link(onEventData,13712046:doWork1,[(319,167)])
}
Add(DoData,7410265,273,203)
{
Data=String(Такое число есть)
link(onEventData,13712046:doWork3,[(319,209)])
}
Add(HubEx,13712046,315,175)
{
link(onEvent,16635677:doText,[])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:Andrey
Гость
Ответов: 17029
Рейтинг: 0
#4: 2008-08-19 01:36:44 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 18:47:36
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2008-08-19 09:01:49 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 18:47:36
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2008-08-19 09:27:36 ЛС | профиль | цитата
hish, оптимизировал

Add(Edit,8876997,217,35)
{
Left=30
Top=25
Text="0"
link(onChange,13293061:doEvent1,[])
}
Add(StrList,14302881,203,91)
{
Strings=#6:657564|3:745|3:765|3:879|5:25345|3:864|6:667543|3:787|4:6454|2:67|
Point(StrToFind)
Point(doGetIndex)
Point(Index)
link(StrToFind,8876997:Text,[])
}
Add(If_else,16325734,224,161)
{
Op2=Integer(-1)
link(onTrue,7973164:doData,[(264,167)(264,139)])
link(onFalse,13712046:doWork2,[])
link(Op1,14302881:Index,[])
}
Add(Hub,13293061,266,35)
{
link(onEvent1,14302881:doGetIndex,[(310,41)(310,15)(191,15)(191,139)])
link(onEvent2,16325734:doCompare,[(369,48)(369,208)(212,208)(212,167)])
}
Add(Label,16635677,329,168)
{
Left=180
Top=25
}
Add(DoData,7973164,273,133)
{
Data=String(
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)