"Учебник QBasic"

  
    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.