Вопросы начинающих

Форумы Между деломВопросы начинающих ← Ctrl1 2 3 4 5...7 8 9 101112 13 14 15 16Ctrl →

Этот топик читают: Гость

Ответов: 47

Рейтинг: 0

#151: 2017-05-23 10:36:07 ЛС | профиль | цитата

Как правильно сделать программу? Программа должна в фоне висеть и отслеживать появление окна Сохранить как, при появлении которого предложит транскрипцию имени файла. После согласия дожидаться пока пройдет команда вставка из буфера переведенной надписи в строку и закроется окно. Затем снова в режим ожидания. Понимаю что надо вставить цикл а как правильно сделать не понимаю.

Add(MainForm,2953706,21,105)
{
 Visible=1
 link(onCreate,8957594:doEnum,[])
}
Add(WinEnum,8957594,196,119)
{
 VisibleOnly=1
 link(onFindWindow,11643227:doCompare,[])
}
Add(StrMask,11643227,252,119)
{
 Mask="*Укажите имя файла для записи*"
 Point(doMask)
 link(onTrue,16534726:doMessage,[(296,132)(296,223)(233,223)(233,314)])
}
Add(Message,16534726,245,308)
{
 Caption="Сделать транскрипцию имени файла?"
 Type=1
 Icon=2
 Point(onOK)
 Point(onCANCEL)
 link(Message,2603904:Var1,[(251,208)])
 link(onOK,5391918:doEvent1,[(303,321)(303,265)])
 link(onCANCEL,2953706:doClose,[(450,328)(450,205)(9,205)(9,132)])
}
Add(Edit,5043455,350,224)
{
 Top=5
 Width=400
 Height=25
 Font=[Verdana,12,3,0,204]
 link(onChange,6566621:doMultiReplace,[])
 link(Str,2603904:Var2,[])
}
Add(Clipboard,9682721,350,119)
{
}
Add(MultiReplace,6566621,469,224)
{
 ReplaceList="Дверь левая =;ЭКРА=EKRA;Э=E; (Черн. 2,0)=F;/=_;СГК=SGK;Тяга верхняя=;(Оц. 2,0)=Z;\r\nДверь=;Швеллер=;Панель=;Угольник=;Уголок=;Крепление плиты=;ОНКУ=ONKU;\r\n(Оц. 2,5)=Z;(Оц. 1,5)=Z;Стенка задняя=;(крепление Rittal)=; (Черн. 1,5)=F;\r\nПлита=; Крышка=;(=;)=;(Черн. 1,5)=F;МП=MP;Упор=;Заглушка=; (Черн. 1,0)=F;\r\nСтенка=;(Черн. 3,0)=F;"
 Mode=1
 link(onResult,13454062:doValue,[])
 link(Text,5043455:Text,[(475,219)(412,219)(412,268)(356,268)])
 link(ReplaceList,8320363:Text,[(482,201)(440,201)])
}
Add(Memory,13454062,525,224)
{
 link(onData,11828791:doTrim,[])
}
Add(Trim,11828791,602,224)
{
 Mode=7
 Point(Result)
 link(onTrim,4621414:doEvent1,[(648,230)(648,234)])
}
Add(StrList,8320363,434,133)
{
 Strings=#81:Дверь левая =;ЭКРА=EKRA;Э=E; (Черн. 2,0)=F;/=_;СГК=SGK;Тяга верхняя=;(Оц. 2,0)=Z;|69:Дверь=;Швеллер=;Панель=;Угольник=;Уголок=;Крепление плиты=;ОНКУ=ONKU;|73:(Оц. 2,5)=Z;(Оц. 1,5)=Z;Стенка задняя=;(крепление Rittal)=;(Черн. 1,5)=F;|42:Плита=; Крышка=;(=;)=;(Черн. 1,5)=F;МП=MP;|
 link(FileName,3189570:Text,[(447,121)(468,121)])
}
Add(Edit,3189570,462,77)
{
 Top=55
 Width=355
 Height=25
 Font=[Verdana,12,1,0,204]
 Visible=1
 Text="Z:\z-=-CONFIG-=-\Macros\\transcript.txt"
 Point(doAlign)
}
Add(GetDataEx,2603904,350,203)
{
 link(Data,9682721:Text,[])
}
Add(Clipboard,1926085,714,224)
{
 Point(PutText)
 link(PutText,11828791:Result,[(720,212)(634,212)(634,264)(604,264)])
}
Add(Hub,5391918,308,259)
{
 link(onEvent1,5043455:doText,[(327,265)(327,230)])
 link(onEvent2,8320363:doLoad,[(378,272)(378,167)])
}
Add(Hub,4621414,672,224)
{
 link(onEvent1,1926085:doPutText,[(702,230)(702,234)])
}

Редактировалось 3 раз(а), последний 2017-05-23 10:43:26

карма: 0

Ответов: 47

Рейтинг: 0

#152: 2017-05-24 12:56:06 ЛС | профиль | цитата

Нужно из таблицы StringTable извлечь имена файлов и найти их в сетевой папке. Использую компонент перебор массива, он перебирает от первого до последнего все ОК. Во время перебирания списка, включается поиск фала по имени, вот в этот момент начинается проблема. Нашел он первое значение включил поиск ищет. В этот момент компонент перебор массива добрался до второго элемента шлет в поиск, а поиск занят еще первым значением, разумеется второе значение пролетает мимо. Как сделать что бы перебор массива ждал пока поиск закончится. Или как сделать что бы для каждого элемента массива имен файлов включался свой поиск параллельно. Много имен обычно не бывает.

карма: 0

Ответов: 16884

Рейтинг: 1239

#153: 2017-05-24 13:20:56 ЛС | профиль | цитата

Схема где ?

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 47

Рейтинг: 0

#154: 2017-05-24 13:28:18 ЛС | профиль | цитата

Вроде сам решил

но все равно выложу

