"Учебник QBasic"

Автор неизвестен

COMMON SHARED variable$, variable2, variable3!

Команда "DECLARE SUB...", объявляет имя подпрограммы и её существование.(QBASIC размещает эти инструкции в начале вашей программы, как только вы сохраняете её). Сделать переменную доступной везде можно так (используя в задании переменной оператора SHARED):

DIM SHARED array$(100)

Удостоверитесь,

что любые переменные(называемые "глобальной переменной") находятся в вашей команде COMMON SHARED, иначе ваша программа будет работать с ошибками. Передают переменные к подпрограмме подобно этому:

SUB DoBox (x1, y1, x2, y2)

Чтобы вызвать подпрограмму нужно написать имя подпрограммы и задать численное значение переменных(если они есть) подобно этому:

DoBox 30, 20, 50, 20

Если же нет переменных вы просто можете только напечатать название подпрограммы в основном тексте программы(теле), подобно этому(здесь вызывается сразу 5 попрограмм):

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, вы помещаете переменные в файл.