Вверх ↑
Этот топик читают: Гость
Ответов: 150
Рейтинг: 0
#1: 2007-03-28 22:03:26 ЛС | профиль | цитата
Всем привет!

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

code_1153.txt
карма: 0

0
файлы: 1code_1153.txt [928B] [268]
vip
#1.1контекстная реклама от партнеров
Ответов: 2057
Рейтинг: 28
#2: 2007-03-28 22:31:59 ЛС | профиль | цитата
code_1154.txt
карма: 1

0
файлы: 1code_1154.txt [1KB] [369]
Ответов: 150
Рейтинг: 0
#3: 2007-03-28 23:34:57 ЛС | профиль | цитата
Эдик, мне надо, чтобы выдавал НЕ первое совпадающее число из списка, а выдавал только, если ВСЕ ТРИ ЧИСЛА ИЗ СПИСКА были введены в свободной последовательности и совпали со списком. Например, сначала 3 - ничего не выдает на OnTrue, но запоминает, потом 1 - то же самое, а вот после того, как введено 5, которое тоже совпадает, выдает результат на OnTrue. Важно, чтобы совпали все три составляющие списка и только тогда сработало On True. Как это можно сделать?
карма: 0

0
Ответов: 1891
Рейтинг: 110
#4: 2007-03-28 23:53:45 ЛС | профиль | цитата
Ntl-M, а какую конкретно программу хочешь сделать?
карма: 0
%time%
0
Ответов: 2057
Рейтинг: 28
#5: 2007-03-29 00:07:21 ЛС | профиль | цитата
code_1157.txt
карма: 1

0
файлы: 1code_1157.txt [1.4KB] [326]
Ответов: 8888
Рейтинг: 823
#6: 2007-03-29 00:32:43 ЛС | профиль | цитата
Ntl-M, выбирайте из предложенных
code_1159.txt
Alexbootch, предсказатель судьбы
карма: 19

0
файлы: 1code_1159.txt [1.4KB] [327]
Ответов: 1891
Рейтинг: 110
#7: 2007-03-29 00:36:32 ЛС | профиль | цитата
Леонид, писал(а):
Alexbootch, предсказатель судьбы


Леонид, это шутка
карма: 0
%time%
0
Ответов: 8888
Рейтинг: 823
#8: 2007-03-29 00:51:55 ЛС | профиль | цитата
Alexbootch, нет, неберите в поиске сообщения Ntl-M
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2007-03-29 01:35:44 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-21 12:14:21
карма: 0

0
Ответов: 2057
Рейтинг: 28
#10: 2007-03-29 04:04:44 ЛС | профиль | цитата
Ntl-M, мой код code_1157.txt так и работает. Могу немного его дароботать, чтобы было понятно когда идёт событие что все три числа совпали из поля ввода со списком чисел.
В новый код добавил гудок, который сигналит при совподение чисел
code_1161.txt
карма: 1

0
файлы: 1code_1161.txt [1.5KB] [321]
Гость
Ответов: 17029
Рейтинг: 0
#11: 2007-03-29 22:14:00 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-21 12:14:21
карма: 0

0
Разработчик
Ответов: 26069
Рейтинг: 2121
#12: 2007-03-29 22:30:18 ЛС | профиль | цитата
Ntl-M,
вот попробуй.
Add(MainForm,10360514,35,168)
{
Left=20
Top=105
}
Add(Label,949621,560,273)
{
Left=120
Top=20
}
Add(ArrayEnum,4099487,301,266)
{
link(onItem,13292967:doValue,[])
link(onEndEnum,3661275:doData,[])
link(Array,2266020:Array,[])
}
Add(StrList,7195173,301,308)
{
}
Add(ArrayEnum,11071243,315,385)
{
link(onItem,9564495:doCompare,[(366,391)(352,391)])
link(Array,7195173:Array,[(321,380)(321,380)])
}
Add(If_else,9564495,364,385)
{
link(onTrue,12695662:doData,[(406,391)(406,370)(214,370)(214,328)])
link(Op2,13292967:Value,[])
}
Add(StrList,2266020,287,168)
{
Strings=#2:21|1:1|1:4|2:65|1:2|1:5|1:8|1:9|1:3|
}
Add(Button,6793782,35,259)
{
Left=105
Top=90
link(onClick,433458:doEvent1,[])
}
Add(Memory,13292967,371,266)
{
link(onData,11071243:doEnum,[(413,272)(413,341)(305,341)(305,391)])
}
Add(InfoTip,5557379,497,350)
{
Info=#168:Надо, чтобы выдавал не последнее совпавшее сравнение, а только, если все три числа совпадут! Если совпадут два из трех, ничего не дожно выходить, как и при одном числе.|
Font=[MS Sans Serif,8,0,255,1]
Width=148
Height=116
}
Add(DoData,12695662,224,322)
{
link(onEventData,7195173:doDelete,[])
link(Data,11071243:Index,[(230,312)(285,312)(285,427)(328,427)])
}
Add(DoData,3661275,441,273)
{
link(onEventData,519392:doCompare,[])
link(Data,7195173:Count,[(447,263)(387,263)(387,363)(314,363)])
}
Add(StrList,14979153,168,168)
{
Strings=#1:1|1:3|1:5|
}
Add(DoData,4272451,168,329)
{
link(onEventData,7195173:doText,[(250,335)(250,335)])
link(Data,14979153:Text,[])
}
Add(Hub,433458,84,259)
{
link(onEvent1,4272451:doData,[(142,265)(142,335)])
link(onEvent2,4099487:doEnum,[(212,272)(212,272)])
}
Add(If_else,519392,497,273)
{
Op2=Integer(0)
link(onTrue,949621:doText,[])
}
карма: 22

0
Ответов: 2057
Рейтинг: 28
#13: 2007-03-29 23:30:22 ЛС | профиль | цитата
Ntl-M, может быть дело в том что у нас с тобой разные билды програм стоят. У тебя какой? У меня b161 + SVN + Update (с народа).
карма: 1

0
Разработчик
Ответов: 26069
Рейтинг: 2121
#14: 2007-03-29 23:36:54 ЛС | профиль | цитата
Эдик, знаешь, а у меня твоя версия работает. У меня вообще -- 162b. Может в этом дело. У моей версии другой принцип. При нахождении значения, оно удаляется из временного списка. Возможно, это пойдет на старых версиях.
карма: 22

0
Ответов: 9906
Рейтинг: 351
#15: 2007-03-29 23:43:26 ЛС | профиль | цитата
onBreakEnable=True
Это не с самого начала так было.

А с "самого начала" - onEndEnum происходил ВСЕГДА
карма: 9

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)