Add(MainForm,6001576,196,105)
{
 Left=1780
 Top=117
 Height=537
 Ctl3D=0
 Caption="Поис"
 BorderStyle=8
 DragForm=0
 ClientSize=0
 Point(doVisible)
 Point(Handle)
 Point(onMouseUp)
 link(onActivate,16582516:doEvent1,[])
 link(onMouseUp,7684740:doEvent,[(247,132)(247,174)])
}
Add(Clipboard,2828579,266,56)
{
}
Add(FileSearch,13399579,721,238)
{
 Ext=""
 Dir="X:\"
 link(onSearch,3259313:doEvent1,[(765,244)(765,209)])
 link(onEndSearch,11625384:doEvent1,[(793,251)(793,230)])
 link(Ext,1656694:Result,[(727,199)(768,199)])
}
Add(BlockFind,13826388,546,161)
{
 StartBlock="."
 EndBlock=")"
 link(onSearch,16528152:doMultiReplace,[(592,167)(592,185)])
 link(Text,9933363:Text,[(552,149)(524,149)(524,205)(496,205)])
}
Add(Trim,5415623,665,175)
{
 Point(Result)
 link(onTrim,4856865:doStrCat,[(705,181)(705,132)])
 link(Text,16528152:Result,[(671,163)(645,163)(645,223)(612,223)])
}
Add(MultiReplace,16528152,606,179)
{
 ReplaceList="(Черн. 1,0)=;\r\n(Черн. 1,5)=;\r\n(Черн. 2,0)=;\r\n(Черн. 2,5)=;\r\n(Черн. 3,0)=;\r\n(Черн.1,0)=;\r\n(Черн.1,5)=;\r\n(Черн.2,0)=;\r\n(Черн.2,5)=;\r\n(Черн.3,0)=;\r\n(Оц. 1,0)=;\r\n(Оц. 1,5)=;\r\n(Оц. 2,0)=;\r\n(Оц. 2,5)=;\r\n(Оц.1,0)=;\r\n(Оц.1,5)=;\r\n(Оц.2,0)=;\r\n(Оц.2,5)=;\r\nЭ=*;\r\n/=*;\r\n.=*;\r\n\r\n"
 Mode=1
 link(onResult,5415623:doTrim,[(655,185)(655,181)])
}
Add(StrCat,4856865,714,126)
{
 Str1="*"
 link(onStrCat,1656694:doStrCat,[(754,132)(754,134)])
 link(Str2,5415623:Result,[(727,114)(699,114)(699,219)(671,219)])
}
Add(StrCat,1656694,762,128)
{
 Str2="*"
 link(onStrCat,547433:doEvent1,[(806,134)])
 link(Str1,4856865:Result,[(768,116)(744,116)(744,170)(720,170)])
}
Add(Hub,3259313,777,203)
{
 link(onEvent1,8203284:doText,[(829,209)(829,69)])
 link(onEvent2,10556004:doCopy,[(854,216)(854,300)])
}
Add(DirTools,10556004,917,294)
{
 link(Source,8203284:Caption,[(923,240)(874,240)])
 link(Dest,9536904:Caption,[(930,239)(916,239)])
}
Add(Label,8203284,868,63)
{
 Left=275
 Top=465
 Visible=1
}
Add(Label,9536904,910,60)
{
 Left=205
 Top=465
 Visible=1
 Caption="d:\\77\"
}
Add(Memo,1964101,329,105)
{
 Top=5
 Width=430
 Height=455
 Strings=#72:------------------------------------------------------------------------|
 link(Str,2828579:Text,[(335,96)(272,96)])
}
Add(Edit,9933363,490,161)
{
 Left=115
 Top=475
 Width=175
 link(onChange,13826388:doSearch,[])
}
Add(Sleep,1091221,476,238)
{
 link(onSleep,3748400:doCompare,[(524,244)(524,258)])
}
Add(Button,9019766,217,238)
{
 Left=10
 Top=475
 Width=95
 Caption="Запуск поиска"
 link(onClick,16223429:doEvent1,[])
}
Add(GlobalVar,2234895,483,49)
{
 Name="Количство строк"
}
Add(DoData,19012,415,76)
{
 link(onEventData,2234895:doValue,[(451,82)(451,55)])
 link(Data,15803316:Var2,[(421,50)(376,50)])
}
Add(Hub,16223429,294,238)
{
 OutCount=3
 link(onEvent1,3236246:doWork2,[])
 link(onEvent2,19012:doData,[(382,251)(382,82)])
}
Add(GetDataEx,3845102,336,154)
{
 link(Data,1964101:Count,[])
}
Add(ArrayRW,13915112,420,238)
{
 Index=String(1)
 link(onRead,1091221:doSleepMks,[])
 link(Array,1964101:Array,[(426,194)(349,194)])
}
Add(GetDataEx,15803316,370,147)
{
 Angle=2
 link(Data,2951945:Var3,[(376,159)])
}
Add(Hub,11625384,833,224)
{
 link(onEvent1,8691984:doData,[(859,230)(859,279)(828,279)(828,328)])
 link(onEvent2,3236246:doWork1,[(859,237)(874,239)(874,289)(396,289)])
}
Add(DoData,8691984,840,322)
{
 Data=String(1)
 link(onEventData,1964101:doDelete,[(884,328)(884,226)(317,226)(317,125)])
}
Add(HubEx,3236246,392,238)
{
 link(onEvent,13915112:doRead,[])
}
Add(If_else,3748400,539,252)
{
 Type=1
 Op2=String(1)
 link(onTrue,10757009:doWork1,[(583,258)(583,306)(473,306)])
 link(onFalse,9933363:doText,[(625,265)(625,230)(478,230)(478,167)])
 link(Op1,2951945:Var2,[(545,211)(363,211)])
}
Add(GetDataEx,2951945,357,154)
{
 Angle=3
 link(Data,4017904:Var3,[])
}
Add(Hub,547433,812,126)
{
 link(onEvent1,13399579:doSearch,[(838,132)(838,188)(709,188)(709,244)])
}
Add(Message,14404658,497,350)
{
 Message="Чертежей для поиса не осталось!!!"
}
Add(IndexToChanel,7684740,266,168)
{
 link(onEvent2,6001576:doClose,[(310,181)(310,157)(184,157)(184,132)])
}
Add(If_else,2320508,378,343)
{
 link(onTrue,10757009:doWork2,[(454,349)(454,356)])
 link(Op1,4017904:Var2,[(384,253)(356,253)])
}
Add(Hub,16582516,273,105)
{
 link(onEvent1,1964101:doAdd,[])
 link(onEvent2,2320508:doCompare,[(333,118)(333,349)])
}
Add(GetDataEx,4017904,350,154)
{
 Angle=3
 link(Data,3845102:Var3,[])
}
Add(HubEx,10757009,469,350)
{
 link(onEvent,14404658:doMessage,[])
}

А вот так вот я решил

