Вверх ↑
Этот топик читают: Гость
Ответов: 54
Рейтинг: 1
#1: 2012-06-24 12:59:10 ЛС | профиль | цитата
Делал для себя, подумал, может кому-то пригодится!
Текст перепечатывается с одного поля в другое побуквенно!
Если заменить поле ввода на многострочное, то новые строки будут показаны как надо!
code_28301.txt
карма: 1

0
файлы: 1code_28301.txt [2.4KB] [486]
vip
#1.1контекстная реклама от партнеров
Ответов: 1173
Рейтинг: 49
#2: 2012-06-24 13:10:19 ЛС | профиль | цитата
Ravilr писал(а):
Схема это законченное решение и несет в себе необходимый функционал для пользователя.
А здесь 20 элементов, функционала как-то и не видно, ещё и связи запутаны. ИМХО, конечно.
карма: 0

0
Ответов: 8886
Рейтинг: 823
#3: 2012-06-24 14:56:19 ЛС | профиль | цитата
Ex_, а вот так понятнее? (алгоритм без изменений ) code_28304.txt
карма: 19

0
файлы: 1code_28304.txt [12.4KB] [579]
Ответов: 1173
Рейтинг: 49
#4: 2012-06-24 16:06:02 ЛС | профиль | цитата
Леонид, вот так на 3 компонента меньше (а кол-во связей одинаковое ):
code_28305.txt
------------ Дoбавленo в 16.06:
[flood]Не в обиду топикстартеру, но чего-то в последнее время серьёзных схем на форуме не наблюдается [/flood]
карма: 0

0
файлы: 1code_28305.txt [12.6KB] [542]
Ответов: 1528
Рейтинг: 57
#5: 2012-06-24 16:34:15 ЛС | профиль | цитата
[flood]
Ex_ писал(а):
чего-то в последнее время серьёзных схем на форуме не наблюдается

они есть, их просто не замечают[/flood]
карма: 0

0
Ответов: 1173
Рейтинг: 49
#6: 2012-06-24 16:37:49 ЛС | профиль | цитата
[flood]hitman249, например? В "схемах" из последнего только Paint.DA, да и всё.[/flood]
карма: 0

0
Ответов: 1528
Рейтинг: 57
#7: 2012-06-24 16:48:21 ЛС | профиль | цитата
Ex_, [flood]рулетка например, которая вторая[/flood]
карма: 0

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#8: 2012-06-25 13:54:18 ЛС | профиль | цитата
Ex_ писал(а):
вот так на 3 компонента меньше

А вот так вообще не проще будет



