[scroll=[list]Make(delphi)
ver(4.05 build 186)
Add(ComboBox,13169687,574,210)
{
 Left=270
 Top=40
 Width=80
 Height=21
 Text="Port N"
}
Add(Timer,443896,378,392)
{
 Interval=1
 link(onTimer,11058779:doData,[])
}
Add(COM,10751473,581,301)
{
 BaudRate=57600
 TimeOut=1
 link(onRead,14360003:doEvent1,[])
 link(Port,13169687:String,[])
}
Add(EnumCOM,6532786,504,210)
{
 OutType=0
 link(onEnumPorts,13169687:doAdd,[])
}
Add(Hub,16350958,322,336)
{
 InCount=2
 OutCount=5
 link(onEvent1,16399282:doEvent1,[(382,342)(382,307)])
 link(onEvent4,13502940:doEvent1,[(368,363)(368,223)])
}
Add(DoData,11058779,427,392)
{
 Data=Integer(6)
 link(onEventData,10751473:doRead,[(520,398)(520,335)])
}
Add(Hub,14349009,357,266)
{
 OutCount=5
 link(onEvent1,13502940:doEvent2,[(385,272)(385,230)])
 link(onEvent2,10751473:doRXClear,[(476,279)(476,321)])
 link(onEvent3,443896:doTimer,[(375,286)(375,398)])
}
Add(Hub,16399282,427,301)
{
 InCount=3
 OutCount=1
 link(onEvent1,10751473:doOpen,[])
}
Add(MainForm,8652128,266,252)
{
 Width=1182
 Height=715
 Caption="H.V.P.G."
 BorderStyle=4
 Icon=[]
 link(onCreate,14349009:doEvent1,[])
}
Add(Hub,13502940,399,217)
{
 InCount=3
 link(onEvent1,13169687:doClear,[])
 link(onEvent2,6532786:doEnumPorts,[(459,230)(459,216)])
}
Add(Memo,6752638,1015,343)
{
 Left=1010
 Top=20
 Width=160
 Height=650
}
Add(Hub,5147087,742,462)
{
 InCount=3
 OutCount=6
 link(onEvent1,14700344:doEvent1,[(777,468)(777,517)])
 link(onEvent2,11682426:doData,[(882,475)(882,181)])
 link(onEvent3,14362842:doNext,[(768,482)(768,461)(513,461)(513,440)])
 link(onEvent4,6752638:doAdd,[(886,489)(886,349)])
 link(onEvent6,1245690:doTimer,[(768,503)(768,479)(415,479)(415,454)])
}
Add(BlockFind,3658924,777,224)
{
 IncludeBlock=1
 StartBlock="d"
 EndBlock="a"
 link(onSearch,15950520:doEvent1,[(821,230)(821,202)])
}
Add(Button,4382896,308,217)
{
 Left=175
 Top=30
 Width=85
 Height=40
 Caption="Refresh Ports"
 link(onClick,13502940:doEvent3,[(370,223)(370,237)])
}
Add(BitBtn,5134980,1246,203)
{
 Left=355
 Top=30
 Width=95
 Height=40
 Font=[MS Sans Serif,12,1,0,1]
 Caption="Connect"
 Data=String(Connect)
 link(onClick,1107594:doCompare,[(1304,209)(1304,216)])
}
Add(DoData,10879103,1099,175)
{
 Data=String(Disconnect)
 link(onEventData,392037:doEvent1,[(1140,181)(1140,216)])
}
Add(If_else,1107594,1330,210)
{
 link(onTrue,16350958:doEvent1,[(1374,216)(1374,279)(310,279)(310,342)])
 link(onFalse,4218966:doEvent1,[(1392,223)(1392,237)])
 link(Op1,8469874:Text,[(1336,198)(1329,198)])
 link(Op2,13695874:Text,[(1343,204)(1378,204)])
}
Add(Memo,8469874,1323,140)
{
 Left=1555
 Top=235
 Visible=1
 Strings=#7:Connect|
}
Add(Memo,13695874,1372,140)
{
 Left=1485
 Top=240
 Visible=1
 Strings=#7:Connect|
}
Add(Hub,392037,1155,210)
{
 InCount=2
 OutCount=3
 link(onEvent1,5134980:doCaption,[(1207,216)(1207,209)])
 link(onEvent2,14596791:doEvent1,[(1200,223)(1200,174)])
}
Add(Hub,14596791,1253,168)
{
 link(onEvent1,8469874:doClear,[(1310,174)(1310,153)])
 link(onEvent2,8469874:doAdd,[(1299,181)(1299,146)])
}
Add(DoData,3851974,1099,217)
{
 Data=String(Connect)
 link(onEventData,392037:doEvent2,[])
}
Add(Hub,4218966,1421,231)
{
 OutCount=3
 link(onEvent1,10751473:doClose,[(1447,237)(1447,275)(569,275)(569,314)])
 link(onEvent2,3851974:doData,[(1447,244)(1447,234)(1087,234)(1087,223)])
 link(onEvent3,15493329:doOff,[(1447,251)(1447,216)(702,216)(702,160)])
}
Add(DoData,11682426,1001,175)
{
 link(onEventData,10879103:doData,[])
}
Add(LED,15493329,714,147)
{
 Left=465
 Top=40
 WinStyle=4
 ColorOn=65280
}
Add(Hub,15950520,833,196)
{
 OutCount=3
 link(onEvent1,15493329:doOn,[(859,202)(859,184)(702,184)(702,167)])
}
Add(Button,3028797,931,350)
{
 Left=940
 Top=40
 link(onClick,12350761:doEvent1,[])
}
Add(BlockFind,10752506,679,455)
{
 IncludeBlock=1
 StartBlock="d"
 EndBlock="a"
 link(onSearch,5147087:doEvent1,[(727,461)(727,468)])
}
Add(EventFromData,13827267,861,497)
{
}
Add(Hub,12350761,980,350)
{
 InCount=3
 link(onEvent1,6752638:doClear,[])
}
Add(Plotter,1913846,917,511)
{
 Left=180
 Top=85
 Width=820
 Height=575
 Name="1"
}
Add(PlotLines,7458498,861,546)
{
 Grapher="1"
 Size=5
 Step=1
 MaxValues=200
 link(ValueY,13827267:GetData,[])
}
Add(Hub,14360003,644,308)
{
 OutCount=4
 link(onEvent1,3658924:doSearch,[(718,314)(718,230)])
 link(onEvent2,10752506:doSearch,[(668,321)(668,461)])
}
Add(Hub,14700344,791,511)
{
 InCount=3
 OutCount=4
 link(onEvent1,13827267:doData,[(840,517)(840,503)])
 link(onEvent2,7458498:doAdd,[(840,524)(840,552)])
}
Add(LedNumber,1537301,588,434)
{
 Left=525
 Top=15
 Width=140
 Height=50
 Point(doText)
}
Add(Counter,14362842,525,434)
{
 link(onNext,1537301:doText,[])
}
Add(MMTimer,1245690,427,448)
{
 link(onTimer,15121943:doEvent1,[])
}
Add(Hub,15121943,476,448)
{
 OutCount=3
 link(onEvent1,14362842:doReset,[])
}
[/list]][/scroll]