HiAsm
HiAsm
Вверх ↑
ФорумыКуплюПродамКопирование и замена файлов ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#16: 2012-04-04 17:04:40 ЛС | профиль | цитата
tomas писал(а):
Пакет и так уже фактически заморожен.
Ну и что ? Нельзя использовать ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26068
Рейтинг: 2121
#17: 2012-04-04 17:09:34 ЛС | профиль | цитата
Tad писал(а):
Нельзя использовать ?

А кто сказал, что нельзя Пакет заморожен только для глобальных изменений и добавлений, требующих непомерных усилий в реализации. Мелкие правки и довески продолжаются дальше
карма: 22

1
Голосовали:foksov
Ответов: 1376
Рейтинг: 197
#18: 2012-04-04 17:17:33 ЛС | профиль | цитата
[offtop]
nesco писал(а):
Пакет заморожен
и тут собрались, так получается, отморозки... замороженные [/offtop]
карма: 1

1
Голосовали:Tad
Ответов: 273
Рейтинг: 29
#19: 2012-04-04 18:20:35 ЛС | профиль | цитата
хм... попробывал, а теперь возник еще 1 вопрос, я где-то видел что можно сделать запись или в реестр, или в файл ini чтобы запоминалась, какое значение было в последний раз установлено в чекбоксе.
Смотри внимательнее. Компоненты Файлы/ini и Система/registry. Примеры работы с ними есть в справке.
Будет какая-то другая программа? Или тот же хиасм, но версией 5? Тем более я ж должен, хоть где-то делать это, нет времени ждать 5 и изучать её
Будет HiAsm 5, с другим пакетом. Но тебе это скорее всего не важно - если ты зашил запуск программ в кнопки, значит твоя программа с жесткой логикой, а такие обычно не требуют поддержки - слишком просты.
карма: 0

0
Ответов: 1528
Рейтинг: 57
#20: 2012-04-05 05:06:37 ЛС | профиль | цитата
Ставил недавно HiAsm 5 под Mint12 x64, на вид среде не много изменений осталось, чтобы почти дорасти до HiAsm 4.
Но пока она бесполезна
карма: 0

0
Ответов: 18
Рейтинг: 2
#21: 2012-04-05 16:58:30 ЛС | профиль | цитата
Всё! Всем спасибо! Сделал свою программу до конца!
карма: 1

0
Ответов: 18
Рейтинг: 2
#22: 2012-09-02 15:54:58 ЛС | профиль | цитата
пришло время усовершенствовать программу подскажите плз как сделать, чтобы радио бутонс (3 шт у меня) сохраняли свои значения после перезапуска программы, т.е. чтобы одна из них(которую я выбрал перед перезапуском программы) была включена. к примеру нажал на первую радиобуттонс - запустилась программа, и эта радио сохранила свое значение. и в след раз когда я запустил прогу я видел какую радиобуттонс я запускал в прошлый раз.

примерный код 

Add(RadioButton,2461800,462,588)
{
 Left=70
 Top=320
 Height=15
 Color=12639424
 Ctl3D=0
 WinStyle=1
 Caption="0.1"
 link(onSelect,11542550:doExec,[(516,594)(516,601)])
}
Add(RadioButton,3273770,462,637)
{
 Left=70
 Top=335
 Height=15
 Color=12639424
 Ctl3D=0
 WinStyle=1
 Caption="0.01"
 link(onSelect,3407869:doExec,[])
}
Add(RadioButton,16320505,469,686)
{
 Left=70
 Top=350
 Height=15
 Color=12639424
 Ctl3D=0
 WinStyle=1
 Caption="0.001"
 link(onSelect,4956260:doExec,[(521,692)(521,685)])
}
Add(WinExec,11542550,539,595)
{
 FileName="здесь будет ссылка на прогу 1"
}
Add(WinExec,3407869,541,637)
{
 FileName="здесь будет ссылка на прогу 2"
}
Add(WinExec,4956260,541,679)
{
 FileName="здесь будет ссылка на прогу 3"
}
Add(Ini,157473,329,588)
{
 FileName="Диспетчер.ini"
 Section="radio"
 Key="1"
 link(onResult,2461800:doSelect,[])
 link(Value,2461800:Selected,[(356,576)(412,576)(412,632)(468,632)])
}
Add(Ini,14385204,322,644)
{
 FileName="Диспетчер.ini"
 Section="radio"
 Key="2"
 link(onResult,3273770:doSelect,[(408,650)(408,643)])
 link(Value,3273770:Selected,[(349,632)(409,632)(409,681)(468,681)])
}
Add(Ini,473160,329,700)
{
 FileName="Диспетчер.ini"
 Section="radio"
 Key="3"
 link(onResult,16320505:doSelect,[(446,706)(446,692)])
 link(Value,16320505:Selected,[(356,688)(416,688)(416,730)(475,730)])
}
карма: 1

