Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#61: 2014-12-16 18:07:40 ЛС | профиль | цитата
AlexKir писал(а):
MT_AddData не работает с потоком через "пустую точку"
Это кто сказал ? А примерчик можно ?
Хотя ...
AlexKir писал(а):
Надо будет и на линукс хайсм поставить а то реакция на советы и замечания на форуме запаздывает

AlexKir писал(а):
Извини до твоих новых супер-лаконичных схем пока не добрался ....
Ну и нахрена писать советы и замечания, учитывая твою реакцию ?
Так что извини, но это мой последний пост в этой теме.
AlexKir писал(а):
2 Нет доступа к верхним точкам данных ..
Да ну !
A это что ?

Add(MainForm,2953706,21,217)
{
Height=103
}
Add(FTCG_Tools,16390730,126,217)
{
@Color=43775
link(onPrint,13018366:doText,[])
link(D0,9653854:Text,[])
link(D1,14106343:Text,[])
link(D2,140888:Text,[])
AddHint(79,-46,15,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,2162739,21,16)
{
WorkCount=#7:doPrint|
EventCount=#7:onPrint|
DataCount=#2:D0|2:D1|2:D2|
Width=426
Height=186
link(doPrint,15178761:doPrint,[(39,22)(39,43)])
}
Add(VisualInline,15178761,56,37)
{
Lines=#28:Var T1, T2, T3, RD :Double;|6:begin |20:// RD:=ToReal(Data);|49:T1:=toRealEvent(THIFTCG_Tools(FParent).Datas[0]);|49:T2:=toRealEvent(THIFTCG_Tools(FParent).Datas[1]);|50:T3:=toRealEvent(THIFTCG_Tools(FParent).Datas[2]); |13:RD:=T1+T2+T3;|49:_hi_OnEvent(THIFTCG_Tools(FParent).Events[0],Rd);|4:end;|
Width=376
Height=148
}
END_SDK
Add(Button,16015009,70,217)
{
Left=25
Top=35
Width=70
Caption="Сложить"
Data=Integer(100)
link(onClick,16390730:doPrint,[])
}
Add(Edit,13018366,189,217)
{
Left=110
Top=35
Width=160
}
Add(Edit,9653854,126,91)
{
Left=55
Top=5
Text="100"
}
Add(Edit,14106343,133,126)
{
Left=125
Top=5
Text="50"
}
Add(Edit,140888,140,161)
{
Left=185
Top=5
Text="20"
}

или так (что более профессионально)


Add(MainForm,2953706,21,217)
{
Height=103
}
Add(FTCG_Tools,16390730,126,217)
{
@Color=43775
link(onPrint,13018366:doText,[])
link(D0,9653854:Text,[])
link(D1,14106343:Text,[])
link(D2,140888:Text,[])
AddHint(79,-46,15,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,2162739,21,16)
{
WorkCount=#7:doPrint|
EventCount=#7:onPrint|
DataCount=#2:D0|2:D1|2:D2|
Width=510
Height=375
link(doPrint,15178761:doPrint,[(39,22)(39,43)])
}
Add(VisualInline,15178761,56,37)
{
Lines=#6:begin |31:With THIFTCG_Tools(FParent) do |22:_hi_OnEvent(Events[0],|26: toRealEvent(Datas[0])+|26: toRealEvent(Datas[1])+|28: toRealEvent(Datas[2])); |4:end;|
Width=446
Height=127
}
END_SDK
Add(Button,16015009,70,217)
{
Left=25
Top=35
Width=70
Caption="Сложить"
Data=Integer(100)
link(onClick,16390730:doPrint,[])
}
Add(Edit,13018366,189,217)
{
Left=110
Top=35
Width=160
}
Add(Edit,9653854,126,91)
{
Left=55
Top=5
Text="100"
}
Add(Edit,14106343,133,126)
{
Left=125
Top=5
Text="50"
}
Add(Edit,140888,140,161)
{
Left=185
Top=5
Text="20"
}


М.Задорнов писал(а):
И не надо лохматить бабушку.
и "сосать из пальца" проблемы.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 963
Рейтинг: 12
#62: 2014-12-19 22:30:34 ЛС | профиль | цитата
Шо Упс !
Спасибо !
(В принципе догадывался, что что-то подобное можно сотворить ...
Хотя представлял чуть иначе ... (Ну да типа глубокомысленно "с очень умным видом "... ))

Зы
Но я вообще-то не точках в контейнере, а точках прямо в VI
Хотя признаю это неплохой выход из проблемы .
Кстати не получается в одном контейнере приделать несколько VI
(Но это уже задача видоизменению кода генерации VI )

MT_AddData не работает с потоком через "пустую точку"
Это кто сказал ? А примерчик можно ?
Хотя ...


Посмотри 20е-2 версию.... Блок "редактирование"( думаешь я "память" просто так добавил ? )
http://forum.hiasm.com//getfile/34755
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#63: 2014-12-21 00:22:46 ЛС | профиль | цитата
Это про этот шедевр
alexkir_2.png
Нет ничего проще

Add(MT_AddData,5464145,420,399)
{
Count=5
Data=Integer(8)
}
А тут ты о чем думал ? Зачем крутишь: цифру->в букву->в UpCase->диапазон->опять в цифру-> в TData -> на выход ?
Не проще : цифра->диапазон->на выход. И СapsLook и Shift и раскладка клавиатуры по барабану.

Add(FTCG_Tools,14822731,49,245)
{
@Hint=#18:Проверка диапазона|
@Color=43775
AddHint(-32,74,122,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,7787044,21,2)
{
WorkCount=#7:doPrint|
EventCount=#7:onPrint|
Width=461
Height=221
link(doPrint,12271341:doPrint,[(45,8)(45,29)])
}
Add(VisualInline,12271341,56,23)
{
Lines=#17:Var RD :integer;|15: D :Tdata;|9:begin |21:RD:=ToInteger(Data) ;|30:if RD in [48..57,65..70] then |5:begin|18: dtInteger(d,Rd);|49: _hi_OnEvent(THIFTCG_Tools(FParent).Events[0],d);|4: end|4:end;|
Width=411
Height=176
}
END_SDK
А это Обработка стрелок и Проверка диапазона в одном FTCG мультике

Add(FTCG_Tools,14822731,665,448)
{
@Hint=#17:Обработка стрелок|18:Проверка диапазона|
@Color=43775
AddHint(-83,-47,114,26,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,7787044,7,72)
{
WorkCount=#7:doPrint|
EventCount=#2:DX|2:DY|3:KEY|
Width=461
Height=298
link(doPrint,12271341:doPrint,[(21,78)(21,106)])
}
Add(VisualInline,12271341,35,100)
{
Lines=#17:Var RD :integer;|15: D :Tdata;|5:begin|30:With THIFTCG_Tools(FParent) do|9:begin |20:RD:=ToInteger(Data);|11: Case RD of|31: 37:_hi_OnEvent(Events[0],-1);|31: 38:_hi_OnEvent(Events[1],-1);|30: 39:_hi_OnEvent(Events[0],1);|30: 40:_hi_OnEvent(Events[1],1);|43: 48..57,65..70: _hi_OnEvent(Events[2],RD);|6: end ;|5: end;|4:end;|
Width=411
Height=239
}
END_SDK
------------ Дoбавленo в 19.30:
hexeditor(tad).png
15 компонет (против твоих >300) и всего 70 рабочих строк в IC (с пустышками). ------------ Дoбавленo в 00.22:
alexkir_3.png
из твоих 39 осталось только 15
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 3alexkir_2.png [6.2KB] [821], hexeditor(tad).png [109.7KB] [802], alexkir_3.png [19.2KB] [815]
Ответов: 963
Рейтинг: 12
#64: 2014-12-22 15:18:06 ЛС | профиль | цитата
Знаешь я никогда не сомневался что все что я делаю можно сделать лучше ...
Фокус только в том, что я могу делать только "как я" .
(Ну плюс еще есть мысль что нужно сначала сделать "как-то" а потом уже страдать оптимизаций .)
Зы
С таблицей был один из первых вариантов но я от него отказался .
( прокрутку тормозила на слабых машинах )
Главный недостаток мне видится в лишней возне с курсором
(Кажется что проще ? Взял и вывел в текущею позицию подчеркивание _ (Или что-то похожее)
Но "гладко было на бумаге да забыли про овраги".
Зы Зы
Но вернусь к VI . (по "Обработке стрелок" видно что ты уже проникся "идей VI" )
Вроде все что можно без модификации элемента получили .
Теперь можно буде озаботится пачем
Для начала заменить event(onPrint) на event("onEvent", data) по идее это должно
дать нормальное использование "штатной" исходящей точки ..


func doPrint:any
fvar(old)
old = block.select(BLK_PRIV_MTD)
println('function printCode(var data:TData):TData;')
block.select(BLK_MTD_BODY)
println('Var TD:TData;')//!
println('function ' + CUR_CLASS + '.printCode;')
println(code(_arr.join(Lines, "\r\n")))
block.select(BLK_UNITS)
print(',messages')
block.select(old)
println('TD:=printCode(data);')//!
event(onPrint,TD)//!
end

Гм почему-то не работает ...
Упрощенный вариант event(onPrint,printCode(data)) тоже
Компилирует запускается но на выходе пусто ...
event(onPrint,TD) генерирует _hi_onEvent(THIFTCG_Tools(FParent).Events[0])
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#65: 2014-12-23 16:32:34 ЛС | профиль | цитата
AlexKir писал(а):
С таблицей был один из первых вариантов но я от него отказался .
( прокрутку тормозила на слабых машинах )

hexeditor_n.rar
Вот собрал за полтора часа. Не вижу тормозов.
Навигация клавишами курсора и Home, P_Up, P_Down

------------ Дoбавленo в 16.32:
Если непонятно, как это работает, могу поделиться опытом.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1hexeditor_n.rar [40.8KB] [374]
Ответов: 963
Рейтинг: 12
#66: 2014-12-26 12:32:10 ЛС | профиль | цитата
Пока своих новых сборок Нeda не выкладываю Переделал все на верхние точки (вместо бубна с МТ) Но с этим уже и так все понятно...
( Стрелки кстати штатно работают . Т. е. при "упоре курсора" переключается на скрол )

Нижние точки пока не очень нужны .

Вообще интересно бы сделать "глобальный аналог" Vi без FTCG...

Зы
Кстати "Штатный" Hiasm на убунту поставил (Через Wine ясен пень ) ...

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#67: 2014-12-28 18:03:50 ЛС | профиль | цитата
Вот этот кубик
alexkir_4.png
решил так: code_34817.txt Хотя, если хорошо подумать и выбросить лишние яйца, то можно и так:
alexkir_7.png
Результат:
alexkir_5.png
AlexKir писал(а):
Кстати "Штатный" Hiasm на убунту поставил
У меня уже лет восемь стоит. Правда на Ubuntu 8.04
Более новые Ubuntu на мой ThinkPad не хотят ставать.
А вот так смотрится мой
alexkir_6.png
- 12 компонент и 104 строчки кода в IC (от implementation и до end. )

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 5alexkir_4.png [3.4KB] [688], code_34817.txt [7.2KB] [553], alexkir_5.png [103.3KB] [703], alexkir_6.png [82.8KB] [722], alexkir_7.png [14.4KB] [697]
Ответов: 963
Рейтинг: 12
#68: 2014-12-31 16:01:22 ЛС | профиль | цитата
С наступающим !
Да..."Я не гений, это выше моих человеческих сил." (с)Обыкновенное Чудо

Зы
А чем всеми хвалимая Ubuntu 10.04.4 LTS не угодила ?
(Вроде системные требования почти те-же... Все равно даже для срефинга в инете сейчас минимум 2-4 гига рамы нужно
несколько лет юзал нот с гигом ... это были мряки! )
Сейчас у меня Xubuntu 11.04(Кстати на и на старом ноте в вровень с ХР глюкала) задержалась но по "историческим" причинам типа "стоит и стоит" ...
(Но думаю рядом поставить что-то по свежей потому, что не обновляется уже и часть софта нового не ставится без "бубна" )

ЗЫ ЗЫ
И вообще сейчас даже глядя на "всеобщий кризис" купить приличную железку нет проблем ( Сестричке на день варения просто для интереса подарил летом Б/у планшет с 1гигом за 450-гривен(!) рядом были ноты за 2 с копейками тысячи с весьма "кудрявыми конфигурациями" 2 ядра минимум + приличное гафическое ядро + 2-4 гига DDR3 + 500-1000 гигов винта + оптика на любителя (В прочем это уже не очень актуально можно внешний dvd-rw юзать по необходимости ) ...




карма: 0

0
Ответов: 16884
Рейтинг: 1239
#69: 2015-01-04 17:27:45 ЛС | профиль | цитата
Сегодня дождь.
nhed_20et.rar
Немного подстриг (до 164-х компонент) и подключил клавиши PageUP, PageDown, Home, End.
AlexKir, осталось отключить курсор при достижении конца файла. (Выходит за пределы)
Заметил после загрузки схемы на сайт.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1nhed_20et.rar [8.3KB] [336]
Ответов: 963
Рейтинг: 12
#70: 2015-01-11 21:00:51 ЛС | профиль | цитата
"В Сантьяго идет дождь" ?
Вообще у меня где-то готовый редактор лежит на 38-кило (Ясен пень не мой и не на хайасме )
О нашел! hexed.zip
Так что работать еще есть над чем ...
Зы
Главное разумеется не столько размер (хотя и но впечатляет ) а набор функций в такой крохе (Под Дос-ю разумеется можно уложится еще круче ...)
Зы Зы
Интересно получится ли в FASMе сделать это счастье (то бишь "глюк") ещё меньше ?


карма: 0

0
файлы: 1hexed.zip [36.8KB] [321]
70
Сообщение
...
Прикрепленные файлы
(файлы не залиты)