Page 104 - 4788

ЛАБОРАТОРНА РОБОТА 14

ПОБУДОВА ГРАФІКА ФУНКЦІЇ

МЕТА РОБОТИ – Вивчення технології побудови
графіка функції.

ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

1. Вивчити теоретичний матеріал.
2.Побудувати графік функції згідно завдання,
отриманого у викладача.
3 Виконати задачі для самостійної роботи.

Теоретичний матеріал

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

102