Tad писал(а):
Tomset91 писал(а):
с опросом порта по таймеруСоответственно как это сделать? пример? вот есть такая нерабочая на приём ппрограмма, вот и отредактируйте мне её так как нужно..
Add(MainForm,68149,658,238)
{
Left=21
Top=105
Width=352
Height=219
Font=[Arial,8,0,0,1]
Caption="MS-Test"
Position=1
Point(onClose)
link(onCreate,3447988:doWork1,[(753,258)])
link(onClose,10158978:In,[])
}
Add(FormatStr,12648551,448,364)
{
DataCount=1
Mask="%1
"
link(onFString,3447988:doWork2,[])
link(Str1,93647:Text,[])
}
Add(Button,68561,392,364)
{
Left=10
Top=120
Font=[Arial,8,0,0,1]
Caption="Send"
link(onClick,12648551:doString,[])
}
Add(Edit,93647,448,308)
{
Left=75
Top=120
Width=75
Height=21
Text="atz0"
}
Add(Label,39106,1106,364)
{
Left=120
Top=145
Width=30
Transparent=0
Caption="0"
}
Add(Hub,96560,791,364)
{
OutCount=5
link(onEvent1,4901:doOpen,[])
link(onEvent2,37557:doAdd,[(888,377)(888,202)])
link(onEvent3,15722860:doTimer,[(815,384)(815,468)])
link(onEvent4,4901:doWrite,[])
}
Add(COM,4901,994,364)
{
BaudRate=0
link(onWrite,39106:doText,[])
link(onRead,4382088:doAdd,[(1062,377)(1062,202)])
link(BaudRate,16338985:EditText,[])
}
Add(Label,42085,560,182)
{
Left=150
Top=145
Caption="bytes"
}
Add(Label,78288,567,189)
{
Left=165
Top=5
Width=53
Height=17
Caption="A? A‘A?A? A‚AµA?A?A?a€sA? A‚AµA? A’a€?A? A‚A°A?A?A?a‚¬A?A? A‚A°"
}
Add(Label,25757,574,196)
{
Left=75
Top=5
Caption="Speed"
}
Add(Memo,37557,910,196)
{
Left=155
Top=20
Width=75
Height=95
ScrollBars=2
}
Add(Label,11132,581,203)
{
Left=75
Top=145
Transparent=0
Caption="Sended:"
}
Add(ComboBox,16338985,987,196)
{
Left=75
Top=20
Width=75
Height=21
Strings=#4:9600|5:14400|5:19200|6:115200|
Text=""
ReadOnly=0
Point(EditText)
}
Add(Memo,4382088,1071,196)
{
Left=240
Top=20
Width=80
Height=95
ScrollBars=2
}
Add(Label,3324191,588,210)
{
Left=255
Top=5
Width=38
Height=17
Caption="A? A‘A?A?A?A?a€sA? A‘a€?A?A?A?a‚¬E?A? A‘E?"
}
Add(LineBreak,341898,917,371)
{
link(Out,4901:doClose,[])
Primary=[10158978,-112,-112]
}
Add(HubEx,3447988,749,364)
{
link(onEvent,96560:doEvent1,[])
}
Add(hcTimer,15722860,889,462)
{
Interval=100
link(onTimer,4901:doRead,[(962,468)(962,398)])
}