Вверх ↑
Этот топик читают: Гость
Ответов: 6
Рейтинг: 0
#16: 2014-04-06 14:24:28 ЛС | профиль | цитата
На базе схемы от Леонида мне удалось сделать 2 генератора, с настройкой!
На мой взгляд, очень даже изящная схема получилась
Надо теперь только разобраться как сохранять файл из программы, сразу в *.amc с перезаписью старого.
Make(delphi)
ver(4.04 build 184)
Add(MainForm,15614549,153,392)
{
Width=394
Height=311
Caption="Macros generator"
link(onCreate,16270938:doEvent1,[])
}
Add(Memo,3795116,210,182)
{
Left=10
Top=250
Width=220
Height=20
Visible=1
Strings=#8:varE = 1|10:Delay 5 ms|11:IfKey 7 0 2|20:if varE != 1 Goto 11|8:varE = 2|10:LeftDown 1|16:Delay <short> ms|8:LeftUp 1|15:Delay <long> ms|11:IfKey 7 0 2|20:if varE != 2 Goto 18|8:varE = 3|10:LeftDown 1|16:Delay <short> ms|8:LeftUp 1|15:Delay <long> ms|6:Goto 2|
}
Add(Memo,4515587,483,280)
{
Left=190
Top=5
Width=185
Height=265
}
Add(Button,8517067,147,266)
{
Left=15
Top=60
Width=160
Height=45
Caption="Generate!"
link(onClick,10360032:doEvent1,[])
}
Add(Random,5767958,371,280)
{
Min=35
Max=70
Point(doMin)
Point(doMax)
link(onRandom,10900447:doWork1,[(411,286)])
}
Add(ArrayEnum,822352,224,273)
{
link(onItem,11629454:doCompare,[])
link(Array,3795116:Array,[])
}
Add(Hub,10360032,196,266)
{
link(onEvent1,4515587:doClear,[(210,245)(471,245)(471,293)])
link(onEvent2,822352:doEnum,[])
}
Add(StrMask,11629454,287,273)
{
Mask="Delay <short> ms"
link(onFalse,13532710:doCompare,[(333,279)(333,319)(275,319)(275,342)])
link(onTrue,5767958:doRandom,[])
}
Add(FormatStr,6187392,420,392)
{
DataCount=1
Mask="Delay %1 ms"
Point(FString)
link(onFString,9238098:doWork3,[(458,398)])
}
Add(StrMask,13532710,287,336)
{
Mask="Delay <long> ms"
link(onFalse,9238098:doWork2,[])
link(onTrue,5047906:doRandom,[(332,349)(332,373)(275,373)(275,384)])
}
Add(Random,5047906,301,378)
{
Min=85
Max=120
Point(doMin)
Point(doMax)
link(onRandom,10900447:doWork2,[])
}
Add(Hub,16270938,217,406)
{
link(onEvent1,5047906:doRandomize,[(275,412)(275,391)])
link(onEvent2,5767958:doRandomize,[(347,419)(347,293)])
}
Add(HubEx,9238098,454,336)
{
Angle=3
link(onEvent,4515587:doAdd,[(458,286)])
}
Add(HubEx,10900447,407,378)
{
Angle=1
link(onEvent,6187392:doString,[(411,398)])
}
Add(Edit,1025516,154,448)
{
Left=75
Top=5
Text="35"
DataType=2
link(onChange,5767958:doMin,[(354,454)(354,300)])
}
Add(Edit,11875227,191,462)
{
Left=130
Top=5
Text="70"
DataType=2
link(onChange,5767958:doMax,[(359,468)(359,307)])
}
Add(Edit,5953655,154,504)
{
Left=75
Top=30
Text="85"
DataType=2
link(onChange,5047906:doMin,[(283,510)(283,398)])
}
Add(Edit,279305,196,518)
{
Left=130
Top=30
Text="120"
DataType=2
link(onChange,5047906:doMax,[(288,524)(288,405)])
}
Add(Label,15768048,112,448)
{
Left=10
Top=10
Width=57
Height=17
Caption="Short delay"
}
Add(Label,13144589,112,503)
{
Left=10
Top=35
Width=56
Height=17
Caption="Long delay"
}