Add(MainForm,2953706,21,105)
{
 Width=350
 Height=544
 Caption="Поиск чертежей и моделей"
 Icon=[ZIPBE25000078DAED5A07545557BAA65947AC8428F65E2936441454442C205DAA208A28029641C482540B2A28BD8B88741041111B2A46C712C71E11310AF69A801AA308DCF3BF6F9F7D6F0467E6ADBCB7B2266FD67A247FF6BDE7DEB3F7B7BFFFFBCBBE277272F2F8474B4B0EFFED27973B584E4E554E4E6E180C97E45CE4F875F16F909C5CD7BF70FB0FFA93979A22332525A5568A8A8AADF15AE1ABEFB5979797FF06635758477C87EDB21DAC0D8CDDA3A4A0A0A028BD4F36E7EFF963DF67EBB5FAEA5E05AC87291594A49FB175DAE17D078C5DF0992A5EF76CDF5AA9FF881ECAEA06C3BB4DB4D1E969B458BFB755F0DC214BD6CD1A30A4F922A7578CB1B8B266E29133CBC7E595BA8F4ECA74D5088D7118E1BBD678C0E2F913D4E6E90EEC3A43AD4BFB09DDBBB4D7ECD2A1F5D00E6D94FAB55652E88E75BAB1F5D89E61CAB0BF343386A5274C1BA6C364A1A4203F18F70E55516EA3DEA3737BEDF1FD3A4F5F38B98F6DB0E550F754574DFF22AF7151E5BEFA599703A61DBEBBD5F0C2E330A38A5711C68FEBA24D5E7F8C3379DF94E6F05948B6965406E9DB34C7FF2C40C743883713844407A27043A91910ED9C4E4284A1D0B46B5AC3C7F0A91F5E6F99FCAADA5FA7E6A6EFF80AECF9E27E378D13890E23F2038C07EE76D7EB1D6D375E2DD47642CF90C553FA06FFD57040E8C2F16A69C0FC3396F8DC4A41FE47D3612A3FE43A683DA85CA3F7BC2E74E67B499C698390622550B205510A334BA2DDF38852ED89D25D88B29612E52D27DABF86287F35D17729447B9CE86EF034FB66F0956EAC1EEBF131CC50A8CDF0A3E7BBFDE851941BDD8F5A4277772DA08AEDB6746B93195D0F9C45D7FD0CE8D6467DBA133099AA42A6D083D019F4247C16BD8931A65F12CD845F932D858FC99692CF4916925F234C24398E6384F66DDBD0800103A877AFDED4B16347FAA6435B9A3B54850ADCA6D02F7B3C49D8BF81E8D026A2C3A1B02DFCF5919D44073016E17DEE5AA2785BA26C1FA2023FA21853BAEB3F79BE0C7CC6825106259E630FDD09D017AA36CDA1FBB12EF42C7C0EBD4EB0A1DA446BFA9064490D69F34848C71C7B6DBE583A38CA70C6FC4BB0D65F894A80A33410164292E240AA4B5B45CB8D4653A74E9D68D4A851A4AEAE4E1A1A1A346CD830EAD1A307B56BD39A526C279090EB8F79BCC171305126C6CC55C0896B39EB30EF66F0BF1E6B80FB740FA2E3D14449B6F483FF646719FE17A1537C298BE1584694064C396EB8DF93633A84394AB0E712CC7718F31F054727C2894E619E13E0E8541CB8DA4A54086E32B18F12BCDEEF4F8D0521F43472190D515321353535D2D4D2244D60677B607B1939622475ECD0815217E891B017B872802F1BB60F7AC9580CACC0B31B7C25415349E6DC1261C50144B1A6747BE3642719FE27C1934C25594E123A9B48F4FD7E60C69E4F4660AFDBA13FECE94414B06F832F83F0D9163E1687E0332FA2839BB9BF0BBCB9460F6C20217F0D7D4AF3A2232B67535B703C64C810D2D2D26A61FDFBF7A7516A9DE8FD4E531298DE13A1FB74F09EBB11AFA1FB78E0DE6D0DADDB704BC57792AD38FE3833AA0AD25B28C37F6BEDF8410D19CEF574103C9FCDC27736732C85BE9CD782B53C76F60363217C52B09CFB27CF1DEB81ABEC05E07E3E7873104D021FD6459893D7E401A4ACACFC9B6E468E1C2962D7D4D4A4AE5DBB5298853A09290C9F03D7CBDF0BE14FF076F500F489BDEC75E5981976B69764ECB1709DC8FFFD60BD4532FCDFAFD0EA5A9F66F7944AA0B32260CE74020E7BA961EE43E07BB70B9F270B9FE5006FEE023E8AE6CC2D1B061D36EEB1A7EA90D934A27B2751E743870C1531AB6BA88BE3C08103A947970EF470CB1CE8D58E6BA5187E2D043F65D0E751F0970F4BB697EAC89A5B227C7280C7EFFD66FCA75AF66FF536D9E62C15407BA57E1C4B6E338C59E0B9E602B849C61EF07E1FB8CE7692E26EB90F017BFF94388F4A96E8423BAD6828629571CEB8673E60F87BF6EC498E637A52531CF8DC038D2780E313E03D15F3E67A72ED66AFE77865D853ACF8FB62F8295AC4BFA879FEFF39CA385DC85F2C5019F69DC5E671F9627BC1C3F58344D7F611DD3E8A3DB2B59C44AE5BE007FFC23E4768C78296EB0F1273E5F0E1C345DC4C436C1FCC171DA1A993DE33B157F092B1107C303DB2FCB2082374930F7F479A70EDC8B0FF861FFA8F9E4B0F43F49634C77F2F40779D50B004F8B772CDE4B97C31A66F968B0B57125D88217A7A9EE812349AB1947F57AA1F01F89BA0E59A903934FC5B65EAD5AB9754EF1CFF88112368D0A041A4D9AB0B7D8E039EBD761C17CBF5FBA0F534CC737417F09973DCA90CBB143FD37E02AE1771FC355FE1BFBC72ACAB50E026D08910AE7F1976C63FC39787B82807F60B094415C05E730A7A422D4C75E0BA07FF5C3BB67408DA516EDF163A1F20E64A996E187E1515150AB7D440CE816EF6D871AC17D2B02672767924F2A41BC72A8B59113B2C498AFF00F0C798514DD0E416F8CB166B387DCE7416A884E59A2552ED2CF86299F0ED6D603E1F0FFDA04E9D466EAD3A82EFE2FBFB1C441F4910176FA32C68E59481A8599D7FCBF7B2DCC3F0F7E8AA4CD59B6693C0E23603588FC442FBC8CD07D6705DC69972EC8C778699ED858D2CBFC6037F21E233D2981E064F5ED61C7FE9424D870F29B6021D80160F7A4B396775CC8BE7CA4C47E44FDC7B1AFC1F842F8A9047BF431DBB7B0C7E87EF331C09BD153DDB6A4223BB77A45E88518697F1AEA1A9216A88D53187717D484802BE345B9ED36E94601EECA1FA22AE211E92593E75E4DADC652CE61A8A07FF71E662DE17F3E7CE99F42468D2F2E6F88FB96A3AD4469908940FCCA5A82179F0C1FE95BC2E15ADE61A617190837A702A52BA077C760935EFCE311292EDA83E7E1E957B4D26D6EFB01E816167FA61FB603EE8D2B9139579E823E7037722309E84FE6E15103D384974261DF51275F224F652821C7A290FBCC3E7F1D63C8FB27AC67CC36A11C7EFD5423F4BB41C5E6E33027ED4A363C13C07654B733ACB95B9AEBCD761B9281D3E29837E8AB197C3E0E35A1A09DFE7D0FB48070A9CAD29F63B227E601EA53E4ADC47BF7EFD68C2C0EEF481F537C7E0B7A3B087C8033FA066FD085D4682E398B9C069CA8DC56914B0275848CD5C8A1FBC851BD1E360DD16FC9F5CAA65F73C445F10F2B0E732D4924C683A7721EFCDB2702D0F79ED0872C31168B57407D165F419E7C1D5E9505147928AFDF4327F0B4D19DC83E71D4D9EF3D5A5F855555529CE460BBA072F99D0C6A56CCE7B35EC6C06D18E995FE295E99DD5A9481BAE79863D1EDA89C5FEF2813FCC889E05E9AE6A81DF7D8CEDD3804942630EB09EDC22CD8B0BB9654BE3F708B0E6C13FCC472C668F633F8758CDF6A186437E7423770BA97656A6C183074BB1F3D865EFFBA976A19F765920C7BAF218AC2A459F80BC53530E7D603FA95807754FECF96380371FF3A67848756F2AF60CA27F0A38FE17C1BADE2DF02F1B63F73C7092F0791FB47284D5605769EE91E6D00C275E17597C1C409CED677EC19AA7E348285E4B1FF7BA53FA0A63EA809E52D66332D3D4D0A4DE7D7AD3064BD627AF80DED05FDF41DEAAC8C1980FEDC18F5B6672FC7B31672AB889436C64429729C81BEC3C9582B559AD8E31E1F877CCF807FCA73CC7D8BD0AD113DEA720AFEDC7BE8BBD5BF6394CF7AC0FCD63FD28B47910318D7C43451B49B8984E75092EE436693075EFDE1DDC8F10FB65869FD5DFDEDDBFA1FBD1CB483806ED1D83F61E9F01FFD07D7519EFDBF2FC784F5B88790B59EC41AB695827CE5EAC55146DC2B967237A5B86FF7990EEEA16F8BDC6D8D56E9922D4C5629FD9E0FB5820EFD558ECB2DE92F5B8A793703FF26631B839068D1D43AD2E8FA5A6B2447A5A104A5AFD54C5DE8C694656B7589FBC04FB92A4C29F49E0B51C39E73A74730B7DEE77C95C17B2DE9E693CC5915F63BA67DA89F90A7F367CB8C3885E074D5CDB12FF58DB77DBA60A2F76628E2CF07D7C9398D3291F5AC9474DC8F3E0E71416578750BFF6FF55EC59842C376A40CD3DEF6D42AADDBA88BA97D55A86BFA76A37BAB66E3A7481584C0217D7A19BABA94495C8FB6C4FB2DE4656639351176258DF060CF1D0423C7C10873102BD6A242C17BA089B416FBEC27FDA6B9CED87ED5385A73BCC4860317B34485A579DA47E603DA91B8F03F63ED3457C2F64CCA75F136D28769E1675EBD6959FADA01FD6F7B0B8B5D31E468DDBE7F0FA598A9C79750F7226B82F8BE5F548863FC9F24B8FC0349000FC89C81971582B85C504F6158DEB39DEA27EBEC67FC263ACF5C71DD384C7A1A6D49809AC873748B13A3733A996B21771FCE87704F40CB5E8199CC6F711733C8B5D66CC0FDFAA7E43970AE34928444F8BF30C5D67F10AFC77C07D74B3BE52EC112CA41A32E7B11A0DBDC681BF7868201ABE8B01FE88B99C7FE8E74D90CEFA16F577D958AB4F610692275B4DE9133B0FB19A9BE5CA7B398699E59A3427DE9F3363BD23CEEF4DA976F46CDB5C1AA1D645D40CC3CEF4C3CE8C9606E3A8E907D4D16B88D56CD4F4CBD07B5511B417C4794E96F63532DCF1D21E81C5498A33E73BDE86EB895984543FDB8DA82E58C7FF6BFCF5C0FF7CBB05BD63FBCF75E7E744F4F362FDCA41CD4D877E72D15364B13D208ED0BF37E2DA155F0352E9D259C42D3BDFF6EDDD8BCE04DA907018F1721DF86F22DF5F49E6AF93810DFD0625DA70ACC9D04A823DC7D73CDFC862368A9931D77F0E72D33643E0D7FE07FC9F81FFE54E6B7ABDD384F70AEC2C990E5F2046290778D397F0711F7BBF12DA5F8C9EC792CEAD32203D5D5D11B7ACD79CAB35881A587F5D8A3E231BB9E026E296F9227D39EF0718EF2C4613E0DB34D4AF2467CE7982CD17ECCC7EC36ECCF79705FEB6CDA0BAC0092DF1BB8FB56A089B26F929C2869E841890903E9FFF66C2FAC46CCC9FC5B0C32799D051D662B11E0B389BBE8B34A72C2F332A2F2BA34345451412144456C633E9820FCE572C7FEF9AC3FBB28BACD740AF176BFEA51F4EB094D65629D6D866B8A3FF09F65DB3B1EE7211FFDBC0AFF8771F63D5B063AAA42ECA9EEEAF9B086E9D397E96F7D31DB91F98B13AC62C0DDA4F99478F37CFA1F80DCBE9EEEDDBF4E0DE3D7AF3EA154A723035B17865393116717A09F9FE2674138739E32C789E675A177B0253A966A478FF157619FE0CE8387406BDF3D70E6C8EFF38C3BF6D8AE45DCC7CBAE73B919AF602F301F4AA88CF2F98F17AB78D784E15D0F3D7272FA44B3E469493964A551577E8714D0DDDAFAAA28A404B70CF720AF067A35E9EC5B92DCB9773CF7AE158A61F7B1E07AC3F4876E13A62311065D2123BF3DF4EE00E9F29F63DB4177579EB0C7AEF3FBE25FEA5A3E736841B49DEC52DA02A3F03FA9864C36376AF0B3FE73163BFCDA5B33E1ABDC03E0F7A1B6187526F4BE7CACBA9EA4E25BD7CF68CCAF3D2A83ECC946B83E93C99C5FE067E1E673DBCC8BB19E758E476B6D8CF8BF898B1334B04D314FC9EC0F210D6DF8D357743B3A988BB62C452B41D7D08D00D688EFFEFDEDA236AB74CCF7C19A477E8B6B7F6DFDE459BBD17B1B3DF0818E7A9B67C846604585382153D0E9A49F11B57D18DAB57E93EB4F3ECC913BAB4D9950416FFAC87646774D466312E59ACEE59C4CF6A7BDD78AF968EB9D3C127B8A00C4FFEFB669A1BF70BABBDA82BB4D358CCF7146A20A1ED869F286C562DAE3FFCBC59CFE39F3D6C386ED35BEEA8B386526D946996E8EBEC95FCF71931D731FDCCC7D97B017D4A70A273BEA694BD27856E5EBB4A8F6AAAE9FA8573F42C12F8994633191EC4FDDEC51C7B92038F0596C7716617A2E622468CA9317C163500DFE71D86F4699B01BD0F9D4EB59BA7D31BE4905721D3E945A03E55AFD7C96A0A9FAED5B8CDB03745CE56A128A34E4D71B35AFD8B6735E233929F76CE5E2FEC7612C4DF3933BDF86F9D191E24803B49CA02E1F50E2B21D9C34A283B7A947EB87153E4FE64FCA68F4DE1264FD177DD844E4E229F1408B1A6D194601684985DD1183DCBF5976DD317BE0AD15FFACC5F77DDFDF51342EFF8682755786B1F80CF4FDD5E3DE15A858F4ECD1D1F9D9F2A7D747EBDB77652C38F1BF41BAFACD276FB9DCF793AC386C2BA5FF1D1B1465F5623C459DF12E22DCE0949D6C54292555A538265F89BEDB303F6396886FAFBAEAE3F5252429515155455592959E9B1D4F48F78E0553ABFA7C2CD559A1DEF6FD0E9591DA03BB2D24FA7D3EFB8AD35FA2DAB39B3673F9C3871E2C9914307F9DAE9F41B95BE686CC72B5E5AADC6756F277B86D641414161A0A58545DCA573E7845BD7AED1B9336728212EEED5645D5DB53FF1399FB2B9A96991EDBC79046C34D3C8A869EC9831456DDBB6D5923ED363BEE98BB3F9ACE90606FB7685857FAE61F9FEC50BAAFFE5178A8E882850525252FCB39E51B66FDFBE9FFFFAF5753EAB5691A5991939CF9F4F7A9326D1441D9D47E8CB2270AEF2EED3A74FAEC1B4691FCCCD4C8573A7CBE905345FFBFA0D3D7FF488DDB3E8776AB4ADBCBC7CE7FFC1F3CBDFF58C13DC3B5CBB7C5972AFB29232D2D26853602005F8F9D1DC39730437D745C2AA152B2413C66B93D9DCB9425E56163DA9AEA69F516BDFFEFC335D3A7F9E860C1EECCA9EC14A3526DF2C1728499F9F2AE36C3C5C435DDDCFDCD4ECA08A8A4A9B3FD2016BBCBD7DCE9E3EDDF46365A570E5D245CAD8B3870EE4E551E9C18314B6752BB92E58402B3C3CC45AF5E0EE5D91FBBA376FE87D6D2D9DFFEE3B5AE6EE5E3D74C85047454545F65C96C5410F581FC4CA28E58ECAD60306F44F7271767E181F1D2D99676575B75BB76EEDFE600DB532323434F45EB162E73A9F3545EBD7ACC9D8B669734E6A52D28DD3C78F0BFEEBD60949B1B15471F3263D7AF040ACB5B5C0FF4B5D1DDD45FE59E8E2424E4E4E8DB6B6B69583070D2AFD5655B5A85FDFBE7F339836F5C50A4F4FC97670B06CC91272B4B76FDC1C1C9CAE3D6EBCD2BF2330466B6AB65FEBE3B3263622B2FED4B1E322FE87C0FFE2E9538EFFED5BD116C23FA3478FA6A54B970A4E8E8E1402FDC1A7C4F2818EB636811B21D0CFEFFEAEB01DF68EB6F64AFFCEE0EED0AE83A2FB62B7DDBEDEDE4DFBF6EC11AE7EFF3D3D86FE59EE61FA67F85F3E794AB15151E48798F1F2F4449C980A96E6E62C868464E4D6E4F8F8102787F9DFFC59C9B5B5626B8551C3868F9DAAA7176266627271A5A7E7AFC024405B5479EB16BD823FDE21167E7AFD9A2A6FDF96204E9E1717141C0ADAB871E1D021433AFF5FFA1F42D4D4D4DA686968F41F3F668CB9BEAEAEEF0C03835DE62626513696969BAC2D2C5C671BCD9C307EECD86E0A720A0A72FFFFF7DFFE11FB43A63E234F62C63E23EDE26463D0FF723CF31F3AD64BC7876C9CC2AE77A27AE948F4650C92EBFB888F72F2FC7ACB11FF2A8A6310BB01E319B929E2582F27DE2FF28EF1BF00FD6C1AFF]
 link(onCreate,1964101:doAdd,[(103,125)(103,118)])
}
Add(Clipboard,2828579,161,49)
{
}
Add(ArrayEnum,11200585,161,182)
{
 link(onItem,13826388:doSearch,[(261,188)(261,153)])
 link(Array,1964101:Array,[(167,162)(174,162)])
}
Add(Button,748021,77,182)
{
 Left=5
 Top=470
 Caption="Поиск"
 link(onClick,521194:doEvent1,[(117,188)(117,181)])
}
Add(Hub,521194,126,175)
{
 link(onEvent1,11200585:doEnum,[(150,181)(150,188)])
}
Add(StrCat,1656694,545,114)
{
 Str2="*"
 link(onStrCat,10733217:doEvent1,[(590,120)(590,118)])
 link(Str1,4856865:Result,[(551,102)(527,102)(527,156)(503,156)])
}
Add(StrCat,4856865,497,112)
{
 Str1="*"
 link(onStrCat,1656694:doStrCat,[(537,118)(537,120)])
 link(Str2,5415623:Result,[(510,100)(482,100)(482,205)(454,205)])
}
Add(Trim,5415623,448,161)
{
 Point(Result)
 link(onTrim,4856865:doStrCat,[(488,167)(488,118)])
 link(Text,16528152:Result,[(454,149)(428,149)(428,209)(395,209)])
}
Add(MultiReplace,16528152,389,165)
{
 ReplaceList="(Черн. 1,0)=;\r\n(Черн. 1,5)=;\r\n(Черн. 2,0)=;\r\n(Черн. 2,5)=;\r\n(Черн. 3,0)=;\r\n(Черн.1,0)=;\r\n(Черн.1,5)=;\r\n(Черн.2,0)=;\r\n(Черн.2,5)=;\r\n(Черн.3,0)=;\r\n(Оц. 1,0)=;\r\n(Оц. 1,5)=;\r\n(Оц. 2,0)=;\r\n(Оц. 2,5)=;\r\n(Оц.1,0)=;\r\n(Оц.1,5)=;\r\n(Оц.2,0)=;\r\n(Оц.2,5)=;\r\nЭ=*;\r\n/=*;\r\n.=*;\r\n\r\n"
 Mode=1
 link(onResult,5415623:doTrim,[(438,171)(438,167)])
}
Add(BlockFind,13826388,329,147)
{
 StartBlock="."
 EndBlock=")"
 link(onSearch,16528152:doMultiReplace,[(375,153)(375,171)])
}
Add(Memo,1964101,154,112)
{
 Top=5
 Width=315
 Height=455
 link(Str,2828579:Text,[(160,96)(167,96)])
}
Add(Hub,10733217,595,112)
{
 link(onEvent1,3057202:doPush,[(640,118)(640,195)])
 link(onEvent2,13659289:doSleepMks,[(621,125)(621,177)(541,177)(541,230)])
}
Add(Stack,3057202,679,189)
{
 link(onPop,2094306:doEvent1,[(727,202)(727,265)])
 link(Data,1656694:Result,[(685,175)(594,175)(594,158)(551,158)])
}
Add(Label,8203284,910,161)
{
 Left=275
 Top=465
 Visible=1
}
Add(Label,9536904,1036,165)
{
 Left=205
 Top=465
 Visible=1
 Caption="d:\\77\"
}
Add(DirTools,10556004,973,259)
{
 link(Source,8203284:Caption,[(979,212)(916,212)])
 link(Dest,9536904:Caption,[(986,217)(1042,217)])
}
Add(FileSearch,13399579,770,259)
{
 Ext=""
 Dir="\\192.168.50.253\\общие документы\"
 link(onSearch,2853466:doEvent1,[])
 link(onEndSearch,2294743:doMessage,[(818,272)(818,314)])
 link(Ext,6725221:Var3,[(776,240)])
}
Add(Message,2294743,833,308)
{
 Message="Поиск завершен"
}
Add(Hub,2853466,847,259)
{
 link(onEvent1,8203284:doText,[(885,265)(885,167)])
 link(onEvent2,10556004:doCopy,[(917,272)(917,265)])
}
Add(Sleep,13659289,553,224)
{
 Delay=60
 link(onSleep,3057202:doPop,[(632,230)(632,202)])
}
Add(Hub,2094306,735,259)
{
 link(onEvent1,13399579:doSearch,[])
}
Add(GetDataEx,6725221,756,235)
{
 Angle=3
 link(Data,5406730:Var3,[])
}
Add(GetDataEx,5406730,749,235)
{
 Angle=3
 link(Data,3057202:Value,[(685,240)])
}

