Вверх ↑
Этот топик читают: Гость
Ответов: 632
Рейтинг: 4
#1: 2016-10-15 18:20:58 ЛС | профиль | цитата
В программе зная только дату рождения можно узнать о человека, характер его, логику и многое другое!
https://cloud.mail.ru/public/3RQq/1iRn7JYhi
nesco,Tad,andrestudio,Леонид. Огромное спасибо за помощь в теме "Помогите, пожалуйста, надо сделать программу, которая будит вычислять числа!"!!! Очень помогло!
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 16884
Рейтинг: 1239
#2: 2016-10-15 18:54:48 ЛС | профиль | цитата
Мне посмотреть на это чудо не удалось.
Vadimluk1_9.png
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1535
Рейтинг: 176
#3: 2016-10-15 21:57:56 ЛС | профиль | цитата
Vadimluk1, Навскидку, можно сократить количество элементов в десять раз.
К тому же используешь нестандартный элемент. Укажи на него ссылку.

Редактировалось 3 раз(а), последний 2016-10-16 00:27:34
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 1535
Рейтинг: 176
#4: 2016-10-16 03:47:20 ЛС | профиль | цитата
Vadimluk1, вот взгляни 249 элементов.
https://yadi.sk/d/vDDHyuSKwvW4S
Добавил форматирование текста.


Редактировалось 15 раз(а), последний 2016-10-17 21:57:33
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#5: 2016-10-16 07:48:54 ЛС | профиль | цитата
ser_davkin писал(а):
К тому же используешь нестандартный элемент. Укажи на него ссылку.
В этом архиве есть этот элемент.
ser_davkin писал(а):
вот взгляни

А сам смотрел ?

Редактировалось 1 раз(а), последний 2016-10-16 10:13:23
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#6: 2016-10-16 10:05:37 ЛС | профиль | цитата
Vadimluk1,
Несчастливое число

Add(MultiElement,12447734,525,672)
{
}
BEGIN_SDK
Add(EditMulti,14094528,21,21)
{
EventCount=1
WorkCount=1
DataCount=3
Width=720
Height=249
link(doWork1,14167678:doEvent1,[(59,27)(59,69)])
}
Add(Str_Enum,8294356,217,91)
{
Delimiter=""
link(onEnum,4593384:doOperation,[(261,97)(261,132)])
link(onEndEnum,3681456:doMultiReplace,[])
}
Add(Math,4593384,273,126)
{
Point(doClear)
link(Op2,6108081:Var1,[(286,114)(317,114)])
}
Add(Str_Enum,11424375,378,98)
{
Delimiter=""
link(onEnum,9530251:doOperation,[(423,104)(423,69)])
link(onEndEnum,8389024:doMultiReplace,[])
}
Add(Math,9530251,637,63)
{
Point(doClear)
link(Op1,12356501:Var3,[(643,51)(675,51)(675,107)])
}
Add(Str_Enum,8185030,490,105)
{
Delimiter=""
link(onEnum,828507:doOperation,[])
link(onEndEnum,13851534:doCalc,[(535,118)(535,188)])
}
Add(Hub,14167678,98,63)
{
OutCount=5
link(onEvent1,3448375:In,[])
link(onEvent2,6134757:In,[])
link(onEvent3,13352228:In,[])
link(onEvent4,14196136:In,[])
link(onEvent5,5803204:doMultiReplace,[])
}
Add(Math,828507,588,105)
{
Point(doClear)
link(Op2,14907526:Var1,[(601,93)(625,93)])
}
Add(MathParse,13851534,623,182)
{
DataCount=4
MathStr="%1+%2+%3"
Point(doClear)
link(onResult,3924309:doString,[])
link(X1,6108081:Var3,[(629,169)])
link(X2,14907526:Var3,[(636,149)])
link(X3,12356501:Var2,[])
}
Add(FormatStr,3924309,672,182)
{
DataCount=1
Mask="Несчастливое число %1."
link(onFString,14094528:onEvent1,[(723,188)(723,27)])
}
Add(MultiReplace,5803204,168,91)
{
ReplaceList="а=1;б=2;в=2;г=2;д=2;е=1;ё=1;ж=2;з=2;и=1;й=1;к=2;л=2;м=2;н=2;о=1;п=2;р=2;с=2;т=2;у=1;ф=2;х=2;ц=2;ч=2;ш=2;щ=2;ъ=2;ы=1;ь=2;э=1;ю=1;я=1"
link(onResult,8294356:doEnum,[])
link(Text,14094528:Data1,[(174,49)(27,49)])
}
Add(MultiReplace,3681456,329,98)
{
ReplaceList="а=1;б=2;в=2;г=2;д=2;е=1;ё=1;ж=2;з=2;и=1;й=1;к=2;л=2;м=2;н=2;о=1;п=2;р=2;с=2;т=2;у=1;ф=2;х=2;ц=2;ч=2;ш=2;щ=2;ъ=2;ы=1;ь=2;э=1;ю=1;я=1"
link(onResult,11424375:doEnum,[])
link(Text,14094528:Data2,[(335,42)(34,42)])
}
Add(MultiReplace,8389024,441,105)
{
ReplaceList="а=1;б=2;в=2;г=2;д=2;е=1;ё=1;ж=2;з=2;и=1;й=1;к=2;л=2;м=2;н=2;о=1;п=2;р=2;с=2;т=2;у=1;ф=2;х=2;ц=2;ч=2;ш=2;щ=2;ъ=2;ы=1;ь=2;э=1;ю=1;я=1"
link(onResult,8185030:doEnum,[])
link(Text,14094528:Data3,[(447,34)(41,34)])
}
Add(GetDataEx,12356501,637,102)
{
link(Data,9530251:Result,[])
}
Add(GetDataEx,6108081,311,164)
{
Angle=3
link(Data,4593384:Result,[(279,169)])
}
Add(LineBreak,2216733,595,70)
{
link(Out,9530251:doClear,[])
Primary=[6134757,-469,0]
}
Add(LineBreak,4536526,217,133)
{
link(Out,4593384:doClear,[])
Primary=[3448375,-91,-70]
}
Add(LineBreak,4022212,546,112)
{
link(Out,828507:doClear,[])
Primary=[13352228,-420,-35]
}
Add(LineBreak,9778930,581,189)
{
link(Out,13851534:doClear,[])
Primary=[14196136,-455,-105]
}
Add(GetDataEx,14907526,619,144)
{
Angle=3
link(Data,828507:Result,[(594,149)])
}
END_SDK


