Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2021-06-06 15:48:51 ЛС | профиль | цитата
ibegen, ох, блин!
Пытка №2


Add(MainForm,4253353,350,63)
{
Width=699
Height=422
Color=-16777216
BorderStyle=5
Icon=[ZIP16C9000078DAED5D09601445D67E3393CC2493C91D72700676415C4189BFB05E4844DC5F145822BAAE82288722EB41E281827279A1AC8B44DDD5F53E51775D042FF45F8F008AE0AA1844161504564014858012C261FA7F6FFAEB4CCF304767CE9EEC14BC547775BDEAF77AAADE55D5D54416725179791EE769B4DD4AB49C88F2F2D4F39E16A20536A23E7D88CF33E8B91CA2B569C4F5719E4134BD50EAABE797A513F5E848545929E7E5D47320D1DCAE1A7E393DD79DE8B571443D7BAAE797B5271A7DA7D61E5FE776963F45545AAA9EDF914974D52B444545EAF9EB76A2C6B7B4FB313ED3B2E05D6E8F69E626886FEBA65BD24C2BB5A43CD2A799EEFF3473A69AC93F29E23F7575755CA2B8FF93A2A899FC9322F9E34E0EA26A7D7B8E6A47D0F36A374AF0A4AB50ED504187EE7DFD7A4775D0EBD53EE787B5EFE0265A713F87CFFD1C541D823E4EC1DA3B9C3EEFF6E51F859D7CEFE7BE5D75500C879126A52F1CDCA828FB1F53A1215751363914A5CEA6285F7EA9C2EA918AB2F1A0A27C92151AA49E86F7F9436A3B7A90B60F0D50A179861B7AA22F97EBFA791DC5AA9FBBD3F5D7FBEDF32D4F547B762DBFB8CF93067E0BDAF5D5D53EFDBEDA7700B849A24303889ABAA8C7CD33D4735F906B524703A92765F29C58E4D0C5A4CA25F7D370EA6E60F11CA6A7A793D3E9A4ECEC6CCACFCF67595344656565D4A95327964BE5D4BD7B773AF2C823A977EFDE2CC7FA50BF7EFDE884134EA0934F3E99060E1C4883070FA6214386505555159D7FFEF974E18517D2D8B16369FCF8F13471E244BAF2CA2B79BC54D3E4C99369EAD4A9346DDA34AADFA1789E73AF6388CE1A4E74193F88DBE7113DB39068D92AA2CD0D94BF4BA18ADD0A55FDA850CD5E856AF729B468BF42F50775F8C7B0801DFE6B7E8E4388E6B1705D388568D5DD440DF3295F79852A94B7A94A594135CAA754ABACA745CA56AA571A74F82CD487B3C0ADEEC6F8BD18BF1FE3B3246D3893F147327E0DE3CF66FC4718FF25C65FC9F81B5BF0AD4C7E1A936F67F233987C27939FC5E4E734703F550AA8BF524123952A9AC2ED3CA0D4D2ABCA225AA3D4B7E017317E37C6EFC3F8FD197F08E39FCFF81318FF06259FE630FEC38CBF80F1EB187F35E36FD1E1F760FC4AC6BF80F1AF65FCB98CFF3CE32F65FC7AC65FC7F85F31FED78CFF2DE3EF62FC461DFE313D98FD5399FD91CCFEB5CCFE5C66FF79667F19F7A5D5F9A4ACAB20654315295B6A48F9AE96948645A434EAF059370DE74757CD1D6EDE298C3F94F1B9AD86898C3F85F1E730FE238CFF22E32F61FCD58CBF5587CFFA75380FE56AD66DF358DF2DE47EBACAC5F8FCB328E505A49CC2F8A3187F2AE3DFCFF8AF31FE1A1D3EE5D0702AE161D495E6D151B490FAD12AD6840D349894FC0B48A9A826A5EA76526A1E26A5F6255216AD20A57EA30EBF9CF1FB31FE10C61FCBF83730FE5CC67F9AF15F66FCB719FF7DC6E77BD6AE67FCAD8CEFE93FBDB885B3B88589DCC26C6EE1196EE15D6E6133B7D090AFD09E0A857EAA52A8B146A17DB50AED5FA4D0C17A4FFFEDC0F8BD197F00E39FCDF8E3187F32E3DFC1F87F65FCF98CFF0AE32F65FC558CBF9EF177E8F033F004DA317E07C6EFCAF83D18BF17E39FC2F8BF67FC1AC6BF8BF1E733FE3B8CFF850EDF37E5F33FFE5F6054DD64F13F36A15C46EBBBA47E96F1FA59ADAC9FD191E55D46A74C4395DB3B6D164E56B292CDD93E64F56C8BFECC9213A27A896F416988E6335CAE2C5B7A567ABA2BDD96E5726584B841B6FCE1E1525C224F482B08519F87596919F48D81FA452EB5BE4B6837408F3D97A8804DE2DC4C43ED772A2E2E2D2D29612836D67EF082C32EE7D8D26C483946DA77EA3B9E81F69D36AB25CD6249239BD558FD76455656B7646DD72ECB083D5965A536CA7291B5B4D458FB76BB25D36ACDB4D8EDC6EA7BF16BE0F938EC16A7D566BCFDF6A0BFACD458FB5ECFC740FB561EB9168B8DACD6AC58FCBE39692D292716FDB3535171893B15B7EB64787C493238BEDCE3D72D764B8DCB87167BD4A0FC51C57AE8F65D196C68DAD29D594E67BACDE9CCCA70855215A10AE25B3F27648177EA60F13EB7740CA1300ABDF54B61680596976177FBF9567B469E4105992F7F0CAB77EE41F2A79DF1FA656CD0D9CA5AE1B072DDF614CB949111E082A2EC7D51F5F902E5BBEF56F3991635073413CDF0CA1B2779E7DB2678E7750E3557149CDBFCE74B4FF3CE23ADE77BBF6FBEF1CEF7EDF2CE7DF90A91B78038EC923775F19F8B132FB938F29EDC3B6E053F352DB09F9A9999E9F6530B0B0BBDFCD46EDDBA518F1E3D5AFCD48A8A0AEADBB72F1D7FFCF1D4BF7F7FAAACACA4418306D119679C4143870EA5112346D0B9E79EEBF657478F1E4D63C68C71FBAB93264DA2ABAFBEDAEDAB4E993285A64F9F9EF253537E6ACA4F35939FDAB1E58FFF54CA8654A720FAA7A4033313D8132BB6DB33321CF6E200976D871D78A5DC4C67BA9D53BAD399EBB775E8D362F77FBF2E631EF47389FFEB9D7258EC89E55112C2E50C703D278D25A958B301AEB3476CB55A6C5981AEE7966517166697E505BAEECAB63B9DF66C57A0EB99167772066CBF382B3F3FAB383720FD05993939990501E987E31FB0FDD27C772A0DEFF995C2C80DF2FCDDA6556100679FCB0BA47F16BA0F0F4F4E4B4BCAF27BDDEFA1975313D4986DDFA2512D1DFC76E0CE2EBB45CC4957E760667050C3B7C862096E2E3A42CC37E4FA0E1D73CD3BA8764AA525B09DC2FE5C8B5D72C41147B8ED12B1498E3BEE382F9BE4F4D34F77C7CF870D1B4623478EA451A346B9E3E5D75D775D8BFD41E358514E66457907DB190FB09D319FED8C9759562E613B6315DB191B94543C3D65A7A4EC1493C6D359E06767EB657D9ECD6AB50575D68B8ABC657A5A9A972E70391C5E8116A7CFF54C9BCD2BFA5D909F1F2C9290EBCAC971E9246EBA2E0AE4A646E29B5E143902FBD391CF5B56AA33B7EEF50DEE34901295C4C49BCCF01EC3D10C4F323C87309768C0BF313CCAD01B75AE11F1456D2709FFB3193633F4657803D3EDB950874B195E65380E756E49F19FE23FC57F9B491289BB83E13F0C2732FC93610982C1E2BDB245438B194E409D5B03BAC5C993AC98A63D8B6116C3C70C3F81CF6D0CDB21F705BE65D88A6B52E743A8AE33E13D265B5F102B6214C3BB0C7B187E26AC906A05FC0C5CE91B1704F2524D98844EB6426857183C070269EBA6247806E2BD8E60D81945DE35F88161B8B7876CBA9409BB4E89113CE3762BCC9B4497BD8FFE2A32EC031DAC66D8CFD0806B1F31EC067C8432B9B68FA1DE07F743B4F91E74A659533EE87D0DB23F5F0755E0EF09E8BCCEB001DEC17131AE7DCFF0BF3EB865B0195690EFD25473F2BFC8A79F8AFEBF8BA189E1124FF08FDE64F83FF244012FC1EF7F938FCE93B65E4962FE3BA34F8BCEFF9F20FCCBB56FA0F38ADA08FF22AF7FCFB017E3B73008FF05E05DC6FA696D807FB161BB31BCC0D00CF9DD036547E3792CC3B19475476C406C9FFBD06F6C49CC7F1178DF0ED9B789E113C06AF4F56F70AC956FC4EFBF85E179F49764E55F825FC732F40F132A10454B56FE657AE62486C161C249682359F92F813DF45398F01EEC8264E5BF14633A5C7BF7633CC314FFC9CDFFCFF0DF9AC057237CC466C04E9429A8F30370DA0AFFDFEAE221C2E33F182E63F811318E090C0B714DE26217327CD786F8175DDE0F7E91F0F820C320D8049AADF708AEBDC4F06BC4C3DAD2EF7F11E4B9F0B880E10FBADF7F2270B4DFFFA236F6FBFF0C3FFF806E8CEFD18DFF3D3AD9700075DBD2F84FE93FF577D6F3D61CE0587FDE56F81739F72786CFC0976C0DF067E8BC46F87A2B70ED53D46D48C9FF36C3BFCCF70C44AC43787C9CE1B79073F20C86313C856B8BF13CBE6943FC3781971FC0E336C4C30E02EAC1AF82F8E7C78815A7E47F8AFF14FFC9CBBFAC6FBA8AD4B50FE1C095A4AE3E4E56FEAD885F96840985682359F92F403C5BCAFEC5B012B64F305889BA1F404F162431FF02672206A8D936E7903A47EE0FCE01AED8BFB21EE8F4248F7F12FAEF24F8758B29F8ABBD2EF02D7345E79167AE3FD9E7FF7A913AF721D03308FE110C5FC107E8A22B4F76FE3361DF8AAF736E10FC73F0DBDF4B583D9CC4FC67A2FF6A20FDF927F876693ED72C28D3FCBEB37CAE652619FFEB196A19E6EAE049C4BBE4DA3D3ED7E6A26C3DF87FCCCFB5AF9288FF58ADFF49F19FE23FC57F8A7FB326B1DFDE8C21FFB2062ECBC4FCCB5A9D698869459B77B19FA792F9D7827765789BC25BF31D6C2DF89B3E36B1599305F6FE3F60EF3447C07733DAF83BC35164EEB5CFBE49FC7659F7F72CC31A52E3F9DB61DF07E2772FEA6C850F349FE177D4AA4D864CD717C477915D897E45EA5AB0A783F0FF04EAFC0A381949F69B874A56D8F381F8FF23B5ADF79E52FC1FCEFF7452E77FF43AF220CA6E6AE3FC4B2A415C6FB38E7F59F37A1A05D809A40DA672862F75FC7F4EEA5A674AF1FF5F9164D3A53AF2C444DFA158EFDC172029EA867C8AF1FC10D100C99BD81A95BC8128577266C3112CDF7C6BD7D95E799A9A87C24B967CB36393CAD7ECCD5E79B4DAD79EB3966BBF837B0341774587E2376FC855F3A62E7E72EFFDEDCBDD7D6266F798773B59D72F6B61E43DAFC5B0F77AA1EC3788F51E63E2F17B3CA96B36CE26F5DD8D3EB05BA54CDED15C45EA7A9F14FD29FAF5291D3EFC7852E3F9B7C2F6B982D4B97E29BB99D47980B1D089E926F1E34454C89CC6BFC9F34EFB7EE44D007DD91ED4BD9BD479BD44FA71BD113B0CF73DFCE5904F8948F20ED5835188A3DC4F5E9B11C5350EF201FAB9FEDD3789EB7C8731BB03508FB2DD74F83B71F2FBE52780FE22D03F1AC7459037D2B76F84CF226B371FC6F14DE0E3285D7D51AFB2AEA33041F4AF845CD492CCC5CA7AC353488DD9CA5ADCFB702C655F933A07ABA5B3F1FCCD407F26626AD22FCAFCD05F0AF9FF179DEC340BFDB296E51CC4F7E45D986178CE2F93BA36468E8792FA4EACF84743806316FA65EF8199A4CE4F3F0C99723F8E7DCF1F45AC23C764CF5FEC824A83D01732D32CF497E178B741781F32C92CF48B8FFB592BF4D6A718CF66A35FD6B1EC855E95F5FB0700BB50A6BDBF6A56FA1F27350E2F345E075DB696D43DFA842F89C33F091D6C46FA657DD403B021C642DF8A3E18079EEE834E302BFDDBA07F0F41CEEF05DD5FA24CDB17C0ACFD27D9C7EF16E86079D6EBF0EC7F441CF210AE6D3531FDF740CF0ACD6374FD7F2C78B91763C0ACFD5F64CB7CD07A03E48FC0148C85A7209FCC4ABFD0D808592F7A567B8F6737CAB4F7DA52E337BAF497C2A6D96910B4FD23CC42BFD892B2C791D1FD4F8E3599FD296BAF6EC1D8141BE2A100F038C6F02C13DAFF5590FFE263C91E2B837C40CA9642179C61B2E72F49D6443C0399EFEFE31C65D00522FFD34CE8BF4BFA1DEC9B4A3FF50720FE30D844F10789FF5C0459528C71F96FF8B725BAF21294D523E6A8958F4970FC47E22132DFBE06B016BA7787AE4C83EF11BBFD4C57267BD27E9440FA23798750FF2E618AFEFF3EFAB53D3923A53F517B6F8A0CBF137E49B8B48B6D7ABB4E1FC43BC99CD78BA4CE0DB59676995792B5A49D28B14964BBCCD1BD45EA7C84E8AF7D7EE86DC43599CB9335BB5750802F54252059608FC91A65995F7FCD0FFD32F77E34EAE49079D75F4A6CFF593FF43F9DC07EDEDA712D365A838EF606F8F6C940BF05FE64AD8EFEB9284B9635BB42E7341DFD5329B9D61B0BADB2BFC026C0E5B1A25F5D4E142CC7775D7DBF6BEA5EA6E42FBFD8AEE695D60141EB253A3F6DA99A8F5B1E513B877DE755FB0EAE2CCFF2977B7FF755165FF4246D03F872F76F52199B1583B2179FCC6BFF19FED9A98827CAD8186F823E2F7314F29EF0DFE123CA9CA9EC932BFB6B5F93A22F60B2C216163B50E6665F2775BFF109B0031E456C278FE2BF06BD18CF66A9CEFF6C24CFBA904694C9B1EC0F5843ADFA907644A900B1ACD6D8AE5257E6D0E2B15E65187CF9661D283EE7FECA0467481CE8937D1EDF861D7C396C9E0DA4C6FAC5D67C19C7B2E66D1EEA48DD3AF4CD58A7CB715F0BFABD7CBB44F6ECCE442C671A8EA5EC5AF2EC492032F1B238D3570C5FF63A9C6BF45940DB9B18BF89A02F0B637807ECC031F0DB5EC0B1C8C46DE80F5909A26F0474D858C03880763E1EB1C644D027726636E44630980DB9126FFA3A226E184AF649DCB04382E8937B6BF3713F92675DEA4FE4999F5B9340FA3E81FEDD047DBB1472EE71C40B6623569B28FAEAE17F4AFC5DBEE3B302F2E679C480EF050F1D12D8FFB4F5C50710133B84636DED71A2FBDF4E5D5FD3E681B5BD7F779AA0FFDD8CF8D543E87BA29B1F814EBEC504FD4FD6F56C85EED0F6415B803EF95713F4BF03B09F0EEAFADF41941D3041FF6B0E0189EA7F39D0AF378400A9939D20FA2496F2478C91193E2065731003CE49007D32772DDF01DC0E7BD977ADC014C8686D9E3B11F6691E6CD0993E71280B9EE142D856F1B64F6B61DB5BE13BBE8A3EA6D9F2D9F04526E8EAC5933E917BDADAE997F01B3FA12B93639953785157B63A8EF485F3EE49738ABE16FF375CFAE2E1FF8ABCD81B067D8233340EF4C99CF1B3E4F97682D1BD829EA1F8ED9B520ADD25EF896D460CCB777FFFEF716D396284F1DEEBC08AE7D11D3EAF7EEEB2113E7A77D449F41E14837CFAA4F86F03C93CE997A4CE331E445F93F5ACBF2073A533F0BBCA73FC0D992FC97B66DA7B072747AB5145714FAF1C9E1F724FC390D2445DDC7903E526475E1A19BEC6AFC6BF324BF1CE9779E532C7544EEAC44FCB7E00D1D9714F62A87742F69DCF3012314BF92E7A3CBEE9EB849F2B31964BA1FB6F831F9C1987FBE7424E486C7412ECD0BB10FBC98931DFE720862336E416F8FA1B70BC0DB19E1131780E36C484771BD0D952A79AA2FBDD7BB11D649DEF3AF8C63B105BD80690E3EF704DEA2C89B2CD207681BCE770048695CC099E87677235A9FBC3899DD219436F7E94ED8252F2CC43C9FBEBEF808E4BE067CB1A9F37A0CF0A503716F7EF88B1B602FD5E7B5FBA06F6D074D489D5FD25DE21EBBE2F0A00C3512756F797FD4D56C206F407F25C8E8CE1FD7B41CFFE8818A91697DC8F32E9FF47C5F8FE4B206B25A6B708F021627A7571B8FF87B8F7163C8BB538D6BEAF1EEBFBAFD3C5AC0FEAE287076007C5FAFECBE04749ACE19FA47E8B6935E4CFB238DC7F0564CD17180B722EEF3BCA3A84F7E370FFCFE9F07970ED785D8CEF2F7ED56378EEFEE051C8E058CA5F99DFBC9ED4B9753D883D7631A9EB6B6375FF12D85B32FE649FBF7E80D3D00F46A34EACEE9F0FF92E7DBEB7EEBA1CCBFA83E218EABF45B07745C72C861E1C0AB81DD77F8B3A0B6370FF3590F3FB75B2473BD7649076FE690CEEDF9AF70DD744F9FEED20EF8CDE5FE6BE8AA2787F3B62E346625752E74F14FD3D7AA46FCF026F62EF3691F7DAFAADB8369362B7A6CA063A8E21CF771EB5EF401E8D6B368A7D125FE8059DFEFD5B9C7C3F7D0C4EE4DED78805F6A5F8AF37EE007D2FF658D82B48DDCB5435A8B3A9CB59238559B3FC974BFBB2CC5896C20A1C1AE0DEB750844B1F5D9CE2E2F07F49D1CF33C8B326681ACAA295C4B6B8173E9FF87EB5F009A231AE4E2475AFA335185B2B712CEB774F88705C9D44EA5A157FF31752B611F70F374D807CBC0D3EC0138887C89A845B70ED9208DA1F8731266B706F849E95F592537476C8D808DB9750D9CD8863CD04CC461F3A350AEDCB1E9973103BD2C31CC478236DBF0AFD651F62C57B712CB6C0D9516A5FE62DDF83ADFF3A8E1744B17D591322EB837701F640A745ABFD37F03C56023E4559B4DAAF433CEE33C0069445A3FD61F0AFB6FBC0728C8748DB973EFE07F816350039966FBA0F8C42FB27A2BD5B61AFF7C678BB0AF22992F645B6C8F70907413E7706D4625C9F4591BDF350033D2FBFE74EF8BE5FE0783DAE4D8AA0FD6B0CD8953511B43FD2C75EF4857D8861869BF2212B2516F383CE2FFF1EE3E0368A7C0D7D3A6C9E1A9DDD570DDB279A7BAB1E8BDF56E20C1531B0DB1CD08D8FE2D8989D364B7143339B37D10245FE2D53A1271CA69E3A3B6C5EEB3D183B7E934B61135C19811F64811F7337FAD61DF0ABDA85696BCBDCE45B18B39A7E91E337C3B07DE4BDCEB98839AC41ECF103E81329BB8B5AF7EEA71DF243E69E656E6D047486C8CAAEB896DECAF6AE82CD7137ECA429A07910AE85D3DEE53ADDA9C1C408DA9B469EB9632DBF3182F6A6431EEBE1C608E95BABD3E7025323A4EF2BE8112DBF2982F62E459FD6C3B808DA3B1D3A7314601E747F38EDD5C0F792FE5C06397D1BFA784D18ED3D067F770379BEB1BC1E658F84D1DE8220FAF08556B667C5EFD848FEF71108E77B67B9D0C90F9267FD87CCB1C8BC6324F3CCBFC458FB8CA2B3D6C5067937C7888FDAEC68A04336159A2CE181E02AB92A88BE92650DE53ABD55D9BAB7EE07A23F5693FF7D8C82E927797EB2CE58DEBB7C157DBD9B41FD24643F05DB51B3E537C12734B23F4907D87535D00F0257A0ACBD41FCF320E3347F772ACA8CE28F47FC495B87F00ECA8CE24F80FFF5316031CA5A83BF4C27EB9784812F3ED57F00CB5B893F1276C93D80DB5BF9FC87A3DF9D02B89C3CFBFB854A3217246BD764DE499B877D03651D0CE0CB3DD6F991576BC9FF7E64BE2903B19D0DE4D937770362D48E56C86199D3933DA9FE85F89A3D0CF93315F64D40F973680051436EEBA1A98B8AFBFF555C7E88]
Point(doLeft)
Point(doTop)
Point(Left)
Point(Top)
Point(onClose)
link(onCreate,6563364:doEvent1,[(389,83)(389,69)])
link(onClose,8295385:doEvent1,[])
}
Add(Edit,6129557,756,63)
{
Left=45
Top=30
Width=55
Height=21
Font=[MS Sans Serif,9,0,0,1]
Text="9600"
ClearAfterEnter=1
}
Add(BitBtn,14456427,462,56)
{
Left=115
Top=30
Height=21
Caption="опросить"
Point(doCaption)
Point(onKeyUp)
Point(onKeyDown)
link(onClick,4621497:doWork2,[])
}
Add(COMEX,9633750,735,119)
{
StopBits=1
link(onRead,1654829:doConvert,[])
link(Port,3359484:Text,[(741,110)(713,110)])
link(BaudRate,6129557:Text,[(748,110)(762,110)])
}
Add(Ini,11689371,252,77)
{
FileName="common.ini"
Section="form_first_pos"
Key="Y"
link(onResult,4253353:doLeft,[(324,83)(324,97)])
link(Value,4253353:Left,[(279,65)(317,65)(317,120)(356,120)])
}
Add(Ini,11188307,252,140)
{
@Hint=#14:местоположение|18:формы при открытии|
FileName="common.ini"
Section="form_first_pos"
Key="X"
link(onResult,4253353:doTop,[(337,146)(337,104)])
link(Value,4253353:Top,[(279,129)(363,129)])
}
Add(Hub,8295385,399,84)
{
OutCount=3
link(onEvent1,11689371:doWrite,[(429,90)(429,48)(242,48)(242,90)])
link(onEvent2,11188307:doWrite,[(435,97)(435,41)(235,41)(235,153)])
link(onEvent3,9633750:doClose,[(515,104)(515,132)])
}
Add(Hub,4612708,196,77)
{
link(onEvent1,11689371:doRead,[])
link(onEvent2,11188307:doRead,[(225,90)(225,146)])
}
Add(Hub,713062,168,133)
{
OutCount=4
link(onEvent1,4612708:doEvent1,[(193,139)(193,83)])
link(onEvent2,6270975:doWork2,[(206,146)(206,272)])
link(onEvent3,321952:doText,[(213,153)(213,167)])
link(onEvent4,2258711:doWork2,[(200,160)(200,321)])
}
Add(VisualStrings,321952,322,161)
{
Lines=#39:OL _RGISTRY_DATASENDER_RS232_to_I2C&SPI|
Point(doText)
Point(onText)
link(onText,4253353:doCaption,[(364,167)(364,136)(331,136)(331,69)])
}
Add(Hub,4636619,700,133)
{
link(onEvent1,9633750:doWrite,[])
link(onEvent2,7173929:doConvert,[(725,146)(725,181)])
}
Add(Edit,3359484,707,63)
{
Left=10
Top=30
Width=20
Text="9"
DataType=2
ClearAfterEnter=1
link(onChange,9633750:doOpen,[(746,69)(746,104)(725,104)(725,125)])
}
Add(ComboBox,12544851,602,63)
{
Left=10
Top=5
Width=160
Height=21
Text="Выберите СОМ порт"
DataType=1
link(onClick,9782296:doTest,[(641,76)(641,69)])
}
Add(Hub,10926447,518,56)
{
link(onEvent1,12544851:doClear,[(587,62)(587,76)])
link(onEvent2,11701061:doEnumPorts,[])
}
Add(Edit,15300191,868,175)
{
Left=260
Top=30
Width=360
Color=-16777192
Font=[MS Sans Serif,8,1,0,1]
Ctl3D=1
WinStyle=1
Alignment=2
}
Add(Edit,5752321,868,126)
{
Left=260
Top=5
Width=360
Color=-16777192
Font=[MS Sans Serif,8,1,0,1]
Ctl3D=1
WinStyle=1
Alignment=2
}
Add(Label,12834109,98,259)
{
Left=226
Top=32
Width=33
Height=17
Color=-16777216
Font=[MS Sans Serif,8,1,0,1]
Caption="SENT"
}
Add(Label,6616782,91,266)
{
Left=197
Top=7
Width=58
Height=17
Color=-16777216
Font=[MS Sans Serif,8,1,0,1]
Caption="RECEIVED"
}
Add(RadioButton,3868795,280,329)
{
Left=400
Top=190
Width=80
Color=-16777216
Caption="Обратный"
link(onSelect,3124423:doWork3,[(319,335)])
}
Add(RadioButton,4391195,231,329)
{
Left=480
Top=190
Width=75
Color=-16777216
Selected=0
Caption="Прямой"
link(onSelect,2258711:doWork3,[(270,335)])
}
Add(Label,4661136,84,273)
{
Left=400
Top=170
Width=140
Height=17
Color=-16777216
Font=[MS Sans Serif,8,1,0,1]
Caption="Порядок выдачи байта"
}
Add(DoData,843818,336,315)
{
Data=Integer(0)
link(onEventData,1854588:doIndex,[])
link(Data,4391195:Selected,[(342,306)(328,306)(328,369)(237,369)])
}
Add(CheckBox,12072739,539,140)
{
Left=605
Top=115
Width=40
Color=-16777216
Caption="Bit0"
Point(doCaption)
link(onCheck,4696990:doWork3,[(578,146)])
}
Add(CheckBox,11814331,546,147)
{
Left=565
Top=115
Width=40
Color=-16777216
Caption="Bit1"
link(onCheck,14389340:doWork3,[(585,153)])
}
Add(CheckBox,5480298,553,154)
{
Left=525
Top=115
Width=40
Color=-16777216
Caption="Bit2"
link(onCheck,13044133:doWork3,[(592,160)])
}
Add(CheckBox,2917208,560,161)
{
Left=485
Top=115
Width=40
Color=-16777216
Caption="Bit3"
link(onCheck,16302069:doWork3,[(599,167)])
}
Add(CheckBox,8763537,567,168)
{
Left=440
Top=115
Width=40
Color=-16777216
Caption="Bit4"
link(onCheck,6067962:doWork3,[(606,174)])
}
Add(CheckBox,4446865,574,175)
{
Left=395
Top=115
Width=40
Color=-16777216
Caption="Bit5"
link(onCheck,14679896:doWork3,[(613,181)])
}
Add(CheckBox,7113734,581,182)
{
Left=350
Top=115
Width=40
Color=-16777216
Caption="Bit6"
link(onCheck,14230402:doWork3,[(620,188)])
}
Add(CheckBox,15333524,588,189)
{
Left=300
Top=115
Width=40
Color=-16777216
Caption="Bit7"
Point(doCaption)
link(onCheck,14230402:doWork2,[(627,195)(627,139)])
}
Add(Hub,7205294,427,266)
{
link(onEvent1,11994673:doNumber,[])
link(onEvent2,326861:doNumber,[(529,279)(529,272)])
}
Add(BitsToInt,326861,539,266)
{
Count=8
link(onNumber,15903735:doWork2,[(606,272)(606,356)])
link(Bit1,11130974:Var2,[])
link(Bit2,7242541:Var2,[])
link(Bit3,7344618:Var2,[])
link(Bit4,1930286:Var2,[])
link(Bit5,8872431:Var2,[])
link(Bit6,12513850:Var2,[])
link(Bit7,11976835:Var2,[])
link(Bit8,15199062:Var2,[])
}
Add(BitsToInt,11994673,455,266)
{
Count=8
link(onNumber,14551155:doWork1,[(522,272)])
link(Bit1,15199062:Var1,[(461,236)])
link(Bit2,11976835:Var1,[(468,243)])
link(Bit3,12513850:Var1,[(475,250)])
link(Bit4,8872431:Var1,[(482,257)])
link(Bit5,1930286:Var1,[(489,229)])
link(Bit6,7344618:Var1,[(496,222)])
link(Bit7,7242541:Var1,[(503,215)])
link(Bit8,11130974:Var1,[(510,208)])
}
Add(Button,7710814,469,427)
{
Left=230
Top=285
Caption="Send"
link(onClick,9499536:doString,[])
}
Add(GetIndexData,1854588,532,315)
{
link(onIndex,15903735:doWork1,[(571,321)])
link(Data1,11994673:Number,[(538,306)(461,306)])
link(Data2,326861:Number,[])
}
Add(ConvertorEx,16119209,532,371)
{
Mode=6
link(Data,1854588:Var,[])
}
Add(FormatStr,9499536,525,427)
{
Mask="%1%2"
link(onFString,13646675:doConvert,[])
link(Str1,10385775:Text,[(531,418)(475,418)])
link(Str2,16119209:Var,[])
}
Add(Label,6292940,77,280)
{
Left=375
Top=135
Width=227
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Побитовая установка переменной "
}
Add(Edit,10385775,469,371)
{
Left=135
Top=110
Color=12639424
Font=[MS Sans Serif,8,1,0,1]
Ctl3D=1
WinStyle=1
Text="01"
Alignment=2
}
Add(Label,1181151,70,287)
{
Left=45
Top=115
Width=84
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Адрес в НЕХ"
}
Add(StreamConvertor,13646675,581,427)
{
Mode=3
Symbol=""
link(onResult,4636619:doEvent1,[(634,433)(634,139)])
}
Add(Label,15157092,63,294)
{
Left=65
Top=75
Width=118
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="первая часть посылки"
}
Add(Label,4878241,56,301)
{
Left=415
Top=80
Width=118
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Вторая часть посылки"
}
Add(ChildPanel,11698211,77,203)
{
}
BEGIN_SDK
Add(EditMulti,4926471,21,21)
{
}
Add(Panel,11168264,35,105)
{
Left=255
Top=75
Width=5
Height=165
}
END_SDK
Add(ChildPanel,7875375,77,154)
{
}
BEGIN_SDK
Add(EditMulti,16393232,21,21)
{
}
Add(Panel,4915002,35,105)
{
Left=35
Top=235
Width=580
Height=5
}
END_SDK
Add(EnumCOM,11701061,546,63)
{
link(onEnumPorts,12544851:doAdd,[])
}
Add(InlineCode,9782296,651,63)
{
WorkPoints=#6:doTest|
EventPoints=#5:onRes|
Code=#15:unit HiAsmUnit;|13:// Author Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|4: |24: onRes : THI_Event;|51: PROCEDURE doTest(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doTest;|16:var s,ss:string;|14: i:integer;|5:BEGIN|9: ss:='';|21: s:=toString(_Data);|2: |26: for i:=1 to Length(s) do|41: if s[i] in ['0'..'9'] then ss:=ss+s[i];|24: _hi_onEvent(onRes,ss);|4:END;|0:|0:|4:end.|
link(onRes,3359484:doText,[])
}
Add(HubEx,4696990,574,133)
{
Angle=2
link(onEvent,6270975:doWork1,[(410,139)])
}
Add(HubEx,14389340,581,133)
{
Angle=2
link(onEvent,4696990:doWork2,[])
}
Add(HubEx,13044133,588,133)
{
Angle=2
link(onEvent,14389340:doWork2,[])
}
Add(HubEx,16302069,595,133)
{
Angle=2
link(onEvent,13044133:doWork2,[])
}
Add(HubEx,6067962,602,133)
{
Angle=2
link(onEvent,16302069:doWork2,[])
}
Add(HubEx,14679896,609,133)
{
Angle=2
link(onEvent,6067962:doWork2,[])
}
Add(HubEx,14230402,616,133)
{
Angle=2
link(onEvent,14679896:doWork2,[])
}
Add(HubEx,15903735,567,350)
{
Angle=2
link(onEvent,14551155:doWork3,[])
}
Add(HubEx,14551155,518,350)
{
Angle=1
link(onEvent,16119209:doConvert,[(522,377)])
}
Add(GetDataEx,15199062,588,231)
{
link(Data,15333524:Checked,[])
}
Add(GetDataEx,11976835,581,238)
{
link(Data,7113734:Checked,[])
}
Add(GetDataEx,12513850,574,245)
{
link(Data,4446865:Checked,[])
}
Add(GetDataEx,8872431,567,252)
{
link(Data,8763537:Checked,[])
}
Add(GetDataEx,1930286,560,224)
{
link(Data,2917208:Checked,[])
}
Add(GetDataEx,7344618,553,217)
{
link(Data,5480298:Checked,[])
}
Add(GetDataEx,7242541,546,210)
{
link(Data,11814331:Checked,[])
}
Add(GetDataEx,11130974,539,203)
{
link(Data,12072739:Checked,[])
}
Add(HubEx,3124423,315,315)
{
link(onEvent,843818:doData,[])
}
Add(HubEx,2258711,266,315)
{
link(onEvent,3124423:doWork2,[])
}
Add(HubEx,6270975,406,266)
{
link(onEvent,7205294:doEvent1,[])
}
Add(StreamConvertor,7173929,784,175)
{
Mode=2
link(onResult,15292330:doStrCat,[])
}
Add(StreamConvertor,1654829,784,126)
{
Mode=2
Symbol=""
link(onResult,2833952:doStrCat,[])
}
Add(StrCat,15292330,826,175)
{
Str1="Из СОМ -- "
link(onStrCat,15300191:doText,[])
}
Add(StrCat,2833952,826,126)
{
Str1="В СОМ -- "
link(onStrCat,5752321:doText,[])
}
Add(Hub,6563364,399,63)
{
link(onEvent1,713062:doEvent1,[(424,69)(424,55)(158,55)(158,139)])
link(onEvent2,4621497:doWork1,[(445,76)(445,48)(508,48)])
}
Add(HubEx,4621497,504,56)
{
link(onEvent,10926447:doEvent1,[])
}
Add(EventFromData,4955705,749,322)
{
}
Add(InfoTip,5222555,658,280)
{
Info=#63:Никогда не используйте этот компонент не по прямому назначению!|
Font=[MS Sans Serif,8,1,16711935,1]
Width=225
Height=95
}

карма: 19

0