Студопедия

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника



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

Читайте также:
  1. FDDI. Архитектура сети, метод доступа, стек протоколов.
  2. FDDI. Кадр. Процедуры управления доступом к кольцу и инициализации работы кольца.
  3. II. Методы несанкционированного доступа.
  4. Анализ законодательных инициатив граждан в сфере утверждения и сохранения Трезвости (ограничение доступности).
  5. Б) доступ к положениям и должностям был бы открыт для всех.
  6. БИЛЕТ 22. Последовательный контроль надежности.
  7. Виды доступа к информации
  8. Внеклассное занятие.
  9. Второе занятие с биокомпьютером
  10. ГРУППОВОЕ ЗАНЯТИЕ

Задача.

 

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

 

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

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

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

 


Дата добавления: 2014-11-13; просмотров: 25; Нарушение авторских прав


<== предыдущая лекция | следующая лекция ==>
Обменная сортировка | Практическое занятие №8. Файлы с произвольным доступом
lektsii.com - Лекции.Ком - 2014-2018 год. (0.008 сек.) Главная страница Случайная страница Контакты