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.