вот только он в сетевой папке по IP не хочет искать, если её прицепить как сетевой диск то все Ок. Как правильно прописать путь по IP?

Редактировалось 1 раз(а), последний 2017-05-24 13:41:04

карма: 0

Ответов: 16884

Рейтинг: 1239

#155: 2017-05-24 14:22:56 ЛС | профиль | цитата

SaturN26 писал(а):

Как сделать что бы перебор массива ждал пока поиск закончится.

Выбросить FileSearch вообще.
У компонента DirTools открыть точку

*doExists=Проверяет наличие на диске папки или файла с именем Source и выдает в потоке onOK: 1 - если папка существует, 2 - если файл существует, и 0 - при отсутствии таковых|1|

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Голосовали:

SaturN26

Ответов: 47

Рейтинг: 0

#156: 2017-05-24 15:15:58 ЛС | профиль | цитата

А как искать файлы в сетевой папке по IP?

карма: 0

Ответов: 16884

Рейтинг: 1239

#157: 2017-05-24 17:44:54 ЛС | профиль | цитата

SaturN26, встречный вопрос : Что такое IP ?

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 47

Рейтинг: 0

#158: 2017-05-25 07:56:08 ЛС | профиль | цитата

Да уж безграмотно написал. Попробую по другому. В сети есть компьютер я знаю его IP на нем есть расшаренная папка Общие документы. Как грамотно сделать что бы искало файлы Там.