Кстати nesco, MultiReplace ссылочным элементом сделать нельзя.

Редактировалось 1 раз(а), последний 2016-10-16 10:10:23
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1535
Рейтинг: 176
#7: 2016-10-16 11:01:32 ЛС | профиль | цитата
Tad писал(а):
В этом архиве есть этот элемент.

Да, верно. Дело было ночью, внимания никакого. Спал.
Кстати, не мешало бы этот элемент внести в список стандартных.

Редактировалось 3 раз(а), последний 2016-10-16 11:07:33
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#8: 2016-10-16 12:58:12 ЛС | профиль | цитата
ser_davkin писал(а):
Кстати, не мешало бы этот элемент внести в список стандартных.
После кардинальной переделки.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 497
Рейтинг: 16
#9: 2016-10-16 13:37:02 ЛС | профиль | цитата
Кличко писал(а):
Энергия есть нормальное количества! , Чувство долго.


--- Добавлено в 2016-10-16 14:00:08

ser_davkin писал(а):
Навскидку, можно сократить количество элементов в десять раз.

DoData=350
LineBreak=89
Replace=1566
Case=205

--- Добавлено в 2016-10-16 14:03:59

DER.JPG

--- Добавлено в 2016-10-16 14:04:40

DER2.JPG

--- Добавлено в 2016-10-16 14:08:07

мать чесная
DER3.JPG
даже лень читать описание точки
onTrue=Событие происходит всякий раз при равенстве значения из потока значению параметра Value и выдает в поток данные из ячейки DataOnTrue|2|


--- Добавлено в 2016-10-16 14:11:45

DER4.JPG

--- Добавлено в 2016-10-16 14:15:59

DER5.JPG
onClick=Событие происходит всякий раз при нажатии на кнопку и выдает в поток значение св-ва Data, если оно было задано ARG(Data)|2|

Редактировалось 6 раз(а), последний 2016-10-16 14:15:59
карма: 1
        ]  
0
Ответов: 632
Рейтинг: 4
#10: 2016-10-16 14:16:29 ЛС | профиль | цитата
RAWY_EX, я не знал про такие возможности этих компонентов, что бы ни тратить время, пользуюсь только теми, которые уже знаю, как работают!
карма: 0

0
Ответов: 497
Рейтинг: 16
#11: 2016-10-16 14:22:02 ЛС | профиль | цитата
Vadimluk1,
Vadimluk1 писал(а):
что бы ни тратить время
пользуясь тем что я отметил еще больше можно сократить.
флуд
нужно начинать работать с LineBreakEx
карма: 1
        ]  
