QuickBASIC

Щоб зазначити явно типи змінних, до їхніх імен дописують спеціальні символи (суфікси).

• До змінної цілого типу можна дописати символ % (коротке дане) або символ & (довге дане), наприклад, A1%, C&.
• Оголосити короткі чи довгі дійсні змінні можна за допомогою символів ! чи # відповідно. Наприклад, D!, X1 #.
• Імена текстових змінних закінчується суфіксом $, наприклад, B5$, C$, M$(8).
• Спеціальні символи можна дописувати до чисел, наприклад: 5%, 534778&, 5.2!, 45246.34534#, але це робити необов'язково.

У більшості сучасних мов програмування спеціальні символи для описування типів змінних не використовують, тому в мові Бейсик варто надавати перевагу командам опису типів або принципу замовчування.

Команди описування типів записують на початку програми. У Qbasic використовують такі команди:

Приклад 1. Цілі змінні A, B, C, D можна описати так:

DEFINT A, B, C, D

або так:

DEFINT A, B : DEFLNG C, C.

Приклад 2. Щоб проінформувати систему, що всі змінні, які починаються із символів A, B, C, D, K, M, є змінними цілого типу, із символів E, F дійсного короткого типу, із P, Q текстового типу, на початку програми записують такі команди:

DEFINT A-D, K, M
DEFSNG E, F
DEFSTR P, Q.

Дефіс у першій команді замінює перелік елементів списку через кому (A, B, C, D).

Для оголошення змінних у сучасних версіях мови застосовують команду DIM.

DIM <змінна 1> AS <тип 1>, <змінна 2> AS <тип 2>
DIM <змінна 3> AS <тип 3>, ...

Приклад 3. Цілі змінні A, B, дійсні C, D та текстову H можна оголосити так:

DIM A AS INTEGER, B AS INTERGER, C AS DOUBLE
DIM D AS DOUBLE, H AS STRING*10.

Текстові дані (назва типу STRING) можуть містити у Qbasic до 255 літер і займати в пам'яті до 256 байтів (у VB ці дані значно довші). Якщо заздалегідь відомо, що кількість літер у тексті не перевищує числа n,то тип цього даного описують як STRING*n.

Кольори в програмі задають командою COLOR:

 COLOR A, B, C   ' для режиму 0
 COLOR A, B      ' для режимів 7…10
 COLOR A         ' для режиму 12

Тут A, B, C - числа або змінні. Значення А задає колір зображення, В - колір тіла, С - колір межі. Числове кодування кольорів наступне:

Приклад: команда COLOR 0, 14, 3 встановлює текстовий режим, чорні символи на жовтому тлі з блакитною межею (рамкою).

Змінити колір пікселя можна за допомогою команди PSET:

PSET (X,Y), D

Тут X - горизонтальна координатна точки; Y - вертикальна; D - колір; X, Y, D - сталі змінні або вирази. Якщо кольори задані командою COLOR A, B то засвітити точку (X, Y) кольором А (на тлі В) можна так:

PSET (X,Y)

Приклад: Засвітити зеленим кольором точку з координатами (50, 100) можна так:

PSET (50, 100), 2.

Загасити піксель можна командою PSET (X,Y), B або командою

PRESET (X, Y)

Приклад: загасити засвічену раніше точку можна так: PSET (50, 100).

Команду PRESET використовують також для розміщення графічного курсора в стартове положення (X, Y).

Для малювання прямої кольором D використовують команду LINE:

LINE (X1, Y1) - (X2, Y2), D

У дужках зазначають координати початку і кінця прямої. Координати початку можна опускати, якщо користувача влаштовують координати графічної точки, де є курсор. Отже, коротка форма команди має такий вигляд:

LINE - (X2, Y2)

У цьому випадку рисується (кольором A) пряма лінія від деякої поточної точки до точки з координатами (X2, Y2).

Приклад 4. З'єднати точки з координатами (50, 100) та (50, 150) червоною лінією можна так:

LINE (50, 100) - (50, 150),4 або LINE - (50, 150), 4.

Для зображення прямокутника використовують команду

LINE (X1, Y2), D, B

Тут у дужках задано координати діагонально протилежних вершин прямокутника.

Щоб розмалювати весь прямокутник кольором D, замість символу B пишуть символи BF.

Приклад 5 Нарисуємо квадрат і розмалюємо його яскраво-синім кольором: LINE (50,100) - (100, 150), 9, BF.

Для розмальовування замкнутих ділянок (не лише прямокутників) використовують команду PAINT:

PAINT (X, Y), D, C

Тут X, Y - координати будь-якої точки, що лежить у середині замкнутої ділянки, яку розмальовують; D - колір розмальовування; C - колір межі ділянки.

Дія команди PAINT. Нехай межа ділянки (фігури) має колір C. У результаті виконання команди замкнута ділянка буде розмальована кольором D.

Приклад 6. Сонце можна намалювати так:

Програма "Сонце"

SCREEN 7
COLOR 5, 3
CIRCLE (160, 100), 70, 4  'Команда CIRCLE зображає коло.'
PAINT (160, 100), 14, 4
END

Команду DRAW використовують (лише у Qbasic)для рисування ліній різного кольору різної довжини у восьми допустимих напрямках. Вона має вигляд

DRAW текстова стала

Тут текстова стала - це послідовність параметрів-кодів, які позначають напрямок руху. Після кожного параметра стоїть число, яке вказує довжину лінії. Параметрів, що задають напрямок руху, є вісім. Стрілка пояснює, в якому напрямку комп'ютер рисує лінію на екрані.

Приклад 4. За допомогою команди 30 DRAW "U30R40D30L40" можна нарисувати прямокутник, виходячи з деякої точки, заданої командою PSET, або з точки, де закінчила рисувати попередня команда, інакше рисування почнеться у центрі екрана.

Корисними є також такі три параметри: N, B, C.

Якщо на початку рядка символів зазначити параметром N, то після рисування лінії невидимий графічний курсор повернеться у стартову точку.

Якщо на початку рядка написати B, то графічний курсор переміститься у зазначеному іншими параметрами напрямку, нічого не рисуючи.

Якщо в середині рядка символів поставити параметр C з числовим значенням кольору, то колір ліній зміниться на заданий. Цей параметр діє тільки в межах команди DRAW.

Для імітації руху зображення об'єкта на екрані потрібно виконати такий алгоритм:

1. Намалювати об'єкт у заданій точці.
2. Знищити об'єкт, замалювавши його кольором тла.
3. Змінити координати об'єкта.
4. Перейти до пункту 1.

Продемонструємо цей алгоритм на прикладі програми "Рух кола". На екрані зелене коло на чорному тлі рухатиметься вверх-вниз. Програма "Рух кола"

 SCREEN 8
 COLOR 2,1
 Y = 10
 SY = 4
start:
 CIRCLE (120, Y), 40, 2       ' Малювання кола
 CIRCLE (120, Y), 40, 1       ' Стирання кола
 Y = Y + SY                   ' Зміна y-координати центру
 IF Y < 10 OR Y > 190 THEN SY = -SY  ' Якщо досягнуто межі, перемкнути на рух у протилежний бік
 GOTO start                   ' На початок циклу

Перервати виконання цієї програми можна комбінацією Ctrl+Break.

Для комп'ютерів з високою швидкодією слід робити штучні паузи між малюванням та стиранням об'єктів, щоб не втрачати їхнє правильне зображення на екрані.