ПОДКЛЮЧЕНИЕ
ДОПОЛНИТЕЛЬНЫХ
ЭЛЕМЕНТОВ
УПРАВЛЕНИЯ
ПОСТРОЕНИЕ ГРАФИКОВ
Dim a() As Single, b() As Single, c() As Single, n As Integer
Private Sub Command1_Click()
With MSChart1
.chartType = VtChChartType2dLine
.RowCount = n
.ColumnCount = 2
.ShowLegend = True
.Title.Text = "ГРАФИКИ" For i = 1 To n
.Row = i: .Column = 1
.ColumnLabel = "first"
.RowLabel = CStr(a(i))
.Data = CStr(b(i))
.Column = 2
.ColumnLabel = "second"
.Data = CStr(c(i)) Next i
End With
End Sub
Private Sub Form_Load() n = 10
List1.Clear: List2.Clear: List3.Clear
ReDim a(1 To n) As Single, b(1 To n) As Single, c(1 To n) As Single For i = 1 To n
a(i) = i + 3: b(i) = a(i) * 3 + 2 c(i) = 7 * a(i)
List1.AddItem (CStr(a(i)))
List2.AddItem (CStr(b(i)))
List3.AddItem (CStr(c(i)))
Next i
End Sub
Dim ArrX() As Currency, ArrY() As Currency
Dim NValue As Integer
Dim NFunc As Integer
Const Pi = 3.14
Private Sub Form_Load()
NFunc = 1
cboName.AddItem ("Фигуры Лиссажу") cboName.AddItem ("Кардиоида")
cboName.AddItem ("Розы")
End Sub
Private Sub Command1_Click()
Cls
PicChart.Cls
MakeChart Text1.Text, CCur(Text2.Text), CCur(Text3.Text),
CCur(Text4.Text), CCur(Text5.Text), Text6.Text, Text7.Text, Text8.Text,
Text9.Text
End Sub
'Рисование графика функции
Private Sub MakeChart(NValue As Integer, XMin As Currency, XMax As Currency, YMin As Currency, YMax As Currency, NxGrid As Integer, NyGrid As Integer, TextX As String, TextY As String)
Dim XCounter As Integer, YCounter As Integer Dim XStep As Currency, YStep As Currency
Dim XDraw1 As Currency, YDraw1 As Currency, XDraw2 As Currency, YDraw2 As Currency
Dim XYScale As Integer, ValuePrint As Currency
'Установка пользовательских координат PicChart.Scale (XMin, YMax)-(XMax, YMin)