Появилась еще проблема - никак не могу ползунок прикрутить к редактору текста. Вообще непонятно к какой точке его цеплять...
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#17: 2014-04-06 18:32:22 ЛС | профиль | цитата
Насчёт
sashauzer писал(а):
На мой взгляд, очень даже изящная схема получилась
смотри code_33361.txt
------------ Дoбавленo в 18.12:
sashauzer писал(а):
Появилась еще проблема
Хотелки желательно выдать все сразу.
Цеплять к Count-ам.
------------ Дoбавленo в 18.32:
С хотелкой:

Add(MainForm,15614549,595,280)
{
Width=497
Height=100
Caption="Macros generator"
Position=1
link(onCreate,5767958:doRandomize,[(647,300)(647,251)])
}
Add(Button,8517067,357,217)
{
Left=395
Top=5
Width=75
Caption="Generate!"
link(onClick,10360032:doEvent1,[])
}
Add(Random,5767958,686,238)
{
Max=0
Point(Min)
Point(Max)
link(onRandom,10900447:doWork2,[(732,244)(732,279)])
link(Min,1025516:Text,[(692,201)(657,201)])
link(Max,11875227:Text,[])
}
Add(ArrayEnum,822352,476,231)
{
link(onItem,3439221:doEvent1,[])
link(onEndEnum,15908725:doSave,[(523,244)(523,322)(943,321)(943,272)])
link(Array,3228047:Array,[])
}
Add(Hub,10360032,406,217)
{
OutCount=3
link(onEvent1,15908725:doClear,[(964,223)(964,244)])
link(onEvent2,11963901:doData,[(444,230)(444,349)])
link(onEvent3,822352:doEnum,[])
}
Add(StrMask,11629454,602,231)
{
Mask="Delay <short> ms"
link(onFalse,13532710:doCompare,[])
link(onTrue,5767958:doRandom,[])
}
Add(FormatStr,6187392,889,273)
{
DataCount=1
Mask="Delay %1 ms"
Point(FString)
link(onFString,9238098:doWork3,[(928,279)])
}
Add(StrMask,13532710,749,231)
{
Mask="Delay <long> ms"
link(onFalse,9238098:doWork2,[])
link(onTrue,5047906:doRandom,[])
}
Add(Random,5047906,819,238)
{
Max=0
Point(Min)
Point(Max)
link(onRandom,10900447:doWork1,[(865,244)])
link(Min,5953655:Text,[])
link(Max,279305:Text,[(832,219)(867,219)])
}
Add(HubEx,9238098,924,231)
{
link(onEvent,15908725:doAdd,[])
}
Add(HubEx,10900447,861,273)
{
link(onEvent,6187392:doString,[])
}
Add(Edit,1025516,651,161)
{
Left=75
Top=5
Text="35"
DataType=2
}
Add(Edit,11875227,693,161)
{
Left=130
Top=5
Text="70"
DataType=2
}
Add(Edit,5953655,819,161)
{
Left=275
Top=5
Text="85"
DataType=2
}
Add(Edit,279305,861,161)
{
Left=330
Top=5
Text="120"
DataType=2
}
Add(Label,15768048,609,161)
{
Left=10
Top=10
Width=57
Height=17
Caption="Short delay"
}
Add(Label,13144589,777,161)
{
Left=210
Top=10
Width=56
Height=17
Caption="Long delay"
}
Add(StrList,3228047,462,147)
{
Strings=#6:<Root>|14:<DefaultMacro>|15:<Major></Major>|27:<Description></Description>|19:<Comment>antirecoil|10:</Comment>|11:<GUIOption>|26:<RepeatType>0</RepeatType>|12:</GUIOption>|7:<KeyUp>|17:<Syntax></Syntax>|8:</KeyUp>|9:<KeyDown>|16:<Syntax>varE = 1|10:Delay 5 ms|11:IfKey 7 0 2|20:if varE != 1 Goto 11|8:varE = 2|10:LeftDown 1|11:Delay 38 ms|8:LeftUp 1|12:Delay 112 ms|11:IfKey 7 0 2|20:if varE != 2 Goto 18|8:varE = 3|10:LeftDown 1|11:Delay 59 ms|8:LeftUp 1|12:Delay 101 ms|11:IfKey 7 0 2|20:if varE != 3 Goto 25|8:varE = 4|10:LeftDown 1|11:Delay 64 ms|8:LeftUp 1|12:Delay 104 ms|11:IfKey 7 0 2|20:if varE != 4 Goto 32|8:varE = 5|10:LeftDown 1|11:Delay 55 ms|8:LeftUp 1|11:Delay 93 ms|11:IfKey 7 0 2|20:if varE != 5 Goto 39|8:varE = 6|10:LeftDown 1|11:Delay 70 ms|8:LeftUp 1|11:Delay 92 ms|11:IfKey 7 0 2|20:if varE != 6 Goto 46|8:varE = 7|10:LeftDown 1|11:Delay 45 ms|8:LeftUp 1|12:Delay 110 ms|11:IfKey 7 0 2|20:if varE != 7 Goto 53|8:varE = 8|10:LeftDown 1|11:Delay 52 ms|8:LeftUp 1|11:Delay 90 ms|11:IfKey 7 0 2|20:if varE != 8 Goto 60|8:varE = 9|10:LeftDown 1|11:Delay 46 ms|8:LeftUp 1|12:Delay 105 ms|11:IfKey 7 0 2|20:if varE != 9 Goto 67|9:varE = 10|10:LeftDown 1|11:Delay 68 ms|8:LeftUp 1|12:Delay 120 ms|11:IfKey 7 0 2|21:if varE != 10 Goto 74|9:varE = 11|10:LeftDown 1|11:Delay 66 ms|8:LeftUp 1|11:Delay 86 ms|11:IfKey 7 0 2|21:if varE != 11 Goto 81|9:varE = 12|10:LeftDown 1|11:Delay 58 ms|8:LeftUp 1|12:Delay 100 ms|11:IfKey 7 0 2|21:if varE != 12 Goto 88|9:varE = 13|10:LeftDown 1|11:Delay 44 ms|8:LeftUp 1|11:Delay 91 ms|11:IfKey 7 0 2|21:if varE != 13 Goto 95|9:varE = 14|10:LeftDown 1|11:Delay 65 ms|8:LeftUp 1|12:Delay 103 ms|11:IfKey 7 0 2|22:if varE != 14 Goto 102|9:varE = 15|10:LeftDown 1|11:Delay 35 ms|8:LeftUp 1|11:Delay 97 ms|11:IfKey 7 0 2|22:if varE != 15 Goto 109|9:varE = 16|10:LeftDown 1|11:Delay 51 ms|8:LeftUp 1|12:Delay 118 ms|11:IfKey 7 0 2|22:if varE != 16 Goto 116|9:varE = 17|10:LeftDown 1|11:Delay 50 ms|8:LeftUp 1|11:Delay 94 ms|11:IfKey 7 0 2|22:if varE != 17 Goto 123|9:varE = 18|10:LeftDown 1|11:Delay 69 ms|8:LeftUp 1|11:Delay 98 ms|11:IfKey 7 0 2|22:if varE != 18 Goto 130|9:varE = 19|10:LeftDown 1|11:Delay 42 ms|8:LeftUp 1|12:Delay 117 ms|11:IfKey 7 0 2|22:if varE != 19 Goto 137|9:varE = 20|10:LeftDown 1|11:Delay 37 ms|8:LeftUp 1|12:Delay 114 ms|11:IfKey 7 0 2|22:if varE != 20 Goto 144|9:varE = 21|10:LeftDown 1|11:Delay 54 ms|8:LeftUp 1|11:Delay 96 ms|11:IfKey 7 0 2|22:if varE != 21 Goto 151|9:varE = 22|10:LeftDown 1|11:Delay 56 ms|8:LeftUp 1|11:Delay 99 ms|11:IfKey 7 0 2|22:if varE != 22 Goto 158|9:varE = 23|10:LeftDown 1|11:Delay 43 ms|8:LeftUp 1|12:Delay 109 ms|11:IfKey 7 0 2|22:if varE != 23 Goto 165|9:varE = 24|10:LeftDown 1|11:Delay 39 ms|8:LeftUp 1|12:Delay 106 ms|11:IfKey 7 0 2|22:if varE != 24 Goto 172|9:varE = 25|10:LeftDown 1|11:Delay 62 ms|8:LeftUp 1|11:Delay 85 ms|11:IfKey 7 0 2|22:if varE != 25 Goto 179|9:varE = 26|10:LeftDown 1|11:Delay 49 ms|8:LeftUp 1|12:Delay 111 ms|11:IfKey 7 0 2|22:if varE != 26 Goto 186|9:varE = 27|10:LeftDown 1|11:Delay 57 ms|8:LeftUp 1|12:Delay 107 ms|11:IfKey 7 0 2|20:if varE != 27 Goto 2|8:varE = 1|10:LeftDown 1|11:Delay 36 ms|8:LeftUp 1|12:Delay 116 ms|15:Goto 2</Syntax>|10:</KeyDown>|14:<Software>game|26:</Software></DefaultMacro>|8:</Root> |
}
Add(StrList,15908725,987,231)
{
FileName="my_file.amc"
}
Add(ProgressBar,5319589,1064,336)
{
Left=10
Top=40
Width=460
Height=10
Color=16776960
Max=0
ProgressColor=-16777203
Point(doMax)
}
Add(Hub,3439221,546,231)
{
link(onEvent1,11629454:doCompare,[])
link(onEvent2,1601256:doData,[(578,244)(578,342)])
}
Add(DoData,11963901,469,343)
{
link(onEventData,5319589:doMax,[])
link(Data,3228047:Count,[])
}
Add(DoData,1601256,994,336)
{
link(onEventData,5319589:doPosition,[])
link(Data,15908725:Count,[])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_33361.txt [5.4KB] [163]
Ответов: 6
Рейтинг: 0
#18: 2014-04-06 20:51:12 ЛС | профиль | цитата
Tad писал(а):
Хотелки желательно выдать все сразу.
Цеплять к Count-ам.


Ну, для начала я пытался получить минимум небоходимого функционала, а потом подумал о дополнительных плюшках
То что вы сделали, конечно, здорово выглядит... Но под ползунком я понимаю тот, который пролистывает текст не вмещающийся в отведенное поле) А у вас прогрессбар а не ползунок) Тем не менее, можно и эту фишку прилепить, для красоты... Все равно спасибо!
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#19: 2014-04-06 21:02:45 ЛС | профиль | цитата
code_33361.txt - это про
sashauzer писал(а):
ползунок прикрутить к редактору текста
А ты даже его и не смотрел.
------------ Дoбавленo в 21.02:
Кстати, там и про как
sashauzer писал(а):
сохранять файл из программы, сразу в *.amc с перезаписью старого.
Дай файлу нужное имя (у меня в схемах имя my_file.amc)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 6
Рейтинг: 0
#20: 2014-04-06 21:14:39 ЛС | профиль | цитата
Tad писал(а):
А ты даже его и не смотрел.

Да, извиняюсь, не заметил
Блин, оказывается это было в свойствах самого редактора, мать его... А зачем тогда в блоках есть отдельные ползунки? разве что только для плеера может..
Непонятно какую функцию у вас выполняет флажок (Check). Я в своей старой схеме просто добавил ползунок и все, пробелы в полученном коде остаются (так лучше).
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#21: 2014-04-06 21:19:37 ЛС | профиль | цитата
sashauzer писал(а):
Непонятно какую функцию у вас выполняет флажок (Check).
Если он включен - записывается результат в файл, если выключен - не записывается.
------------ Дoбавленo в 21.19:
Ставил для себя - лень потом искать и удалять файл.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
21
Сообщение
...
Прикрепленные файлы
(файлы не залиты)