0
Ответов: 1173
Рейтинг: 49
#23: 2012-09-02 16:07:42 ЛС | профиль | цитата
fastin, сохраняйте номер выбранного RadioButton в текстовый файл или в реестр.
------------ Дoбавленo в 16.07:
Например: 

Add(MainForm,2953706,154,147)
{
 Point(onClose)
 link(onCreate,7801565:doRead,[])
 link(onClose,7801565:doWrite,[])
}
Add(RadioButton,6847143,98,98)
{
 Left=85
 Top=40
 link(onSelect,12508086:doWork1,[])
}
Add(RadioButton,9138443,98,133)
{
 Left=85
 Top=65
 link(onSelect,12508086:doWork2,[(142,139)(142,111)])
}
Add(RadioButton,8886415,98,168)
{
 Left=85
 Top=90
 link(onSelect,12508086:doWork3,[(142,174)(142,118)])
}
Add(Registry,7801565,210,161)
{
 HKey=1
 Key="ExampleHiAsm"
 Value="Radio"
 DataType=0
 link(onRead,870013:doEvent,[(261,167)(261,84)(30,84)(30,104)])
 link(Data,4227145:Value,[])
}
Add(Memory,4227145,210,98)
{
}
Add(ChanelToIndex,12508086,154,98)
{
 Count=3
 link(onIndex,4227145:doValue,[])
}
Add(IndexToChanel,870013,42,98)
{
 Count=3
 link(onEvent1,6847143:doSelect,[])
 link(onEvent2,9138443:doSelect,[(86,111)(86,139)])
 link(onEvent3,8886415:doSelect,[(86,118)(86,174)])
}
карма: 0

1
Голосовали:fastin
Ответов: 18
Рейтинг: 2
#24: 2012-09-02 17:02:08 ЛС | профиль | цитата
попробую, отпишусь - пока нет возможности попробывать, но на первый взгляд то что надо. заранее спасибо
------------ Дoбавленo в 17.01:
дело в том, что у меня есть еще один чекбокс и каких их объединить? чтоб и радио работали и чекбокс...

Вот радио, которое у меня будет: 

