x = r*cos(a)
y = r*sin(a)

Add(MainForm,10014265,112,119)
{
 Left=20
 Top=105
 Width=431
 Height=244
 Point(onClose)
 link(onCreate,8227798:doEnum,[])
}
Add(StringTable,6524548,329,182)
{
 Left=5
 Top=10
 Width=410
 Height=160
 Columns=#7:Имя=350|7:Очки=50|
 Grid=0
 Point(Strings)
}
Add(Button,16717327,273,252)
{
 Left=5
 Top=180
 Width=135
 Caption="Диаграмма в Exel"
 link(onClick,16445740:##add,[])
}
Add(StrList,518695,161,63)
{
 Strings=#6:Иванов|6:Петров|7:Сидоров|8:Васильев|6:Козлов|9:Афонасьев|
}
Add(Random,3901077,280,133)
{
 Min=5
}
Add(FormatStr,14466174,273,182)
{
 Mask="%1;%2"
 link(onFString,6524548:doAdd,[])
 link(Str2,3901077:Random,[])
}
Add(Hub,4430058,224,133)
{
 link(onEvent1,3901077:doRandom,[])
 link(onEvent2,14466174:doString,[(264,146)(264,188)])
}
Add(ArrayEnum,8227798,175,133)
{
 link(onItem,4430058:doEvent1,[])
 link(Array,518695:Array,[])
}
Add(CheckBox,8393208,378,189)
{
 Left=155
 Top=180
 Width=130
 Caption="Круговая диаграмма"
 link(onCheck,8478444:doSwitch,[])
}
Add(MultiElementEx,16445740,329,252)
{
 Mode=2
 link(Data,6524548:Count,[])
 link(Array,6524548:Strings,[(342,228)(349,228)])
 link(Str2,8478444:State,[(349,238)(433,238)])
}
BEGIN_SDK
  Add(EditMultiEx,5156543,21,21)
  {
   WorkCount=#5:##add|
   DataCount=#4:Data|5:Array|4:Str2|
   Width=356
   Height=263
   Point(##add)
   link(##add,3365534:doEnum,[(76,27)(76,62)])
  }
  Add(FormatStr,4366322,196,126)
  {
   DataCount=3
   Mask="objXL.Cells(%3,1).Value = "%1"
objXL.Cells(%3,2).Value = %2"
   link(onFString,9094959:doWork2,[])
   link(Str1,9031880:Left,[])
   link(Str2,16590556:Value,[(209,95)(251,95)])
   link(Str3,5036407:Count,[(216,100)(314,100)])
  }
  Add(StrList,8699923,280,126)
  {
   FileName="Proba.vbs"
   Strings=#9:Dim objXL|14:Dim objXLchart|0:|0:|53:Set objXL = WScript.CreateObject("Excel.Application")|19:objXL.Workbooks.Add|
  }
  Add(ArrayEnum,3365534,84,56)
  {
   link(onItem,10013918:doEvent1,[])
   link(onEndEnum,934467:doEvent1,[(128,69)(128,209)])
   link(Array,5156543:Array,[(90,35)(34,35)])
  }
  Add(StrPart,9031880,196,56)
  {
   Char=";"
   Point(Left)
   link(onSplit,16590556:doValue,[])
  }
  Add(Memory,16590556,245,56)
  {
   link(onData,5036407:doNext,[])
  }
  Add(Hub,10013918,140,56)
  {
   link(onEvent1,9031880:doSplit,[])
   link(onEvent2,4366322:doString,[(180,69)(180,132)])
  }
  Add(Counter,5036407,308,56)
  {
  }
  Add(FormatStr,13662598,196,203)
  {
   Mask="objXL.Range("B1:B%1").Select

Set objXLchart = objXL.Charts.Add()
objXL.Visible = True
objXLchart.Type = %2"
   link(onFString,9094959:doWork3,[(249,209)])
   link(Str1,5156543:Data,[(202,183)(27,183)])
   link(Str2,5156543:Str2,[(209,192)(41,192)])
  }
  Add(HubEx,9094959,245,119)
  {
   link(onEvent,8699923:doAdd,[])
  }
  Add(Hub,934467,140,203)
  {
   OutCount=3
   link(onEvent1,13662598:doString,[])
   link(onEvent2,8699923:doSave,[(260,216)(260,167)])
   link(onEvent3,3591155:doShellExec,[])
  }
  Add(WinExec,3591155,280,210)
  {
   FileName="Proba.vbs"
  }
END_SDK
Add(Switch,8478444,427,189)
{
 DataOn=Integer(-4100)
 DataOff=Integer(5)
 Default=0
 Point(State)
}