База данных

Форумы СхемыБаза данных ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 632

Рейтинг: 4

#1: 2016-10-15 18:20:58 ЛС | профиль | цитата

В программе зная только дату рождения можно узнать о человека, характер его, логику и многое другое!
https://cloud.mail.ru/public/3RQq/1iRn7JYhi
nesco,Tad,andrestudio,Леонид. Огромное спасибо за помощь в теме "Помогите, пожалуйста, надо сделать программу, которая будит вычислять числа!"!!! Очень помогло!

карма: 0

Ответов: 16884

Рейтинг: 1239

#2: 2016-10-15 18:54:48 ЛС | профиль | цитата

Мне посмотреть на это чудо не удалось.

Vadimluk1_9.png

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 1535

Рейтинг: 176

#3: 2016-10-15 21:57:56 ЛС | профиль | цитата

Vadimluk1,

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

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

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 1535

Рейтинг: 176

#4: 2016-10-16 03:47:20 ЛС | профиль | цитата

Vadimluk1, вот взгляни 249 элементов.
https://yadi.sk/d/vDDHyuSKwvW4S
Добавил форматирование текста.

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

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 16884

Рейтинг: 1239

#5: 2016-10-16 07:48:54 ЛС | профиль | цитата

ser_davkin писал(а):

К тому же используешь нестандартный элемент. Укажи на него ссылку.

В этом архиве есть этот элемент.

ser_davkin писал(а):

вот взгляни

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

Редактировалось 1 раз(а), последний 2016-10-16 10:13:23

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 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

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 1535

Рейтинг: 176

#7: 2016-10-16 11:01:32 ЛС | профиль | цитата

Tad писал(а):

В этом архиве есть этот элемент.

Да, верно. Дело было ночью, внимания никакого.

Спал.
Кстати, не мешало бы этот элемент внести в список стандартных.

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

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 16884

Рейтинг: 1239

#8: 2016-10-16 12:58:12 ЛС | профиль | цитата

ser_davkin писал(а):

Кстати, не мешало бы этот элемент внести в список стандартных.

После кардинальной переделки.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 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

]

Ответов: 632

Рейтинг: 4

#10: 2016-10-16 14:16:29 ЛС | профиль | цитата

RAWY_EX, я не знал про такие возможности этих компонентов, что бы ни тратить время, пользуюсь только теми, которые уже знаю, как работают!

карма: 0

Ответов: 497

Рейтинг: 16

#11: 2016-10-16 14:22:02 ЛС | профиль | цитата

Vadimluk1,

Vadimluk1 писал(а):

что бы ни тратить время

пользуясь тем что я отметил еще больше можно сократить.

флуд

нужно начинать работать с LineBreakEx

карма: 1

]

Ответов: 632

Рейтинг: 4

#12: 2016-10-16 14:27:10 ЛС | профиль | цитата

ser_davkin, ошибка расчётов фамилии и отчества есть из этого половина информации не правильная!

карма: 0

Ответов: 1535

Рейтинг: 176

#13: 2016-10-16 14:34:37 ЛС | профиль | цитата

Vadimluk1 писал(а):

ошибка расчётов фамилии и отчества есть из этого половина информации не правильная!

Откуда источник? Предоставь формулу расчёта.

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 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

]

Ответов: 1535

Рейтинг: 176

#15: 2016-10-16 15:09:22 ЛС | профиль | цитата

Vadimluk1, обновись по моей ссылке https://yadi.sk/d/vDDHyuSKwvW4S Была неверная таблица нумерологии букв.
Кстати, в твоём примере дважды повторяется буква "ч" в таблице, вместо второй должна быть "х", что тоже говорит об ошибке.

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

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Форумы СхемыБаза данных ← Ctrl12Ctrl →


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