"Учебник QBasic"

TYPE people

nm AS STRING * 40 ' название программы - 40 символов

age AS INTEGER ' устанавливает возраст как целое число

address AS STRING * 60 ' устанавливает адрес в 60 символов

END TYPE

Следующая вещь, которую мы должны изучить прежде, перед тем как вы откроете файл - использование команды DIM, для установления типа прямого доступа к файлу. Это делается так:

DIM person AS people

Теперь, мы должны научится открывать файл. Снова используется команда OPEN(как вы помните из предыдущей главы), но теперь мы должны добавиться использования двух команд LEN и DIM. Вот пример:

OPEN "address.dat" FOR RANDOM AS #1 LEN = LEN(person)

Это открывает файл прямого доступа "address.dat" с книгой записей для присоединения информации. Теперь вы должны научится использовать свои переменные для ввода в файл информации. Пример описан ниже:

INPUT "Дайте название записи "; record

INPUT "Имя"; person.nm

INPUT "Возраст"; person.age

INPUT "Адрес"; person.address

PUT 1, record, person

Как вы видите, вы должны задавать переменной имя массива, a точка, в вашей пременной ТИП. Тогда, Командой PUT, вы помещаете переменные в файл.

Синтаксис для команды PUT:

PUT [имя файла], [номер записи], [имя переменной]

Это очень просто. Получать массив из файла, используется в основном тот же самый метод, за исключением команды GET . Команда GET точно имеет тот же самый синтаксис, как команда PUT, за исключением, того, что из файла читается в массив, который вы определяете. Есть пример:

INPUT " Представление, которые записи "; record

GET 1, record, person

PRINT "Название"; person.nm

PRINT "Возраст"; person.age

PRINT "Адрес"; person.address

Так используют файл прямого доступа. Назовём, для примера файл RANDOM.BAS. Файлы прямого доступа являются очень полезным для большого количества прикладных программ, но они очень комплексны.

Personname$ = RTRIM$ (person.nm)

Такая команда бы подстроила к концу переменной несколько пробелов.

Задание:

1. Создать простую программу базы данных для адресов и названий(имен)

Использование структурного программирования.

Сохраняйте ваши программы !!!!! Они могут стать шедевром!!!) Желаю удачи!! :)))

Учебники: / QBasic - №03 /

Учебники: / QBasic – №03 – Среда программирования QBasic /

Бейсик (Basic) - диалоговый учебный язык программирования для персональных компьютеров. На современных компьютерах используется следующие версии Basic: GWBasic, QBasic 4.5, Turbo Basic для DOS, Visual Basic 3.0-6.0 для Windows. Здесь мы рассмотрим QBasic 4.5.

QBasic входит в состав операционной системы MS-DOS 6.0-6.22. Есть русифицированная версия QBasic.

Для запуска QBasic надо или найти файл qbasic.exe и Enter, или ввести в командную строку qbasic и Enter. Меню - Alt.

Запуск программы Shift-F5.

Получение помощи Shift-F1.

Создать файл: Меню Файл, Сохранить Как, выбрать каталог, задать имя файла, ОК. Файл получит расширение bas.

Сохранить файл: Меню Файл, Сохранить.

Открыть файл, то есть считать его с диска: Меню Файл, Открыть.

Выход из QBasic: Меню Файл, Выход.

Копирование выделенного фрагмента программы в буфер (Edit,Copy) - Ctrl-Insert,

Вставка фрагмента из буфера (Edit,Paste) - Shift-Insert,

Вырезать (Edit,Cut) - Shift-Delete.

Удобно выделять и делать все указанные операции с помощью мыши. Можно выделенный фрагмент программы вставить в другой файл, если после выделения открыть его.

В QBasic 4.5 можно откомпилировать текстовый bas-файл, превратив его в двоичный exe-файл, который можно использовать отдельно, то есть без среды программирования QBasic.