![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
Виконайте команду Components контекстного меню панелі компо-нентів. В отриманому меню на закладці Controls встановити прапорець в позиції ChartFX 2.0 OLE Custom Control=>Ok. Встановити на форму об’єкт ChartFX (діаграма) для побудови графіка функції. Виберіть контекстне меню Properties цього об’єкту і на вкладці Appearance в списку Gallery Type виберіть піктограму потрібного графіку.
Private Sub Command1_Click()
Dim x As Double
Dim n, i, cod As Long
x = 0
n = 200
cod = Chartfx1.OpenDataEx(COD_VALUES, 1, n)
For i = 0 To n - 1
Chartfx1.Value(i) = Sin(x) + 1 будуємо графік
Chartfx1.Legend(i) = x
‘ формуємо легенду
x = x + 0.5
‘ наступне значення х
Next
Chartfx1.CloseData (COD_VALUES)
End Sub
Контрольні запитання.
1.За допомогою якого компонента будується графік функції?
2.Які властивості цього компонента використовуються?
Завдання для самостійного розв’язку.
1. Побудувати графіки функцій:
a) y=cos(x); b) y=x2 +5
Дата публикования: 2014-12-28; Прочитано: 158 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!