"Учебник QBasic"

COLOR 13

PRINT "Сиреневый!"

COLOR 7

PRINT "Серый!"

Число, после оператора COLOR - один из этих номеров цвета:

00 - Сажа

08 - Тёмно - серый

01 – Темно - синий

09 – Светло - синий

02 – Тёмно – зеленый

10 - Светло - зеленый

03 – Тёмно - голубой

11 – Светло - голубой

04 – Темно - красный

12 - Светло - красный

05 – Темно - пурпурный

13 - Сиреневый

06 - Цитрус

14 - Жёлтый

07 - Серый

15 – Ярко - белый

Это заканчивает наше обсуждение оператора COLOR и нашей главы. В этой главе узнали много нового.

УДАЧИ!!! И Хорошего вам дня!!!

Учебники: / QBasic – №01 – Глава 4 /

Глава Четвёртая. Привет! В этой главе, мы изучим следующие команды:

DO...LOOP, OPEN, INT, CLOSE, RANDOMIZE TIMER RND, PRINT#, SELECT...END, SELECT, INPUT # INKEY$

В предыдущей главе, мы говорили относительно циклов DO...LOOP, которые позволяют повторять действие некоторое количество раз. Окончание цикла при уловии:

Все, что вы должны сделать - написать, DO WHILE... или UNTIL..[какое-либо условие]. В переводе с английского это бы звучало так: ДЕЛАЙТЕ какое - либо ДЕЙТСТИЕ ДО ТОГО КАК ПРОИЗОЙДЁТ [какое-либо условие]

Обязательна команда LOOP, чтобы закончить цикл. Есть очень простой пример

из того, как использовать этот цикл:

DO UNTIL a = 10

try = try + 1

PRINT "Попробуйте номер"; try

PRINT

PRINT "Наберите секретный номер!"

INPUT "Введите"; a

LOOP

Это бы значило что цикл продолжался до набора числа 10. Эта команда очень простая, но бесконечно полезная. Отличие этого цикла от команды INPUT - не нужно нажимать клавишу "ENTER" после ввода числа. Сейчас программисты стремятся придерживаться этого в своих программах, а именно, в местах где написано "нажмите любую клавишу".

Функция INKEY$ - требует немедленного нажатия на любую клавишу… Вы можете "вставлять" эти команды в вашу программу.

DO WHILE INKEY$ = ""

PRINT "Нажмите любую клавишу. Для окончания цикла..."

LOOP

И это бы значило, то что, цикл бы не прекратился пока бы вы не нажали любую клавишу.

Функцию можно использовать в:

Меню "вызывающей клавиши" INPUT(Как горючую клавишу). Однако, это требует конструкцию, подобную IF...THEN.

Изучим, теперь, новый набор команд - SELECT CASE...END SELECT, что позволяет вам устанавливать связку IF...THEN, вместо сотен отдельных функций в вашей программе будут операторы SELECT CASE...END SELECT. Это также позволит вам иметь многократные команды в переменной CASE.

Вот простой пример:

PRINT " Главное меню "

PRINT "1) Окончание программы"

PRINT "2) Сюрприз"

PRINT

INPUT "Ваш выбор"; chc

SELECT CASE chc

CASE 1

PRINT "Хорошо неправда ли!"

END