Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#106: 2016-07-16 09:17:51 ЛС | профиль | цитата
DavarSim писал(а):
необходимоо использовать МТ поток
И кто это сказал?
code_37460.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1code_37460.txt [2.6KB] [629]
Голосовали:DavarSim
Ответов: 9906
Рейтинг: 351
#107: 2016-07-16 10:39:39 ЛС | профиль | цитата
Tad, где твоя щепетильность к использованию элементов - не пойму
Проще же все:
Add(MainForm,11111470,224,371)
{
Width=340
Height=183
Color=0
BorderStyle=1
Position=1
link(onCreate,9791521:doWork3,[(340,391)])
}
Add(LedNumber,13418040,490,315)
{
Left=25
Top=60
Width=296
Height=55
Point(doText)
}
Add(Timer,4119695,224,315)
{
link(onTimer,9957452:doData,[])
}
Add(DateConvertor,8254102,434,315)
{
Mode=16
Format="HH:mm:ss"
link(onResult,13418040:doText,[])
}
Add(Button,12568561,224,252)
{
Left=35
Top=27
Width=70
Font=[MS Sans Serif,12,1,0,1]
TabOrder=-1
Caption="+"
Data=Integer(3600)
link(onClick,11898241:doWork2,[])
}
Add(Button,15903809,280,266)
{
Left=35
Top=125
Width=70
Font=[MS Sans Serif,12,1,0,1]
TabOrder=-1
Caption="-"
Data=Integer(-3600)
link(onClick,12271839:doWork2,[])
}
Add(Button,7236723,224,203)
{
Left=140
Top=27
Width=70
Font=[MS Sans Serif,12,1,0,1]
TabOrder=-1
Caption="+"
Data=Integer(60)
link(onClick,8789468:doWork2,[])
}
Add(Button,15217311,280,217)
{
Left=140
Top=125
Width=70
Font=[MS Sans Serif,12,1,0,1]
TabOrder=-1
Caption="-"
Data=Integer(-60)
link(onClick,14715276:doWork2,[])
}
Add(Button,14875521,224,147)
{
Left=250
Top=27
Width=70
Font=[MS Sans Serif,12,1,0,1]
TabOrder=-1
Caption="+"
Data=Integer(1)
link(onClick,16066576:doWork1,[(340,153)])
}
Add(Button,9734654,280,161)
{
Left=248
Top=125
Width=70
Font=[MS Sans Serif,12,1,0,1]
TabOrder=-1
Caption="-"
Data=Integer(-1)
link(onClick,16066576:doWork2,[])
}
Add(DoData,9957452,280,315)
{
Data=Integer(1)
link(onEventData,9791521:doWork2,[])
}
Add(Math,6347343,371,315)
{
link(onResult,8254102:doConvert,[])
link(Op1,6347343:Result,[(377,306)(363,306)(363,355)(377,355)])
}
Add(HubEx,9791521,336,315)
{
link(onEvent,6347343:doOperation,[])
}
Add(HubEx,16066576,336,161)
{
Angle=1
link(onEvent,8789468:doWork1,[])
}
Add(HubEx,8789468,336,203)
{
Angle=1
link(onEvent,14715276:doWork1,[])
}
Add(HubEx,14715276,336,217)
{
Angle=1
link(onEvent,11898241:doWork1,[])
}
Add(HubEx,11898241,336,252)
{
Angle=1
link(onEvent,12271839:doWork1,[])
}
Add(HubEx,12271839,336,266)
{
Angle=1
link(onEvent,9791521:doWork1,[])
}


карма: 9

2
Голосовали:Tad, DavarSim
Ответов: 16884
Рейтинг: 1239
#108: 2016-07-16 11:34:38 ЛС | профиль | цитата
Слов оправдания нет.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9
Рейтинг: 0
#109: 2016-07-19 20:47:27 ЛС | профиль | цитата
Еще один вопрос от начинающего
время включения и время выключения кнопки должно отображаться в таблице:code_37477.txt
Как отобразить время включения в столбец On, а затем фактическое время выключения в столбце Off?
карма: 0

0
файлы: 1code_37477.txt [874B] [427]
Ответов: 16884
Рейтинг: 1239
#110: 2016-07-19 21:49:10 ЛС | профиль | цитата
Так ? code_37478.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_37478.txt [1.2KB] [536]
Ответов: 9
Рейтинг: 0
#111: 2016-07-19 21:54:22 ЛС | профиль | цитата
Tad, Да так, благодарю
карма: 0

0
Ответов: 146
Рейтинг: 1
#112: 2016-11-12 11:03:43 ЛС | профиль | цитата
У меня вопрос для начинающих!!!)
Как можно связать программы на HiASM c программой написанной на языке python 3?


Интерфейсную часть хочу написать на HiASM, а расчеты написать на Python.
Мне кажется для меня это будет крайне удобно..

Редактировалось 1 раз(а), последний 2016-11-12 11:08:26
карма: 0

0
Ответов: 2059
Рейтинг: 131
#113: 2016-11-12 16:26:50 ЛС | профиль | цитата
legandox писал(а):
У меня вопрос для начинающих!!!)

Полагаю, что ответ известен.
Что это, экзамен, викторина?
Почему такая дискриминация?

Будь скромнее, и народ к тебе потянется!
карма: 6

