Практическое занятие №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

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