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

Задача.

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

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

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

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

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

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

• Append – для добавления информации в конец файла.

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

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

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

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

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

1. Способ Write

2. Способ Print

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

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

   • Добавьте форму (команда Insert UserForm).

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

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

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

Таблица 6

Элемент управления	Свойства	Значения
UserForm	Caption	Последовательный доступ
Label1	Caption	В группе
Label2	Name	lblKolichestvo
	Caption
Label3	Caption	Фамилия И О
ListBox1	Name	lstFIO
Label4	Caption	Год рождения
ListBox2	Name	lstGodRozhdenija
Label4	Caption	Адрес
ListBox3	Name	lstAdres
CommandButton1	Name	cmdVvodSpiskaStudentov
	Caption	Пуск
CommandButton2	Name	cmdChtenieIzFaila
	Caption	Чтение из файла

• Блок-схема:

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

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

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 фамилий студентов вашей группы.