карма: 0

Ответов: 47

Рейтинг: 0

#159: 2017-05-29 15:32:52 ЛС | профиль | цитата

Как сделать что бы программа постоянно висела в фоне и отслеживала появление определенного окна?

--- Добавлено в 2017-05-29 16:09:46

SaturN26 писал(а):

Как сделать что бы программа постоянно висела в фоне и отслеживала появление определенного окна?

Все не надо

Сам сделал



Add(Service,2953706,21,105)
{
 Wait=0
 link(onStart,15951871:doTimer,[(114,111)(114,132)])
}
Add(Message,734446,441,42)
{
 Message="Продолжить отслеживание?"
 Caption="Обнаружено окно Сохранения"
 Type=2
 Point(onYES)
 Point(onNO)
 link(onNO,2953706:doStop,[(485,62)(485,86)(9,86)(9,111)])
}
Add(WinEnum,9926409,245,105)
{
 VisibleOnly=1
 link(onFindWindow,16183853:doCompare,[])
}
Add(StrMask,16183853,308,105)
{
 Mask="*Укажите имя*"
 Point(doMask)
 link(onTrue,734446:doMessage,[(390,118)(390,48)])
}
Add(Timer,15951871,161,126)
{
 link(onTimer,9926409:doEnum,[(219,132)(219,111)])
}