Add(WinExec,11542550,511,574)
{
 FileName="mpLib1.exe"
}
Add(WinExec,3407869,513,686)
{
 FileName="ImpLib2.exe"
}
Add(WinExec,4956260,492,735)
{
 FileName="mpLib3.exe"
}
Add(RadioButton,6847143,448,623)
{
 Left=145
 Top=330
 Point(onMouseDown)
 link(onSelect,12508086:doWork1,[])
 link(onMouseDown,11542550:doExec,[(496,636)(496,580)])
}
Add(RadioButton,9138443,448,658)
{
 Left=145
 Top=355
 Point(onMouseDown)
 link(onSelect,12508086:doWork2,[(527,664)(527,636)])
 link(onMouseDown,3407869:doExec,[(496,671)(496,692)])
}
Add(RadioButton,8886415,448,693)
{
 Left=145
 Top=380
 Caption="3"
 Point(onMouseDown)
 link(onSelect,12508086:doWork3,[(527,699)(527,643)])
 link(onMouseDown,4956260:doExec,[(486,706)(486,741)])
}
Add(Registry,7801565,658,721)
{
 HKey=1
 Key="ExampleHiAsm"
 Value="Radio"
 DataType=0
 link(onRead,870013:doEvent,[(695,727)(695,609)(380,609)(380,629)])
 link(Data,4227145:Value,[(664,688)(643,688)])
}
Add(Memory,4227145,637,623)
{
}
Add(ChanelToIndex,12508086,574,623)
{
 Count=3
 link(onIndex,4227145:doValue,[])
}
Add(IndexToChanel,870013,392,623)
{
 Count=3
 link(onEvent1,6847143:doSelect,[])
 link(onEvent2,9138443:doSelect,[(436,636)(436,664)])
 link(onEvent3,8886415:doSelect,[(436,643)(436,699)])
}




Вот чек бокс который уже есть и работает так как мне надо: 





Add(MainForm,2953706,112,231)
{
 Width=361
 Height=457
 Color=12639424
 Ctl3D=0
 WinStyle=1
 Name="Диспетчер"
 Caption="Диспетчер"
 BorderStyle=4
 Icon=[ZIPBE0C000078DAEDD7BF4EC2501406F0D330B890B81937195D8D89838BCEF81E2EBE004EF635FA064D3A1A77E686910E0C243C80832303E9F56B0F684BEF3DE734C1888987F391D2F4FE6EFF51025184D76844783FA77448744644970856D13DF1FAAAE2211D615D8D836DDC40A8C74418EB9EDED0D2142A1EF277B832858A7BFD362E4DA1E2463F9DF7F09BB8C54FE73DFC3D5CF56BDCEA7771D9DFE126DF8B0B7E03D7FD101EF0E966D1C3177074326B758D73B7F0BDCD784BD5F7E10FCF8E9BA75070C10FE0AFEF6EB274D7C9760A050FF99D21D5AE5A7CCB3D1F1AA2FA962F6CF778BF7AEB979365E9F12D4F1B01FFF67DFB6F7954CAB8CF8FF9E6B13CE7553C99416BFAF8185B7E016D38EF2740E75C9EE756BC67FDFBBFEE1745F1A77DEFF2A1703EFF38842CCB0E7B08ACDDB6EB274ED15195AB6A45919B223182BF0B25B241D6C807B242A6084EC60039414E910BE40E79A9AE495C0F1FD47165209B88B3260E963F0191879286]
 Position=1
 Point(onClose)
 link(onCreate,10808718:doRead,[(156,251)(156,289)(58,289)(58,328)])
 link(onClose,8303512:doWork1,[(156,258)])
}
Add(CheckBox,12429361,154,322)
{
 Left=110
 Top=282
 Width=15
 Height=15
 Color=12639424
 Ctl3D=0
 Hint="Убрать подсказки"
 HintManager="Чекбокс"
 Caption="Отключить подсказки"
}
Add(Ini,10808718,70,322)
{
 FileName="Диспетчер.ini"
 Section="check"
 Key="1s"
 link(onResult,12429361:doCheck,[])
 link(Value,90035:Var2,[])
}
Add(GetDataEx,90035,91,301)
{
 link(Data,12429361:Checked,[(97,295)(129,295)(129,373)(160,373)])
}
Add(HubEx,8303512,152,287)
{
 Angle=1
 link(onEvent,10808718:doWrite,[(179,300)(58,300)(58,335)])
}
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#25: 2012-09-02 17:19:45 правка | ЛС | профиль | цитата


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

0
Ответов: 18
Рейтинг: 2
#26: 2012-09-02 21:40:51 ЛС | профиль | цитата
г. ость писал(а):
fastin,
code_28938.txt