1
Голосовали:Nickname
Ответов: 37
Рейтинг: 0
#114: 2017-02-21 06:30:49 ЛС | профиль | цитата
Здравствуйте.
Такой вопрос: при подгрузке каждой новой картинки в программку, объем расходуемой оперативной памяти в системе увеличивается.
Не могу понять, как заставить выгрузить предыдущие данные (картинки)и очистить память.
Пример (собственно, из папки \HiAsm\elements\delphi\example\Image\ImageView.sha) прилагаю.


Add(MainForm,41807,56,224)
{
Left=310
Top=259
Width=405
Height=263
Caption="Picture viewer"
BorderStyle=3
TaskBar=1
}
Add(HubEx,10449354,280,98)
{
link(onEvent,71505:doLoad,[])
}
Add(DropFile,97222,119,154)
{
link(onDropFile,16714778:doWork3,[(172,160)])
}
Add(Button,6334,56,91)
{
Left=10
Top=10
Width=75
Font=[Arial,8,0,0,1]
TabOrder=-1
Caption="Open"
link(onClick,5049552:doExecute,[])
}
Add(ImageLoader,4434340,203,91)
{
DrawSource=2
link(onLoad,4434340:doDraw,[(247,97)(247,75)(191,75)(191,104)])
link(onDraw,10449354:doWork2,[])
}
Add(InfoTip,72034,49,7)
{
Info=#17:Просмотр картинок|
Font=[Times New Roman,16,1,0,1]
Frame=1
Width=302
Height=25
}
Add(ODialog,5049552,119,91)
{
Filter="*.bmp|*.bmp"
link(onExecute,16714778:doWork2,[])
}
Add(ClipboardHook,92140,203,154)
{
link(onBitmap,10449354:doWork3,[(284,167)])
}
Add(Image,71505,350,98)
{
Left=105
Top=10
Width=285
Height=210
Color=16777215
}
Add(InfoTip,89592,42,49)
{
Info=#11:Из файла...|
Font=[Times New Roman,9,0,0,1]
Width=288
Height=214
}
Add(InfoTip,22169,49,70)
{
Info=#10:выбранного|
Font=[Times New Roman,9,0,0,1]
Width=113
Height=67
}
Add(InfoTip,64047,49,140)
{
Info=#19:брошенного на форму|
Font=[Times New Roman,9,0,0,1]
VAlign=2
Width=134
Height=74
}
Add(InfoTip,85395,189,140)
{
Info=#16:Из буфера обмена|
Font=[Times New Roman,9,0,0,1]
VAlign=2
HAlign=2
Width=127
Height=74
}
Add(HubEx,16714778,168,91)
{
link(onEvent,4434340:doLoad,[])
}

карма: 0

0
Ответов: 4621
Рейтинг: 746
#115: 2017-02-21 13:10:50 ЛС | профиль | цитата
Fangir писал(а):
объем расходуемой оперативной памяти в системе увеличивается
Увеличивается как? Постоянно растет? У меня вырастает суммарно примерно на 2 размера последней загруженной картинки. В текущей реализации, по-моему, так и должно быть: в ImageLoader метода doClear нет, поэтому он хранит последнюю загруженную картинку до конца. Кроме того, после отрисовки картинки на Image она тоже размещается где-то в памяти.
карма: 26

0
Ответов: 37
Рейтинг: 0
#116: 2017-02-21 17:18:02 ЛС | профиль | цитата
Netspirit писал(а):
Увеличивается как? Постоянно растет? У меня вырастает суммарно примерно на 2 размера последней загруженной картинки.

Все верно. Та же картина.

Netspirit писал(а):
в ImageLoader метода doClear нет, поэтому он хранит последнюю загруженную картинку до конца. Кроме того, после отрисовки картинки на Image она тоже размещается где-то в памяти.

Вас понял. Спасибо за ответ.

Редактировалось 1 раз(а), последний 2017-02-21 17:19:19
карма: 0

0
Ответов: 47
Рейтинг: 0
#117: 2017-04-10 12:16:39 ЛС | профиль | цитата
Здравствуйте! Нужна помощь! Не получается создать программу чтобы она отслеживала создание нового файла в сетевой папке и выдавала сообщение с именем этого файла. Пытаюсь разобраться с командой FileSearch но не могу заставить её выдать мне имя последнего файла. В программирование совсем новичок.
карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#118: 2017-04-10 12:33:23 ЛС | профиль | цитата
SaturN26 писал(а):
Не получается создать программу чтобы она отслеживала создание нового файла в сетевой папке

А вот это не поможет -- DirectoryChanges. Или нужно на другом компе отслеживать?

Редактировалось 1 раз(а), последний 2017-04-10 12:34:31
карма: 22

0
Ответов: 47
Рейтинг: 0
#119: 2017-04-10 13:10:32 ЛС | профиль | цитата
Спасибо вроде оно самое, а с помощью какой команды можно отфильтровать получаемые данные, в той папке которую я мониторю создаются три типа файлов и нужно чтобы выводился на экран только один из трех типов. Заранее спасибо

--- Добавлено в 2017-04-10 14:01:12

Вроде нашел. команда StrMask

Редактировалось 1 раз(а), последний 2017-04-10 14:01:12
карма: 0

0
Ответов: 47
Рейтинг: 0
#120: 2017-04-10 15:57:17 ЛС | профиль | цитата
А как использовать команду FileSearch поиска последнего созданного файла?
карма: 0

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