Редактировалось 1 раз(а), последний 2017-05-29 16:09:46

карма: 0

Ответов: 47

Рейтинг: 0

#160: 2017-08-08 10:06:59 ЛС | профиль | цитата

Здравствуйте! Как сделать что бы окно формы привязалось к определенному окну и перемещалось за ним если его сдвигать?

карма: 0

Ответов: 497

Рейтинг: 16

#161: 2017-08-08 15:30:37 ЛС | профиль | цитата

я вот так всегда делаю

только вот что!!!! почему после переназначения родительского окна хэндле родителя равен 0 ?


Add(MainForm,2953706,504,161)
{
 Name="test"
 Point(Handle)
}
Add(ChildForm,7406409,455,161)
{
 link(Data1,441285:Var1,[(461,149)(433,149)])
}
BEGIN_SDK
  Add(EditMulti,10119223,21,21)
  {
   WorkCount=1
   DataCount=1
   VarCount=1
   Width=447
   Height=277
   link(Var1,779679:Handle,[(27,218)(104,218)])
   link(doWork1,3418446:doData,[(70,27)(70,202)])
  }
  Add(MainForm,779679,98,42)
  {
   Left=35
   Top=105
   Width=646
   Height=23
   BorderStyle=0
   Point(Handle)
  }
  Add(Edit,10177834,175,189)
  {
   Width=646
   Height=23
   Align=5
   Color=0
   Font=[MS Sans Serif,8,0,16777215,1]
   link(onChange,7400989:doCaption,[])
  }
  Add(WinTools,7400989,280,161)
  {
   Point(doCaption)
   link(Handle,10119223:Data1,[(286,91)(27,91)])
  }
  Add(DoData,3418446,119,196)
  {
   link(onEventData,10177834:doText2,[])
   link(Data,7400989:CaptionText,[(125,184)(205,184)(205,211)(286,211)])
  }
END_SDK
Add(SetParent,4898195,455,224)
{
 link(onSetParent,16273976:doEvent1,[])
 link(Handle,1681077:Var2,[])
}
Add(Button,2151865,259,224)
{
 Left=145
 Top=10
 Caption="start"
 link(onClick,1627804:doExec,[])
}
Add(WinExec,1627804,322,224)
{
 FileName="notepad.exe"
 link(onExec,6392700:doFind,[])
}
Add(FindWindow,6392700,399,224)
{
 ClassName="Notepad"
 SkipParam=1
 link(onFind,4898195:doSetParent,[])
}
Add(PosWindow,10245666,602,224)
{
 link(Handle,1681077:Var3,[(608,208)])
}
Add(GetDataEx,1681077,455,203)
{
 link(Data,7406409:Var1,[])
}
Add(Hub,16273976,539,224)
{
 OutCount=4
 link(onEvent1,10245666:doLeft,[])
 link(onEvent2,10245666:doTop,[])
 link(onEvent3,1665774:doFindChild,[(581,244)(581,293)])
 link(onEvent4,1924086:In,[])
}
Add(FindWindow,1665774,595,280)
{
 ClassName="Edit"
 SkipParam=1
 Point(ChildHandle)
 link(onFind,8471118:doTop,[])
 link(ParentHandle,441285:Var3,[(601,268)])
}
Add(GetDataEx,441285,427,263)
{
 Angle=3
 link(Data,6392700:Handle,[(405,268)])
}
Add(PosWindow,8471118,658,273)
{
 Top=22
}
Add(LineBreak,7427954,392,161)
{
 link(Out,7406409:doWork1,[])
 Primary=[1924086,273,84]
}

карма: 1

]

Ответов: 824

Рейтинг: 138

#162: 2017-08-09 00:43:43 ЛС | профиль | цитата

Привязка своего окна к любому другому

