2. Тема: "Робота з масивами та файлами"

   0. Одновимірні масиви. Завдання для практичного виконання

Теоретичні відомості по роботі з масивами у Visual Basic розглянуто в темі 2.1. Для виконання практичних задач з даної теми наведено додаткові відомості.

У існують оператори, які дозволяють зчитувати вхідні дані та зберігати результати обробки у файлах на різноманітних носіях (гнучких або жорстких дисках). Процес відкриття та зберігання файлів складається з наступних етапів:

• отримання дескриптора файлу. Дескриптор – номер каналу введення-виведення, який можна використовувати для роботи з файлом. Це ціле число від 1 до 255, яке можна задати за допомогою функції FreeFile

• відкриття файлу

• читання або запис

• закриття файлу.

У Visual Basic реалізовано три типи доступу до файлів:

• послідовного доступу – для читання та запису текстовий файлів;

• прямого доступу – дані зчитуються та записуються в будь-якій послідовності, рядки повинні бути однакової довжини;

• двійковий – для читання та запису довільної групи байтів

Далі розглядається обробка файлів послідовного доступу. Основні команди для роботи з файлами:

Open "повне ім’я файлу" For Input As #n

Відкриває файл для читання із нього даних

Open "повне ім’я файлу" For OutPut As #n

Відкриває файл для введення до нього даних

#N – номер каналу введення-виведення

Line Input #N "змінна"

Зчитує один рядок із текстового файлу

Input #N

Зчитує послідовність даних, розділених комою

Close #N

Оператор закриття файлу

Print #N

Друкування даних у файл. В даному операторі можна використовувати конструкцію Tab(номер), яка задає номер позиції в рядку, куди необхідно вивести дані.

Постановка задачі

В текстовому файлі задано одновимірний масив цілих чисел з 10 елементами. Створити проект на Visual Basic, за допомогою якого можна розрахувати середнє значення заданих елементів. Результат вивести на екран монітору та записати до текстового файлу

Порядок виконання

1. За допомогою програми Блокнот в особистій папці створити файл початкових даних DAN1.TXT. Файл містить 1 рядок елементів одновимірного масиву 10 натуральних чисел, наприклад, 3, 6, 12, 2, 29, 5, 8, 11, 7, 32

2. Створити макет форми (представлено на рис. 6.1)

Рис. 6.1 Макет форми

Призначення об’єктів форми:

Picture1 – для виведення елементів масиву, записаних в текстовому файлі Dan1.txt

Command1 – командна кнопка "Виведення елементів масиву", при натисненні на яку до об’єкту Picture1 виводяться елементи масиву, що записані в текстовому файлі Dan1.txt

Command2 – командна кнопка, при натисненні на яку виконується розрахунок середнього значення, вивід результату на екран та запис результату до файлу Dan2.txt

Command3 – командна кнопка виходу із додатку

3. Властивості об’єктів (Form1, Picture1, Command1, Command2, Command3 задати самостійно, використовуючи набути навички)

4. Блок-схема виведення елементів масиву (рис.6.2)

5. Блок-схема розрахунку середнього значення елементів масиву (рис 6.3)

6. Програмний код кнопки "Виведення елементів масиву"

Оператори програмного коду	Пояснення
Private Sub Command1_Click()	Початок процедури
Dim X(1 To 10) As Integer	Оголошення масиву Х, який містить 10 елементів
Open "D:\Учебный процесс\ Особиста папка\Dan1.txt" For Input As #1	Відкриття текстового файлу Dan1 для зчитування даних
For I = 1 To 10	Початок циклу зчитування даних із текстового файлу та виведення
Input #1, X(I)	Зчитування І-го елементу масиву
Picture1.Print X(I); " ";	Виведення І-го елементу до об’єкту форми Picture1
Next I	Перехід до наступного елементу масиву
Close #1	Закриття текстового файлу з початковими даними
End Sub	Кінець процедури

Рис. 6.2 Блок схема виведення елементів масиву із текстового файлу послідовного доступу до об’єкту Picture1

7. Програмний код кнопки "Розрахувати"

Оператори програмного коду	Пояснення
Private Sub Command2_Click()	Початок процедури
Dim X(1 To 10), S As Integer	Оголошення масиву Х, який містить 10 елементів та змінної S (суми елементів масиву) цілого типу
Dim SR As Single	Оголошення змінної SR (середнього значення) дійсного типу
Open "D:\Учебный процесс\ Особиста папка\Dan1.txt" For Input As #1	Відкриття текстового файлу Dan1 для зчитування даних
S = 0	Обнуління суми елементів масиву
For І = 1 To 10	Початок циклу зчитування елементів масиву та обчислення їх суми
Input #1, X(І)	Зчитування І-го елементу масиву
S = S + X(І)	Обчислення суми елементів масиву
Next І	Перехід до наступного елементу масиву
SR = S / 10	Обчислення середнього значення елементів масиву
MsgBox "Середнє значення " & Str(SR), 0, "Вікно виводу результатів"	Виведення результату розрахунку середнього значення елементів масиву
Close #1	Закриття текстового файлу з початковими даними
Open "C:\Dan2.txt" For Output As #2	Відкриття файлу послідовного доступу для запису результату обчислення
Print #2, "Середнє значення"; SR	Запис результату обчислення до текстового файлу послідовного доступу
Close #2	Закриття файлу послідовного доступу
End Sub	Кінець процедури

Рис. 6.3 Блок-схема алгоритму розрахунку середнього значення елементів масиву

8. Програмний код кнопки "Вихід"

Private Sub Command3_Click()

End

End Sub

9. Результати виконання проекту представлено на рис.6.4

Рис. 6.4 Результати виконання проекту

10. Проект зберегти в особистій папці.

11. Створити завантажувальний файл