Private Sub Commandl_CHck() Dim x As Double

Dim n, i, cod As Long x = 1 'Початковий х n = 20 'Кількість точок на графіку cod = ChartFXl.OpenDataEx(COD_VALUES, 1, n) For і = 0 To n - 1 ChartFXl.Value(i) = Sin(x) + 1 'Будуємо графік ChartFX l.Legend(i) = x 'Формуємо легенду x = x + 0.2 'Наступне значення х Next ChartFXl.CloseData (COD_VALUES) End Sub

Задача З.6. В умовах задачі 3.5 використайте задані на формі значення лівої і правої меж графіка та кроку розбиття.

§ 5. ЗАДАЧА ПРО АДРЕСНУ КНИЖКУ. Практична робота № 4. Файли записів

Мета роботи. Створити програму, яка працюватиме з базою да-них — адресною (записною) книжкою, сформованою у вигляді файлу записів (рис. 16). Полями кожного запису є: прізвище і ім'я (рядок символів довжиною до 50 символів) та особисті дані (рядок довжиною до 500 символів). Необхідно реалізувати наступні опе-рації: створення та вилучення запису, збереження та зчитування з диска файлу записів, редагування та пошук потрібних даних,

перегляд записів та навігацію по них.

Теоретичні відомості. Опис глобальних типів у Visual Basic здійснюється в окремому модулі. Вікно модуля можна відкрити за допомогою команди головного меню Project => Add Module => Open (Відкрити). Заготовку власної функції чи процедури можна вставити у код програми за допомогою команди головного меню Tools => Add Procedure. Перехід по потрібних модулів і форм проекту здійснюється за допомогою вікна, яке відкривається коман-дою головного меню View =Ф Project Explorer (рис. 14).

Відкрити потрібний компонент проекту можна, двічі клацнувши по ньому мишею у вікні проекту.

Хід роботи

1. Завантажте середовище Visual Basic.

2. Заповніть форму візуальними об'єктами (рис. 15).

Назви кнопок показані на рис. 16. Властивість MultiLine об'єкта Text2 задайте True.

З*. Значення властивості ScrollBars об'єкта Text2 задайте Both. Властивість BorderStyle форми задайте Fixed Single.

4. Збережіть проект у своїй папці.

5. Введіть опис типу запису TPerson і опис глобальних змінних програми.

Для цього відкрийте вікно нового модуля за допомогою команди головного меню Project => Add Module => Open (Відкрити) і введіть у нього опис типу TPerson:

Type TPerson Name As String * 50 Comment As String * 500 End Type

Поверніться у вікно коду форми і введіть у нього опис глоба-льних змінних програми:

Dim Person Dim N, і |

As TPerson As Integer |

'Змінна типу запису TPerson 'Номери останнього і активного 'записів

Зауваження. Одержати доступ до секції опису глобальних змінних можна, вибравши у лівому верхньому комбінованому списку редактора коду елемент (General), а у правому списку — елемент (Declarations).

\т. Запрограмуйте процедуру створення форми Form_Load():

• Двічі клацніть на вільному місці форми і введіть текст

• процедури:

Private Sub Form_Load() 'Відкриваємо файл "datadat", перший вільний номер файла — 1 Open "data.dat" For Random As 1 Len = Len(Person) 'К-сть записів у файлі = к-сть байтів у файлі / к-сть байтів у записі N = FileLenf'e: \data.dat") / Len(Person) 'Друкуємо номер запису і їхню кількість у заголовку форми Form I. Caption = Str(i) + "-й запис із " + Str(N) If N > 0 Then 'Якщо файл не порожній -і = 1 ReadPerson 'зчитуємо перший запис, Else: Commands Click 'інакше - додаємо перший запис End If End Sub

Створіть власні процедури зчитування запису з файлу у форму (ReadPerson) і збереження активного запису у файлі (WritePerson).

Для цього клацніть на формі і виконайте команду головного ме-ню Tools => Add Procedure. У pafttey Name введіть ім'я процедури ReadPerson. Встановіть перемикачі групи Туре у позицію Sub (процедура), а групи Scope у позицію Public (загальнодоступна)

8. |

=> Ok. Заповніть одержану заготовку кодом:

Public Sub ReadPersonQ " Get #1, і, Person 'Зчитуємо і - пшй запис у змінну Person Textl .Text = Person. Name 'Відображаємо поля запису на формі Text2.Text = Person. Comment 'Друкуємо номер запису і їх кількість у заголовку форми Forml. Caption = Str(i) + "-й запис із " + Str(N) End Sub

Аналогічно створіть процедуру WritePerson:

Public Sub WritePerson() Person.Name = Textl .Text 'Записуємо дані з текстових Person.Comment = Text2.Text 'поліву змінну Person Put #1, і, Person 'Зберігаємо запис Person у файлі End Sub

Запрограмуйте командні кнопки.

Private Sub Commandl_Click() 'Попередній запис WritePerson 'Зберігаємо зміни в активному записі If і > 1 Then 'Якщо запис не перший, і = і - 1 'зменшуємо його номер ReadPerson 'і зчитуємо з файлу End If End Sub

Private Sub Command2_Click() 'Наступний запис WritePerson 'Зберігаємо зміни в активному записі If і < N Then 'Якщо запис не останній, і = і + 1 'збільшуємо його номер ReadPerson 'і зчитуємо з файлу End If End Sub

Private Sub Command3_Click() 'Додати запис If і > 0 Then 'Якцо є запис на формі WritePerson 'Зберігаємо його End If N = N + 1 'Збільшуємо кількість записів і = N 'Активний запис на останній позиції 'Друкуємо номер запису і їх кількість у заголовку форми