Add(MainForm,7038509,140,217)
{
Width=340
Height=497
}
Add(Memo,16745362,231,217)
{
Left=10
Top=10
Width=150
Height=200
}
Add(Memo,9609651,483,217)
{
Left=165
Top=10
Width=150
Height=200
}
Add(Button,13234235,140,273)
{
Left=10
Top=220
Width=305
Caption="Do it!"
link(onClick,16426240:doEvent1,[])
}
Add(PlaySound,3971777,427,287)
{
PlayType=0
Sound=[ZIP6802000078DA3551B18ED4400CCD5151429596828E5FA00189D36E8BB48010C5DD81161171AB5D6D9489C6B2655B33CA448BEEB48740474173F535881A3E808E864FC877E049EE2699F8C97EF673ECE7F3C3C3A33B45F1F2C98B67CBD3FAC1BDA2280EECB9FFA818EF4171B778775C1F3F360E3313915DB3F61504114F1A90A4DFFA486D937610CE1A8AC3FCEFF0A31C7E95575E4B9A0DC3E2E96A28CBB9947F7EBF1EF6B393EFF4B0623DF9F7B3FA5AB95983CBEAFAFABDBBA0055C80FF8675F5F1EDE2D3A6EF28717DB46C5EC165EAF684BE79B3BEDCAF39F9D30D027C4EBB2FFB2DCAA691B4BB3A8B7EEB3E90E3F3F3149B66E55A27BD685CC7B8E2A0218982B6D859B73D0BB2C300A9D79D74C8C229085A82E7D0859810BC735E39F642D0D46D4B2C1AC803A126520D000C2831449184CC9151C9629E3D231A0B591555D9936F01B38080754C40D64AC766AD828804B63A8CE6340A831D1B2C8BD56A694CCB384F5DED351E639E3E9A0325FB32B61C634A8E61CE11CA62B6220EA660C64AC884685C9E29E43D8E9469A938D6B4E4510C79B279CF131A6B18CCC2E3419E926FBD7843BB8D8FF806DA3FF07FA4A7221A]
}
Add(PlaySound,9484238,427,343)
{
PlayType=0
Sound=[ZIP7F1D000078DA5D59CF8B1C4976D6DE7CB4FF00834FBED818CC62165F86F5B2DE611806812CDAA2A1698A364592A41382D8201CDAE898A850982008828424298A82A26904A21183400C622F6218F6E2830FBE2DBE18FF2BFEBEC86A8DB05A559D9D19F1E2FD7EDF7BF9ECABDFFC46FFF99327FFFC0F17FFB8FDD7DFFEC59F3E79F2E467F8F9B3BF7AD23E3F7BF2274FFE65F3DBCD3F618DFFFFFF1C3FF8F778FDD35FEBE5FAB7FBFCF6E7773F91719F7EB94FBFF0718F1BDAFF76C17BA1ADB0E7BB5C13D6DD163FDEDBCF0EFBE921D65A17B8C4191F572A317A177857B75DD6DA181A03C1BB4746F138B4CD3638DB8846DC6BEB4123364671DF0577FE67CFE77355FBB833EB67A6820FF81FFD676A7A1471E5D8AE14EC7A8A37E0002784F551C4EF108C5B0FF6D193BF47F98C01970112711FEFE1116E625FDB15AD8F3182671B1E2DE6A00C678C7367C5716B3BD835D1B90B7B5248D81782764D4E631BFF967AD42E1A8D1F49A6C1984F64D642B506AB83514E499E1970B39690123E609AE26845D5BBD89412680C70AF74B02007AE35D8E21565874C31D9909A6952749021380A4A55E04488469148AD29635598E55E6D46D0F2063C7139B4008D6AAD40023A33A09DE00A5064046339454A450DE274B2D9780F866A8762B01A1A84E4500E2452DAE247597049DDBBB3EFE1900413276AD18253FA494ACEB7D3A1CF82ADD1E09F6F7440180682C8D282BA85381A6C281B55740A4C2B6F820C7B1FC4A2AC342907928346C846D436FA1CF4ACA2E46E9A8E27CBA8275D5CA227382FADF0563A1DB435C1836032169670209C0C44CF2627D80E9BA75C420EC54BA5A0361A918E2EB90DCA852B651B612258166705E8354104283442F336E940B5079F29322DD4A202771C0E64AC35FD53EB54A7A3F85A8174E6C20CAD51DF508EA772E8445E27862B983441582FC0B1B7100B5CC0339330DA5AE99548A12453E5621628D1CDA20C708C3AEA216477F0750CD360B54885BE268384E60D3454226E502B29A6C96BEDA1547834CE1B4FB218BFDF44697DDAEED365721B6C3070A7128EDBB7DDFD68F6A13ECF498F69536F6C9050C0F1A8C3E16A1177C63C6CC27DAFCCFDD73F7EF3A1DF97A7FBAE7FB84EA39D84787FF9F0F4C38BEEFB2F7EF8E2A193D376BA9A5EC4837BBDF98F2F7FB8F86E33EFBB8FDD9DFCAE9F955A2E8FEE7839CEEE3AAB5ED8CD72552E1773B177DD552DEE38CE7B73BF07CFEFFD773E8FA5B7C38B8317973677DB7ADC4ED2983BD795A23BBB99F378514A16FA4EFC6ABF79FFD5F5D58550DFEDEB953F5DABF9C7F0FAE3FEDDDD87E9F59BBB32BD9DCAC55F862F7FB99157CF5EFCF5977FBFF4CB8FFEF5AF875FCB53DA889B8BE7EAAE1CD4767FFCCFB77FFC9FFEBF3FBC3DE48FEFEEFD1C44DA7CF885955FFFDDCDD5CDDB5FFE570C5FBF30DFF4D7FF7BD83C7DB8F87912EF2EFE707AAED3E9F278F7FE0B11C6512EDDC7939FDF7FFFF0C7F8C1CC37CFCCB85CBC4BF7DD7578FAF0DCA9E3C5901FD2F3E922FEE28597C2FCA1FFFDD73F26FFDDB31FBE32C5BDD773979E7FF345B8D6F532C78F378BCFEFC3A1FFD1BF1FDF1CBFCC7F137EFEECE98BA817F5D1BF2EF9FE50C6E34554A3FEB2FEBCBFCA0589EBEEC5C36571BD11D3D51B7D5FC5752C37779B6397E5C574B974AFCBBC0FEF6DECE654E71ACDF48515B3F355F8EDE9A2B363F4D3B3ADCD3A959AD3B43D88B9AFF5EAEDB8C0B5E52CF7E2A4B3DA1CC5BECB08727B823F563F8BE5644F3777A3F35B7B05FFBDDE23CEB6F16652F7488F767F952E4D9A433AE9073D7B3FDB451DBBC9D66C8A5AAEED6017FD462D7D1DC48D48FD71BB37B5C879381A1C344F6FC637F21ED94887CD244B87CC94AFE2C57C8D40ABE37EB31F10B97B7514A73E4865BB7C9D86245204B9839AFDBCAF551CCC2C7351F966BF8D9D715DDC1C6E728F78DD8FCB7044140EFE3A6C6B179C4CA2C8839D743A8ABC99066456B77543D93A9B663789454FDE2F6AE90E66317619A61EB4AD9FCDD4CD6A42B61FCB761AD34D6F61812AAB89492F431D1684B79EBA3A56268E93A8E382C81FF3308D336A813940BB15B9542EAA74C84B71AC721609C12B27330F4818760C025280A0238F19255346554484B170078F04B27692D091CAD125B54712451ECA504455283765985491A871882C3121195BFCC27939FA79840D150C5AE4D483A4D109D1378DA80845946D510994C7DAE531689D86DC559DACAA7A1EAB02D7B0221453AC297A3F4C7A76E0671927915100870C3A496937CEB8447ECA58BC17930949CDDD3414D4A5A18E730F11B32CFD3266E9BC28E3D44714B5B10C7B593534340DF35820BD8011C6247D82A2A6B1281764EDE73E4B502EDD222B32A6AA5D1D8AF25157B1573CCB4EE00717414D0274342ECA50A15BEF14960E0590492630825DDE4C721E279340196715D5164F43C52E180E72A81824E4EA8B0CB0CF00D70528C09AFD38491F74E562AC5179584411A8E675984535212A101449007AA47E12159282C38972217B8F338C87D36B0F9B69EFE8245070409862F10CC791759C0654A5A4F008CCA35C82EE5800186486BF648D420C61E06510071E34508732437608181005D3080FC21DF84B92287DF40538A95745C183405967A805468114E02F8367ACA9A0EC28609105171207C037A1E709FC650B67ABF43B6B13EF08D4D0086EAAC29AA4E10722A1FE8179E802F54765011775068B659128905154316B3AA4820C0AA53B8DB3AAB084C5C9381B96C82057605A83CDA2A228AA0CEB44729CE05FE4D84CA08CB8E0010860F067CA184770034BE82A03FC0094410E4848C38525A002B66AA81FFEADE1E6123804C6C6D98031780429A33351E26C8578CDD07226C2842E5484892003B006E003E4C4CFA70B200F3ED2484DD164C5233D98C005B05854098C836ED058A1084414EE012100A0C0BA30908583D84CF4D3F0097121EEE043E8C15581A80A891AD8034228DC213AC46205D4031C838805F0F42E2BAFD815809344248CC4005E088E5404651C100D32882726B4190895ED8522182394C3BDD03035F04ABB03164C03C409559A580C680DDCF132F011D680C94074C5BF98B62056062FAD4B81617D0202D384C9AD29A15C04B296CB891FC9A826DCD238241094796441CD4E079BB36B4D02D6608BB26442910AB259740D4DD33CC4C2DAEBA00CE11748BA44368A658F04680327F2005AD925EE014D68F4ACA4A888EB80B292218E5510A6352340989E52710FA01ABE9AC03839012F47A50979ABCECEC1136197C9C1ABFC5847F884C61908AA50AC479EEC27052088A68301A698912DF274A107C852B715B49DEBE31805322E7C10C6C16140F207E50B7851618CDD7209C386BEAA29D55490E90D4A691CE568AC027E84598C224AD70B1E6554B511B9B62F36799581E4018927CA0866AD852304A13580392C011D087A1EEA06A03D5C83E1E8E0A6E88434E28BF85FD3C5B80B76407964638596813E839687CE0445C32950A212413DA84810A653C073E87C584A512CEC0C00E722A242F21E4A01902B9CB6F57091F81CAE057345C25ABA2E57182BD9A012968379C3E8414062B505BEF6FC4AAEF935744C8302B93354C9806DDD0F82D4B0E7E379A8395E40AB09E1CC00411CC1770C0DDCBA65F63D8AFD347C10DE8CD6913EC528412C210AE06781AE94B26F9B917518E01E49A1750490D9B06F6A21041D67ECC9ECDBD77ECFB28B75D63D86065656A40E361A30220D89D049BCF4683D792A9B4B098785DAC13E524FF35CF44899410CA6A56D6ECE1882A288D2784800773850B36306F719A19FF3DAF595C0A6946D39B8475882556E8364681E40C29CFBF89C127D1FC758361D082866F558EC02E5BB54833682700967B327124949C9BE3AE768E09306325AF642EC0EA130345529517874449432C4294379138718684BA2ECC30648EE9BC3B0A8B7551E62DE6EBA7EDADEEFBBE3366D8EAFFDF3E4ABFDDEDEE401F93ECB6533CAD3625EFF6AB97CDA97E54ABD7DFBF1E6E1B94AFB411DDF2D57EF4E5B3BEABF95E2F9E5DDBD3BEDAFCD7CD0FDF4FBE5CDE935D8EDC66FBAFE525C849B2B7BE79F4DF510E7787A7F778A0FA319813B5F54DDC9613F6D37CA0BF430F954466800C1047CD8298D0E539AC1C92979A14FF0983B7D9873180FC7D3DD72DC2FF2E60AAE3B8E3737AED78340119A5D7153DEFB49DB4315002CE6C68F0C055151980E73A5ABD6C18C68B1819D4CBC09355456028DA6D1F6C98E2D9502A4C5540B953F080D603AA140C1F9625AF6875C17405F8BF265D829CF5ADC8C7ED47DF60BB35A8555C3EC1654C382FEDC04E05D24B60A3FA886FEE9F601E92008D539145CB805A235C69A33BCAC861961650E48448B56DBABA19328F5C948D9BBEB34E5A99CD264596CFD314CC8E7D60AA32A9CC5C42E096F46C70AEBA744175676D03DF296EE1D6711E015FE3DD73A193B009CC177B00FB98CBD33AA35A73F5900B920DD9B829F0A203286C1754AA134D4699F53AD2595B82F19B127C3A0070E77A4B11372579A128EB42C0D8C7A888EC4C39C8436C220CAA758A7142532F0388CCCA6CC5DE8990D533DF24B6A53267E3916078E40349DBBFD4294970AABF9AC8DE2C4C341CF89AD799BCE0090B67189467821143549336A2C638683959A0B4383B15072650D85F214CE92A22523456C80BF274E7290AAADA69A91D5E062B18590C94B758341A071528010F500FA526B2287CD563A34D03AE6C8580CB2CB8703BA6A56DF1B0148E397C35EB9D1A65435BA945CB1B8673D75D5148B3047E87242957265E1E534CD885866CE9BE4280CF48E040B1FF1424864D36CE013A066DD88023623CB0414AB10E0724EEC1DA76F328E39940909794144E1F0447013A41B90B9E0CBBE440222AB47A321AF02F0CF4CB150974B7962F6A3806DE487D428C5A039F6726E2EC47B707EC0055410C9E10DEC57A071383262C215141DA4A1C8FA87852C16AC0FC418A8941C29C2F9A461F16566D49A231ED489081A264389F05E941BD7100EE76596259B753FA25F621247E182B15BD169B0A6CDEE7C1B5C82170E024D9B30458E721B1DDA13E2111C7174C7795A206C002FC42358CBEAC591216A0F67952004CAD847E8C59C8F3AC6B2A12925CF6BC916EEA2E1AA0473609B33CD5676DB0C101ECC22E138A56B52532E97024B22C7CBAD2CD93620E6E8909ECF43E8AF2C06BC8F82AF09A01A904481776D32C6E13459E4933650733C9FE84053140245C611BCC2B6F13455D2A6D254CF3AA06E735A6A4F731D8BD9796ECB7DAC6E8DC3765C1B304302E21758605DECE90C646B553B0CDE467A6D244A05F3D4F3B038D26BD6BACCB5947A95975F641408C637F28D2DDAD6F3A4360364C6C6656C65BF8D9D69F1F3509DB1DA3CA02D26F936D82687E715EDA4D8765065EB656848993172B6EDBAC3356DF176E05C1C6CB54B8ED07D5CDF0EB4C5A12DF66DB33D2FF66D31796B2A72F454AE58A56EA3665AA04D9D916FDA0AA27C4EB6EDBA98F35F620BFF4879E56565CB3530EFCFE4BD3B8F4EC35986B343AD52D2C0AE2D26A2A46F85F696609DF8AF6F47421BDD07F7D9662A60758CC6CB6A8CF62AA3F1D2CC7CF689B698F2BA7652A063D89FCCC5D47E26BF925B55B4926B5213B07D3257582F57C6CF066DB3FAB6D9AC6F66ECCA965F7DDE7BF7C88B759FBCC19DAD7F7ED9D2E8ACEF683E6D7E3CA9AD588BCDA793ECA383FD64DB36A10FAEA928367D9E5D6765135AD8350B904DFBE877DCBCC3BEDDCEF3F90ED477AF78C7EF78D2EE9393F20D156DBBBE2B6A327031BFACC76E3CE7257798B347B355F4BB57AF707B07A220B46B949BCA5EADEFC676EBEB2252B6FF66DA7B2BE35FEDCE6FCCDC27B6B0E6D56EE75EBD6ACFF079B93240B65EBE6C1E6E57367117BFB0A79D070AFFBE6B529271EEE566AEDB9D65E06DE75F362977E70377BB55E3B72FD797597E77EB5ED24CB7678E57FE40E29652F3EECE9DF7357D363AB78FAF10DB0AACBD75FEF6F677B7A4B32A915FEDF2F6B651269D767EE075C01F20C915BBF31BB79F16F31B946F7F476AB74DD4DB7545B31C36D2F376BCDDCEFE8C8DF3FBBBDDD9CC4DC39E34CE6F293FAD68AFCDDABE95E7B515D8350BB4EFB05B6570DF7EEBFDB7DFFE1F4F249268]
}
Add(Case,14698931,371,336)
{
Value=String()
link(onNextCase,3971777:doPlay,[(415,342)(415,293)])
link(onTrue,9484238:doPlay,[])
}
Add(Str_Enum,3782241,231,280)
{
Delimiter=""
link(onEnum,5963399:doCase,[])
link(String,16745362:Text,[])
}
Add(StrCat,7964106,427,238)
{
Point(doClear)
link(onStrCat,9609651:doText,[])
link(Str1,7964106:Result,[(433,226)(421,226)(421,282)(433,282)])
}
Add(Hub,1970925,329,280)
{
OutCount=3
link(onEvent1,12442802:doReplace,[(357,286)(357,244)])
link(onEvent2,16416356:doProcessMessages,[])
link(onEvent3,14698931:doCase,[(357,300)(357,342)])
}
Add(Hub,16426240,196,273)
{
link(onEvent1,7964106:doClear,[(412,279)(412,251)])
link(onEvent2,3782241:doEnum,[])
}
Add(Application,16416356,371,287)
{
Wait=1
}
Add(Replace,12442802,371,238)
{
SubStr=""
DestStr="
"
link(onReplace,7964106:doStrCat,[])
}
Add(Case,5963399,280,280)
{
Value=String(
)
link(onNextCase,1970925:doEvent1,[])
}