Add(MainForm,2953706,770,245)
{
 Width=413
 Height=125
 Caption="Привязка окна"
 Point(doLeft)
 Point(doTop)
 Point(Handle)
 link(onCreate,2252219:doPopup,[])
}
Add(Button,9831433,175,147)
{
 Left=15
 Top=10
 Width=80
 Caption="Привязать"
 Point(doEnabled)
 link(onClick,11523607:doMessage,[])
}
Add(Button,1053009,175,280)
{
 Left=105
 Top=10
 Width=80
 Enabled=1
 Caption="Отвязать"
 Data=String(Привязано к окну: Непривязано!)
 Point(doEnabled)
 link(onClick,7994391:doEvent1,[])
}
Add(LED,12120273,770,168)
{
 Left=205
 Top=5
}
Add(WinInfo,13885701,518,273)
{
 Point(Left)
 Point(Top)
 link(onWinInfo,10919155:doEvent1,[])
 link(Handle,3559114:Value,[])
}
Add(MouseEvent,8125040,371,98)
{
 Point(Handle)
}
Add(Keyboard,4072279,336,154)
{
 Key=1
 link(onReadKey,13694263:doEvent,[])
}
Add(Timer,11522873,287,154)
{
 Interval=25
 Enable=1
 link(onTimer,4072279:doReadKey,[])
}
Add(IndexToChanel,13694263,385,154)
{
 Point(Data)
 link(onEvent2,11955218:doEvent1,[])
 link(Data,8125040:Handle,[])
}
Add(Hub,11955218,434,161)
{
 OutCount=4
 link(onEvent1,3559114:doValue,[])
 link(onEvent2,11522873:doStop,[(501,174)(501,202)(277,202)(277,167)])
 link(onEvent3,6387108:In,[])
 link(onEvent4,15099386:In,[])
}
Add(Memory,3559114,518,161)
{
 link(onData,4379711:doWinInfo,[])
}
Add(LineBreak,5435867,371,273)
{
 Caption="run"
 link(Out,14033660:doStart,[])
 Primary=[15099386,91,-91]
}
Add(ChanelToIndex,1914937,126,147)
{
 link(onIndex,9831433:doEnabled,[])
}
Add(ChanelToIndex,15926829,126,280)
{
 link(onIndex,1053009:doEnabled,[])
}
Add(Hub,4183155,294,287)
{
 OutCount=4
 link(onEvent1,12036244:In,[])
 link(onEvent2,8365406:In,[])
 link(onEvent3,1914937:doWork2,[(347,307)(347,335)(109,335)(109,160)])
 link(onEvent4,15926829:doWork1,[(340,314)(340,328)(116,328)(116,286)])
}
Add(LineBreak,2657671,28,147)
{
 Caption="dis"
 link(Out,13361741:doEvent1,[])
 Primary=[6387108,434,28]
}
Add(Hub,13361741,70,147)
{
 link(onEvent1,1914937:doWork1,[])
 link(onEvent2,15926829:doWork2,[(102,160)(102,293)])
}
Add(Hub,10919155,574,273)
{
 link(onEvent1,10135828:doCalc,[])
 link(onEvent2,440256:doCalc,[])
}
Add(WinInfo,4379711,595,161)
{
 Point(Left)
 Point(Top)
 link(onWinInfo,12667640:doEvent1,[])
}
Add(WinInfo,12704085,679,168)
{
 Point(Left)
 Point(Top)
 link(onWinInfo,12120273:doChangeValue,[])
 link(Handle,6271307:getVar,[])
}
Add(LineBreak,12112241,721,175)
{
 Caption="off"
 link(Out,12120273:doOff,[])
 Primary=[12036244,-385,112]
}
Add(FastMathParse,10135828,602,273)
{
 DataCount=3
 MathStr="%3 - (%2 - %1)"
 link(onResult,2953706:doLeft,[])
 link(X1,13885701:Left,[(608,264)(566,264)(566,320)(538,320)])
 link(X2,4379711:Left,[])
 link(X3,12704085:Left,[(622,243)(699,243)])
}
Add(FastMathParse,440256,679,280)
{
 DataCount=3
 MathStr="%3 - (%2 - %1)"
 link(onResult,2953706:doTop,[])
 link(X1,13885701:Top,[(685,250)(559,250)(559,313)(545,313)])
 link(X2,4379711:Top,[(692,236)(622,236)])
 link(X3,12704085:Top,[(699,258)(706,258)])
}
Add(Thread,14033660,427,273)
{
 Delay=10
 link(onExec,13885701:doWinInfo,[])
}
Add(Hub,7994391,266,280)
{
 link(onEvent1,14033660:doStop,[])
 link(onEvent2,4183155:doEvent1,[])
}
Add(WinTools,2252219,833,252)
{
 link(Handle,2573575:getVar,[])
}
Add(LineBreakEx,3097492,770,308)
{
 Caption="MyHDL"
 Type=3
 link(_Data,2953706:Handle,[])
}
Add(LineBreakEx,2573575,833,217)
{
 Caption="MyHDL"
 Type=2
}
Add(LineBreakEx,6271307,679,133)
{
 Caption="MyHDL"
 Type=2
}
Add(Label,9557937,903,161)
{
 Left=15
 Top=45
 Width=365
 Height=35
 Caption="Привязано к окну: Непривязано!"
 AutoSize=1
}
Add(FormatStr,5444884,819,161)
{
 DataCount=1
 Mask="Привязано к окну:\r\n%1\r\n"
 link(onFString,14312587:doWork2,[])
 link(Str1,4379711:Caption,[(825,124)(587,124)(587,201)(608,201)])
}
Add(Hub,12667640,637,161)
{
 link(onEvent1,5444884:doString,[])
 link(onEvent2,12704085:doWinInfo,[])
}
Add(LineBreak,16043449,840,133)
{
 link(Out,14312587:doWork1,[(886,139)])
 Primary=[8365406,-504,161]
}
Add(HubEx,14312587,882,161)
{
 link(onEvent,9557937:doText,[])
}
Add(Message,11523607,231,147)
{
 Message="Для привязки этого окна к любому\r\nдругому - нажмите "Ок" и кликните\r\nпо целевому окну.\r\n\r\nПродолжить?"
 Caption="Внимание!"
 Type=1
 Point(onOK)
 link(onOK,11522873:doTimer,[])
}

Для привязки нажать кнопку "привязать" и кликнуть по целевому окну.

Редактировалось 2 раз(а), последний 2017-08-09 00:51:45

карма: 1

Ответов: 497

Рейтинг: 16

#163: 2017-08-09 01:52:47 ЛС | профиль | цитата

sashaoli, ну немного подправить и будет самое оно

оно


