Практическое занятие №7. Файлы. Последовательный доступ

Задача.

Файлы последовательного доступа можно сравнить с музыкальными записями на аудиокассете – для поиска нужной песни приходиться перематывать кассету и последовательно её прослушивать. Зато они очень просты и могут обрабатываться любым текстовым редактором.

Для открытия файла используется команда:

Open ИмяФайла For РежимРаботы As ДискрипторФайла

РежимРаботы может принимать одно из трёх значений;

· Output — для записи данных (если информация в файле уже есть, то она в таком случае будет стёрта)

· Append — для добавления информации в конец файла;

· Input — для чтения из файла данных.

Для закрытия файла используется команда:

Close # [Список Дескрипторов]

Список Дескрипторов это записанные через запятую идентификаторы тех файлов, которые открыты.

Записать данные в файл, можно используя два способа:

· Способ Write

· Способ Print

è Откройте приложение MS Excel.

è Выполните команду СервисàМакросàРедактор Visual Basic или нажмите <Alt+F11>.

è Добавьте форму (команда Insertà UserForm)

è Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)

è Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления (ViewàToolBox), следующие объекты управления: Label (Метка), TextBox (Текстовое поле), CommandButton (Командная кнопка), ListBox (Список).

è В окне Properties (Свойства) для каждого объекта управления установить свойства, приведённые в таблице 6.

Таблица 6

è Блок-схема

è Примерный интерфейс программы может выглядеть так:

è Код программы:

Dim FIO As String

Dim GodRozhdenija As String

Dim Adres As String

Dim Kolichestvo As Integer

Private Sub cmdVvodSpiskaStudentov_Click()

Open "Spisok.txt" For Output As #1

Kolichestvo = InputBox("Введите количество студентов в Äгруппе",”Ввод числа”)

lblKolichestvo.Caption = Str(Kolichestvo)+” человек(а)”

For i% = 1 To Kolichestvo

FIO = InputBox("Введите фамилию студента", "Ввод Äданных о студенте")

GodRozhdenija = InputBox("Введите год рождения Äстудента", "Ввод данных о студенте")

Adres = InputBox("Введите адрес студента", "Ввод Äданных о студенте")

Write #1, FIO; GodRozhdenija; Adres

Next

Close #1

End Sub

Private Sub cmdChtenieIzFaila_Click()

Open "Spisok.txt" For Input As #1

Do Until EOF(1)

Input #1, FIO, GodRozhdenija, Adres

lstFIO.AddItem FIO

lstGodRozhdenija.AddItem GodRozhdenija

lstAdres.AddItem Adres

Loop

Close #1

End Sub

è Перед запуском программы сохраните файл под именем «Произвольный доступ»

è Составьте список из 10 фамилий студентов вашей группы.