#sha
Add(MainForm,7064084,147,203)
{
 Left=20
 Top=105
 Width=777
 Height=334
}
Add(UseActiveX,16099546,280,266)
{
 Left=320
 Top=10
 Width=435
 Height=275
 CLSID="Graphics_Control.Graphics"
}
Add(Memo,15080779,210,203)
{
 Left=10
 Top=10
 Width=295
 Height=250
 Strings=#0:|27:Const pi = 3.14159265358979|0:|47:' Запрещаем автоматическую перерисовку графиков|42:' при изменении параметров графиков и осей|57:' При этом отобразить графики можно командой DrawGraphics|55:' либо графики автоматически перерисуются при изменении|19:' размеров контрола|16:AutoDraw = False|34:' Показываем рамку вокруг графиков|19:FrameVisible = True|17:' Добавляем ось x|28:AddAxisX -4 * pi, 4 * pi, pi|57:' Так как значения меток на данной оси получатся дробными|48:' то для удобства отображения можно их округлить|28:AxisX(1).TextFormat = "0.00"|20:AxisX(1).Label = "x"|24:' Добавляем первую ось y|17:AddAxisY -4, 4, 1|33:AxisY(1).Label = " sin(x),cos(x)"|24:' Добавляем вторую ось y|19:AddAxisY -10, 10, 2|25:AxisY(2).Label = "tan(x)"|25:' Добавляем первый график|48:' Изменить параметры графика можно через его имя|23:' либо порядковый номер|15:AddGraphic "G1"|49:Graphic("G1").GraphicScale -4 * pi, -4, 4 * pi, 4|27:Graphic("G1").Color = vbRed|32:Graphic("G1").Formula = "sin(x)"|25:' Добавляем второй график|15:AddGraphic "G2"|49:Graphic("G2").GraphicScale -4 * pi, -4, 4 * pi, 4|29:Graphic("G2").Color = vbGreen|32:Graphic("G2").Formula = "cos(x)"|25:' Добавляем третий график|15:AddGraphic "G3"|51:Graphic("G3").GraphicScale -4 * pi, -10, 4 * pi, 10|28:Graphic("G3").Color = vbBlue|32:Graphic("G3").Formula = "tan(x)"|16:' Рисуем графики|12:DrawGraphics|8:'End Sub|
 ScrollBars=3
}
Add(Button,13019299,147,266)
{
 Left=10
 Top=265
 Width=300
 Caption="Вывести график"
 link(onClick,12697175:doEnum,[])
}
Add(ArrayEnum,12697175,224,266)
{
 link(onItem,16099546:doExecute,[])
 link(Array,15080779:Array,[])
}