Вверх ↑
Ответов: 200
Рейтинг: 5
#1: 2013-01-10 15:45:03 ЛС | профиль | цитата
Когда то для себя делал. Программа смены курсов на электронном табло.
Используется не штатный компонент ком-порта.
Обнаружение модема
code_30018.txt


------------ Дoбавленo в 15.40:
Тест уровня сигнала
Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,49,161)
{
Width=225
Height=111
Color=-16777197
Ctl3D=0
Caption="Тест уровня сигнала"
BorderStyle=3
Icon=[ZIPBE08000078DAC5D3B14E1C31100660478A74D710BA1454944847B5238ADD2A122F40452A4FB5E78617A04CB640DE9ACA255D8A5D1A973C01926BFC02BC004F30F9ED9D5C507250458A57DF1EBB5EDB33F660CC075CC7C7A6B61F6B633EE3F704CAAB2FF0C1AC6BDFB78F666F2370102081E84B02070112887E48E0204002D1C1040E0224109D90C0418004A28B103808904074E17239089040341802070112880648E0204002D1A0091C0448209A08818300094493237010208168C2259A72054820BA09040E022410DD1802070112886E1681830009443790C0418004A29B4AE0204002D18DA61A49A85702D1CD2770102081E8811038089040F490081C0448207A70040E0224103D4C02070112881E30D55D49359A72891E3A81830009440B81C0418004A2C541E0204002D182217010208168111138089040B4B0A89E90D49D29D188161B81830009440B90C0418004A24549E0204002D142257010208168F11238089040968236070707E6E8E8C89C9C9C98B3B333737E7E6E2E2E2E8CB5D65C5D5D99EBEB6B737373636E6F6FCDDDDD9DB9BFBF370F0F0FE6F1F1D13C3D3D99E7E767F3F2F2B29BEF5FB6FCAB4D9EE3EE21F723737EDDBEB28F7EF7645B3BBDEE9DDAAEDFB6E89F26BC9FA9CB91DBF977FF6AB4B877B84DB856339531B49BCF52B475D5A1DCE74D6E4B28CBBBD27895D775BDB6DCA289B676F97EE97EF29B696CEA504CE9E7867253E75E52E0B53D6C72DF60CE61CC4C8DDFF8D8F09CE77E99A5E778789947E201033872E653E076194E35968EEC348C317BBBE4FB89BD86DF2FBFF396782C9F6BCC87A3E6EFF5CDD7251D5A36CE37BBCDA19A751E373539DF2CC7B0C2F0B1AE11D79765CC4C1BE62DB33D2D13CDBC6A799EBB3AA66B892D7377C88C1866A6B6658EB66B7B8D618E632CD3FA98DF6BF5F46A74BCAFDBB3DF36E58B81E3B4A79F87122CFE68F62FD3969DE857BB8CFF6A355AB299F89D20793371F35E166BEFED1B5D9E51597C3ABC357F5F6A06B5D17D7F636D243823C2D8DA5D79BD6EA50072D77DCAB11E33EF199F273B7EB6B92F1F8CFECFF153ADA0C853FD67897FF6978E524133166A8769F07F05E0A7DDAA5BDE93E6B86DC7D7CFE63FB79FCE6E2B12]
DragForm=0
Position=1
Point(onClose)
link(onCreate,11752041:doEvent1,[])
link(onClose,11402141:doEvent1,[(101,188)(101,146)])
}
Add(Stream2Hex,14952574,336,224)
{
Mode=5
link(onResult,7975438:doEvent1,[])
}
Add(DoData,14076355,336,266)
{
Data=String(
)
link(onEventData,7975438:doEvent2,[(380,272)(380,237)])
}
Add(Hub,6192283,308,224)
{
link(onEvent1,14952574:doConvert,[])
link(onEvent2,14076355:doData,[(329,237)(329,272)])
}
Add(Hub,7975438,392,224)
{
InCount=2
OutCount=1
link(onEvent1,7904381:doWork2,[])
}
Add(ComAsync,9954166,455,210)
{
Port=""
ControlDTR=1
ControlRTS=1
RxChar=0
TxEmpty=0
CTS=0
DSR=0
RLSD=0
Point(onTxEmpty)
Point(onAfterClose)
Point(onRxChar)
Point(doEnumPorts)
Point(onEnumPorts)
Point(doRTS)
PColor(onAfterClose,16711765)
link(onRead,5294326:doEvent1,[])
link(onRxChar,9954166:doRead,[(501,244)(501,263)(447,263)(447,237)])
}
Add(StrMask,15813224,532,210)
{
Mask="*OK*"
PColor(onFalse,16711935)
link(onFalse,429977:doEvent1,[(575,216)(575,198)(219,198)(219,230)])
link(onTrue,12829832:In,[])
}
Add(DoData,6404560,259,224)
{
Data=String(AT+CFUN=1)
link(onEventData,6192283:doEvent1,[])
}
Add(DoData,10494769,154,308)
{
Data=Integer(1)
link(onEventData,12589179:doEnabled,[])
}
Add(Stream2Hex,8165022,336,308)
{
Mode=5
link(onResult,13319115:doEvent1,[])
}
Add(DoData,14537538,336,350)
{
Data=String(
)
link(onEventData,13319115:doEvent2,[(376,356)(376,321)])
}
Add(Hub,9851822,308,308)
{
link(onEvent1,8165022:doConvert,[])
link(onEvent2,14537538:doData,[(329,321)(329,356)])
}
Add(Hub,13319115,392,308)
{
InCount=2
OutCount=1
link(onEvent1,7904381:doWork3,[(431,314)])
}
Add(DoData,9556591,266,308)
{
Data=String(AT+CSQ)
link(onEventData,9851822:doEvent1,[])
}
Add(MultiElementEx,12560722,532,301)
{
link(onPart,12369797:doOperation,[])
link(Str,2426160:Value,[])
}
BEGIN_SDK
Add(EditMultiEx,9800788,21,21)
{
WorkCount=#7:doSplit|
EventCount=#6:onPart|
DataCount=#3:Str|
Width=377
Height=207
link(doSplit,13217700:doSplit,[(35,27)(35,55)])
}
Add(StrPart,13217700,49,49)
{
Char="+"
link(onSplit,4876575:doSplit,[])
link(Str,9800788:Str,[(55,35)(27,35)])
}
Add(StrPart,668459,301,49)
{
Char=","
link(onPart,9800788:onPart,[(365,62)(365,27)])
}
Add(StrPart,4876575,91,49)
{
Char="C"
link(onSplit,16219516:doSplit,[])
}
Add(StrPart,16219516,133,49)
{
Char="S"
link(onSplit,9520066:doSplit,[])
}
Add(StrPart,9520066,175,49)
{
Char="Q"
link(onSplit,10800371:doSplit,[])
}
Add(StrPart,10800371,217,49)
{
Char=":"
link(onSplit,4611394:doSplit,[])
}
Add(StrPart,4611394,259,49)
{
Char=" "
link(onSplit,668459:doSplit,[])
}
END_SDK
Add(LineBreak,2475833,105,308)
{
Caption="1"
link(Out,10494769:doData,[])
Primary=[12829832,476,-91]
}
Add(Hub,429977,231,224)
{
InCount=2
OutCount=1
link(onEvent1,6404560:doData,[])
}
Add(Hub,5294326,497,210)
{
link(onEvent1,15813224:doCompare,[])
link(onEvent2,2426160:doValue,[(521,223)(521,258)])
}
Add(HubEx,7904381,427,224)
{
link(onEvent,9954166:doWrite,[])
}
Add(Button,12589179,210,308)
{
Left=50
Top=45
Width=120
Height=25
Color=25
Font=[MS Sans Serif,10,1,0,1]
Enabled=1
Caption="Начать тест"
Point(doEnabled)
link(onClick,9556591:doData,[])
}
Add(Memory,2426160,532,252)
{
link(onData,12560722:doSplit,[(573,258)(573,292)(520,292)(520,307)])
}
Add(Math,12369797,574,301)
{
OpType=2
Op2=2
link(onResult,2723968:doPosition,[])
}
Add(ProgressBarRush,2723968,616,301)
{
Left=10
Top=10
Width=200
Transparent=0
Max=66
}
Add(StyleXP,9515165,56,301)
{
}
Add(WinExec,15620106,273,147)
{
FileName="modem.exe"
}
Add(Hub,11402141,231,140)
{
link(onEvent1,9954166:doClose,[(354,146)(354,223)])
link(onEvent2,15620106:doExec,[])
}
Add(For,10238545,175,224)
{
End=50000
link(onStop,429977:doEvent2,[])
}
Add(Hub,11752041,112,175)
{
link(onEvent1,11917232:doRead,[])
link(onEvent2,10238545:doFor,[(150,188)(150,230)])
}
Add(Ini,11917232,168,175)
{
FileName="port.vin"
Section="1"
Key="1"
Type=1
Point(doClearAll)
link(onResult,9954166:doOpen,[(328,181)(328,216)])
}


------------ Дoбавленo в 15.45:
Сама прога
http://yadi.sk/d/4zjfKOu31l7Tc



карма: 0

0
файлы: 1code_30018.txt [4.4KB] [159]