»Учебник QBasic» - Автор неизвестен. Страница 3

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, чтобы закончить цикл. Есть очень простой пример