но значения не сохраняются таким способом.
------------ Дoбавленo в 21.40:
я бы хотел, что то на подобии вот этого, но проблема в том, что сохраняется значение только одно. а мне надо чтобы чекбокс и радио работали независимо другу от друга, чтобы к примеру галочка стояла как и на чекбоксе, так и на каком либо из радио буттон. вот код: 


Add(CheckBox,12429361,469,791)
{
 Left=110
 Top=282
 Width=15
 Height=15
 Color=12639424
 Ctl3D=0
 Hint="Убрать подсказки"
 HintManager="Чекбокс"
 Caption="Отключить подсказки"
 link(onCheck,12508086:doWork4,[(548,797)(548,664)])
}
Add(WinExec,11542550,532,588)
{
 FileName="ImpLib1.exe"
}
Add(WinExec,3407869,534,700)
{
 FileName="ImpLib2.exe"
}
Add(WinExec,4956260,513,749)
{
 FileName="mpLib3.exe"
}
Add(MainForm,4531784,602,819)
{
 Height=457
 Point(onClose)
 link(onCreate,7801565:doRead,[(656,839)(656,741)])
 link(onClose,7801565:doWrite,[(656,846)(656,748)])
}
Add(RadioButton,6847143,469,637)
{
 Left=145
 Top=330
 Point(onMouseDown)
 link(onSelect,12508086:doWork1,[])
 link(onMouseDown,11542550:doExec,[(517,650)(517,594)])
}
Add(RadioButton,9138443,469,672)
{
 Left=145
 Top=355
 Point(onMouseDown)
 link(onSelect,12508086:doWork2,[(548,678)(548,650)])
 link(onMouseDown,3407869:doExec,[(517,685)(517,706)])
}
Add(RadioButton,8886415,469,707)
{
 Left=145
 Top=380
 Caption="3"
 Point(onMouseDown)
 link(onSelect,12508086:doWork3,[(548,713)(548,657)])
 link(onMouseDown,4956260:doExec,[(507,720)(507,755)])
}
Add(Registry,7801565,679,735)
{
 HKey=1
 Key="ExampleHiAsm"
 Value="Radio"
 DataType=0
 link(onRead,870013:doEvent,[(716,741)(716,623)(401,623)(401,643)])
 link(Data,4227145:Value,[(685,702)(664,702)])
}
Add(Memory,4227145,658,637)
{
}
Add(ChanelToIndex,12508086,595,637)
{
 Count=4
 link(onIndex,4227145:doValue,[])
}
Add(IndexToChanel,870013,413,637)
{
 Count=4
 link(onEvent1,6847143:doSelect,[])
 link(onEvent2,9138443:doSelect,[(457,650)(457,678)])
 link(onEvent3,8886415:doSelect,[(457,657)(457,713)])
 link(onEvent4,12429361:doCheck,[(457,664)(457,797)])
}
карма: 1

0
Ответов: 1173
Рейтинг: 49
#27: 2012-09-02 21:46:24 ЛС | профиль | цитата
fastin,
code_28946.txt
карма: 0

0
файлы: 1code_28946.txt [2.3KB] [369]
Ответов: 18
Рейтинг: 2
#28: 2012-09-03 00:40:59 ЛС | профиль | цитата
супер...все работает... пока буду тестировать, если что-то не так отпишусь...
карма: 1

0
Ответов: 18
Рейтинг: 2
#29: 2012-09-08 22:14:36 ЛС | профиль | цитата
Обнаружил глюк Смысл в том, что на одном ПК у меня нормально включаются радиобуттоны, но на другом, чтобы включить какую-либо из радио-кнопок надо по ней нажать быстро раз так 10. В чем может быть проблема?
Вот код подпрограммки:

code_29016.txt



карма: 1

0
файлы: 1code_29016.txt [16.9KB] [493]
Ответов: 1731
Рейтинг: 68
#30: 2012-09-08 22:17:31 ЛС | профиль | цитата
fastin, это только у вас.
карма: 1

0
ФорумыКуплюПродамКопирование и замена файлов ← Ctrl123Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2020
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика