Команда "DECLARE SUB...", объявляет имя подпрограммы и её существование.(QBASIC размещает эти инструкции в начале вашей программы, как только вы сохраняете её). Сделать переменную доступной везде можно так (используя в задании переменной оператора SHARED):
Удостоверитесь, что любые переменные(называемые "глобальной переменной") находятся в вашей команде COMMON SHARED, иначе ваша программа будет работать с ошибками. Передают переменные к подпрограмме подобно этому:
Чтобы вызвать подпрограмму нужно написать имя подпрограммы и задать численное значение переменных(если они есть) подобно этому:
Если же нет переменных вы просто можете только напечатать название подпрограммы в основном тексте программы(теле), подобно этому(здесь вызывается сразу 5 попрограмм):
DoGraphics
DoLevel
WaitForKey
Как дополнение к подпрограммам есть ещё и функции. Они подобны подпрограммам, о в основном они используются для вычисления. Создаёте их можно тем же самым путём, каким вы создали бы подпрограмму, [E]dit > [F]UNCTION(но не SUB). Редактировать функции можно так же как и подпрограммы. Вот простой пример:
Cube = num * num * num
END FUNCTION
'[главная программа:]
CLS
INPUT "Номер "; number
num3 = Cube(number)
PRINT number; "в кубе = "; num3
END
Последний раздел, который мы будем изучать в этой главе - файл прямого доступа. Они очень полезны для прикладных программ базы данных. Чтобы сделать программу вы должны определить название вашей TYPE(название) программы и конец TYPE...END. Имеется короткий пример этого:
nm AS STRING * 40 ' название программы - 40 символов
age AS INTEGER ' устанавливает возраст как целое число
address AS STRING * 60 ' устанавливает адрес в 60 символов
END TYPE
Следующая вещь, которую мы должны изучить прежде, перед тем как вы откроете файл - использование команды DIM, для установления типа прямого доступа к файлу. Это делается так:
Теперь, мы должны научится открывать файл. Снова используется команда OPEN(как вы помните из предыдущей главы), но теперь мы должны добавиться использования двух команд LEN и DIM. Вот пример:
Это открывает файл прямого доступа "address.dat" с книгой записей для присоединения информации. Теперь вы должны научится использовать свои переменные для ввода в файл информации. Пример описан ниже:
INPUT "Имя"; person.nm
INPUT "Возраст"; person.age
INPUT "Адрес"; person.address
PUT 1, record, person
Как вы видите, вы должны задавать переменной имя массива, a точка, в вашей пременной ТИП. Тогда, Командой PUT, вы помещаете переменные в файл.
Синтаксис для команды PUT:
PUT [имя файла], [номер записи], [имя переменной]
Это очень просто. Получать массив из файла, используется в основном тот же самый метод, за исключением команды GET . Команда GET точно имеет тот же самый синтаксис, как команда PUT, за исключением, того, что из файла читается в массив, который вы определяете. Есть пример:
GET 1, record, person
PRINT "Название"; person.nm
PRINT "Возраст"; person.age
PRINT "Адрес"; person.address