Вверх ↑
Этот топик читают: Гость
Ответов: 758
Рейтинг: 112
#61: 2011-09-14 15:20:01 ЛС | профиль | цитата
CriDos писал(а):
вот мой вариант hiMainForm.hws и hiButtonGadget.hws
У меня простая форма не запускается
Судя по коду отступов у тебя нет

Кстати посмотри ссылку PureBasic 4.51 (Windows, Linux, MacOS X) + учебники и библиотеки + Portable [burl=http://rutracker.org/forum/viewtopic.php?t=3232116]Тут[/burl] файл (t3232116.rar)
карма: 1

0
файлы: 1t3232116.rar [21.1KB] [342]
Ответов: 1841
Рейтинг: 369
#62: 2011-09-14 17:31:52 ЛС | профиль | цитата
miver писал(а):
Кстати посмотри ссылку PureBasic 4.51 (Windows, Linux, MacOS X) + учебники и библиотеки + Portable Тут файл

да, качал именно оттуда
miver писал(а):
У меня простая форма не запускается

возможно из-за того что я изменил некоторые названия свойств в том числе и Caption на WindowsTitle...
------------ Дoбавленo в 17.31:
сегодня после добавления элемента StringGadget и попытки реализовать событие onChange понял что очень многое реализовал не верно и пришлось всё пересмотреть.
Теперь на примере элементов ButtonGadget(onClick) и StringGadget(onChange) подключённых к элементу MessageRequester(doMessage) формируется такой код:

OpenWindow(0,0,0,390,261,"Form",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered)
ButtonGadget(1,215,90,55,20,"Push",#PB_Button_MultiLine)
StringGadget(3,220,130,55,20,"")


Repeat : Event = WaitWindowEvent() : Select Event
Case #PB_Event_CloseWindow : End

Case #PB_Event_Gadget
Select EventGadget()
Case 1
MessageRequester("","",#MB_OK)
Case 3
If EventType() = #PB_EventType_Change
MessageRequester("","",#MB_OK)
EndIf
EndSelect

EndSelect : ForEver
Вот что получаем при отключении выше указанных визуальных элемента от MessageRequester.


OpenWindow(0,0,0,390,261,"Form",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered)
ButtonGadget(1,215,90,55,20,"Push",#PB_Button_MultiLine)
StringGadget(2,220,130,55,20,"")


Repeat : Event = WaitWindowEvent() : Select Event
Case #PB_Event_CloseWindow : End


EndSelect : ForEver
карма: 1
0
Ответов: 758
Рейтинг: 112
#63: 2011-09-14 18:20:33 ЛС | профиль | цитата
textgadget.rar
Вот моя недоделанная разработка текстового поля - наработает верхняя и нижняя точки
карма: 1

0
файлы: 1textgadget.rar [1.8KB] [325]
Ответов: 4641
Рейтинг: 334
#64: 2011-09-14 19:25:49 ЛС | профиль | цитата
[offtop]
CriDos писал(а):
понял что очень многое реализовал не верно и пришлось всё пересмотреть.
главное вовремя заметить и устранить. Легче переделать 7 раз в самом начале, чем 7 раз в конце.[/offtop]

карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 758
Рейтинг: 112
#65: 2011-10-11 19:00:18 ЛС | профиль | цитата
Добавил несколько компонент purebasic_2.rar
И возникло куча вопросов
1. Почему в схеме

Add(MainForm,2953706,140,77)
{
Width=256
Height=163
SizeGadget=0
Point(doCaption)
}
Add(ButtonGadget,16306676,140,119)
{
Left=30
Top=40
link(onClick,8882311:doMessage,[])
}
Add(StringGadget,5026203,189,77)
{
Left=100
Top=40
Point(Text)
}
Add(MessageRequester,8882311,189,119)
{
link(Message,5026203:Text,[])
}
в StringGadget удаляется текст по умолчанию
2. как можно вставить в кодогенератор свой тип данных для функции typeof, а то никак не магу указать тип данных из верхней точки правильно

Add(MainForm,2953706,140,77)
{
Width=256
Height=163
SizeGadget=0
Point(doCaption)
}
Add(ButtonGadget,16306676,140,119)
{
Left=30
Top=40
link(onClick,8882311:doMessage,[])
}
Add(MessageRequester,8882311,189,119)
{
link(Message,16227857:Checked,[])
}
Add(CheckBoxGadget,16227857,189,77)
{
Left=200
Top=75
}
карма: 1

0
файлы: 1purebasic_2.rar [30.4KB] [407]
Ответов: 758
Рейтинг: 112
#66: 2011-11-03 19:42:14 ЛС | профиль | цитата
Итак. После долгих мучений переделал полностью логику построения элементов.
Выкладываю очередные промежуточные итоги, если у кого-то есть желание помочь в доработке или хотя бы в тестировании - милости просим
purebasic_7.rar
Скажу что точно не работает
ChildPanelGadget - не знаю как сделать на основе EditPolyMulti
Random - сейчас в разработке

карма: 1

1
файлы: 1purebasic_7.rar [72.5KB] [433]
Голосовали:CriDos
Гость
Ответов: 17029
Рейтинг: 0
#67: 2012-07-09 15:28:14 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2021-05-21 06:45:56
карма: 0

0
Ответов: 758
Рейтинг: 112
#68: 2012-07-09 15:51:28 ЛС | профиль | цитата
178.124.226.53 писал(а):
Как устанавливать?

1 скачать
2 поместить в папку HiAsmElements
3 перетащить PureBasic.his на поле HiAsm
4 перегрузить HiAsm
карма: 1

0
Ответов: 1841
Рейтинг: 369
#69: 2012-07-09 16:21:16 ЛС | профиль | цитата
Я как вспомню, с чего я начинал и как всё казалось простым...
Теперь перед тем как добавить что-либо в пакет, приходится отлаживать каждую реализацию на отдельно выделенной под тесты сборке, + продумать все возможные варианты работы реализации, дабы избежать множества проблем при реализации остального функционала...
Уже раза 4 полностью перерабатываю пакет, после 4 раза разбил пакет на множество стадий, и теперь прежде чем реализовать что-то, нужно проработать все возможные ситуации и возможные оптимизации с возможностью расширения или интеграции этой реализации а так-же возможных комбинаций...
В общем - жесть
карма: 1
2
Голосовали:foksov, login
Ответов: 952
Рейтинг: 4
#70: 2012-07-17 15:24:59 ЛС | профиль | цитата
miver,
Спасибо.

Эххх еще бы конвертер в РВ Так и не могу разобраться как написать "обычную" длл. На HiAsm написал прогу без интерфейса, приходится пользовать её, так как забравшись в РВ (не в пакет хиасма а именно в РВ), так нихрена и не понял как там что писать. Я технарь, но до программирования в блокноте мне далеко.
карма: 0

0
Ответов: 216
Рейтинг: -4
#71: 2013-03-17 23:57:23 ЛС | профиль | цитата
CriDos, miver, вы почему забросили пакет, не стоящее дело, или что то не получилось сделать?
карма: 0

0
Ответов: 1841
Рейтинг: 369
#72: 2013-03-18 10:42:57 ЛС | профиль | цитата
mestnyi,
mestnyi писал(а):
не стоящее дело

Вот если допилят работу с динамическими объектами и обработку событий от динамически созданных объектов, тогда возможно я продолжу работать с этим ЯП...
карма: 1
0
Ответов: 758
Рейтинг: 112
#73: 2013-03-18 11:12:41 ЛС | профиль | цитата
mestnyi писал(а):
CriDos, miver, вы почему забросили пакет, не стоящее дело, или что то не получилось сделать?

Лично я переключился на пакет FreeBasic в виду его бесплатности
Причем попутно для себя изучаю WinApi. И соответственно весь пакет делаю с использованием только WinApi
карма: 1

0
Ответов: 1841
Рейтинг: 369
#74: 2013-03-18 11:32:55 ЛС | профиль | цитата
miver писал(а):
FreeBasic

Эх, а я пытался пару раз привыкнуть к его синтаксису и логике... и ни как
В итоге остановился на GCC C++.
Я даже и не ожидал что он окажется таким удобным в рамках построения пакета.
карма: 1
0
Ответов: 216
Рейтинг: -4
#75: 2013-03-18 22:35:45 ЛС | профиль | цитата
CriDos, вот эту строку можешь по отдельности объяснить, что есть что? "print('ButtonGadget(',code(_id_),',',Left,',',Top,',',Width,',',Height,',',Caption)"
карма: 0

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