"Учебник QBasic" - Автор Неизвестен
topofprogram: CLS
PRINT "Это бесконечный цикл"
GOTO topofprogram
Или, так:
1 CLS
PRINT "Привет мир!"
GOTO 1
GOTO - очень простой, но все же мощный оператор. Но использование оператора не обязательно в вашей программе, его можно заменить другим. GOTO становится очень полезным, когда используется вместе с операторами IF...THEN. Вы можете использовать GOTO, чтобы создать некоторый тип меню, подобно этому:
PRINT "Мое Меню"
PRINT "Нажмите 1, чтобы очистить экран, и 2, чтобы вывести "Привет"!"
INPUT "Что вы выбираете"; choice
IF choice = 1 THEN GOTO clrscr
IF choice = 2 THEN GOTO hello
clrscr: CLS
PRINT "Готово."
hello: PRINT "Привет, Привет, Привет!"
END
Вы можете использовать GOTO после THEN, чтобы перейти к другой части программы программы. Или, Вы можете заменять "=" любым математическим символом (подобно знаку больше ">" или меньше "<"). Есть пара примеров в одной программе:
PRINT "Пример Программы #1"
PRINT "Номер, о котором я думаю стоит в промежутке от 1 и 10."
PRINT "Вы получаете 3 возможности."
INPUT "Первый выбор"; number
IF number = 3 THEN GOTO gotit
PRINT "Простите!"
INPUT " Второй выбор "; number
IF number = 3 THEN GOTO gotit
PRINT " Нет !"
INPUT " Последний выбор "; number
IF number = 3 THEN GOTO gotit
PRINT " Простите ! The number was 3!"
END
gotit: PRINT " Вы выиграли ! Хорошая работа !"
Основной элемент в этой программе - IF...THEN.
Последняя вещь в этой главе – изучение изменения цвета текста и других элементов. Цвет текста на экране позволяет менять команда COLOR (Включая Цвет фона). Вот пример использования этого оператора:
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 "Наберите секретный номер!"
INPUT "Введите"; a