карма: 22

0
Ответов: 1173
Рейтинг: 49
#9: 2012-06-25 14:10:18 ЛС | профиль | цитата
nesco, в вашей схеме непонятно, как изменять интервал (если это вообще возможно).
карма: 0

0
Ответов: 8886
Рейтинг: 823
#10: 2012-06-25 14:19:20 ЛС | профиль | цитата
nesco писал(а):
так вообще не проще будет

Леонид писал(а):
алгоритм без изменений

карма: 19

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#11: 2012-06-25 14:30:55 ЛС | профиль | цитата
Ex_ писал(а):
как изменять интервал

Во-первых: это надо или нет -- никто не знает;
Во-вторых: если хорошо подумать, то и это можно впихнуть без особых затрат.
Леонид писал(а):
алгоритм без изменений

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

0
Ответов: 16884
Рейтинг: 1239
#12: 2012-06-25 15:41:40 ЛС | профиль | цитата
nesco писал(а):
Схема чисто обучающая, для новичков.
Новичкам, кстати, не мешало бы сказать, что данная схема очень хороша для разогрева процессора и что очищать Memo и переписывать весь текст из-за каждого следующего знака - полный отстой.
ИМХО.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#13: 2012-06-25 16:08:23 ЛС | профиль | цитата
Tad писал(а):
переписывать весь текст из-за каждого следующего знака - полный отстой

Ты прав, не очень хорошее решение. Сейчас замутим посимвольный ввод
------------ Дoбавленo в 16.08:
А вот что интересно, это то, что с Memo посимвольный ввод не шибко-то и получается, туда зачем-то лезет постоянный перевод строки, даже, если просто эмулировать нажатие
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#14: 2012-06-25 16:14:57 ЛС | профиль | цитата
nesco, про
nesco писал(а):
лезет постоянный перевод строки
я поднимал вопрос где-то в году 2005.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#15: 2012-06-25 16:19:27 ЛС | профиль | цитата
Tad писал(а):
я поднимал вопрос где-то в году 2005

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

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