Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#16: 2015-05-07 15:31:05 ЛС | профиль | цитата
nesco, вот вроде окончательный вариант (убрал все лишнее с моей точки зрения )
numerolog_3sql.rar
Можно было-бы ещё упростить, но лень переделывать БД ( создать 9 отдельных таблиц для единиц, двоек и т.д.)

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1numerolog_3sql.rar [31.3KB] [293]
Ответов: 16884
Рейтинг: 1239
#17: 2015-05-12 14:51:48 ЛС | профиль | цитата
nesco писал(а):
Rysik писал(а):
ну щас IC пойдёт
Как только Tad заглянет на огонек, так точно пойдет
Как кому, а мне IC нравится.
Особенно когда вместо полсотни компонент остается 17
pyth_2.rar


------------ Дoбавленo в 14.51:
А вот так, одним запросом убирается вся математика на компонентах:
Add(FormatStr,12718071,266,161)
{
Mask="SELECT a||d1||(d1/10+d1%10)||(d1-2*substr(a,1,1))||((d1-2*substr(a,1,1))/10+(d1-2*substr(a,1,1))%10)
FROM
(SELECT ltrim(%1,0) AS a ),
(SELECT (substr(%1,1,1) + substr(%1,2,1)+ substr(%1,3,1) + substr(%1,4,1) + substr(%1,5,1) + substr(%1,6,1) + substr(%1,7,1) + substr(%1,8,1)) AS d1);

"
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1pyth_2.rar [29.6KB] [302]
Разработчик
Ответов: 26151
Рейтинг: 2127
#18: 2015-05-12 17:52:12 ЛС | профиль | цитата
Tad писал(а):
Как кому, а мне IC нравится

Фи! Это не интересно. И уменее работать со средой это не прибавляет. Вот придумать оптимальные варианты на дискретке -- вот это интересно. ИМХО
------------ Дoбавленo в 17.52:
Вот чего у меня получилось -- полная матрица Пифагора. Сойдет как пример работы с DocumentTemplate -- Нумерология (заменен DirTools на FileTools и выкинуты лишние элементы... еще выкинуты лишние элементы)
карма: 22

2
Голосовали:andrestudio, miver
Ответов: 5227
Рейтинг: 587
#19: 2015-05-12 19:37:36 ЛС | профиль | цитата
да вы батенька настоящий маньяк. такого выноса мозга я давно не испытывал, шедевр одним словом, стоит сохранить для коллекции.
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Гость
Ответов: 17029
Рейтинг: 0
#20: 2015-05-12 20:00:15 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-21 07:46:47
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#21: 2015-05-12 20:00:54 ЛС | профиль | цитата
Убит я.
==============
nesco, объясни почему ты применяешь DirTools, а не проверку наличия файла БД (FileTools) ? При таком использовании он (DirTools) всегда будет выдавать 0 и перезаписывать БД.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
2
Голосовали:nesco, Vadimluk1
Разработчик
Ответов: 26151
Рейтинг: 2127
#22: 2015-05-12 23:05:00 ЛС | профиль | цитата
Tad писал(а):
При таком использовании он всегда будет выдавать 0 и перезаписывать БД

Точно. Я забыл про имя файла. Позор на мои седины

IGLD-84-229-170-214.inter писал(а):
Убит наповал - 923 компонента

И че Зато графика работает очень даже шустро. Прямо на контексте формы рисует. Выкинь панель и получишь старую схему. Вот эта вся графика и тянет столько компонентов.
А вообще-то там 641, а не 923 (я там старую панель забыл удалить), из них 600 сама графическая панелька

andrestudio писал(а):
такого выноса мозга я давно не испытывал

Я рад, что тебе понравилось
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#23: 2015-05-13 06:38:24 ЛС | профиль | цитата
nesco писал(а):
И че ?
Да нет, нормально всё.
("Да нет" - можно сказать только в русском языке )
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 632
Рейтинг: 4
#24: 2015-05-16 21:21:55 ЛС | профиль | цитата
Tad писал(а):
nesco, Зря ты про "Куплю-Продам".
Откуда у ребёнка деньги ? (Взрослый такой хернёй заниматься не будет. ИМХО)

Vadimluk1, gor.rar.
Насчёт "и 1-чтоб было описания" - самостоятельно.


Огромное спасибо самый легкий и понятный пример!)Спасибо
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#25: 2015-05-17 21:19:45 ЛС | профиль | цитата
На здоровье! Только это всё
injan.jpg
------------ Дoбавленo в 21.19:
nesco писал(а):
выкинуты лишние элементы

Вот ещё вроде 68 лишних
nesco_4.png
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 2injan.jpg [24.9KB] [559], nesco_4.png [15.8KB] [511]
Разработчик
Ответов: 26151
Рейтинг: 2127
#26: 2015-05-17 22:38:47 ЛС | профиль | цитата
Tad писал(а):
Вот ещё вроде 68 лишних

