Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#76: 2015-05-29 10:57:08 ЛС | профиль | цитата
vis_2.png
У применённых панелей:
входные точки doWork1,doWork2,doWork3,doWork4 и т.д.
выходные (естественно) onEvent1,onEvent2,onEvent3,onEvent4 и т.д.
верхние и нижние аналогично. Информативности ноль.
Будь моя воля, я бы эту панель давно убрал в "скрытые". (для пресловутой совместимости)
Есть такая-же EX у которой можно и точки понятно назвать и пояснения к ним выдать. Хотя "сомневаюсь я однако (с)",что будут писать пояснения.

У меня в IC информативности намного больше.
1. Комментарии в коде IC
2. Комментарии ко всем точкам.

Стал на точку и
vis_3.png
а так ко всем точкам в одном флаконе
Vis1=Визуализация доп.панели Vis2=Визуализация таблицы
Text=Результат вычисления
Text2=Прогресс
Color=Цвет прогресса(Красный, Желтый, Зелёный)
Width=Длина
doClear=Чистка Memo
SQL=Запрос к БД


А вот так создаётся IC (для тех, кто боится IC, "как чёрт ладана")

#pas
Этапы создания IC.

1. Составление АЛГОРИТМА
------------------------
// расчет
//Чистим Memo
//Чистим таблицу
//Читаем Дату в формате dMyyy
//расчитываем числа Пифагора
//первое
//второе
//третье
//четвертое
//Формируем имена для запроса к БД
и т.д
==============================================================

2. реализация в коде.
--------------------
// расчет
procedure THiAsmClass.doCalck;
var L, i,j, p1,p2,p3,p4 : Integer;
Len : array[1..9] of integer;
begin
_hi_OnEvent(doClear); //Чистим Memo
For i:= 1 to 17 do // чистим таблицу
begin
id:=i;
_hi_OnEvent(Text,'');
_hi_onEvent(Text2, '');
end;

// Отображаем таблицу
_hi_onEvent(vis1,1);
_hi_onEvent(vis2,1);

//Читаем Дату в формате dMyyy
DateTime := toIntegerEvent(Data);
FD := Date2StrFmt('dMyyyy', DateTime);

//расчитываем числа Пифагора
p1 := 0;
for i := 1 to Length(FD) do
p1 := p1 + str2int(fd[i]); // Первое число
p2 := p1 div 10 + p1 mod 10; // Второе число
p3 := p1 - 2 * str2int(copy(FD,1,1)); // Третье число
p4 := p3 div 10 + p3 mod 10; // Четвертое число
FD := FD + '_' + int2str(p1) // Полное число строкой
+ ' ' + int2str(p2)
+ ' ' + int2str(p3)
+ ' ' + int2str(p4);
//Формируем имена для запроса к БД
For i := 1 to 9 do

и т.д.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 2vis_2.png [14.7KB] [670], vis_3.png [3.4KB] [623]
Разработчик
Ответов: 26061
Рейтинг: 2120
#77: 2015-05-29 11:49:05 ЛС | профиль | цитата
Tad писал(а):
У меня в IC информативности намного больше

Ага, но только в IC нет кубиков и проследить алгоритм можно только в коде. А визуальное восприятие любого кода оставляет желать лучшего. Визуально, нормально построенная схема HiAsm-а несет больше информативности. Можно даже сказать, что схема HiAsm-a -- это блок схема твоего алгоритма, опять-таки -- нормально построенная схема
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#78: 2015-05-29 12:01:11 ЛС | профиль | цитата
nesco писал(а):
А визуальное восприятие любого кода оставляет желать лучшего.
А восприятие кубика ?
Возьми простейший кубик DoData. Стоит он в схеме, а чтобы понять нахрена - нужно в него заглянуть.
А любой компонент с открытыми "скрытыми точками" сразу превращается в загадку.
А если сразу несколько открытых "скрытых", то в "Неразгаданные тайны земли".
ИМХО.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 632
Рейтинг: 4
#79: 2015-05-29 13:34:56 ЛС | профиль | цитата
Tad писал(а):
nesco писал(а)
А визуальное восприятие любого кода оставляет желать лучшего.
А восприятие кубика ?
Возьми простейший кубик DoData. Стоит он в схеме, а чтобы понять нахрена - нужно в него заглянуть.
А любой компонент с открытыми "скрытыми точками" сразу превращается в загадку.
А если сразу несколько открытых "скрытых", то в "Неразгаданные тайны земли".
ИМХО.