0
Ответов: 632
Рейтинг: 4
#12: 2016-10-16 14:27:10 ЛС | профиль | цитата
ser_davkin, ошибка расчётов фамилии и отчества есть из этого половина информации не правильная!
карма: 0

0
Ответов: 1535
Рейтинг: 176
#13: 2016-10-16 14:34:37 ЛС | профиль | цитата
Vadimluk1 писал(а):
ошибка расчётов фамилии и отчества есть из этого половина информации не правильная!

Откуда источник? Предоставь формулу расчёта.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 497
Рейтинг: 16
#14: 2016-10-16 14:42:33 ЛС | профиль | цитата
ser_davkin,

Add(Math,7721876,301,56)
{
ResultType=0
Point(doClear)
link(onResult,5330203:doValue,[(343,62)(343,20)])
link(Op2,7721876:Result,[(314,44)(312,44)(312,100)(307,100)])
}
Add(Math,4828616,434,56)
{
ResultType=0
Point(doClear)
link(onResult,9477767:doValue,[(476,62)(476,55)])
link(Op1,4828616:Result,[(440,44)(430,44)(430,100)(440,100)])
link(Op2,9877712:Part,[(447,44)(417,44)(417,100)(384,100)])
}
Add(Str_Enum,9877712,371,56)
{
Delimiter=""
link(onEnum,4828616:doOperation,[])
link(onEndEnum,1391011:doEnum,[(415,69)(415,104)(135,104)(135,139)])
link(String,13424886:Var3,[(377,54)])
}
Add(Str_Enum,2811913,63,98)
{
Delimiter=""
link(onEndEnum,16317578:doData,[(205,111)(205,118)])
}
Add(DoData,16317578,315,112)
{
link(onEventData,9877712:doEnum,[(362,118)(362,62)])
link(Data,13424886:Var2,[(321,85)(356,85)])
}
Add(Memory,9477767,483,49)
{
}
Add(Memory,5330203,350,14)
{
}
Add(Math,14389802,210,133)
{
ResultType=0
Point(doClear)
link(onResult,14570179:doValue,[(252,139)(252,132)])
link(Op1,14389802:Result,[(216,121)(206,121)(206,177)(216,177)])
link(Op2,1391011:Part,[(223,121)(193,121)(193,177)(160,177)])
}
Add(Str_Enum,1391011,147,133)
{
Delimiter=""
link(onEnum,14389802:doOperation,[])
link(onEndEnum,377761:doEnum,[(191,146)(191,170)(135,170)(135,195)])
link(String,9477767:Value,[(153,107)(489,107)])
}
Add(Memory,14570179,259,126)
{
}
Add(Math,6882103,210,189)
{
ResultType=0
Point(doClear)
link(onResult,302183:doValue,[(252,195)(252,188)])
link(Op1,6882103:Result,[(216,177)(206,177)(206,233)(216,233)])
link(Op2,377761:Part,[(223,177)(191,177)(191,233)(160,233)])
}
Add(Str_Enum,377761,147,189)
{
Delimiter=""
link(onEnum,6882103:doOperation,[])
link(onEndEnum,13427791:doEnum,[(191,202)(191,223)(135,223)(135,244)])
link(String,14570179:Value,[(153,173)(265,173)])
}
Add(Memory,302183,259,182)
{
}
Add(Math,16718283,210,238)
{
ResultType=0
Point(doClear)
link(onResult,2678473:doValue,[(254,244)(254,237)])
link(Op1,16718283:Result,[(216,226)(206,226)(206,282)(216,282)])
link(Op2,13427791:Part,[(223,226)(193,226)(193,282)(160,282)])
}
Add(Str_Enum,13427791,147,238)
{
Delimiter=""
link(onEnum,16718283:doOperation,[])
link(String,302183:Value,[(153,226)(265,226)])
}
Add(Memory,2678473,266,231)
{
}
Add(GetDataEx,13424886,350,49)
{
link(Data,5330203:Value,[])
}

вот формула расчета

Редактировалось 1 раз(а), последний 2016-10-16 14:44:30
карма: 1
        ]  
0
Ответов: 1535
Рейтинг: 176
#15: 2016-10-16 15:09:22 ЛС | профиль | цитата
Vadimluk1, обновись по моей ссылке https://yadi.sk/d/vDDHyuSKwvW4S Была неверная таблица нумерологии букв.
Кстати, в твоём примере дважды повторяется буква "ч" в таблице, вместо второй должна быть "х", что тоже говорит об ошибке.

Редактировалось 4 раз(а), последний 2016-10-16 15:16:01
карма: 1
Не так страшна ошибка, как опасность её не заметить.

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