Вверх ↑
Этот топик читают: Гость
Ответов: 632
Рейтинг: 4
#1: 2017-08-28 00:11:50 ЛС | профиль | цитата
Делаю Конструктор.
Предлагаю дополнять и усовершенствовать, если есть идеи программу!
nesco, огромное спасибо!
Программа_скриншот_1
Программа_скриншот_2
Add(MainForm,2953706,21,105)
{
Width=515
Height=410
Caption="Конструктор"
Position=1
Point(MouseX)
Point(MouseY)
}
Add(ChildPanelEx,12369722,399,238)
{
link(Text,1602845:Var,[])
link(Data,7595319:Var,[])
link(Data1,16646957:Var,[])
link(onEvent3,5404764:doValue,[(450,244)(450,237)])
}
BEGIN_SDK
Add(EditMultiEx,12053970,21,21)
{
WorkCount=#5:##add|6:doFont|7:doValue|8:##delete|0:|
EventCount=#8:onEvent3|6:onTrue|
VarCount=#7:##index|0:|
DataCount=#4:Text|4:Data|5:Data1|
Width=727
Height=557
Point(##add)
Point(##index)
Point(##delete)
link(##add,11801042:doEvent1,[(45,27)(45,34)])
link(doFont,8999683:doEvent1,[(35,34)(35,90)])
link(doValue,8266138:In,[])
}
Add(Panel,15398510,679,63)
{
Width=41
Height=17
Visible=1
BevelInner=0
Point(doLeft)
Point(doTop)
Point(doVisible)
Point(doWidth)
Point(doHeight)
}
Add(Label,873544,35,273)
{
Left=1
Top=1
Width=152
Height=20
Transparent=0
Point(onMouseDown)
Point(onMouseUp)
Point(doFont)
Point(Width)
Point(Height)
link(Text,9352168:Var,[])
link(onMouseDown,13736766:doEvent1,[(65,286)(65,272)])
}
Add(Hub,14025945,532,70)
{
link(onEvent1,8525234:doOperation,[(560,76)(560,62)])
link(onEvent2,1649586:doOperation,[(556,83)(556,132)])
}
Add(Timer,4535616,140,483)
{
Interval=10
link(onTimer,2495984:doEvent,[(191,489)(191,482)])
}
Add(ChanelToIndex,4282427,154,273)
{
link(onIndex,14104454:doValue,[])
}
Add(Memory,14104454,203,273)
{
}
Add(IndexToChanel,2495984,217,476)
{
Point(Index)
link(onEvent2,4629554:In,[])
link(Index,16275295:Var,[])
}
Add(Switch,3786696,98,266)
{
Point(onOn)
Point(onOff)
link(onOn,4282427:doWork2,[(152,279)(152,286)])
link(onOff,4282427:doWork1,[(152,286)(152,279)])
}
Add(Hub,11801042,126,28)
{
link(onEvent1,3445501:In,[(147,34)(147,20)])
link(onEvent2,8720645:In,[(147,41)(147,48)])
}
Add(LineBreak,6008261,-28,238)
{
link(Out,36119:doEvent1,[(4,244)(4,251)])
Primary=[8720645,182,-196]
}
Add(LineBreak,11126471,-7,280)
{
link(Out,873544:doFont,[])
Primary=[10803367,84,-195]
}
Add(LineBreak,8439332,21,70)
{
Type=1
link(Data,12053970:Text,[])
Primary=[9352168,14,175]
}
Add(LineBreak,16455916,483,70)
{
link(Out,14025945:doEvent1,[])
Primary=[4629554,-224,413]
}
Add(LineBreak,13980066,35,56)
{
Type=1
link(Data,12053970:Data1,[])
Primary=[575698,532,35]
}
Add(LineBreak,4180766,28,63)
{
Type=1
link(Data,12053970:Data,[])
Primary=[2870361,539,-35]
}
Add(LineBreak,2789484,616,77)
{
link(Out,15398510:doVisible,[(662,83)(662,90)])
Primary=[3445501,-462,-63]
}
Add(DoData,14762488,313,99)
{
link(onEventData,16317259:In,[])
link(Data,4454375:Var,[(319,70)(327,70)])
}
Add(DoData,4850090,320,134)
{
link(onEventData,6630991:In,[])
link(Data,904747:Var,[(326,87)(347,87)])
}
Add(LineBreak,11398636,42,315)
{
Type=1
link(Data,873544:Width,[])
Primary=[4454375,279,-287]
}
Add(LineBreak,15604251,49,315)
{
Type=1
link(Data,873544:Height,[])
Primary=[904747,292,-287]
}
Add(LineBreak,16149712,623,91)
{
link(Out,15398510:doWidth,[])
Primary=[16317259,-261,8]
}
Add(LineBreak,3290941,623,98)
{
link(Out,15398510:doHeight,[])
Primary=[6630991,-261,36]
}
Add(Hub,12811045,285,113)
{
InCount=3
link(onEvent1,14762488:doData,[(309,119)(309,105)])
link(onEvent2,4850090:doData,[(309,126)(309,140)])
}
Add(Hub,8999683,49,84)
{
link(onEvent1,10803367:In,[(70,90)(70,91)])
link(onEvent2,15691775:In,[(70,97)(70,98)])
}
Add(LineBreak,2297116,243,113)
{
link(Out,12811045:doEvent1,[])
Primary=[15691775,-166,-21]
}
Add(Math,1649586,567,126)
{
OpType=1
Op2=10
link(onResult,15398510:doTop,[(632,132)(632,83)])
link(Op1,575698:Var,[])
}
Add(Math,8525234,567,56)
{
OpType=1
Op2=10
link(onResult,15398510:doLeft,[(639,62)(639,76)])
link(Op1,2870361:Var,[])
}
Add(Hub,36119,7,245)
{
link(onEvent1,873544:doText,[(28,251)(28,279)])
link(onEvent2,1699076:In,[])
}
Add(LineBreak,250732,243,120)
{
link(Out,12811045:doEvent2,[])
Primary=[1699076,-208,132]
}
Add(Timer,4818247,208,127)
{
link(onTimer,12811045:doEvent3,[])
}
Add(Memory,10114122,419,35)
{
}
Add(LineBreak,13947846,412,84)
{
Type=1
link(Data,10114122:Value,[(418,76)(425,76)])
Primary=[489683,-251,224]
}
Add(LineBreak,5478945,377,35)
{
link(Out,10114122:doValue,[])
Primary=[8266138,-342,0]
}
Add(LineBreak,9372771,707,21)
{
link(Out,12053970:onEvent3,[])
Primary=[12666294,-490,315]
}
Add(Case,7587786,91,336)
{
Value=Integer(1)
link(onTrue,4755597:doData,[])
}
Add(DoData,4755597,168,343)
{
link(onEventData,12666294:In,[(208,349)(208,342)])
link(Data,489683:Var,[(174,329)(167,329)])
}
Add(Hub,13736766,70,266)
{
link(onEvent1,3786696:doSwitch,[])
link(onEvent2,7587786:doCase,[(90,295)(96,295)(88,299)(88,311)(65,311)(65,342)])
}
Add(LineBreak,11942921,203,322)
{
Type=1
link(Data,14104454:Value,[])
Primary=[16275295,14,126]
}
END_SDK
Add(ChildForm,14597080,273,238)
{
link(onEvent1,12369722:##add,[])
link(onEvent2,12369722:doFont,[])
link(Data1,16201323:Var,[])
link(onEvent3,12369722:doValue,[])
}
BEGIN_SDK
Add(EditMulti,6499408,21,21)
{
EventCount=3
WorkCount=1
DataCount=1
VarCount=1
Width=524
Height=480
link(Var1,3273501:Text,[(27,466)(48,466)])
link(doWork1,1213551:doEvent1,[(25,27)(25,62)])
}
Add(MainForm,4633168,49,105)
{
Left=35
Top=105
Height=194
Visible=1
Caption="Названия"
BorderStyle=3
Position=1
Point(doVisible)
}
Add(Label,2561299,126,105)
{
Left=40
Top=20
Width=117
Height=17
Caption="Названия придумаете"
}
Add(Edit,3273501,42,399)
{
Left=15
Top=55
Width=365
Text=""
}
Add(Button,2062532,42,182)
{
Left=15
Top=105
Width=360
Caption="Добавить"
Data=Integer(1)
link(onClick,16377333:doEvent1,[(100,188)(100,195)])
}
Add(Button,4473452,168,35)
{
Left=30
Top=80
Width=345
Caption="Шрифт"
Point(doVisible)
link(onClick,15440089:doFont,[(216,41)(216,55)])
}
Add(Font,15440089,231,49)
{
FontDialog=0
link(onFont,14255482:In,[])
}
Add(Hub,1213551,28,56)
{
link(onEvent1,6634197:In,[])
link(onEvent2,8918946:doWork1,[(80,69)(80,62)])
}
Add(ChanelToIndex,8918946,119,56)
{
link(onIndex,4473452:doVisible,[(159,62)(159,41)])
}
Add(Hub,16377333,105,189)
{
OutCount=3
link(onEvent1,4243004:In,[])
link(onEvent2,13384342:In,[])
link(onEvent3,3799660:doData,[(123,209)(123,244)])
}
Add(DoData,3799660,126,238)
{
link(onEventData,720696:In,[])
link(Data,4588607:Var,[])
}
Add(LineBreak,84659,504,28)
{
link(Out,6499408:onEvent2,[])
Primary=[14255482,-231,21]
}
Add(LineBreak,3172055,497,21)
{
link(Out,6499408:onEvent1,[])
Primary=[13384342,-364,175]
}
Add(LineBreak,8939518,21,35)
{
Type=1
link(Data,6499408:Data1,[])
Primary=[4588607,105,175]
}
Add(LineBreak,6844165,84,70)
{
link(Out,8918946:doWork2,[(116,76)(116,69)])
Primary=[4243004,49,119]
}
Add(LineBreak,14056794,-7,133)
{
link(Out,4633168:doVisible,[])
Primary=[6634197,63,-77]
}
Add(LineBreak,10461922,504,42)
{
link(Out,6499408:onEvent3,[(540,48)(540,41)])
Primary=[720696,-336,196]
}
END_SDK
Add(DoData,7262796,203,238)
{
link(onEventData,14597080:doWork1,[])
}
Add(ChildForm,2197994,154,238)
{
link(onEvent1,7262796:doData,[])
}
BEGIN_SDK
Add(EditMulti,14411815,21,21)
{
EventCount=1
}
Add(MainForm,3906695,35,105)
{
Left=35
Top=105
Width=315
Height=343
Caption="Набор"
BorderStyle=1
Position=1
}
Add(Label,7065613,280,28)
{
Left=25
Top=20
Caption="Надпись"
link(onClick,14411815:onEvent1,[(316,34)(316,27)])
}
END_SDK
Add(LineBreak,15419317,21,154)
{
Type=1
link(Data,2953706:MouseX,[])
Primary=[7595319,385,28]
}
Add(LineBreak,15648665,28,154)
{
Type=1
link(Data,2953706:MouseY,[])
Primary=[16646957,385,28]
}
Add(LineBreak,6659491,273,280)
{
Type=1
link(Data,14597080:Var1,[])
Primary=[1602845,126,-119]
}
Add(LineBreak,1617607,392,308)
{
Type=1
link(Data,12369722:##index,[(398,281)(405,281)])
Primary=[16201323,-119,-98]
}
Add(LineBreak,7761296,406,308)
{
Type=1
Primary=[4021211,14,-126]
}
Add(LineBreak,16278235,350,259)
{
link(Out,12369722:##delete,[])
Primary=[10979263,189,21]
}
Add(Memory,5404764,469,231)
{
link(onData,6370296:doTimer,[(513,237)(513,261)(436,261)(436,286)])
}
Add(Timer,6370296,448,280)
{
Interval=100
Enable=1
AutoStop=1
link(onTimer,11865916:doData,[])
}
Add(DoData,11865916,490,280)
{
link(onEventData,10979263:In,[])
link(Data,5404764:Value,[(496,272)(475,272)])
}


Редактировалось 3 раз(а), последний 2017-08-28 01:14:52
карма: 0

0
Разработчик
Ответов: 26113
Рейтинг: 2126
#2: 2017-08-28 00:50:07 ЛС | профиль | цитата
Vadimluk1 писал(а):
Опыта пользоваться, Child PanelEx нет, поэтому не знаю, как удалять надпись. Когда пытаюсь на правую кнопку мыши, нажимаю удалить надпись, появляется сообщения "Self destruction is not allowed!!!" по русскому "Самоуничтожение не позволено!!!"

На входы ##delete и ##clear таймеры с 0-й задержкой поставь или DeferredEvent-ы
карма: 22

0
Ответов: 632
Рейтинг: 4
#3: 2017-08-28 01:15:32 ЛС | профиль | цитата
nesco писал(а):
Vadimluk1 писал(а):
Опыта пользоваться, Child PanelEx нет, поэтому не знаю, как удалять надпись. Когда пытаюсь на правую кнопку мыши, нажимаю удалить надпись, появляется сообщения "Self destruction is not allowed!!!" по русскому "Самоуничтожение не позволено!!!"

На входы ##delete и ##clear таймеры с 0-й задержкой поставь или DeferredEvent-ы

nesco, огромное спасибо!

--- Добавлено в 2017-08-28 02:00:33

Обновил
http://fayloobmennik.cloud/7079625
Скриншот
Теперь возможно изображения вставлять!

Редактировалось 3 раз(а), последний 2017-08-29 19:04:22
карма: 0

0
Ответов: 632
Рейтинг: 4
#4: 2017-08-28 14:04:57 ЛС | профиль | цитата
Добавил возможность ставить кнопки.
При нажатии на кнопку, возможны действия.
http://fayloobmennik.cloud/7079997
Скриншот

Редактировалось 1 раз(а), последний 2017-08-29 19:04:05
карма: 0

0
Ответов: 632
Рейтинг: 4
#5: 2017-08-29 19:03:36 ЛС | профиль | цитата
Добавил светодиодhttp://lunnyy1svet.hopto.org/%D0%97%D0%B0%D0%B3%D1%80%D1%83%D0%B7%D0%BA%D0%B0/%D0%9A%D0%BE%D0%BD%D1%81%D1%82%D1%80%D1%83%D0%BA%D1%82%D0%BE%D1%80%20001.sha
Скриншот
карма: 0

0
Ответов: 1926
Рейтинг: 172
#6: 2017-08-29 19:12:53 ЛС | профиль | цитата
Вот тут будет интересно: http://hi-asm.blogspot.ru/2010/08/blog-post.html.
карма: 9
0
Ответов: 632
Рейтинг: 4
#7: 2017-08-31 17:31:48 ЛС | профиль | цитата
3042 писал(а):
Вот тут будет интересно: http://hi-asm.blogspot.ru/2010/08/blog-post.html .

На форме были или есть какие то конструкторы, наподобие моего?
карма: 0

0
Ответов: 1821
Рейтинг: 168
#8: 2017-08-31 18:50:45 ЛС | профиль | цитата
Vadimluk1, да
карма: 5

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