Вы можете сделать на андроид такую программу?
карма: 0

0
Ответов: 8886
Рейтинг: 823
#80: 2015-05-29 13:38:50 ЛС | профиль | цитата
Tad, ваш квадрат Пифагора у меня выпросила знакомая (все мы нуждаемся в утешении, кто за ним идёт к священнику, кто к психотерапевту, кто к гадалке (последних сейчас развелось ужас сколько и все потомственные ) или разгадывает свой гороскоп, а кто и сам справляется), материальных благ в силу воспитания я с неё не потребовал, но большое СПАСИБО вам переправляю.
БольшоеСпасибо.jpg
(с)QRZ
карма: 19

0
файлы: 1БольшоеСпасибо.jpg [150.9KB] [657]
Разработчик
Ответов: 26061
Рейтинг: 2120
#81: 2015-05-29 14:00:27 ЛС | профиль | цитата
Леонид писал(а):
Tad, ваш квадрат Пифагора у меня выпросила знакомая

Если быть откровенным, то это моя схема, мой алгоритм отображения, и мной набитая база. Tad там только упрощалкой занимался, и все СПАСИБО достались ему. ЗАШИБИСЬ, я остался очень доволен
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#82: 2015-05-29 14:45:27 ЛС | профиль | цитата
Леонид писал(а):
ваш квадрат
Леонид, это не мой - это Пифагора.
Т.к. вся работа по созданию программы была выполнена nesco, то "Большое Спасибо" переведите на его счёт.
nesco, "Спасибо", а тем более "Большое Спасибо", очень часто достаётся не тому.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8886
Рейтинг: 823
#83: 2015-05-29 15:28:40 ЛС | профиль | цитата
nesco, примите мои извинения за невнимательность и ОЧЕНЬ БОЛЬШОЕ СПАСИБО!
Пятница.jpg
Сегодня отдохнём!
карма: 19

0
файлы: 1Пятница.jpg [30.6KB] [654]
Ответов: 632
Рейтинг: 4
#84: 2015-08-04 18:10:41 ЛС | профиль | цитата
Извините, что не заходил! Дела были. Схема отличная, всем спасибо!Все постарались.
карма: 0

0
Ответов: 632
Рейтинг: 4
#85: 2016-10-15 17:43:54 ЛС | профиль | цитата
nesco,Tad,andrestudio,Леонид. Огромное спасибо за помощь!!!
карма: 0

0
Ответов: 8886
Рейтинг: 823
#86: 2016-10-15 18:00:58 ЛС | профиль | цитата
nesco, ну вот, не прошло и года, ОГРОМНОЕ СПАСИБО исключительно для вас
карма: 19

0
Ответов: 632
Рейтинг: 4
#87: 2016-10-20 13:07:23 ЛС | профиль | цитата
Леонид, благодарю
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#88: 2016-10-21 19:56:23 ЛС | профиль | цитата
Леонид писал(а):
квадрат Пифагора у меня выпросила знакомая
Попробовал повторить с использованием математики SQLite. Уложился в 34 компонента.
Исправлена ошибка обнаруженная Vadimluk1. Спасибо!
http://forum.hiasm.com/getfile/37886
Для нормальной работы необходима новая dll
http://www.sqlite.org/2016/sqlite-dll-win32-x86-3150000.zip=для win32
http://www.sqlite.org/2016/sqlite-dll-win64-x64-3140200.zip=Для win64

nesco, использовал твою БД

Редактировалось 4 раз(а), последний 2016-10-22 06:58:42
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 632
Рейтинг: 4
#89: 2016-10-21 20:10:45 ЛС | профиль | цитата
Я себя посмотрел, не совпадает, если ручную рассчитывать!
карма: 0

1
Голосовали:Tad
Ответов: 16884
Рейтинг: 1239
#90: 2016-10-21 20:16:22 ЛС | профиль | цитата
Vadimluk1 писал(а):
2+3+0+3+1+9+3+3=24
(24 число)2+4=6
24*2-2(от !2!3.03.1933)=20
(20 число)2+0=2
http://i.mcgl.ru/
Если вручную считаешь так, как ты писал, то не совпадёт.
красная строка должна быть 24-2*2

Проверь себя хотя-бы здесь https://tragos.ru/pythagoras-square/?day=9&month=11&year=1936

Редактировалось 1 раз(а), последний 2016-10-21 20:43:16
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)