3.7. Практическое занятие №7. Файлы. Последовательный доступ
Задача.
-
Создайте программу для записи в файл списка студентов вашей группы.
Файлы последовательного доступа можно сравнить с музыкальными записями на аудиокассете – для поиска нужной песни приходиться перематывать кассету и последовательно её прослушивать. Зато они очень просты и могут обрабатываться любым текстовым редактором.
Для открытия файла используется команда:
Open ИмяФайла For РежимРаботы As ДискрипторФайла
РежимРаботы может принимать одно из трёх значений;
Output— для записи данных (если информация в файле уже есть, то она в таком случае будет стёрта)
Append— для добавления информации в конец файла;
Input— для чтения из файла данных.
Для закрытия файла используется команда:
Close # [Список Дескрипторов]
Список Дескрипторов это записанные через запятую идентификаторы тех файлов, которые открыты.
Записать данные в файл, можно используя два способа:
Способ Write
Способ Print
Откройте приложение MS Excel.
Выполните команду СервисàМакросРедактор Visual Basicили нажмите <Alt+F11>.
Добавьте форму (команда Insert UserForm)
Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)
Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления (ViewToolBox), следующие объекты управления: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 фамилий студентов вашей группы.