Add(MainForm,16595783,840,273)
{
 Width=413
 Height=125
 Caption="Привязка окна"
 Point(doLeft)
 Point(doTop)
 Point(Handle)
 link(onCreate,2252219:doPopup,[])
}
Add(Button,9831433,245,175)
{
 Left=15
 Top=10
 Width=80
 Caption="Привязать"
 Point(doEnabled)
 link(onClick,11523607:doMessage,[])
}
Add(Button,1053009,133,301)
{
 Left=105
 Top=10
 Width=80
 Enabled=1
 Caption="Отвязать"
 Data=String(Привязано к окну: Непривязано!)
 Point(doEnabled)
 link(onClick,7994391:doEvent1,[])
}
Add(LED,12120273,840,196)
{
 Left=205
 Top=5
}
Add(WinInfo,13885701,588,301)
{
 Point(Left)
 Point(Top)
 link(onWinInfo,10919155:doEvent1,[])
 link(Handle,15600096:Var2,[])
}
Add(MouseEvent,8125040,441,126)
{
 Point(Handle)
}
Add(Keyboard,4072279,406,182)
{
 Key=1
 link(onReadKey,13694263:doEvent,[])
}
Add(Timer,11522873,357,182)
{
 Interval=25
 Enable=1
 link(onTimer,4072279:doReadKey,[])
}
Add(IndexToChanel,13694263,455,182)
{
 Point(Data)
 link(onEvent2,11955218:doEvent1,[])
 link(Data,8125040:Handle,[])
}
Add(Hub,11955218,504,189)
{
 OutCount=4
 link(onEvent1,3559114:doValue,[])
 link(onEvent2,11522873:doStop,[(571,202)(571,230)(347,230)(347,195)])
 link(onEvent3,6387108:In,[])
 link(onEvent4,15099386:In,[])
}
Add(Memory,3559114,588,189)
{
 link(onData,1106389:doWork2,[])
}
Add(LineBreak,8148742,329,294)
{
 Caption="run"
 link(Out,14033660:doStart,[])
 Primary=[15099386,203,-84]
}
Add(ChanelToIndex,1914937,196,175)
{
 link(onIndex,9831433:doEnabled,[])
}
Add(ChanelToIndex,15926829,84,301)
{
 link(onIndex,1053009:doEnabled,[])
}
Add(Hub,4183155,252,308)
{
 OutCount=4
 link(onEvent1,12036244:In,[])
 link(onEvent2,8365406:In,[])
 link(onEvent3,1914937:doWork2,[(278,328)(278,261)(184,261)(184,188)])
 link(onEvent4,15926829:doWork1,[(278,335)(278,321)(72,321)(72,307)])
}
Add(LineBreak,4404419,98,175)
{
 Caption="dis"
 link(Out,13361741:doEvent1,[])
 Primary=[6387108,434,28]
}
Add(Hub,13361741,140,175)
{
 link(onEvent1,1914937:doWork1,[])
 link(onEvent2,15926829:doWork2,[(172,188)(172,314)])
}
Add(Hub,10919155,644,301)
{
 link(onEvent1,10135828:doCalc,[])
 link(onEvent2,440256:doCalc,[])
}
Add(WinInfo,4379711,665,189)
{
 Point(Left)
 Point(Top)
 link(onWinInfo,12667640:doEvent1,[])
 link(Handle,15600096:Var3,[(671,177)(634,177)(634,236)])
}
Add(WinInfo,12704085,749,196)
{
 Point(Left)
 Point(Top)
 link(onWinInfo,12120273:doOn,[(811,202)(811,216)])
 link(Handle,6271307:getVar,[])
}
Add(LineBreak,9189513,791,203)
{
 Caption="off"
 link(Out,12120273:doOff,[])
 Primary=[12036244,-497,105]
}
Add(FastMathParse,10135828,672,301)
{
 DataCount=3
 MathStr="%3 - (%2 - %1)"
 link(onResult,16595783:doLeft,[])
 link(X1,13885701:Left,[(678,292)(636,292)(636,348)(608,348)])
 link(X2,4379711:Left,[])
 link(X3,12704085:Left,[(692,271)(769,271)])
}
Add(FastMathParse,440256,749,308)
{
 DataCount=3
 MathStr="%3 - (%2 - %1)"
 link(onResult,16595783:doTop,[])
 link(X1,13885701:Top,[(755,278)(629,278)(629,341)(615,341)])
 link(X2,4379711:Top,[(762,264)(692,264)])
 link(X3,12704085:Top,[(769,286)(776,286)])
}
Add(Thread,14033660,385,294)
{
 Delay=10
 link(onExec,13858008:doCompare,[])
}
Add(Hub,7994391,224,301)
{
 link(onEvent1,14033660:doStop,[])
 link(onEvent2,4183155:doEvent1,[])
}
Add(WinTools,2252219,903,280)
{
 link(Handle,2573575:getVar,[])
}
Add(LineBreakEx,3097492,840,336)
{
 Caption="MyHDL"
 Type=3
 link(_Data,16595783:Handle,[])
}
Add(LineBreakEx,2573575,903,245)
{
 Caption="MyHDL"
 Type=2
}
Add(LineBreakEx,6271307,749,161)
{
 Caption="MyHDL"
 Type=2
}
Add(Label,9557937,973,189)
{
 Left=15
 Top=45
 Width=365
 Height=35
 Caption="Привязано к окну: Непривязано!"
 AutoSize=1
}
Add(FormatStr,5444884,889,189)
{
 DataCount=1
 Mask="Привязано к окну:\r\n%1\r\n"
 link(onFString,14312587:doWork2,[])
 link(Str1,4379711:Caption,[(895,152)(657,152)(657,229)(678,229)])
}
Add(Hub,12667640,707,189)
{
 link(onEvent1,5444884:doString,[])
 link(onEvent2,12704085:doWinInfo,[])
}
Add(LineBreak,14747337,910,161)
{
 link(Out,14312587:doWork1,[(956,167)])
 Primary=[8365406,-616,154]
}
Add(HubEx,14312587,952,189)
{
 link(onEvent,9557937:doText,[])
}
Add(Message,11523607,301,175)
{
 Message="Для привязки этого окна к любому\r\nдругому - нажмите "Ок" и кликните\r\nпо целевому окну.\r\n\r\nПродолжить?"
 Caption="Внимание!"
 Type=1
 Point(onOK)
 link(onOK,11522873:doTimer,[])
}
Add(WinEnum,13584128,455,238)
{
 Point(GetActiveWindow)
}
Add(If_else,13858008,462,294)
{
 link(onTrue,14201392:doEvent1,[])
 link(onFalse,1656688:doWork1,[(510,307)(510,370)])
 link(Op1,13584128:GetActiveWindow,[])
 link(Op2,15600096:Var1,[(475,279)(535,279)(535,236)])
}
Add(GetDataEx,15600096,588,231)
{
 link(Data,3559114:Value,[])
}
Add(Hub,14201392,525,294)
{
 link(onEvent1,4852313:In,[])
 link(onEvent2,13885701:doWinInfo,[])
}
Add(ChanelToIndex,1656688,518,364)
{
 link(onIndex,10726870:doData,[])
}
Add(LineBreak,4524203,588,168)
{
 link(Out,1106389:doWork1,[(634,174)])
 Primary=[6126647,77,203]
}
Add(ChangeMon,10726870,567,364)
{
 link(onData,15137313:doEvent,[])
}
Add(IndexToChanel,15137313,616,364)
{
 link(onEvent2,6126647:In,[])
}
Add(HubEx,1106389,630,189)
{
 link(onEvent,4379711:doWinInfo,[])
}
Add(LineBreak,13705759,469,371)
{
 link(Out,1656688:doWork2,[])
 Primary=[4852313,84,-77]
}

карма: 1

]

Ответов: 47

Рейтинг: 0

#164: 2017-08-09 08:12:31 ЛС | профиль | цитата

Спасибо!!!

карма: 0

Ответов: 824

Рейтинг: 138

#165: 2017-08-09 15:38:14 ЛС | профиль | цитата

RAWY_EX писал(а):

ну немного подправить и будет самое оно

Нет, не оно, а "огород городить" - тогда да, оно.

карма: 1

Форумы Между деломВопросы начинающих ← Ctrl1 2 3 4 5...7 8 9 101112 13 14 15 16Ctrl →


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