Виконайте команду 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