"Учебник QBasic" - Автор Неизвестен Страница 6

  Mainloop: CLS

 DoGraphics

 DoLevel

  WaitForKey

  Как дополнение к подпрограммам есть ещё и функции. Они подобны подпрограммам, о в основном они используются для вычисления. Создаёте их можно тем же самым путём, каким вы создали бы подпрограмму, [E]dit > [F]UNCTION(но не SUB). Редактировать функции можно так же как и подпрограммы. Вот простой пример:

  FUNCTION Cube(num)

 Cube = num * num * num

 END FUNCTION

 '[главная программа:]

 CLS

 INPUT "Номер "; number

 num3 = Cube(number)

 PRINT number; "в кубе = "; num3

 END

  Последний раздел, который мы будем изучать в этой главе - файл прямого доступа. Они очень полезны для прикладных программ базы данных. Чтобы сделать программу вы должны определить название вашей TYPE(название) программы и конец TYPE...END. Имеется короткий пример этого:

  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.