В принципе, в текущей схеме их можно убрать, но в другой схеме они могут понадобиться.
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#27: 2015-05-18 07:54:42 ЛС | профиль | цитата
[flood]Железная логика.
Я про эту схему. Будет другая схема - будем говорить о ней.[/flood]
Add(MultiElementEx,14740818,539,350)
{
@Hint=#2:17|
AddHint(45,-24,27,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,11861912,21,21)
{
WorkCount=#5:doSet|
Width=502
Height=256
VOffset=49
link(doSet,16378621:doEvent1,[])
}
Add(PC_TableCellStyle,15534631,477,84)
{
ItemName="led_017"
Document="parent.MainPage"
BgApply=0
Background=255
}
Add(PC_TableCellStyle,5519396,477,126)
{
ItemName="led_017"
Document="parent.MainPage"
BgApply=0
Background=65535
}
Add(PC_TableCellStyle,117787,477,168)
{
ItemName="led_017"
Document="parent.MainPage"
Col=1
BgApply=0
Background=65535
}
Add(If_else,9446914,147,119)
{
Type=2
Op2=Integer(0)
link(onTrue,11437542:doCompare,[])
link(onFalse,15534631:doSetStyle,[(186,132)(186,90)])
}
Add(If_else,11437542,203,119)
{
Type=1
Op2=Integer(3)
link(onTrue,16192035:doWork2,[])
link(onFalse,12782928:doCompare,[])
}
Add(If_else,12782928,252,126)
{
Type=1
Op2=Integer(6)
link(onTrue,16192035:doWork3,[(298,132)])
link(onFalse,3061290:doClear,[(305,139)(305,132)])
}
Add(PC_TableRow,13814309,148,70)
{
ItemName="led_017"
Document="parent.MainPage"
}
Add(VisualStrings,13631778,98,77)
{
Lines=#2:-1|
Point(doText)
Point(onText)
link(onText,13814309:doRemoveRow,[])
}
Add(IndexToChanel,5244473,364,119)
{
Count=6
link(onEvent2,12100777:doWork2,[])
link(onEvent3,9464417:doEvent1,[])
link(onEvent4,15103365:doWork1,[(410,146)])
link(onEvent5,15103365:doWork2,[])
link(onEvent6,14692138:doWork2,[])
}
Add(Hub,9464417,427,133)
{
link(onEvent1,12100777:doWork3,[(459,139)])
link(onEvent2,117787:doSetStyle,[(466,146)(466,174)])
}
Add(HubEx,12100777,455,126)
{
link(onEvent,5519396:doSetStyle,[])
}
Add(HubEx,16192035,294,119)
{
link(onEvent,3061290:doValue,[])
}
Add(PC_TableCellStyle,16046669,477,231)
{
ItemName="led_017"
Document="parent.MainPage"
BgApply=0
Background=65280
link(Row,1533384:Var3,[(490,208)])
}
Add(VisualStrings,8280226,427,175)
{
Lines=#1:0|
Point(doText)
Point(onText)
}
Add(For,179536,427,231)
{
IncludeEnd=1
link(onEvent,16046669:doSetStyle,[])
link(Start,1533384:Var2,[])
link(End,3061290:Value,[(440,222)(321,222)])
}
Add(GetDataEx,1533384,427,203)
{
link(Data,8280226:Text,[])
}
Add(HubEx,15103365,406,147)
{
Angle=1
link(onEvent,14692138:doWork1,[])
}
Add(HubEx,14692138,406,154)
{
Angle=1
link(onEvent,179536:doFor,[(410,237)])
}
Add(Memory,3061290,315,119)
{
Default=Integer(1)
link(onData,5244473:doEvent,[])
}
Add(Hub,16378621,49,70)
{
OutCount=4
link(onEvent1,7106632:doCase,[(74,76)(74,34)])
link(onEvent2,13631778:doText,[])
link(onEvent3,13814309:doAddRow,[(91,90)(91,69)(137,69)(137,76)])
link(onEvent4,9446914:doCompare,[(137,97)(137,125)])
}
Add(PC_Text,1055809,147,28)
{
ItemName="num_017"
Document="parent.MainPage"
}
Add(Case,7106632,84,28)
{
Value=Integer(0)
DataOnTrue=String(нет)
link(onNextCase,13482223:doWork2,[])
link(onTrue,13482223:doWork3,[(130,41)])
}
Add(HubEx,13482223,126,28)
{
link(onEvent,1055809:doText,[])
}
END_SDK


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 16884
Рейтинг: 1239
#28: 2015-05-19 22:22:55 ЛС | профиль | цитата
nesco писал(а):
А вообще-то там 641

nesco_5.png
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1nesco_5.png [42.6KB] [509]
Разработчик
Ответов: 26151
Рейтинг: 2127
#29: 2015-05-20 02:53:01 ЛС | профиль | цитата
Не, оригинально, а че не поделишься оптимизацией? Вроде у нас принято схемы выкладывать.
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#30: 2015-05-20 08:43:34 ЛС | профиль | цитата
nesco_6.png
Времени нехватает. Загрузили по самое небалуйся.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1nesco_6.png [17KB] [463]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)