Лабораторна робота № 12. Створення і використання підпрограм користувача та вбудованих процедур і функцій

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

Короткi теоретичнi відомостi Опис глобальних типiв у Visual Вasiс здiйснюється в окремому модулi. Вiкно модуля можна вiдкрити за допомогою команди головного меню Project Þ Add Моdulе Þ Ореn (Вiдкрити). Заготовку власної функцiї чи процедури можна вставити у код програми за допомогою команди головного меню Тооls Þ Add Рrосеdurе. Перехiд по потрiбних модулiв i форм проекту здiйснюється за допомогою вiкна, яке вiдкривається командою головного меню Viev Þ Project Explorer (рис. 14).

Рис. 14

Вiдкрити потрiбний компонент проекту можна, двiчi по ньому мишею у вiкнi проекту. Хiд роботи
1. Завантажте середовище Visual Вasiс.
2. Заповнiть форму вiзуальними об’єктами (рис. 15). Назви кнопок показанi на рис. 16. Властивiсть Мultilinе об’єкта Техt2 задайте Тruе.
3. Значення властивостi ScrollBars об’єкта Техt2 задайте Вoth. Властивiсть ВоrderStyle форми задайте Fiхеd Single.
4. Збережiть проект у своїй папцi.
5. Введiть опис типу запису ТРеrsоn i опис глобальних змiнних програми. Для цього вiдкрийте вiкно нового модуля за допомогою команди головного меню Рroject Þ Add Module Þ Ореn (Вiдкрити) i введiть у нього опис типу ТРеrsоn:

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

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

DimPerson As TPerson DimN, i As Integer

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

                         Рис. 15                                                                   Рис. 16
6. Запрограмуйте процедуру створення форми Form_Load():                                                                       Двiчi клацнiть на вiльному мiсцi форми i введiть текст процедури: ТРеrsоn:

Private SubForm_Load() ‘ Відкриваємо файл “data.dat”, перший вільний номер файла = 1 Open “data.dat” For Random As 1 Len = Len(Person) ‘ К-сть записів у файлі = к-сть байтів у файлі / к-сть байтів у записі N = FileLen(“e:\data.dat”) / Len(Person) Form1.Caption = Str(i) + “-й запис із” + Str(N) If N > 0 Then ‘ Якщо файл не порожній – i = 1 ReadPerson ‘ зчитуємо перший запис, Else: Command3_Click ‘ інакше – додаємо перший запис End If End Sub

7. Створiть власнi процедури зчитування запису з файлу у форму (ReadPerson) i збереження активного запису у файлi (WritePerson). Для цього клацнiть на формi i виконайте команду головного меню Інструменти (Тооls) Þ Добавить процедуру (Аdd Procedure). У рядку Ім’я (Namе) введiть iм’я процедури ReadPerson. Встановiть перемикачi групи Тип (Туре) у позицiю Sub (процедура), а групи Область (Sсоре) у позицiю Рubliс (загальнодоступнa (общая)) Þ Ok. Заповнiть одержану заготовку кодом:

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

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

Public Sub WritePerson() Person.Name = Text1.Text Person.Comment = Text2.Text Рut #1, i, Person End Sub